2 * Copyright 1993, 1995 Christopher Seiwald.
4 * This file is part of Jam - see jam.c for Copyright information.
7 * option.c - command line option processing
10 * \<>) "Process command line options as defined in <option.h>.
11 * Return the number of argv[] elements used up by options,
12 * or -1 if an invalid option flag was given or an argument
13 * was supplied for an option that does not require one."
15 * 11/04/02 (seiwald) - const-ing for string literals
23 #define PUSH_BACK(_c) (*ress)[dpos++] = (_c)
24 #define DECODE_TUPLE(tuple,bytes) \
25 for (tmp = bytes; tmp > 0; tmp--, tuple = (tuple & 0x00ffffff)<<8) \
26 PUSH_BACK((char)((tuple >> 24)&0xff))
28 // returns ress length
29 static int ascii85Decode (char **ress
, const char *srcs
/*, int start, int length*/) {
30 static uint32_t pow85
[5] = { 85*85*85*85UL, 85*85*85UL, 85*85UL, 85UL, 1UL };
31 const uint8_t *data
= (const uint8_t *)srcs
;
32 int len
= strlen(srcs
);
36 int start
= 0, length
= len
;
39 if (start
< 0) start
= 0; else { len
-= start
; data
+= start
; }
40 if (length
< 0 || len
< length
) length
= len
;
43 int xlen = 4*((length+4)/5);
44 kstringReserve(ress, xlen);
48 *ress
= (char *)calloc(1, len
+1);
49 for (int f
= length
; f
> 0; --f
, ++data
) {
51 if (c
<= ' ') continue; // skip blanks
53 case 'z': // zero tuple
55 //fprintf(stderr, "%s: z inside ascii85 5-tuple\n", file);
65 case '~': // '~>': end of sequence
66 if (f
< 1 || data
[1] != '>') { free(*ress
); return -2; } // error
67 if (count
> 0) { f
= -1; break; }
69 if (c
< '!' || c
> 'u') {
70 //fprintf(stderr, "%s: bad character in ascii85 region: %#o\n", file, c);
74 tuple
+= ((uint8_t)(c
-'!'))*pow85
[count
++];
76 DECODE_TUPLE(tuple
, 4);
83 // write last (possibly incomplete) tuple
85 tuple
+= pow85
[count
];
86 DECODE_TUPLE(tuple
, count
);
95 static void decodeBA (char *str
, int len
) {
98 for (int f
= 0; f
< len
; ++f
, ++str
) {
108 static void printEC (const char *txt
) {
112 if ((len
= ascii85Decode(&dest
, txt
)) >= 0) {
114 fprintf(stderr
, "%s\n", dest
);
120 static int isStr85Equ (const char *txt
, const char *str
) {
124 if ((len
= ascii85Decode(&dest
, txt
)) >= 0) {
125 res
= (strcmp(dest
, str
) == 0);
132 static int checkEGG (const char *str
) {
133 if (isStr85Equ("06:]JASq", str
) || isStr85Equ("0/i", str
)) {
135 "H8lZV&6)1>+AZ>m)Cf8;A1/cP+CnS)0OJ`X.QVcHA4^cc5r3=m1c%0D3&c263d?EV6@4&>"
136 "3DYQo;c-FcO+UJ;MOJ$TAYO@/FI]+B?C.L$>%:oPAmh:4Au)>AAU/H;ZakL2I!*!%J;(AK"
137 "NIR#5TXgZ6c'F1%^kml.JW5W8e;ql0V3fQUNfKpng6ppMf&ip-VOX@=jKl;#q\"DJ-_>jG"
138 "8#L;nm]!q;7c+hR6p;tVY#J8P$aTTK%c-OT?)<00,+q*8f&ff9a/+sbU,:`<H*[fk0o]7k"
139 "^l6nRkngc6Tl2Ngs!!P2I%KHG=7n*an'bsgn>!*8s7TLTC+^\\\"W+<=9^%Ol$1A1eR*Be"
140 "gqjEag:M0OnrC4FBY5@QZ&'HYYZ#EHs8t4$5]!22QoJ3`;-&=\\DteO$d6FBqT0E@:iu?N"
141 "a5ePUf^_uEEcjTDKfMpX/9]DFL8N-Ee;*8C5'WgbGortZuh1\\N0;/rJB6'(MSmYiS\"6+"
142 "<NK)KDV3e+Ad[@).W:%.dd'0h=!QUhghQaNNotIZGrpHr-YfEuUpsKW<^@qlZcdTDA!=?W"
143 "Yd+-^`'G8Or)<0-T&CT.i+:mJp(+/M/nLaVb#5$p2jR2<rl7\"XlngcN`mf,[4oK5JLr\\"
144 "m=X'(ue;'*1ik&/@T4*=j5t=<&/e/Q+2=((h`>>uN(#>&#i>2/ajK+=eib1coVe3'D)*75"
145 "m_h;28^M6p6*D854Jj<C^,Q8Wd\"O<)&L/=C$lUAQNN<=eTD:A6kn-=EItXSss.tAS&!;F"
146 "EsgpJTHIYNNnh'`kmX^[`*ELOHGcWbfPOT`J]A8P`=)AS;rYlR$\"-.RG440lK5:Dg?G'2"
147 "['dE=nEm1:k,,Se_=%-6Z*L^J[)EC"
151 if (isStr85Equ("04Jj?B)", str
)) {
153 "IPaSa(`c:T,o9Bq3\\)IY++?+!-S9%P0/OkjE&f$l.OmK'Ai2;ZHn[<,6od7^8;)po:HaP"
154 "m<'+&DRS:/1L7)IA7?WI$8WKTUB2tXg>Zb$.?\"@AIAu;)6B;2_PB5M?oBPDC.F)606Z$V"
155 "=ONd6/5P*LoWKTLQ,d@&;+Ru,\\ESY*rg!l1XrhpJ:\"WKWdOg?l;=RHE:uU9C?aotBqj]"
156 "=k8cZ`rp\"ZO=GjkfD#o]Z\\=6^]+Gf&-UFthT*hN"
160 if (isStr85Equ("04o69A7Tr", str
)) {
162 "Ag7d[&R#Ma9GVV5,S(D;De<T_+W).?,%4n+3cK=%4+0VN@6d\")E].np7l?8gF#cWF7SS_m"
163 "4@V\\nQ;h!WPD2h#@\\RY&G\\LKL=eTP<V-]U)BN^b.DffHkTPnFcCN4B;]8FCqI!p1@H*_"
164 "jHJ<%g']RG*MLqCrbP*XbNL=4D1R[;I(c*<FuesbWmSCF1jTW+rplg;9[S[7eDVl6YsjT"
172 int getoptions (int argc
, char **argv
, const char *opts
, option
*optv
, char** targets
) {
178 memset((char *)optv
, '\0', sizeof(*optv
)*N_OPTS
);
180 for (i
= 0; i
< argc
; ++i
) {
181 if (checkEGG(argv
[i
])) exit(1);
182 if (argv
[i
][0] == '-') {
183 if (!optc
--) { printf("too many options (%d max)\n", N_OPTS
); return -1; }
184 for (arg
= &argv
[i
][1]; *arg
; ++arg
) {
185 for (f
= opts
; *f
; ++f
) if (*f
== *arg
) break;
186 if (!*f
) { printf("invalid option: -%c\n", *arg
); return -1; }
188 if (f
[1] != ':') { optv
++->val
= "true"; }
189 else if (arg
[1]) { optv
++->val
= &arg
[1]; break; }
190 else if (++i
< argc
) { optv
++->val
= argv
[i
]; break; }
191 else { printf("option: -%c needs argument\n", *f
); return -1; }
193 } else if (argv
[i
][0] != '=' && strchr(argv
[i
],'=')) {
194 /* something like VARNAME=.... is treated as an implicit '-s' flag */
195 if (!optc
--) { printf("too many options (%d max)\n", N_OPTS
); return -1; }
197 optv
++->val
= argv
[i
];
200 if (n
>= N_TARGETS
) { printf("too many targets (%d max)\n", N_TARGETS
); return -1; }
201 targets
[n
++] = argv
[i
];
209 * Name: getoptval() - find an option given its character
211 const char *getoptval (option
*optv
, char opt
, int subopt
) {
214 for (i
= 0; i
< N_OPTS
; ++i
, ++optv
) if (optv
->flag
== opt
&& !subopt
--) return optv
->val
;