Fixed to compile and run on origin2000 and origin-pthreads.
[charm.git] / src / xlatcpm / conv-cpm.c
index f1598c06ed3300a483f495c5807ebd1a6f265ec8..2d5b77adeae5cebd854918adbf73f5791930a92a 100644 (file)
@@ -1,3 +1,4 @@
+#line 2 "conv-cpm.c"
 /* A lexical scanner generated by flex */
 
 /* Scanner skeleton version:
@@ -284,7 +285,7 @@ static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
 
 #define YY_NUM_RULES 16
 #define YY_END_OF_BUFFER 17
-static yyconst short int yy_accept[102] =
+static yyconst short int yy_accept[106] =
     {   0,
         0,    0,   17,   15,   13,   14,   15,   15,   15,    9,
         8,    4,    4,   13,    0,   11,    0,    0,    0,    6,
@@ -293,11 +294,11 @@ static yyconst short int yy_accept[102] =
         0,    5,    0,    7,    9,    9,   10,    8,    8,    4,
         0,    0,    0,    0,    0,    6,    0,    5,    7,   10,
        10,    4,    4,    0,    0,    0,    0,   10,   10,    4,
-        4,    0,    0,    4,    4,    4,    4,    4,    4,    4,
-        4,    4,    4,    4,    4,    4,    4,    4,    3,    4,
-        4,    4,    4,    4,    4,    4,    4,    4,    2,    1,
+        4,    0,    0,    4,    4,    0,    0,    4,    4,    0,
+        0,    4,    4,    4,    4,    4,    4,    4,    4,    4,
+        4,    4,    3,    4,    4,    4,    4,    4,    4,    4,
 
-        0
+        4,    4,    2,    1,    0
     } ;
 
 static yyconst int yy_ec[256] =
@@ -340,144 +341,146 @@ static yyconst int yy_meta[41] =
         7,    7,    7,    7,    8,    7,    7,    8,    8,    8
     } ;
 
-static yyconst short int yy_base[111] =
+static yyconst short int yy_base[115] =
     {   0,
-        0,   25,  207,  412,  204,  412,   13,  179,   10,   44,
-       71,    0,  166,  199,   18,  412,   32,   19,   37,   97,
-      123,  176,  150,   87,  168,   29,    0,    0,  165,   37,
-        0,  153,  111,    0,  412,  137,    0,  159,  412,    0,
-      165,  412,   75,  172,  412,  412,   43,  412,  412,   50,
-      186,  208,  189,  235,  101,  258,  114,  284,  412,  163,
-       38,  156,  149,  112,  310,  124,  333,  412,  412,  150,
-      137,  125,  138,  139,  128,  129,  122,  113,  122,  115,
-      111,   53,  102,   82,   72,   73,   70,   65,    0,   57,
-       53,   50,   55,   43,   30,   10,    6,    4,    0,    0,
-
-      412,  363,  371,  379,  383,  390,  397,  401,  403,  405
+        0,   25,  226,  415,  223,  415,   13,  198,   10,   44,
+       71,    0,  185,  217,   18,  415,   32,   19,   37,   97,
+      123,  189,  150,   87,  189,   29,    0,    0,  187,   37,
+        0,  173,  111,    0,  415,  137,    0,  159,  415,    0,
+      165,  415,   75,  172,  415,  415,   43,  415,  415,   50,
+      186,   85,  189,   98,  140,  207,  176,  233,  415,  183,
+       38,  175,  168,   86,  263,   99,  290,  415,  415,  173,
+      151,  184,  196,  145,  141,  313,  336,  146,  132,  112,
+      138,  117,  128,  115,  111,   53,  102,   93,   97,   96,
+       87,   78,    0,   66,   62,   53,   55,   43,   30,   10,
+
+        6,    4,    0,    0,  415,  366,  374,  382,  386,  393,
+      400,  404,  406,  408
     } ;
 
-static yyconst short int yy_def[111] =
+static yyconst short int yy_def[115] =
     {   0,
-      102,  102,  101,  101,  101,  101,  103,  104,  101,  101,
-      101,  105,  105,  101,  103,  101,  106,  104,  107,  101,
-      101,   10,  101,  101,  101,  101,  108,   11,  101,  101,
-      105,  105,  103,  109,  101,  104,  110,  101,  101,   21,
-      101,  101,  101,  101,  101,  101,  108,  101,  101,  105,
-      103,  103,  104,  104,  101,  101,  101,  101,  101,  101,
-      101,  105,  105,  103,   52,  104,   54,  101,  101,  105,
-      105,  103,  104,  105,  105,  105,  105,  105,  105,  105,
-      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
-      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
-
-        0,  101,  101,  101,  101,  101,  101,  101,  101,  101
+      106,  106,  105,  105,  105,  105,  107,  108,  105,  105,
+      105,  109,  109,  105,  107,  105,  110,  108,  111,  105,
+      105,   10,  105,  105,  105,  105,  112,   11,  105,  105,
+      109,  109,  107,  113,  105,  108,  114,  105,  105,   21,
+      105,  105,  105,  105,  105,  105,  112,  105,  105,  109,
+      107,  107,  108,  108,  105,  105,  105,  105,  105,  105,
+      105,  109,  109,  107,  107,  108,  108,  105,  105,  109,
+      109,  107,  108,  109,  109,   65,   67,  109,  109,  107,
+      108,  109,  109,  109,  109,  109,  109,  109,  109,  109,
+      109,  109,  109,  109,  109,  109,  109,  109,  109,  109,
+
+      109,  109,  109,  109,    0,  105,  105,  105,  105,  105,
+      105,  105,  105,  105
     } ;
 
-static yyconst short int yy_nxt[453] =
+static yyconst short int yy_nxt[456] =
     {   0,
         4,    5,    6,    7,    8,    4,    9,   10,   11,   11,
-       11,    4,  100,   13,   99,  101,   16,   20,   20,   20,
-       20,   16,   35,  101,    4,    4,    5,    6,    7,    8,
+       11,    4,  104,   13,  103,  105,   16,   20,   20,   20,
+       20,   16,   35,  105,    4,    4,    5,    6,    7,    8,
         4,    9,   10,   11,   11,   11,    4,   17,   13,   33,
-       33,   33,   17,   19,   36,   36,   36,   98,   46,    4,
-       21,   22,   22,   22,   23,   34,   49,   69,   97,   24,
+       33,   33,   17,   19,   36,   36,   36,  102,   46,    4,
+       21,   22,   22,   22,   23,   34,   49,   69,  101,   24,
        37,   46,   60,   25,   62,   61,   26,   27,   63,   49,
-       69,   96,   24,   84,   85,   60,   25,   21,   28,   28,
-       28,   28,   44,   44,   44,   44,   24,   95,   94,   93,
-       29,   92,   43,   30,   44,   44,   44,   44,   91,   24,
-
-       90,   89,   88,   29,   20,   20,   20,   20,   56,   56,
-       56,   56,   38,   39,   16,   16,   39,   87,   51,   51,
-       51,   58,   58,   58,   58,   38,   39,   35,   16,   39,
-       40,   40,   40,   40,   86,   17,   17,   83,   41,   42,
-       35,   35,   42,   82,   53,   53,   53,   81,   19,   17,
-       80,   41,   42,   79,   78,   42,   21,   23,   23,   23,
-       23,   19,   19,   77,   55,   24,   56,   56,   56,   56,
-       57,   76,   58,   58,   58,   58,   75,   74,   24,   44,
-       44,   44,   44,   71,   70,   68,   50,   48,   59,   16,
-       45,   59,   35,   64,   64,   64,   66,   66,   66,  101,
-
-       14,   59,   32,   19,   59,   14,  101,  101,  101,  101,
-       17,   16,  101,   19,  101,   65,   65,   65,   65,  101,
-       65,   65,   65,   65,   65,  101,  101,  101,  101,  101,
-      101,  101,   17,   65,   65,   65,   65,   65,   35,  101,
-      101,  101,   67,   67,   67,   67,  101,   67,   67,   67,
-       67,   67,  101,  101,  101,  101,  101,  101,  101,   19,
-       67,   67,   67,   67,   67,   56,   56,   56,   56,  101,
-      101,  101,  101,  101,   39,  101,  101,   39,  101,  101,
-      101,  101,  101,  101,  101,  101,  101,   39,  101,  101,
-       39,   58,   58,   58,   58,  101,  101,  101,  101,  101,
-
-       42,  101,  101,   42,  101,  101,  101,  101,  101,  101,
-      101,  101,  101,   42,  101,  101,   42,   72,   72,   72,
-       72,  101,   72,   72,   72,   72,   72,  101,  101,  101,
-      101,  101,  101,  101,  101,   72,   72,   72,   72,   72,
-       73,   73,   73,   73,  101,   73,   73,   73,   73,   73,
-      101,  101,  101,  101,  101,  101,  101,  101,   73,   73,
-       73,   73,   73,   12,   12,   12,   12,   12,   12,   12,
-       12,   15,  101,   15,   15,   15,   15,   15,   15,   18,
-      101,  101,   18,   18,   18,   18,   18,   31,   31,   31,
-       31,   15,   15,   15,   15,  101,  101,   15,   18,   18,
-
-       18,   18,  101,  101,   18,   47,   47,   52,   52,   54,
-       54,    3,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101
+       69,  100,   24,   88,   89,   60,   25,   21,   28,   28,
+       28,   28,   44,   44,   44,   44,   24,   99,   16,   16,
+       29,   98,   43,   30,   44,   44,   44,   44,   97,   24,
+
+       96,   35,   35,   29,   20,   20,   20,   20,   65,   17,
+       17,   95,   38,   39,   16,   16,   39,   94,   51,   51,
+       51,   67,   19,   19,   93,   38,   39,   92,   91,   39,
+       40,   40,   40,   40,   90,   17,   17,   87,   41,   42,
+       35,   35,   42,   86,   53,   53,   53,   56,   56,   56,
+       56,   41,   42,   85,   84,   42,   21,   23,   23,   23,
+       23,   19,   19,   83,   55,   24,   56,   56,   56,   56,
+       57,   82,   58,   58,   58,   58,   79,   78,   24,   44,
+       44,   44,   44,   58,   58,   58,   58,   16,   59,   16,
+       75,   59,   35,   64,   64,   64,   66,   66,   66,   35,
+
+       74,   59,   71,   70,   59,   68,   50,   76,   17,   48,
+       17,   45,  105,   19,   56,   56,   56,   56,   14,   77,
+       19,   32,   19,   39,   14,  105,   39,  105,  105,  105,
+      105,  105,  105,  105,  105,  105,   39,  105,  105,   39,
+       58,   58,   58,   58,  105,  105,  105,  105,  105,   42,
+      105,  105,   42,  105,  105,  105,  105,  105,  105,  105,
+      105,  105,   42,  105,  105,   42,   16,  105,  105,  105,
+       72,   72,   72,   72,  105,   72,   72,   72,   72,   72,
+      105,  105,  105,  105,  105,  105,  105,   17,   72,   72,
+       72,   72,   72,   35,  105,  105,  105,   73,   73,   73,
+
+       73,  105,   73,   73,   73,   73,   73,  105,  105,  105,
+      105,  105,  105,  105,   19,   73,   73,   73,   73,   73,
+       80,   80,   80,   80,  105,   80,   80,   80,   80,   80,
+      105,  105,  105,  105,  105,  105,  105,  105,   80,   80,
+       80,   80,   80,   81,   81,   81,   81,  105,   81,   81,
+       81,   81,   81,  105,  105,  105,  105,  105,  105,  105,
+      105,   81,   81,   81,   81,   81,   12,   12,   12,   12,
+       12,   12,   12,   12,   15,  105,   15,   15,   15,   15,
+       15,   15,   18,  105,  105,   18,   18,   18,   18,   18,
+       31,   31,   31,   31,   15,   15,   15,   15,  105,  105,
+
+       15,   18,   18,   18,   18,  105,  105,   18,   47,   47,
+       52,   52,   54,   54,    3,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105
     } ;
 
-static yyconst short int yy_chk[453] =
+static yyconst short int yy_chk[456] =
     {   0,
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,   98,    1,   97,    0,    7,    9,    9,    9,
+        1,    1,  102,    1,  101,    0,    7,    9,    9,    9,
         9,   15,   18,    0,    1,    2,    2,    2,    2,    2,
         2,    2,    2,    2,    2,    2,    2,    7,    2,   17,
-       17,   17,   15,   18,   19,   19,   19,   96,   26,    2,
-       10,   10,   10,   10,   10,   17,   30,   61,   95,   10,
+       17,   17,   15,   18,   19,   19,   19,  100,   26,    2,
+       10,   10,   10,   10,   10,   17,   30,   61,   99,   10,
        19,   26,   47,   10,   50,   47,   10,   10,   50,   30,
-       61,   94,   10,   82,   82,   47,   10,   11,   11,   11,
-       11,   11,   43,   43,   43,   43,   11,   93,   92,   91,
-       11,   90,   24,   11,   24,   24,   24,   24,   88,   11,
-
-       87,   86,   85,   11,   20,   20,   20,   20,   55,   55,
-       55,   55,   20,   20,   33,   64,   20,   84,   33,   33,
-       33,   57,   57,   57,   57,   20,   20,   66,   72,   20,
-       21,   21,   21,   21,   83,   33,   64,   81,   21,   21,
-       36,   73,   21,   80,   36,   36,   36,   79,   66,   72,
-       78,   21,   21,   77,   76,   21,   23,   23,   23,   23,
-       23,   36,   73,   75,   38,   23,   38,   38,   38,   38,
-       41,   74,   41,   41,   41,   41,   71,   70,   23,   44,
-       44,   44,   44,   63,   62,   60,   32,   29,   44,   51,
-       25,   44,   53,   51,   51,   51,   53,   53,   53,   22,
-
-       14,   44,   13,    8,   44,    5,    3,    0,    0,    0,
-       51,   52,    0,   53,    0,   52,   52,   52,   52,    0,
-       52,   52,   52,   52,   52,    0,    0,    0,    0,    0,
-        0,    0,   52,   52,   52,   52,   52,   52,   54,    0,
-        0,    0,   54,   54,   54,   54,    0,   54,   54,   54,
-       54,   54,    0,    0,    0,    0,    0,    0,    0,   54,
-       54,   54,   54,   54,   54,   56,   56,   56,   56,    0,
-        0,    0,    0,    0,   56,    0,    0,   56,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,   56,    0,    0,
-       56,   58,   58,   58,   58,    0,    0,    0,    0,    0,
-
-       58,    0,    0,   58,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,   58,    0,    0,   58,   65,   65,   65,
-       65,    0,   65,   65,   65,   65,   65,    0,    0,    0,
-        0,    0,    0,    0,    0,   65,   65,   65,   65,   65,
-       67,   67,   67,   67,    0,   67,   67,   67,   67,   67,
-        0,    0,    0,    0,    0,    0,    0,    0,   67,   67,
-       67,   67,   67,  102,  102,  102,  102,  102,  102,  102,
-      102,  103,    0,  103,  103,  103,  103,  103,  103,  104,
-        0,    0,  104,  104,  104,  104,  104,  105,  105,  105,
-      105,  106,  106,  106,  106,    0,    0,  106,  107,  107,
-
-      107,  107,    0,    0,  107,  108,  108,  109,  109,  110,
-      110,  101,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
-      101,  101
+       61,   98,   10,   86,   86,   47,   10,   11,   11,   11,
+       11,   11,   43,   43,   43,   43,   11,   97,   52,   64,
+       11,   96,   24,   11,   24,   24,   24,   24,   95,   11,
+
+       94,   54,   66,   11,   20,   20,   20,   20,   52,   52,
+       64,   92,   20,   20,   33,   80,   20,   91,   33,   33,
+       33,   54,   54,   66,   90,   20,   20,   89,   88,   20,
+       21,   21,   21,   21,   87,   33,   80,   85,   21,   21,
+       36,   81,   21,   84,   36,   36,   36,   55,   55,   55,
+       55,   21,   21,   83,   82,   21,   23,   23,   23,   23,
+       23,   36,   81,   79,   38,   23,   38,   38,   38,   38,
+       41,   78,   41,   41,   41,   41,   75,   74,   23,   44,
+       44,   44,   44,   57,   57,   57,   57,   72,   44,   51,
+       71,   44,   53,   51,   51,   51,   53,   53,   53,   73,
+
+       70,   44,   63,   62,   44,   60,   32,   72,   72,   29,
+       51,   25,   22,   53,   56,   56,   56,   56,   14,   73,
+       73,   13,    8,   56,    5,    3,   56,    0,    0,    0,
+        0,    0,    0,    0,    0,    0,   56,    0,    0,   56,
+       58,   58,   58,   58,    0,    0,    0,    0,    0,   58,
+        0,    0,   58,    0,    0,    0,    0,    0,    0,    0,
+        0,    0,   58,    0,    0,   58,   65,    0,    0,    0,
+       65,   65,   65,   65,    0,   65,   65,   65,   65,   65,
+        0,    0,    0,    0,    0,    0,    0,   65,   65,   65,
+       65,   65,   65,   67,    0,    0,    0,   67,   67,   67,
+
+       67,    0,   67,   67,   67,   67,   67,    0,    0,    0,
+        0,    0,    0,    0,   67,   67,   67,   67,   67,   67,
+       76,   76,   76,   76,    0,   76,   76,   76,   76,   76,
+        0,    0,    0,    0,    0,    0,    0,    0,   76,   76,
+       76,   76,   76,   77,   77,   77,   77,    0,   77,   77,
+       77,   77,   77,    0,    0,    0,    0,    0,    0,    0,
+        0,   77,   77,   77,   77,   77,  106,  106,  106,  106,
+      106,  106,  106,  106,  107,    0,  107,  107,  107,  107,
+      107,  107,  108,    0,    0,  108,  108,  108,  108,  108,
+      109,  109,  109,  109,  110,  110,  110,  110,    0,    0,
+
+      110,  111,  111,  111,  111,    0,    0,  111,  112,  112,
+      113,  113,  114,  114,  105,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
+      105,  105,  105,  105,  105
     } ;
 
 static yy_state_type yy_last_accepting_state;
@@ -513,7 +516,7 @@ FILE *file_cpm;
  * Lexical Analyzer
  *
  *****************************************************************************/
-#line 517 "lex.yy.c"
+#line 520 "conv-cpm.c"
 
 /* Macros after this point can all be overridden by user definitions in
  * section 1.
@@ -667,7 +670,7 @@ YY_DECL
 #line 32 "conv-cpm.flex"
 
 
-#line 671 "lex.yy.c"
+#line 674 "conv-cpm.c"
 
        if ( yy_init )
                {
@@ -718,13 +721,13 @@ yy_match:
                        while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
                                {
                                yy_current_state = (int) yy_def[yy_current_state];
-                               if ( yy_current_state >= 102 )
+                               if ( yy_current_state >= 106 )
                                        yy_c = yy_meta[(unsigned int) yy_c];
                                }
                        yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
                        ++yy_cp;
                        }
-               while ( yy_base[yy_current_state] != 412 );
+               while ( yy_base[yy_current_state] != 415 );
 
 yy_find_action:
                yy_act = yy_accept[yy_current_state];
@@ -830,7 +833,7 @@ YY_RULE_SETUP
 #line 50 "conv-cpm.flex"
 ECHO;
        YY_BREAK
-#line 834 "lex.yy.c"
+#line 837 "conv-cpm.c"
 case YY_STATE_EOF(INITIAL):
        yyterminate();
 
@@ -1122,7 +1125,7 @@ static yy_state_type yy_get_previous_state()
                while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
                        {
                        yy_current_state = (int) yy_def[yy_current_state];
-                       if ( yy_current_state >= 102 )
+                       if ( yy_current_state >= 106 )
                                yy_c = yy_meta[(unsigned int) yy_c];
                        }
                yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
@@ -1157,11 +1160,11 @@ yy_state_type yy_current_state;
        while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
                {
                yy_current_state = (int) yy_def[yy_current_state];
-               if ( yy_current_state >= 102 )
+               if ( yy_current_state >= 106 )
                        yy_c = yy_meta[(unsigned int) yy_c];
                }
        yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-       yy_is_jam = (yy_current_state == 101);
+       yy_is_jam = (yy_current_state == 105);
 
        return yy_is_jam ? 0 : yy_current_state;
        }
@@ -1219,6 +1222,20 @@ static int input()
 #endif
        {
        int c;
+       static int _xpg = -1;
+
+       if (_xpg == -1)
+               {
+                       char *_xpgenv = getenv("_XPG");
+                       if (_xpgenv == NULL)
+                               _xpg = 0;
+                       else
+                               {
+                               _xpg = atoi(_xpgenv);
+                               if (_xpg < 0)
+                                       _xpg = 0;
+                               }
+               }
 
        *yy_c_buf_p = yy_hold_char;
 
@@ -1256,18 +1273,21 @@ static int input()
                                        /* fall through */
 
                                case EOB_ACT_END_OF_FILE:
-                                       {
-                                       if ( yywrap() )
-                                               return EOF;
-
-                                       if ( ! yy_did_buffer_switch_on_eof )
-                                               YY_NEW_FILE;
+                                       if (_xpg)
+                                               return 0;
+                                       else
+                                               {
+                                               if ( yywrap() )
+                                                       return 0;
+
+                                               if ( ! yy_did_buffer_switch_on_eof )
+                                                       YY_NEW_FILE;
 #ifdef __cplusplus
-                                       return yyinput();
+                                               return yyinput();
 #else
-                                       return input();
+                                               return input();
 #endif
-                                       }
+                                               }
 
                                case EOB_ACT_CONTINUE_SCAN:
                                        yy_c_buf_p = yytext_ptr + offset;
@@ -1778,7 +1798,7 @@ int type_simple(char *type)
       return (type_kind[i]=='S') ? 1:0;
   }
   fprintf(stderr,"Unknown type %s\n", type);
-  exit(1);
+  exit(1); return 0;
 }
 
 void type_declare(char *type, int kind)
@@ -2127,7 +2147,6 @@ void disclaim(FILE *f, char *src)
 
 main(int argc, char **argv)
 {
-  int i; char *tail;
   if (argc != 3) usage();
   file_src = fopen_nofail(argv[1], "r");
   file_cpm = fopen_nofail(argv[2], "w");