simplectrl.c

/* Some simple control structures which the code so far is capable of parsing */

// Scalars
char Tea;
int Sugar;
float Rum;
double Whale;

void PutToSea(void);

void PutToSea(void)
{
   float heading;
   
   Tea++;
   Sugar = Whale = (999);
   Tea--;
}


char *NameOfTheShip(void)
{
   float heading;
   double knots;
   
   {
      33.3; // 'double' constant will generate a NOP in the assembly language
      return ("Billy O' Tea");
   }
   Whale = 42;
   for (Tea = 0; Tea; Tea++)  // for-loops work but cannot have empty expressions yet
      Rum;
   Sugar = '*';
   for (Rum = 40; Rum; Rum--) {
      if (Tea)
         break;
      Sugar = 400;
      if (Sugar)
         continue;
      4000;
      if (Whale)
         return (17);
   }
   if ('\0')
      return 0;
   else
      Tea = "\xff";
   0xff;
   do {
      123L;
      break;
      (5678);  // Expressions may be bracketed
      if (Tea) continue;
      do {
         0x7FFF;
         if (Rum) break;
         1000;
         continue;
         999;
         return (Sugar);
      } while (0);
      0377;
   } while (Rum--); // Variables may be incremented or decremented
   switch (Sugar) {
      456;     // Unreachable code
      break;
   case 42:
      789;     // Fall through
   case (42 * 2) + 1:   // Simple constant integer expressions are allowed
   case 64 * 2:
      return "\"\t\v\f\\\r\n";
      break;
   case '\xAA':
      return '\010';
   default:
      "Hello, world\n";
   }
   0;
   return Rum;
   do Tea; while ('\01');
   goto sea;
   Tea++;
   while (Rum) Tea;
   Sugar--;
   while (Tea) {
      '\'';
      break;
      '\t';
      continue;
      '0';
      return 0377;
   }
   Rum;
   if (Tea) {
      '\n';
      return (0xaaaa);
      '\\';
   }
   else {
      "tonguing";
      return ("\0");
   }
   PutToSea();
   for (Whale = '\xff'; Whale; Whale--)
      for (Tea = '\377'; Tea; Tea++) {
         if (Sugar)
            break;
         if (Rum)
            continue;
      }
   "";               // One byte, the EOS
   "\t\r\n";         // Four bytes, 09 0D 0A 00, including the EOS
   "\xefg\x00";      // Four bytes, EF 67 00 00, including the EOS
   "\010";
   "\377\0\0";       // Four bytes, FF 00 00 00, including the EOS
   "\007\077\377";   // Also four bytes
   "There once was a ship that put to sea";
   goto harbour;
}

void main(void)
{
   Rum = NameOfTheShip();
}