home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR23 / TOUCH2.ZIP / GETOPT.C < prev    next >
C/C++ Source or Header  |  1993-08-14  |  2KB  |  78 lines
  1. /*
  2. Newsgroups: mod.std.unix
  3. Subject: public domain AT&T getopt source
  4. Date: 3 Nov 85 19:34:15 GMT
  5.  
  6. Here's something you've all been waiting for:  the AT&T public domain
  7. source for getopt(3).  It is the code which was given out at the 1985
  8. UNIFORUM conference in Dallas.  I obtained it by electronic mail
  9. directly from AT&T.  The people there assure me that it is indeed
  10. in the public domain.
  11. */
  12.  
  13.  
  14. /*LINTLIBRARY*/
  15. #define NULL    0
  16. #define EOF    (-1)
  17. #define ERR(s, c)    if(opterr){\
  18.     extern int strlen(), write();\
  19.     char errbuf[2];\
  20.     errbuf[0] = c; errbuf[1] = '\n';\
  21.     (void) write(2, argv[0], (unsigned)strlen(argv[0]));\
  22.     (void) write(2, s, (unsigned)strlen(s));\
  23.     (void) write(2, errbuf, 2);}
  24.  
  25. extern int strcmp();
  26. extern char *strchr();
  27.  
  28. int    opterr = 1;
  29. int    optind = 1;
  30. int    optopt;
  31. char    *optarg;
  32.  
  33. int
  34. getopt(argc, argv, opts)
  35. int    argc;
  36. char    **argv, *opts;
  37. {
  38.     static int sp = 1;
  39.     register int c;
  40.     register char *cp;
  41.  
  42.     if(sp == 1)
  43.         if(optind >= argc ||
  44.            argv[optind][0] != '-' || argv[optind][1] == '\0')
  45.             return(EOF);
  46.         else if(strcmp(argv[optind], "--") == NULL) {
  47.             optind++;
  48.             return(EOF);
  49.         }
  50.     optopt = c = argv[optind][sp];
  51.     if(c == ':' || (cp=strchr(opts, c)) == NULL) {
  52.         ERR(": illegal option -- ", c);
  53.         if(argv[optind][++sp] == '\0') {
  54.             optind++;
  55.             sp = 1;
  56.         }
  57.         return('?');
  58.     }
  59.     if(*++cp == ':') {
  60.         if(argv[optind][sp+1] != '\0')
  61.             optarg = &argv[optind++][sp+1];
  62.         else if(++optind >= argc) {
  63.             ERR(": option requires an argument -- ", c);
  64.             sp = 1;
  65.             return('?');
  66.         } else
  67.             optarg = argv[optind++];
  68.         sp = 1;
  69.     } else {
  70.         if(argv[optind][++sp] == '\0') {
  71.             sp = 1;
  72.             optind++;
  73.         }
  74.         optarg = NULL;
  75.     }
  76.     return(c);
  77. }
  78.