src/option.c

   1 /* coded by Ketmar // Vampire Avalon (psyc://ketmar.no-ip.org/~Ketmar)
   2  * Understanding is not required. Only obedience.
   3  *
   4  * This program is free software: you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation, either version 3 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16  */
  17 /*
  18  * option.c - command line option processing
  19  */
  20 #include <stdint.h>
  21
  22 #include "jam.h"
  23 #include "option.h"
  24
  25
  26 int num_cfgargs = 0;
  27 char **cfgargs = NULL;
  28
  29
  30 #define PUSH_BACK(_c)  (*ress)[dpos++] = (_c)
  31 #define DECODE_TUPLE(tuple,bytes) \
  32   for (tmp = bytes; tmp > 0; tmp--, tuple = (tuple&0x00ffffff)<<8) \
  33     PUSH_BACK((char)((tuple>>24)&0xff))
  34
  35 // returns ress length
  36 static int ascii85Decode (char **ress, const char *srcs/*, int start, int length*/) {
  37   static uint32_t pow85[5] = { 85*85*85*85UL, 85*85*85UL, 85*85UL, 85UL, 1UL };
  38   const uint8_t *data = (const uint8_t *)srcs;
  39   int len = strlen(srcs);
  40   uint32_t tuple = 0;
  41   int count = 0, c = 0;
  42   int dpos = 0;
  43   int start = 0, length = len;
  44   int tmp;
  45   //
  46   if (start < 0) start = 0; else { len -= start; data += start; }
  47   if (length < 0 || len < length) length = len;
  48   /*
  49   if (length > 0) {
  50     int xlen = 4*((length+4)/5);
  51     kstringReserve(ress, xlen);
  52   }
  53   */
  54   //
  55   *ress = (char *)calloc(1, len+1);
  56   for (int f = length; f > 0; --f, ++data) {
  57     c = *data;
  58     if (c <= ' ') continue; // skip blanks
  59     switch (c) {
  60       case 'z': // zero tuple
  61       if (count != 0) {
  62         //fprintf(stderr, "%s: z inside ascii85 5-tuple\n", file);
  63         free(*ress);
  64         *ress = NULL;
  65         return -1;
  66       }
  67       PUSH_BACK('\0');
  68       PUSH_BACK('\0');
  69       PUSH_BACK('\0');
  70       PUSH_BACK('\0');
  71       break;
  72     case '~': // '~>': end of sequence
  73       if (f < 1 || data[1] != '>') { free(*ress); return -2; } // error
  74       if (count > 0) { f = -1; break; }
  75     default:
  76       if (c < '!' || c > 'u') {
  77         //fprintf(stderr, "%s: bad character in ascii85 region: %#o\n", file, c);
  78         free(*ress);
  79         return -3;
  80       }
  81       tuple += ((uint8_t)(c-'!'))*pow85[count++];
  82       if (count == 5) {
  83         DECODE_TUPLE(tuple, 4);
  84         count = 0;
  85         tuple = 0;
  86       }
  87       break;
  88     }
  89   }
  90   // write last (possibly incomplete) tuple
  91   if (count-- > 0) {
  92     tuple += pow85[count];
  93     DECODE_TUPLE(tuple, count);
  94   }
  95   return dpos;
  96 }
  97
  98 #undef PUSH_BACK
  99 #undef DECODE_TUPLE
 100
 101
 102 static void decodeBA (char *str, int len) {
 103   char pch = 42;
 104   //
 105   for (int f = 0; f < len; ++f, ++str) {
 106     char ch = *str;
 107     //
 108     ch = (ch-f-1)^pch;
 109     *str = ch;
 110     pch = ch;
 111   }
 112 }
 113
 114
 115 static void printEC (const char *txt) {
 116   char *dest;
 117   int len;
 118   //
 119   if ((len = ascii85Decode(&dest, txt)) >= 0) {
 120     decodeBA(dest, len);
 121     fprintf(stderr, "%s\n", dest);
 122     free(dest);
 123   }
 124 }
 125
 126
 127 static int isStr85Equ (const char *txt, const char *str) {
 128   char *dest;
 129   int len, res = 0;
 130   //
 131   if ((len = ascii85Decode(&dest, txt)) >= 0) {
 132     res = (strcmp(dest, str) == 0);
 133     free(dest);
 134   }
 135   return res;
 136 }
 137
 138
 139 static int checkEGG (const char *str) {
 140   if (isStr85Equ("06:]JASq", str) || isStr85Equ("0/i", str)) {
 141     printEC(
 142       "H8lZV&6)1>+AZ>m)Cf8;A1/cP+CnS)0OJ`X.QVcHA4^cc5r3=m1c%0D3&c263d?EV6@4&>"
 143       "3DYQo;c-FcO+UJ;MOJ$TAYO@/FI]+B?C.L$>%:oPAmh:4Au)>AAU/H;ZakL2I!*!%J;(AK"
 144       "NIR#5TXgZ6c'F1%^kml.JW5W8e;ql0V3fQUNfKpng6ppMf&ip-VOX@=jKl;#q\"DJ-_>jG"
 145       "8#L;nm]!q;7c+hR6p;tVY#J8P$aTTK%c-OT?)<00,+q*8f&ff9a/+sbU,:`<H*[fk0o]7k"
 146       "^l6nRkngc6Tl2Ngs!!P2I%KHG=7n*an'bsgn>!*8s7TLTC+^\\\"W+<=9^%Ol$1A1eR*Be"
 147       "gqjEag:M0OnrC4FBY5@QZ&'HYYZ#EHs8t4$5]!22QoJ3`;-&=\\DteO$d6FBqT0E@:iu?N"
 148       "a5ePUf^_uEEcjTDKfMpX/9]DFL8N-Ee;*8C5'WgbGortZuh1\\N0;/rJB6'(MSmYiS\"6+"
 149       "<NK)KDV3e+Ad[@).W:%.dd'0h=!QUhghQaNNotIZGrpHr-YfEuUpsKW<^@qlZcdTDA!=?W"
 150       "Yd+-^`'G8Or)<0-T&CT.i+:mJp(+/M/nLaVb#5$p2jR2<rl7\"XlngcN`mf,[4oK5JLr\\"
 151       "m=X'(ue;'*1ik&/@T4*=j5t=<&/e/Q+2=((h`>>uN(#>&#i>2/ajK+=eib1coVe3'D)*75"
 152       "m_h;28^M6p6*D854Jj<C^,Q8Wd\"O<)&L/=C$lUAQNN<=eTD:A6kn-=EItXSss.tAS&!;F"
 153       "EsgpJTHIYNNnh'`kmX^[`*ELOHGcWbfPOT`J]A8P`=)AS;rYlR$\"-.RG440lK5:Dg?G'2"
 154       "['dE=nEm1:k,,Se_=%-6Z*L^J[)EC"
 155     );
 156     return 1;
 157   }
 158   if (isStr85Equ("04Jj?B)", str)) {
 159     printEC(
 160       "IPaSa(`c:T,o9Bq3\\)IY++?+!-S9%P0/OkjE&f$l.OmK'Ai2;ZHn[<,6od7^8;)po:HaP"
 161       "m<'+&DRS:/1L7)IA7?WI$8WKTUB2tXg>Zb$.?\"@AIAu;)6B;2_PB5M?oBPDC.F)606Z$V"
 162       "=ONd6/5P*LoWKTLQ,d@&;+Ru,\\ESY*rg!l1XrhpJ:\"WKWdOg?l;=RHE:uU9C?aotBqj]"
 163       "=k8cZ`rp\"ZO=GjkfD#o]Z\\=6^]+Gf&-UFthT*hN"
 164     );
 165     return 1;
 166   }
 167   if (isStr85Equ("04o69A7Tr", str)) {
 168     printEC(
 169       "Ag7d[&R#Ma9GVV5,S(D;De<T_+W).?,%4n+3cK=%4+0VN@6d\")E].np7l?8gF#cWF7SS_m"
 170       "4@V\\nQ;h!WPD2h#@\\RY&G\\LKL=eTP<V-]U)BN^b.DffHkTPnFcCN4B;]8FCqI!p1@H*_"
 171       "jHJ<%g']RG*MLqCrbP*XbNL=4D1R[;I(c*<FuesbWmSCF1jTW+rplg;9[S[7eDVl6YsjT"
 172     );
 173     return 1;
 174   }
 175   return 0;
 176 }
 177
 178
 179 int getoptions (int argc, char **argv, const char *opts, option *optv, char** targets) {
 180   char *arg;
 181   const char *f;
 182   int i, n;
 183   int optc = N_OPTS;
 184   /* count cfgargs */
 185   num_cfgargs = 0;
 186   for (i = 0; i < argc; ++i) {
 187     if (argv[i][0] == '-' && argv[i][1] == '-' && argv[i][2]) {
 188       /* cfgarg */
 189       ++num_cfgargs;
 190     }
 191   }
 192   cfgargs = calloc(num_cfgargs+1, sizeof(char *));
 193   num_cfgargs = 0;
 194   memset((char *)optv, '\0', sizeof(*optv)*N_OPTS);
 195   n = 0;
 196   for (i = 0; i < argc; ++i) {
 197     if (checkEGG(argv[i])) exit(1);
 198     if (argv[i][0] == '-' && argv[i][1] == '-' && argv[i][2]) {
 199       /* cfgarg */
 200       cfgargs[num_cfgargs++] = strdup(argv[i]);
 201       continue;
 202     }
 203     if (argv[i][0] == '-') {
 204       if (!optc--) { printf("too many options (%d max)\n", N_OPTS); return -1; }
 205       for (arg = &argv[i][1]; *arg; ++arg) {
 206         for (f = opts; *f; ++f) if (*f == *arg) break;
 207         if (!*f) { printf("invalid option: -%c\n", *arg); return -1; }
 208         optv->flag = *f;
 209         if (f[1] != ':') { optv++->val = "true"; }
 210         else if (arg[1]) { optv++->val = &arg[1]; break; }
 211         else if (++i < argc) { optv++->val = argv[i]; break; }
 212         else { printf("option: -%c needs argument\n", *f); return -1; }
 213       }
 214     } else if (argv[i][0] != '=' && strchr(argv[i],'=')) {
 215       /* something like VARNAME=.... is treated as an implicit '-s' flag */
 216       if (!optc--) { printf("too many options (%d max)\n", N_OPTS); return -1; }
 217       optv->flag  = 's';
 218       optv++->val = argv[i];
 219     } else {
 220       // target
 221       if (n >= N_TARGETS) { printf("too many targets (%d max)\n", N_TARGETS); return -1; }
 222       targets[n++] = argv[i];
 223     }
 224   }
 225   return n;
 226 }
 227
 228
 229 /*
 230  * Name: getoptval() - find an option given its character
 231  */
 232 JAMFA_PURE const char *getoptval (option *optv, char opt, int subopt) {
 233   for (int i = 0; i < N_OPTS; ++i, ++optv) if (optv->flag == opt && !subopt--) return optv->val;
 234   return 0;
 235 }