Skip to content
Snippets Groups Projects
framac.ast 159 KiB
Newer Older
Dario Pinto's avatar
Dario Pinto committed
5001 5002 5003 5004 5005 5006 5007 5008 5009 5010 5011 5012 5013 5014 5015 5016 5017 5018 5019 5020 5021 5022 5023 5024 5025 5026 5027 5028 5029 5030 5031 5032 5033 5034 5035 5036 5037 5038 5039 5040 5041 5042 5043 5044 5045 5046 5047 5048 5049 5050 5051 5052 5053 5054 5055 5056 5057 5058 5059 5060 5061 5062 5063 5064 5065 5066 5067 5068 5069 5070 5071 5072 5073 5074 5075 5076 5077 5078 5079 5080 5081 5082 5083 5084 5085 5086 5087 5088 5089 5090 5091 5092 5093 5094 5095 5096 5097 5098 5099 5100 5101 5102 5103 5104 5105 5106 5107 5108 5109 5110 5111 5112 5113 5114 5115 5116 5117 5118 5119 5120 5121 5122 5123 5124 5125 5126 5127 5128 5129 5130 5131 5132 5133 5134 5135 5136 5137 5138 5139 5140 5141 5142 5143 5144 5145 5146 5147 5148 5149 5150 5151 5152 5153 5154 5155 5156 5157 5158 5159 5160 5161 5162 5163 5164 5165 5166 5167 5168 5169 5170 5171 5172 5173 5174 5175 5176 5177 5178 5179 5180 5181 5182 5183 5184 5185 5186 5187 5188 5189 5190 5191 5192 5193 5194 5195 5196 5197 5198 5199 5200 5201 5202 5203 5204 5205 5206 5207 5208 5209 5210 5211 5212 5213 5214 5215 5216 5217 5218 5219 5220 5221 5222 5223 5224 5225 5226 5227 5228 5229 5230 5231 5232 5233 5234 5235 5236 5237 5238 5239 5240 5241 5242 5243 5244 5245 5246 5247 5248 5249 5250 5251 5252 5253 5254 5255 5256 5257 5258 5259 5260 5261 5262 5263 5264 5265 5266 5267 5268 5269 5270 5271 5272 5273 5274 5275 5276 5277 5278 5279 5280 5281 5282 5283 5284 5285 5286 5287 5288 5289 5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300 5301 5302 5303 5304 5305 5306 5307 5308 5309 5310 5311 5312 5313 5314 5315 5316 5317 5318 5319 5320 5321 5322 5323 5324 5325 5326 5327 5328 5329 5330 5331 5332 5333 5334 5335 5336 5337 5338 5339 5340 5341 5342 5343 5344 5345 5346 5347 5348 5349 5350 5351 5352 5353 5354 5355 5356 5357 5358 5359 5360 5361 5362 5363 5364 5365 5366 5367 5368 5369 5370 5371 5372 5373 5374 5375 5376 5377 5378 5379 5380 5381 5382 5383 5384 5385 5386 5387 5388 5389 5390 5391 5392 5393 5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5405 5406 5407 5408 5409 5410 5411 5412 5413
   (char *)"You\'ve got to ask yourself one question: \'Do I feel lucky?\'",
   (char *)"Love means never having to say you\'re sorry",
   (char *)"I\'m walking here! I\'am walking here!",
   (char *)"Get your stinking paws off me, you damned dirty ape.",
   (char *)"Open the pod bay doors please, HAL.",
   (char *)"Hello, gorgeous.",
   (char *)"What we\'ve got here is failure to communicate.",
   (char *)"They call me Mister Tibbs!",
   (char *)"We rob banks."};
char gValidChars[63] =
  {(char)'a',
   (char)'b',
   (char)'c',
   (char)'d',
   (char)'e',
   (char)'f',
   (char)'g',
   (char)'h',
   (char)'i',
   (char)'j',
   (char)'k',
   (char)'l',
   (char)'m',
   (char)'n',
   (char)'o',
   (char)'p',
   (char)'q',
   (char)'r',
   (char)'s',
   (char)'t',
   (char)'u',
   (char)'v',
   (char)'w',
   (char)'x',
   (char)'y',
   (char)'z',
   (char)'A',
   (char)'B',
   (char)'C',
   (char)'D',
   (char)'E',
   (char)'F',
   (char)'G',
   (char)'H',
   (char)'I',
   (char)'J',
   (char)'K',
   (char)'L',
   (char)'M',
   (char)'N',
   (char)'O',
   (char)'P',
   (char)'Q',
   (char)'R',
   (char)'S',
   (char)'T',
   (char)'U',
   (char)'V',
   (char)'W',
   (char)'X',
   (char)'Y',
   (char)'Z',
   (char)'0',
   (char)'1',
   (char)'2',
   (char)'3',
   (char)'4',
   (char)'5',
   (char)'6',
   (char)'7',
   (char)'8',
   (char)'9',
   (char)'\000'};
size_t cgc_transmit_all_zPcz(char *buf, size_t size)
{
  size_t __retres;
  size_t rx_bytes = (unsigned int)0;
  size_t total = (unsigned int)0;
  int ret = 0;
  if (buf == (char *)0) {
    __retres = (unsigned int)0;
    goto return_label;
  }
  while (1) {
    ret = cgc_transmit(1,(void const *)buf,size - total,& rx_bytes);
    if (ret != 0) goto _LOR;
    else 
      if (rx_bytes == (size_t)0) _LOR: cgc__terminate((unsigned int)1);
    total += rx_bytes;
    if (! (total < size)) break;
  }
  __retres = size;
  return_label: return __retres;
}

size_t cgc_transmit_str(char *buf)
{
  size_t tmp_0;
  size_t len = strlen((char const *)buf);
  tmp_0 = cgc_transmit_all_zPcz(buf,len);
  return tmp_0;
}

size_t cgc_receive_all(char *buf, size_t size)
{
  size_t __retres;
  size_t rx_bytes = (unsigned int)0;
  size_t total = (unsigned int)0;
  int ret = 0;
  if (buf == (char *)0) {
    __retres = (unsigned int)0;
    goto return_label;
  }
  while (1) {
    ret = cgc_receive(0,(void *)buf,size - total,& rx_bytes);
    if (ret != 0) goto _LOR;
    else 
      if (rx_bytes == (size_t)0) _LOR: cgc__terminate((unsigned int)1);
    total += rx_bytes;
    if (! (total < size)) break;
  }
  __retres = size;
  return_label: return __retres;
}

size_t cgc_readline(char *buf, size_t len)
{
  size_t __retres;
  if (buf == (char *)0) {
    __retres = (unsigned int)0;
    goto return_label;
  }
  size_t count = (unsigned int)0;
  int ret = 0;
  char c = (char)0;
  size_t rx_bytes = (unsigned int)0;
  while (1) {
    ret = cgc_receive(0,(void *)(& c),(unsigned int)1,& rx_bytes);
    if (ret != 0) goto _LOR;
    else 
      if (rx_bytes == (size_t)0) _LOR: cgc__terminate((unsigned int)1);
    *(buf + count) = c;
    count += (size_t)1;
    if ((int)c != '\n') {
      if (! (count < len)) break;
    }
    else break;
  }
  __retres = count;
  return_label: return __retres;
}

char cgc_rotN(char c, int n)
{
  char __retres;
  int temp = 0;
  n = (int)((unsigned int)n % (sizeof(gValidChars) - (unsigned int)1));
  if ((int)c >= 'a') {
    if ((int)c <= 'z') temp = (int)c - 'a'; else goto _LAND_1;
  }
  else {
    _LAND_1: ;
    if ((int)c >= 'A') {
      if ((int)c <= 'Z') temp = ((int)c - 'A') + 26; else goto _LAND_0;
    }
    else {
      _LAND_0: ;
      if ((int)c >= '0') {
        if ((int)c <= '9') temp = ((int)c - '0') + 52; else goto _LAND;
      }
      else {
        _LAND: {
                 __retres = c;
                 goto return_label;
               }
      }
    }
  }
  temp += n;
  temp = (int)((unsigned int)temp % (sizeof(gValidChars) - (unsigned int)1));
  __retres = gValidChars[temp];
  return_label: return __retres;
}

size_t cgc_strrotcpy(char *dst, char *src, int rot)
{
  size_t __retres;
  if (src == (char *)0) goto _LOR;
  else 
    if (dst == (char *)0) {
      _LOR: {
              __retres = (unsigned int)0;
              goto return_label;
            }
    }
  size_t ret = (unsigned int)0;
  ret = (unsigned int)0;
  while ((int)*(src + ret) != '\000') {
    *(dst + ret) = cgc_rotN(*(src + ret),rot);
    ret += (size_t)1;
  }
  *(dst + ret) = (char)'\000';
  __retres = ret;
  return_label: return __retres;
}

char **cgc_gWords = (char **)0;
char *cgc_gWordData = (char *)0;
int cgc_init(int rot)
{
  int __retres;
  int ret = 0;
  size_t numWords = sizeof(gSeedWords) / sizeof(char *);
  ret = cgc_allocate(sizeof(gSeedWords),0,(void **)(& cgc_gWords));
  if (ret != 0) {
    __retres = ret;
    goto return_label;
  }
  size_t total = (unsigned int)0;
  int i = 0;
  i = 0;
  while ((size_t)i < numWords) {
    {
      size_t tmp;
      tmp = strlen((char const *)gSeedWords[i]);
      total += tmp;
      total += (size_t)1;
    }
    i ++;
  }
  ret = cgc_allocate(total,0,(void **)(& cgc_gWordData));
  if (ret != 0) {
    __retres = ret;
    goto return_label;
  }
  size_t temp = (unsigned int)0;
  char *pTemp = cgc_gWordData;
  i = 0;
  while ((size_t)i < numWords) {
    {
      size_t tmp_0;
      *(cgc_gWords + i) = pTemp;
      tmp_0 = cgc_strrotcpy(pTemp,gSeedWords[i],rot);
      pTemp += tmp_0;
      pTemp ++;
    }
    i ++;
  }
  while ((unsigned int)i < sizeof(gSeedWords) / sizeof(char *)) {
    *(cgc_gWords + i) = (char *)0;
    i ++;
  }
  __retres = 0;
  return_label: return __retres;
}

int cgc_toInt(char c1, char c2)
{
  int __retres;
  int ret = 0;
  if ((int)c1 >= '0') 
    if ((int)c1 <= '9') {
      ret = (int)c1 - '0';
      if ((int)c2 >= '0') {
        if ((int)c2 <= '9') {
          ret *= 10;
          ret += (int)c2 - '0';
          __retres = ret;
          goto return_label;
        }
        else goto _LAND;
      }
      else {
        _LAND: ;
        if ((int)c2 != '\000') {
          __retres = ret;
          goto return_label;
        }
        else {
          __retres = 0;
          goto return_label;
        }
      }
    }
  __retres = 0;
  return_label: return __retres;
}

static uint32_t gRandRegister = 0xDA2bAC9C;
uint32_t cgc_RANDOM(void)
{
  gRandRegister = ((((((((gRandRegister >> 31) ^ (gRandRegister >> 6)) ^ (
                        gRandRegister >> 4)) ^ (gRandRegister >> 2)) ^ (
                      gRandRegister >> 1)) ^ gRandRegister) & (unsigned int)0x00000001) << 31) | (
                  gRandRegister >> 1);
  return gRandRegister;
}

void cgc_my_srand(uint32_t seed)
{
  gRandRegister = seed;
  return;
}

void cgc_scramble(char *dst, char *src, size_t len)
{
  size_t tmp;
  uint32_t tmp_0;
  if (dst == (char *)0) goto _LOR;
  else 
    if (src == (char *)0) _LOR: goto return_label;
  tmp = strlen((char const *)src);
  int len_src = (int)tmp;
  int i = 0;
  tmp_0 = cgc_RANDOM();
  uint32_t r = tmp_0 % (unsigned int)3 + (unsigned int)2;
  while (1) {
    if ((int)*(src + i) != '\000') 
      if ((size_t)i < len) {
        if (! (i < len_src)) break;
      }
      else break;
    else break;
    if ((int)*(src + i) >= 'a') {
      if ((int)*(src + i) <= 'z') goto _LOR_0; else goto _LAND_1;
    }
    else {
      _LAND_1: ;
      if ((int)*(src + i) >= 'A') {
        if ((int)*(src + i) <= 'Z') goto _LOR_0; else goto _LAND_0;
      }
      else {
        _LAND_0: ;
        if ((int)*(src + i) >= '0') {
          if ((int)*(src + i) <= '9') 
            _LOR_0:
            if ((unsigned int)i % r) *(dst + i) = *(src + i);
            else *(dst + i) = (char)'_';
          else goto _LAND;
        }
        else _LAND: *(dst + i) = *(src + i);
      }
    }
    i ++;
  }
  *(dst + (len - (size_t)1)) = (char)'\000';
  return_label: return;
}

int main(int cgc_argc, char **cgc_argv)
{
  int __retres;
  int tmp;
  int tmp_2;
  char buf[64] = {(char)0};
  int i = 0;
  int ret = 0;
  int temp = 0;
  size_t sret = (unsigned int)0;
  char c = (char)'\n';
  cgc_transmit_str((char *)"Please Enter a 2 Digit Number\n");
  sret = cgc_readline(buf,(unsigned int)64);
  if (sret == (size_t)0) cgc__terminate((unsigned int)1);
  i = cgc_toInt(buf[0],buf[1]);
  tmp = cgc_init(i + 1);
  if (tmp != 0) {
    __retres = -1;
    goto return_label;
  }
  cgc_my_srand((unsigned int)*((int *)(buf)));
  i = 0;
  while (i < 10) {
    {
      uint32_t tmp_0;
      int tmp_1;
      if (i == 0) cgc_transmit_str((char *)"Word: ");
      else cgc_transmit_str((char *)"Next Word: ");
      tmp_0 = cgc_RANDOM();
      temp = (int)(tmp_0 % (sizeof(gSeedWords) / sizeof(char *)));
      cgc_scramble(buf,*(cgc_gWords + temp),(unsigned int)64);
      cgc_transmit_str(buf);
      cgc_transmit_all_zPcz(& c,(unsigned int)1);
      sret = cgc_readline(buf,(unsigned int)64);
      if (sret == (size_t)0) cgc__terminate((unsigned int)1);
      buf[sret - (size_t)1] = (char)'\000';
      tmp_1 = strcmp((char const *)(buf),(char const *)*(cgc_gWords + temp));
      if (tmp_1 != 0) {
        cgc_transmit_str((char *)"You Lose\n");
        __retres = 0;
        goto return_label;
      }
    }
    i ++;
  }
  cgc_transmit_str((char *)"Final Round. Chose another 2 digit number\n");
  sret = cgc_readline(buf,(unsigned int)64);
  if (sret == (size_t)0) cgc__terminate((unsigned int)1);
  i = cgc_toInt(buf[0],buf[1]);
  i = (int)((unsigned int)i % (sizeof(gSeedWords) / sizeof(char *)));
  cgc_scramble(buf,*(cgc_gWords + i),(unsigned int)64);
  cgc_transmit_str(buf);
  cgc_transmit_all_zPcz(& c,(unsigned int)1);
  sret = cgc_readline(buf,(unsigned int)64);
  if (sret == (size_t)0) cgc__terminate((unsigned int)1);
  buf[sret - (size_t)1] = (char)'\000';
  tmp_2 = strcmp((char const *)(buf),(char const *)*(cgc_gWords + i));
  if (tmp_2 != 0) cgc_transmit_str((char *)"You Lose\n");
  else cgc_transmit_str((char *)"You Win!\n");
  __retres = 0;
  return_label: return __retres;
}