Mercurial > libpst
annotate src/XGetopt.c @ 118:0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
add processing for pst files of type 0x0f
start adding support for properly building and installing libpst.so and the header files required to use it.
remove version.h since the version number is now in config.h
more const correctness issues regarding getopt()
| author | Carl Byington <carl@five-ten-sg.com> |
|---|---|
| date | Sat, 31 Jan 2009 12:12:36 -0800 |
| parents | c508ee15dfca |
| children | ab2a11e72250 |
| rev | line source |
|---|---|
| 16 | 1 // XGetopt.cpp Version 1.1 |
| 2 // | |
| 3 // Author: Hans Dietrich | |
| 4 // hdietrich2@hotmail.com | |
| 5 // | |
| 6 // Modified: David Smith | |
| 7 // dave.s@earthcorp.com | |
| 8 // Moved two char declarations from body of function so | |
| 9 // that it can compile as a C function. | |
| 10 // Thanks so much Hans | |
| 11 // | |
| 12 // This software is released into the public domain. | |
| 13 // You are free to use it in any way you like. | |
| 14 // | |
| 15 // This software is provided "as is" with no expressed | |
| 16 // or implied warranty. I accept no liability for any | |
| 17 // damage or loss of business that this software may cause. | |
| 18 // | |
| 19 /////////////////////////////////////////////////////////////////////////////// | |
| 20 | |
|
118
0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
Carl Byington <carl@five-ten-sg.com>
parents:
16
diff
changeset
|
21 #ifndef __MINGW32__ /* mingw has getopt() */ |
|
0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
Carl Byington <carl@five-ten-sg.com>
parents:
16
diff
changeset
|
22 |
| 16 | 23 #include <stdio.h> |
| 24 #include <string.h> | |
| 25 #include "XGetopt.h" | |
| 26 | |
| 27 /////////////////////////////////////////////////////////////////////////////// | |
| 28 // | |
| 29 // X G e t o p t . c p p | |
| 30 // | |
| 31 // | |
| 32 // NAME | |
| 33 // getopt -- parse command line options | |
| 34 // | |
| 35 // SYNOPSIS | |
|
118
0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
Carl Byington <carl@five-ten-sg.com>
parents:
16
diff
changeset
|
36 // int getopt(int argc, char* const* argv, const char *optstring) |
| 16 | 37 // |
| 38 // extern char *optarg; | |
| 39 // extern int optind; | |
| 40 // | |
| 41 // DESCRIPTION | |
| 42 // The getopt() function parses the command line arguments. Its | |
| 43 // arguments argc and argv are the argument count and array as | |
| 44 // passed into the application on program invocation. In the case | |
| 45 // of Visual C++ programs, argc and argv are available via the | |
| 46 // variables __argc and __argv (double underscores), respectively. | |
| 47 // getopt returns the next option letter in argv that matches a | |
| 48 // letter in optstring. | |
| 49 // | |
| 50 // optstring is a string of recognized option letters; if a letter | |
| 51 // is followed by a colon, the option is expected to have an argument | |
| 52 // that may or may not be separated from it by white space. optarg | |
| 53 // is set to point to the start of the option argument on return from | |
| 54 // getopt. | |
| 55 // | |
| 56 // Option letters may be combined, e.g., "-ab" is equivalent to | |
| 57 // "-a -b". Option letters are case sensitive. | |
| 58 // | |
| 59 // getopt places in the external variable optind the argv index | |
| 60 // of the next argument to be processed. optind is initialized | |
| 61 // to 0 before the first call to getopt. | |
| 62 // | |
| 63 // When all options have been processed (i.e., up to the first | |
| 64 // non-option argument), getopt returns EOF, optarg will point | |
| 65 // to the argument, and optind will be set to the argv index of | |
| 66 // the argument. If there are no non-option arguments, optarg | |
| 67 // will be set to NULL. | |
| 68 // | |
| 69 // The special option "--" may be used to delimit the end of the | |
| 70 // options; EOF will be returned, and "--" (and everything after it) | |
| 71 // will be skipped. | |
| 72 // | |
| 73 // RETURN VALUE | |
| 74 // For option letters contained in the string optstring, getopt | |
| 75 // will return the option letter. getopt returns a question mark (?) | |
| 76 // when it encounters an option letter not included in optstring. | |
| 77 // EOF is returned when processing is finished. | |
| 78 // | |
| 79 // BUGS | |
| 80 // 1) Long options are not supported. | |
| 81 // 2) The GNU double-colon extension is not supported. | |
| 82 // 3) The environment variable POSIXLY_CORRECT is not supported. | |
| 83 // 4) The + syntax is not supported. | |
| 84 // 5) The automatic permutation of arguments is not supported. | |
| 85 // 6) This implementation of getopt() returns EOF if an error is | |
| 86 // encountered, instead of -1 as the latest standard requires. | |
| 87 // | |
| 88 // EXAMPLE | |
| 89 // BOOL CMyApp::ProcessCommandLine(int argc, char *argv[]) | |
| 90 // { | |
| 91 // int c; | |
| 92 // | |
| 93 // while ((c = getopt(argc, argv, "aBn:")) != EOF) | |
| 94 // { | |
| 95 // switch (c) | |
| 96 // { | |
| 97 // case 'a': | |
| 98 // TRACE(_T("option a\n")); | |
| 99 // // | |
| 100 // // set some flag here | |
| 101 // // | |
| 102 // break; | |
| 103 // | |
| 104 // case 'B': | |
| 105 // TRACE( _T("option B\n")); | |
| 106 // // | |
| 107 // // set some other flag here | |
| 108 // // | |
| 109 // break; | |
| 110 // | |
| 111 // case 'n': | |
| 112 // TRACE(_T("option n: value=%d\n"), atoi(optarg)); | |
| 113 // // | |
| 114 // // do something with value here | |
| 115 // // | |
| 116 // break; | |
| 117 // | |
| 118 // case '?': | |
| 119 // TRACE(_T("ERROR: illegal option %s\n"), argv[optind-1]); | |
| 120 // return FALSE; | |
| 121 // break; | |
| 122 // | |
| 123 // default: | |
| 124 // TRACE(_T("WARNING: no handler for option %c\n"), c); | |
| 125 // return FALSE; | |
| 126 // break; | |
| 127 // } | |
| 128 // } | |
| 129 // // | |
| 130 // // check for non-option args here | |
| 131 // // | |
| 132 // return TRUE; | |
| 133 // } | |
| 134 // | |
| 135 /////////////////////////////////////////////////////////////////////////////// | |
| 136 | |
| 137 char *optarg; // global argument pointer | |
| 138 int optind = 0; // global argv index | |
| 139 | |
|
118
0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
Carl Byington <carl@five-ten-sg.com>
parents:
16
diff
changeset
|
140 int getopt(int argc, char* const* argv, char *optstring) |
| 16 | 141 { |
|
118
0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
Carl Byington <carl@five-ten-sg.com>
parents:
16
diff
changeset
|
142 static char *next = NULL; |
| 16 | 143 char c, *cp; |
| 144 if (optind == 0) | |
| 145 next = NULL; | |
| 146 | |
| 147 optarg = NULL; | |
| 148 | |
| 149 if (next == NULL || *next == '\0') | |
| 150 { | |
| 151 if (optind == 0) | |
| 152 optind++; | |
| 153 | |
| 154 if (optind >= argc || argv[optind][0] != '-' || argv[optind][1] == '\0') | |
| 155 { | |
| 156 optarg = NULL; | |
| 157 if (optind < argc) | |
| 158 optarg = argv[optind]; | |
| 159 return EOF; | |
| 160 } | |
| 161 | |
| 162 if (strcmp(argv[optind], "--") == 0) | |
| 163 { | |
| 164 optind++; | |
| 165 optarg = NULL; | |
| 166 if (optind < argc) | |
| 167 optarg = argv[optind]; | |
| 168 return EOF; | |
| 169 } | |
| 170 | |
| 171 next = argv[optind]+1; | |
| 172 optind++; | |
| 173 } | |
| 174 | |
| 175 c = *next++; | |
| 176 cp = strchr(optstring, c); | |
| 177 | |
| 178 if (cp == NULL || c == ':') | |
| 179 return '?'; | |
| 180 | |
| 181 cp++; | |
| 182 if (*cp == ':') | |
| 183 { | |
| 184 if (*next != '\0') | |
| 185 { | |
| 186 optarg = next; | |
| 187 next = NULL; | |
| 188 } | |
| 189 else if (optind < argc) | |
| 190 { | |
| 191 optarg = argv[optind]; | |
| 192 optind++; | |
| 193 } | |
| 194 else | |
| 195 { | |
| 196 return '?'; | |
| 197 } | |
| 198 } | |
| 199 | |
| 200 return c; | |
| 201 } | |
|
118
0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
Carl Byington <carl@five-ten-sg.com>
parents:
16
diff
changeset
|
202 |
|
0f1492b7fe8b
patch from Fridrich Strba for building on mingw and general cleanup of autoconf files
Carl Byington <carl@five-ten-sg.com>
parents:
16
diff
changeset
|
203 #endif /* !__MINGW32__ */ |