|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T g ┃
Length: 1161 (0x489) Types: TextFile Names: »getopt.c«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/wp/getopt.c«
/*LINTLIBRARY*/ #ifdef BSD /* fix differences in string routine names */ #define strchr index #endif #include <stdio.h> #define ERR(s, c) if(opterr){\ fputs(argv[0], stderr);\ fputs(s, stderr);\ fputc(c, stderr);\ fputc('\n', stderr);} int opterr = 1; int optind = 1; int optopt; char *optarg; char *strchr(); int getopt (argc, argv, opts) char **argv, *opts; { static int sp = 1; register c; register char *cp; if (sp == 1) if (optind >= argc || argv[optind][0] != '-' || argv[optind][1] == '\0') return EOF; else if (strcmp(argv[optind], "--") == NULL) { optind++; return EOF; } optopt = c = argv[optind][sp]; if (c == ':' || (cp=strchr(opts, c)) == NULL) { ERR (": illegal option -- ", c); if (argv[optind][++sp] == '\0') { optind++; sp = 1; } return '?'; } if (*++cp == ':') { if (argv[optind][sp+1] != '\0') optarg = &argv[optind++][sp+1]; else if (++optind >= argc) { ERR (": option requires an argument -- ", c); sp = 1; return '?'; } else optarg = argv[optind++]; sp = 1; } else { if (argv[optind][++sp] == '\0') { sp = 1; optind++; } optarg=NULL; } return c; }