getopt-susv3.c 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133
  1. /* Copyright (C) 2003 Manuel Novoa III
  2. *
  3. * This library is free software; you can redistribute it and/or
  4. * modify it under the terms of the GNU Library General Public
  5. * License as published by the Free Software Foundation; either
  6. * version 2 of the License, or (at your option) any later version.
  7. *
  8. * This library is distributed in the hope that it will be useful,
  9. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  11. * Library General Public License for more details.
  12. *
  13. * You should have received a copy of the GNU Library General Public
  14. * License along with this library; if not, write to the Free
  15. * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. */
  17. /* ATTENTION! ATTENTION! ATTENTION! ATTENTION! ATTENTION!
  18. *
  19. * Besides uClibc, I'm using this code in my libc for elks, which is
  20. * a 16-bit environment with a fairly limited compiler. It would make
  21. * things much easier for me if this file isn't modified unnecessarily.
  22. * In particular, please put any new or replacement functions somewhere
  23. * else, and modify the makefile to use your version instead.
  24. * Thanks. Manuel
  25. *
  26. * ATTENTION! ATTENTION! ATTENTION! ATTENTION! ATTENTION! */
  27. /* Sep 7, 2003
  28. * Initial version of a SUSv3 compliant getopt().
  29. */
  30. #define _GNU_SOURCE
  31. #include <unistd.h>
  32. #include <string.h>
  33. #include <stdio.h>
  34. #ifdef __UCLIBC_MJN3_ONLY__
  35. #warning TODO: Enable gettext awareness.
  36. #endif /* __UCLIBC_MJN3_ONLY__ */
  37. #undef _
  38. #define _(X) X
  39. #ifdef __BCC__
  40. static const char missing[] = "option requires an argument";
  41. static const char illegal[] = "illegal option";
  42. #else
  43. static const char missing[] = "%s: option requires an argument -- %c\n";
  44. static const char illegal[] = "%s: illegal option -- %c\n";
  45. #endif
  46. int opterr = 1;
  47. int optind = 1;
  48. int optopt = 0;
  49. char *optarg = NULL;
  50. int getopt(int argc, char * const argv[], const char *optstring)
  51. {
  52. static const char *o; /* multi opt position */
  53. register const char *p;
  54. register const char *s;
  55. int retval = -1;
  56. optopt = 0;
  57. optarg = NULL;
  58. if (!o) { /* Not in a multi-option arg. */
  59. if ((optind >= argc) /* No more args? */
  60. || ((p = argv[optind]) == NULL) /* Missing? */
  61. || (*p != '-') /* Not an option? */
  62. || (!*++p) /* "-" case? */
  63. ) {
  64. goto DONE;
  65. }
  66. if ((*p == '-') && (p[1] == 0)) { /* "--" case. */
  67. /* ++optind; */
  68. /* goto DONE; */
  69. goto NEXTOPT; /* Less code generated... */
  70. }
  71. o = p;
  72. }
  73. #ifdef __BCC__
  74. p = o; /* Sigh... Help out bcc. */
  75. #define o p
  76. #endif
  77. retval = (unsigned char) *o; /* Avoid problems for char val of -1. */
  78. if ((*o == ':') || !(s = __strchr(optstring, *o))) { /* Illegal option? */
  79. s = illegal;
  80. retval = '?';
  81. goto BAD;
  82. }
  83. if (s[1] == ':') { /* Option takes an arg? */
  84. if (o[1]) { /* No space between option and arg? */
  85. optarg = (char *)(o + 1);
  86. goto NEXTOPT;
  87. }
  88. if (optind + 1 < argc) { /* Space between option and arg? */
  89. optarg = argv[++optind];
  90. } else { /* Out of args! */
  91. s = missing;
  92. retval = ':';
  93. BAD:
  94. optopt = *o;
  95. if (*optstring != ':') {
  96. retval = '?';
  97. if (opterr) {
  98. #ifdef __BCC__
  99. fprintf(stderr, "%s: %s -- %c\n", argv[0], s, *o);
  100. #else
  101. fprintf(stderr, _(s), argv[0], *o);
  102. #endif
  103. }
  104. }
  105. }
  106. }
  107. #ifdef __BCC__
  108. #undef o
  109. #endif
  110. if (!*++o) {
  111. NEXTOPT:
  112. o = NULL;
  113. ++optind;
  114. }
  115. DONE:
  116. return retval;
  117. }