Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. /* A Bison parser, made from unites.y
  2.    by GNU bison 1.35.  */
  3.  
  4. #define YYBISON 1  /* Identify Bison output.  */
  5.  
  6. # define        REAL    257
  7. # define        SPC     258
  8. # define        Uh      259
  9. # define        Umin    260
  10. # define        Um      261
  11. # define        Ug      262
  12. # define        Us      263
  13. # define        UA      264
  14. # define        UK      265
  15. # define        Umol    266
  16. # define        Ucd     267
  17. # define        UHz     268
  18. # define        UN      269
  19. # define        UPa     270
  20. # define        UJ      271
  21. # define        UW      272
  22. # define        UC      273
  23. # define        UV      274
  24. # define        Uohm    275
  25. # define        US      276
  26. # define        UF      277
  27. # define        UT      278
  28. # define        UWb     279
  29. # define        UH      280
  30. # define        Ulm     281
  31. # define        Ulx     282
  32. # define        UBq     283
  33. # define        UGy     284
  34. # define        USv     285
  35. # define        Urad    286
  36. # define        Usr     287
  37. # define        PUIS    288
  38. # define        PP      289
  39. # define        POINT   290
  40. # define        BARRE   291
  41. # define        Uda     292
  42. # define        Uma     293
  43. # define        Usa     294
  44. # define        Uangs   295
  45. # define        Ubarn   296
  46. # define        Uare    297
  47. # define        Ul      298
  48. # define        Ut      299
  49. # define        Ubar    300
  50. # define        UeV     301
  51. # define        Uuam    302
  52. # define        Signif  303
  53.  
  54. #line 1 "unites.y"
  55.  
  56. /* inclusions, définition */
  57. #include <string.h>
  58. #include <stdlib.h>
  59. #include <stdio.h>
  60. #include <math.h>
  61. #include "unites.h"
  62.  
  63.   char * unit_names[BU_LAST]={"m","kg","s","A","K","mol","cd"};
  64.  
  65.   typedef struct{
  66.     int i;
  67.     double multip, maxmultip;
  68.     uniteSI unite;
  69.     int base[BU_LAST];
  70.     char * s, * v;
  71.     double val;
  72.     int signif;
  73.   } yystype;
  74.  
  75. #define YYSTYPE yystype
  76.  
  77.  extern char * yytext;
  78.  extern FILE * yyin;
  79.  
  80. /* variables globales */
  81. #define MAXBUF 255
  82.  char buffer[MAXBUF+1], buffer2[MAXBUF+1];
  83.  yystype result;
  84.  double val_real;
  85.  int val_int, count_signif=0;
  86.  long pos;
  87.  
  88. /* les unités du SI */
  89. /* Handbook of Chemistry & Physics 78, CRC Press 1997, page 1-20 */
  90. unite_data unites[TU_LAST] ={
  91. /*TUh*/   {"h",    "seconde",3600.0,     { 0, 0, 1, 0, 0, 0, 0}},
  92. /*TUmin*/ {"min",   "seconde", 60.0,     { 0, 0, 1, 0, 0, 0, 0}},
  93. /*TUm*/   {"m",      "mètre",   1.0,     { 1, 0, 0, 0, 0, 0, 0}},
  94. /*TUg*/   {"g",    "kilogramme",1.0e-3,  { 0, 1, 0, 0, 0, 0, 0}},
  95. /*TUs*/   {"s",      "seconde", 1.0,     { 0, 0, 1, 0, 0, 0, 0}},
  96. /*TUA*/   {"A",      "ampère",  1.0,     { 0, 0, 0, 1, 0, 0, 0}},
  97. /*TUK*/   {"K",      "kelvin",  1.0,     { 0, 0, 0, 0, 1, 0, 0}},
  98. /*TUmol*/ {"mol",    "mol",     1.0,     { 0, 0, 0, 0, 0, 1, 0}},
  99. /*TUcd*/  {"cd",     "candela", 1.0,     { 0, 0, 0, 0, 0, 0, 1}},
  100. /*TUHz*/  {"Hz",     "hetrz",   1.0,     { 0,-1, 0, 0, 0, 0, 0}},
  101. /*TUN*/   {"N",      "newton",  1.0,     { 1, 1,-2, 0, 0, 0, 0}},
  102. /*TUPa*/  {"Pa",     "pascal",  1.0,     {-1, 1,-2, 0, 0, 0, 0}},
  103. /*TUJ*/   {"J",      "joule",   1.0,     { 2, 1,-2, 0, 0, 0, 0}},
  104. /*TUW */  {"W",      "watt",    1.0,     { 2, 1,-3, 0, 0, 0, 0}},
  105. /*TUC*/   {"C",      "coulomb", 1.0,     { 0, 0, 1, 1, 0, 0, 0}},
  106. /*TUV*/   {"V",      "volt",    1.0,     { 2, 1,-3,-1, 0, 0, 0}},
  107. /*TUohm*/ {"\\Omega","ohm",     1.0,     { 2, 1,-3,-2, 0, 0, 0}},
  108. /*TUS*/   {"S",      "siemens", 1.0,     {-2,-1, 3, 2, 0, 0, 0}},
  109. /*TUF*/   {"F",      "farad",   1.0,     {-2,-1, 4, 2, 0, 0, 0}},
  110. /*TUT*/   {"T",      "tesla",   1.0,     { 0, 1,-2,-1, 0, 0, 0}},
  111. /*TUWb*/  {"Wb",     "weber",   1.0,     { 2, 1,-2,-1, 0, 0, 0}},
  112. /*TUH*/   {"H",      "henry",   1.0,     { 2, 1,-2,-2, 0, 0, 0}},
  113. /*TUlm*/  {"lm",     "lumen",   1.0,     { 0, 0, 0, 0, 0, 0, 1}},
  114. /*TUlx*/  {"lx",     "lux",     1.0,     {-2, 0, 0, 0, 0, 0, 1}},
  115. /*TUBq */ {"Bq",     "becquerel",1.0,    { 0, 0,-1, 0, 0, 0, 0}},
  116. /*TUGy*/  {"Gy",     "gray",     1.0,    { 2, 0,-2, 0, 0, 0, 0}},
  117. /*TUSv*/  {"Sv",     "sievert",  1.0,    { 2, 0,-2, 0, 0, 0, 0}},
  118. /*TUrad*/ {"rad",    "radian",   1.0,    { 0, 0, 0, 0, 0, 0, 0}},
  119. /*TUsr*/  {"sr" ,    "stéradian",1.0,    { 0, 0, 0, 0, 0, 0, 0}},
  120. /*TUnull*/{"" ,    "sans unité",1.0,     { 0, 0, 0, 0, 0, 0, 0}},
  121. /*TUda*/  {"°", "degré", M_PI/180.0,     { 0, 0, 0, 0, 0, 0, 0}},
  122. /*TUma*/  {"'", "minute", M_PI/10800,    { 0, 0, 0, 0, 0, 0, 0}},
  123. /*TUsa*/  {"''","seconde",M_PI/648000 ,  { 0, 0, 0, 0, 0, 0, 0}},
  124. /*TUangs*/ {"\\o{A}", "angström", 1e-10, { 1, 0, 0, 0, 0, 0, 0}},
  125. /*TUbarn*/ {"b", "barn", 1e-28,          { 2, 0, 0, 0, 0, 0, 0}},
  126. /*TUare*/  {"a", "are", 1e2,             { 2, 0, 0, 0, 0, 0, 0}},
  127. /*TUl*/    {"L", "litre", 1e-3,          { 3, 0, 0, 0, 0, 0, 0}},
  128. /*TUt*/    {"t", "tonne", 1e3,              { 0, 1, 0, 0, 0, 0, 0}},
  129. /*TUbar*/  {"bar", "bar", 1e5,            {-1, 1,-2, 0, 0, 0, 0}},
  130. /*TUeV*/   {"eV", "eV", 1.60218e-19,       { 0, 0, 1, 1, 0, 0, 0}},
  131. /*TUuam*/  {"uma", "uma", 1.66054e-27,    { 0, 1, 0, 0, 0, 0, 0}}
  132. };
  133.  
  134. unite_data pref_units[] ={
  135. /*TUm*/   {"m",      "mètre",   1.0,     { 1, 0, 0, 0, 0, 0, 0}},
  136. /*   */   {"kg",    "kilogramme",1.0,    { 0, 1, 0, 0, 0, 0, 0}},
  137. /*TUs*/   {"s",      "seconde", 1.0,     { 0, 0, 1, 0, 0, 0, 0}},
  138. /*TUA*/   {"A",      "ampère",  1.0,     { 0, 0, 0, 1, 0, 0, 0}},
  139. /*TUK*/   {"K",      "kelvin",  1.0,     { 0, 0, 0, 0, 1, 0, 0}},
  140. /*TUmol*/ {"mol",    "mol",     1.0,     { 0, 0, 0, 0, 0, 1, 0}},
  141. /*TUcd*/  {"cd",     "candela", 1.0,     { 0, 0, 0, 0, 0, 0, 1}},
  142. /*TUHz*/  {"Hz",     "hetrz",   1.0,     { 0,-1, 0, 0, 0, 0, 0}},
  143. /*TUN*/   {"N",      "newton",  1.0,     { 1, 1,-2, 0, 0, 0, 0}},
  144. /*TUPa*/  {"Pa",     "pascal",  1.0,     {-1, 1,-2, 0, 0, 0, 0}},
  145. /*TUJ*/   {"J",      "joule",   1.0,     { 2, 1,-2, 0, 0, 0, 0}},
  146. /*TUW */  {"W",      "watt",    1.0,     { 2, 1,-3, 0, 0, 0, 0}},
  147. /*TUC*/   {"C",      "coulomb", 1.0,     { 0, 0, 1, 1, 0, 0, 0}},
  148. /*TUV*/   {"V",      "volt",    1.0,     { 2, 1,-3,-1, 0, 0, 0}},
  149. /*TUohm*/ {"ohm",    "ohm",     1.0,     { 2, 1,-3,-2, 0, 0, 0}},
  150. /*TUS*/   {"S",      "siemens", 1.0,     {-2,-1, 3, 2, 0, 0, 0}},
  151. /*TUF*/   {"F",      "farad",   1.0,     {-2,-1, 4, 2, 0, 0, 0}},
  152. /*TUT*/   {"T",      "tesla",   1.0,     { 0, 1,-2,-1, 0, 0, 0}},
  153. /*TUWb*/  {"Wb",     "weber",   1.0,     { 2, 1,-2,-1, 0, 0, 0}},
  154. /*TUH*/   {"H",      "henry",   1.0,     { 2, 1,-2,-2, 0, 0, 0}},
  155. /*TUlm*/  {"lm",     "lumen",   1.0,     { 0, 0, 0, 0, 0, 0, 1}},
  156. /*TUlx*/  {"lx",     "lux",     1.0,     {-2, 0, 0, 0, 0, 0, 1}},
  157. };
  158.  
  159. int significative(char* text);
  160. int significative(char* text){
  161.   // returns the number of significative numbers of a real
  162.   // if the real is null returns zero.
  163.   int i,j,result=0;
  164.   for(i=0;
  165.       i<strlen(text)&&(text[i]=='0'||text[i]=='.'|| text[i]=='+'||text[i]=='-');
  166.       i++){
  167.     //skip leading plus,minus,zeros and the decimal point
  168.   }
  169.   for(j=i;j<strlen(text)&&(text[j]>='0'&&text[j]<='9'||text[j]=='.');j++){
  170.     if (text[j]!='.') {
  171.       result++;
  172.     } else {
  173.       //skip the decimal point
  174.     }
  175.   }
  176.   return result;
  177. }
  178.  
  179. #ifndef YYSTYPE
  180. # define YYSTYPE int
  181. # define YYSTYPE_IS_TRIVIAL 1
  182. #endif
  183. #ifndef YYDEBUG
  184. # define YYDEBUG 0
  185. #endif
  186.  
  187.  
  188.  
  189. #define YYFINAL         75
  190. #define YYFLAG          -32768
  191. #define YYNTBASE        50
  192.  
  193. /* YYTRANSLATE(YYLEX) -- Bison token number corresponding to YYLEX. */
  194. #define YYTRANSLATE(x) ((unsigned)(x) <= 303 ? yytranslate[x] : 63)
  195.  
  196. /* YYTRANSLATE[YYLEX] -- Bison token number corresponding to YYLEX. */
  197. static const char yytranslate[] =
  198. {
  199.        0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  200.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  201.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  202.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  203.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  204.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  205.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  206.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  207.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  208.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  209.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  210.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  211.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  212.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  213.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  214.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  215.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  216.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  217.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  218.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  219.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  220.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  221.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  222.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  223.        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  224.        2,     2,     2,     2,     2,     2,     1,     3,     4,     5,
  225.        6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  226.       16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  227.       26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  228.       36,    37,    38,    39,    40,    41,    42,    43,    44,    45,
  229.       46,    47,    48,    49
  230. };
  231.  
  232. #if YYDEBUG
  233. static const short yyprhs[] =
  234. {
  235.        0,     0,     2,     4,     8,    10,    14,    19,    21,    24,
  236.       25,    27,    30,    32,    35,    38,    40,    43,    46,    49,
  237.       52,    54,    57,    58,    60,    62,    64,    66,    68,    70,
  238.       72,    74,    76,    78,    80,    82,    84,    86,    88,    90,
  239.       92,    94,    96,    98,   100,   102,   104,   106,   108,   110,
  240.      112,   114,   116,   118,   120,   122,   124,   126,   128,   130,
  241.      132,   134,   136,   138,   140
  242. };
  243. static const short yyrhs[] =
  244. {
  245.       51,     0,    53,     0,    52,    54,    51,     0,    52,     0,
  246.        3,    54,    55,     0,     3,    54,    55,    49,     0,     3,
  247.        0,     3,    49,     0,     0,     4,     0,    55,    56,     0,
  248.       59,     0,    57,    59,     0,    37,    59,     0,    36,     0,
  249.        7,    62,     0,    24,    62,     0,     5,    62,     0,    61,
  250.       62,     0,    62,     0,    58,    60,     0,     0,    34,     0,
  251.       35,     0,     5,     0,     6,     0,     7,     0,     8,     0,
  252.        9,     0,    10,     0,    11,     0,    12,     0,    13,     0,
  253.       14,     0,    15,     0,    16,     0,    17,     0,    24,     0,
  254.       18,     0,    19,     0,    20,     0,    21,     0,    22,     0,
  255.       23,     0,    25,     0,    26,     0,    27,     0,    28,     0,
  256.       29,     0,    30,     0,    31,     0,    32,     0,    33,     0,
  257.       38,     0,    39,     0,    40,     0,    41,     0,    42,     0,
  258.       43,     0,    44,     0,    45,     0,    46,     0,    47,     0,
  259.       48,     0
  260. };
  261.  
  262. #endif
  263.  
  264. #if YYDEBUG
  265. /* YYRLINE[YYN] -- source line where rule number YYN was defined. */
  266. static const short yyrline[] =
  267. {
  268.        0,   180,   181,   184,   193,   196,   197,   203,   211,   221,
  269.      222,   225,   237,   240,   246,   260,   263,   271,   278,   285,
  270.      292,   297,   319,   320,   323,   348,   350,   351,   352,   353,
  271.      354,   355,   356,   357,   358,   359,   360,   361,   362,   363,
  272.      364,   365,   366,   367,   368,   369,   370,   371,   372,   373,
  273.      374,   375,   376,   377,   378,   379,   380,   381,   382,   383,
  274.      384,   385,   386,   387,   388
  275. };
  276. #endif
  277.  
  278.  
  279. #if (YYDEBUG) || defined YYERROR_VERBOSE
  280.  
  281. /* YYTNAME[TOKEN_NUM] -- String name of the token TOKEN_NUM. */
  282. static const char *const yytname[] =
  283. {
  284.   "$", "error", "$undefined.", "REAL", "SPC", "Uh", "Umin", "Um", "Ug",
  285.   "Us", "UA", "UK", "Umol", "Ucd", "UHz", "UN", "UPa", "UJ", "UW", "UC",
  286.   "UV", "Uohm", "US", "UF", "UT", "UWb", "UH", "Ulm", "Ulx", "UBq", "UGy",
  287.   "USv", "Urad", "Usr", "PUIS", "PP", "POINT", "BARRE", "Uda", "Uma",
  288.   "Usa", "Uangs", "Ubarn", "Uare", "Ul", "Ut", "Ubar", "UeV", "Uuam",
  289.   "Signif", "but", "valeur_mixte", "valeur", "sans_unite", "spc", "unite",
  290.   "suiv_unit", "point", "prim_unit1", "prim_unit", "puissance01",
  291.   "prefixe", "base_unite", 0
  292. };
  293. #endif
  294.  
  295. /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
  296. static const short yyr1[] =
  297. {
  298.        0,    50,    50,    51,    51,    52,    52,    53,    53,    54,
  299.       54,    55,    55,    56,    56,    57,    58,    58,    58,    58,
  300.       58,    59,    60,    60,    61,    62,    62,    62,    62,    62,
  301.       62,    62,    62,    62,    62,    62,    62,    62,    62,    62,
  302.       62,    62,    62,    62,    62,    62,    62,    62,    62,    62,
  303.       62,    62,    62,    62,    62,    62,    62,    62,    62,    62,
  304.       62,    62,    62,    62,    62
  305. };
  306.  
  307. /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
  308. static const short yyr2[] =
  309. {
  310.        0,     1,     1,     3,     1,     3,     4,     1,     2,     0,
  311.        1,     2,     1,     2,     2,     1,     2,     2,     2,     2,
  312.        1,     2,     0,     1,     1,     1,     1,     1,     1,     1,
  313.        1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
  314.        1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
  315.        1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
  316.        1,     1,     1,     1,     1
  317. };
  318.  
  319. /* YYDEFACT[S] -- default rule to reduce with in state S when YYTABLE
  320.    doesn't specify something else to do.  Zero means the default is an
  321.    error. */
  322. static const short yydefact[] =
  323. {
  324.        0,     9,     1,     4,     2,    10,     8,     0,     0,    25,
  325.       26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  326.       36,    37,    39,    40,    41,    42,    43,    44,    38,    45,
  327.       46,    47,    48,    49,    50,    51,    52,    53,    24,    54,
  328.       55,    56,    57,    58,    59,    60,    61,    62,    63,    64,
  329.        5,    22,    12,     0,    20,     9,     3,    25,    27,    38,
  330.       18,    16,    17,    15,     0,     6,    11,     0,    23,    21,
  331.       19,    14,    13,     0,     0,     0
  332. };
  333.  
  334. static const short yydefgoto[] =
  335. {
  336.       73,     2,     3,     4,     7,    50,    66,    67,    51,    52,
  337.       69,    53,    54
  338. };
  339.  
  340. static const short yypact[] =
  341. {
  342.       -1,     0,-32768,     5,-32768,-32768,-32768,    45,     8,    89,
  343.   -32768,    89,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  344.   -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,    89,-32768,
  345.   -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  346.   -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  347.      -31,   -22,-32768,    89,-32768,     9,-32768,-32768,-32768,-32768,
  348.   -32768,-32768,-32768,-32768,    45,-32768,-32768,    45,-32768,-32768,
  349.   -32768,-32768,-32768,    14,    15,-32768
  350. };
  351.  
  352. static const short yypgoto[] =
  353. {
  354.   -32768,    11,-32768,-32768,    13,-32768,-32768,-32768,-32768,   -57,
  355.   -32768,-32768,    -8
  356. };
  357.  
  358.  
  359. #define YYLAST          137
  360.  
  361.  
  362. static const short yytable[] =
  363. {
  364.       -7,    60,     1,    61,     5,    63,    64,    71,    -9,     5,
  365.       72,    55,    68,     5,    74,    75,     8,     0,    65,    56,
  366.       62,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  367.        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  368.        0,     0,     0,     0,     0,    70,     0,     0,     0,     6,
  369.        9,    10,    11,    12,    13,    14,    15,    16,    17,    18,
  370.       19,    20,    21,    22,    23,    24,    25,    26,    27,    28,
  371.       29,    30,    31,    32,    33,    34,    35,    36,    37,     0,
  372.       38,     0,     0,    39,    40,    41,    42,    43,    44,    45,
  373.       46,    47,    48,    49,    57,    10,    58,    12,    13,    14,
  374.       15,    16,    17,    18,    19,    20,    21,    22,    23,    24,
  375.       25,    26,    27,    59,    29,    30,    31,    32,    33,    34,
  376.       35,    36,    37,     0,     0,     0,     0,    39,    40,    41,
  377.       42,    43,    44,    45,    46,    47,    48,    49
  378. };
  379.  
  380. static const short yycheck[] =
  381. {
  382.        0,     9,     3,    11,     4,    36,    37,    64,     3,     4,
  383.       67,     3,    34,     4,     0,     0,     3,    -1,    49,     8,
  384.       28,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  385.       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  386.       -1,    -1,    -1,    -1,    -1,    53,    -1,    -1,    -1,    49,
  387.        5,     6,     7,     8,     9,    10,    11,    12,    13,    14,
  388.       15,    16,    17,    18,    19,    20,    21,    22,    23,    24,
  389.       25,    26,    27,    28,    29,    30,    31,    32,    33,    -1,
  390.       35,    -1,    -1,    38,    39,    40,    41,    42,    43,    44,
  391.       45,    46,    47,    48,     5,     6,     7,     8,     9,    10,
  392.       11,    12,    13,    14,    15,    16,    17,    18,    19,    20,
  393.       21,    22,    23,    24,    25,    26,    27,    28,    29,    30,
  394.       31,    32,    33,    -1,    -1,    -1,    -1,    38,    39,    40,
  395.       41,    42,    43,    44,    45,    46,    47,    48
  396. };
  397. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  398. #line 3 "/usr/share/bison/bison.simple"
  399.  
  400. /* Skeleton output parser for bison,
  401.  
  402.    Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002 Free Software
  403.    Foundation, Inc.
  404.  
  405.    This program is free software; you can redistribute it and/or modify
  406.    it under the terms of the GNU General Public License as published by
  407.    the Free Software Foundation; either version 2, or (at your option)
  408.    any later version.
  409.  
  410.    This program is distributed in the hope that it will be useful,
  411.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  412.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  413.    GNU General Public License for more details.
  414.  
  415.    You should have received a copy of the GNU General Public License
  416.    along with this program; if not, write to the Free Software
  417.    Foundation, Inc., 59 Temple Place - Suite 330,
  418.    Boston, MA 02111-1307, USA.  */
  419.  
  420. /* As a special exception, when this file is copied by Bison into a
  421.    Bison output file, you may use that output file without restriction.
  422.    This special exception was added by the Free Software Foundation
  423.    in version 1.24 of Bison.  */
  424.  
  425. /* This is the parser code that is written into each bison parser when
  426.    the %semantic_parser declaration is not specified in the grammar.
  427.    It was written by Richard Stallman by simplifying the hairy parser
  428.    used when %semantic_parser is specified.  */
  429.  
  430. /* All symbols defined below should begin with yy or YY, to avoid
  431.    infringing on user name space.  This should be done even for local
  432.    variables, as they might otherwise be expanded by user macros.
  433.    There are some unavoidable exceptions within include files to
  434.    define necessary library symbols; they are noted "INFRINGES ON
  435.    USER NAME SPACE" below.  */
  436.  
  437. #if ! defined (yyoverflow) || defined (YYERROR_VERBOSE)
  438.  
  439. /* The parser invokes alloca or malloc; define the necessary symbols.  */
  440.  
  441. # if YYSTACK_USE_ALLOCA
  442. #  define YYSTACK_ALLOC alloca
  443. # else
  444. #  ifndef YYSTACK_USE_ALLOCA
  445. #   if defined (alloca) || defined (_ALLOCA_H)
  446. #    define YYSTACK_ALLOC alloca
  447. #   else
  448. #    ifdef __GNUC__
  449. #     define YYSTACK_ALLOC __builtin_alloca
  450. #    endif
  451. #   endif
  452. #  endif
  453. # endif
  454.  
  455. # ifdef YYSTACK_ALLOC
  456.    /* Pacify GCC's `empty if-body' warning. */
  457. #  define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
  458. # else
  459. #  if defined (__STDC__) || defined (__cplusplus)
  460. #   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
  461. #   define YYSIZE_T size_t
  462. #  endif
  463. #  define YYSTACK_ALLOC malloc
  464. #  define YYSTACK_FREE free
  465. # endif
  466. #endif /* ! defined (yyoverflow) || defined (YYERROR_VERBOSE) */
  467.  
  468.  
  469. #if (! defined (yyoverflow) \
  470.      && (! defined (__cplusplus) \
  471.          || (YYLTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
  472.  
  473. /* A type that is properly aligned for any stack member.  */
  474. union yyalloc
  475. {
  476.   short yyss;
  477.   YYSTYPE yyvs;
  478. # if YYLSP_NEEDED
  479.   YYLTYPE yyls;
  480. # endif
  481. };
  482.  
  483. /* The size of the maximum gap between one aligned stack and the next.  */
  484. # define YYSTACK_GAP_MAX (sizeof (union yyalloc) - 1)
  485.  
  486. /* The size of an array large to enough to hold all stacks, each with
  487.    N elements.  */
  488. # if YYLSP_NEEDED
  489. #  define YYSTACK_BYTES(N) \
  490.      ((N) * (sizeof (short) + sizeof (YYSTYPE) + sizeof (YYLTYPE))      \
  491.       + 2 * YYSTACK_GAP_MAX)
  492. # else
  493. #  define YYSTACK_BYTES(N) \
  494.      ((N) * (sizeof (short) + sizeof (YYSTYPE))                         \
  495.       + YYSTACK_GAP_MAX)
  496. # endif
  497.  
  498. /* Copy COUNT objects from FROM to TO.  The source and destination do
  499.    not overlap.  */
  500. # ifndef YYCOPY
  501. #  if 1 < __GNUC__
  502. #   define YYCOPY(To, From, Count) \
  503.       __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
  504. #  else
  505. #   define YYCOPY(To, From, Count)              \
  506.       do                                        \
  507.         {                                       \
  508.           register YYSIZE_T yyi;                \
  509.           for (yyi = 0; yyi < (Count); yyi++)   \
  510.             (To)[yyi] = (From)[yyi];            \
  511.         }                                       \
  512.       while (0)
  513. #  endif
  514. # endif
  515.  
  516. /* Relocate STACK from its old location to the new one.  The
  517.    local variables YYSIZE and YYSTACKSIZE give the old and new number of
  518.    elements in the stack, and YYPTR gives the new location of the
  519.    stack.  Advance YYPTR to a properly aligned location for the next
  520.    stack.  */
  521. # define YYSTACK_RELOCATE(Stack)                                        \
  522.     do                                                                  \
  523.       {                                                                 \
  524.         YYSIZE_T yynewbytes;                                            \
  525.         YYCOPY (&yyptr->Stack, Stack, yysize);                          \
  526.         Stack = &yyptr->Stack;                                          \
  527.         yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAX;   \
  528.         yyptr += yynewbytes / sizeof (*yyptr);                          \
  529.       }                                                                 \
  530.     while (0)
  531.  
  532. #endif
  533.  
  534.  
  535. #if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__)
  536. # define YYSIZE_T __SIZE_TYPE__
  537. #endif
  538. #if ! defined (YYSIZE_T) && defined (size_t)
  539. # define YYSIZE_T size_t
  540. #endif
  541. #if ! defined (YYSIZE_T)
  542. # if defined (__STDC__) || defined (__cplusplus)
  543. #  include <stddef.h> /* INFRINGES ON USER NAME SPACE */
  544. #  define YYSIZE_T size_t
  545. # endif
  546. #endif
  547. #if ! defined (YYSIZE_T)
  548. # define YYSIZE_T unsigned int
  549. #endif
  550.  
  551. #define yyerrok         (yyerrstatus = 0)
  552. #define yyclearin       (yychar = YYEMPTY)
  553. #define YYEMPTY         -2
  554. #define YYEOF           0
  555. #define YYACCEPT        goto yyacceptlab
  556. #define YYABORT         goto yyabortlab
  557. #define YYERROR         goto yyerrlab1
  558. /* Like YYERROR except do call yyerror.  This remains here temporarily
  559.    to ease the transition to the new meaning of YYERROR, for GCC.
  560.    Once GCC version 2 has supplanted version 1, this can go.  */
  561. #define YYFAIL          goto yyerrlab
  562. #define YYRECOVERING()  (!!yyerrstatus)
  563. #define YYBACKUP(Token, Value)                                  \
  564. do                                                              \
  565.   if (yychar == YYEMPTY && yylen == 1)                          \
  566.     {                                                           \
  567.       yychar = (Token);                                         \
  568.       yylval = (Value);                                         \
  569.       yychar1 = YYTRANSLATE (yychar);                           \
  570.       YYPOPSTACK;                                               \
  571.       goto yybackup;                                            \
  572.     }                                                           \
  573.   else                                                          \
  574.     {                                                           \
  575.       yyerror ("syntax error: cannot back up");                 \
  576.       YYERROR;                                                  \
  577.     }                                                           \
  578. while (0)
  579.  
  580. #define YYTERROR        1
  581. #define YYERRCODE       256
  582.  
  583.  
  584. /* YYLLOC_DEFAULT -- Compute the default location (before the actions
  585.    are run).
  586.  
  587.    When YYLLOC_DEFAULT is run, CURRENT is set the location of the
  588.    first token.  By default, to implement support for ranges, extend
  589.    its range to the last symbol.  */
  590.  
  591. #ifndef YYLLOC_DEFAULT
  592. # define YYLLOC_DEFAULT(Current, Rhs, N)        \
  593.    Current.last_line   = Rhs[N].last_line;      \
  594.    Current.last_column = Rhs[N].last_column;
  595. #endif
  596.  
  597.  
  598. /* YYLEX -- calling `yylex' with the right arguments.  */
  599.  
  600. #if YYPURE
  601. # if YYLSP_NEEDED
  602. #  ifdef YYLEX_PARAM
  603. #   define YYLEX                yylex (&yylval, &yylloc, YYLEX_PARAM)
  604. #  else
  605. #   define YYLEX                yylex (&yylval, &yylloc)
  606. #  endif
  607. # else /* !YYLSP_NEEDED */
  608. #  ifdef YYLEX_PARAM
  609. #   define YYLEX                yylex (&yylval, YYLEX_PARAM)
  610. #  else
  611. #   define YYLEX                yylex (&yylval)
  612. #  endif
  613. # endif /* !YYLSP_NEEDED */
  614. #else /* !YYPURE */
  615. # define YYLEX                  yylex ()
  616. #endif /* !YYPURE */
  617.  
  618.  
  619. /* Enable debugging if requested.  */
  620. #if YYDEBUG
  621.  
  622. # ifndef YYFPRINTF
  623. #  include <stdio.h> /* INFRINGES ON USER NAME SPACE */
  624. #  define YYFPRINTF fprintf
  625. # endif
  626.  
  627. # define YYDPRINTF(Args)                        \
  628. do {                                            \
  629.   if (yydebug)                                  \
  630.     YYFPRINTF Args;                             \
  631. } while (0)
  632. /* Nonzero means print parse trace.  It is left uninitialized so that
  633.    multiple parsers can coexist.  */
  634. int yydebug;
  635. #else /* !YYDEBUG */
  636. # define YYDPRINTF(Args)
  637. #endif /* !YYDEBUG */
  638.  
  639. /* YYINITDEPTH -- initial size of the parser's stacks.  */
  640. #ifndef YYINITDEPTH
  641. # define YYINITDEPTH 200
  642. #endif
  643.  
  644. /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
  645.    if the built-in stack extension method is used).
  646.  
  647.    Do not make this value too large; the results are undefined if
  648.    SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH)
  649.    evaluated with infinite-precision integer arithmetic.  */
  650.  
  651. #if YYMAXDEPTH == 0
  652. # undef YYMAXDEPTH
  653. #endif
  654.  
  655. #ifndef YYMAXDEPTH
  656. # define YYMAXDEPTH 10000
  657. #endif
  659. #ifdef YYERROR_VERBOSE
  660.  
  661. # ifndef yystrlen
  662. #  if defined (__GLIBC__) && defined (_STRING_H)
  663. #   define yystrlen strlen
  664. #  else
  665. /* Return the length of YYSTR.  */
  666. static YYSIZE_T
  667. #   if defined (__STDC__) || defined (__cplusplus)
  668. yystrlen (const char *yystr)
  669. #   else
  670. yystrlen (yystr)
  671.      const char *yystr;
  672. #   endif
  673. {
  674.   register const char *yys = yystr;
  675.  
  676.   while (*yys++ != '\0')
  677.     continue;
  678.  
  679.   return yys - yystr - 1;
  680. }
  681. #  endif
  682. # endif
  683.  
  684. # ifndef yystpcpy
  685. #  if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE)
  686. #   define yystpcpy stpcpy
  687. #  else
  688. /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
  689.    YYDEST.  */
  690. static char *
  691. #   if defined (__STDC__) || defined (__cplusplus)
  692. yystpcpy (char *yydest, const char *yysrc)
  693. #   else
  694. yystpcpy (yydest, yysrc)
  695.      char *yydest;
  696.      const char *yysrc;
  697. #   endif
  698. {
  699.   register char *yyd = yydest;
  700.   register const char *yys = yysrc;
  701.  
  702.   while ((*yyd++ = *yys++) != '\0')
  703.     continue;
  704.  
  705.   return yyd - 1;
  706. }
  707. #  endif
  708. # endif
  709. #endif
  711. #line 315 "/usr/share/bison/bison.simple"
  712.  
  713.  
  714. /* The user can define YYPARSE_PARAM as the name of an argument to be passed
  715.    into yyparse.  The argument should have type void *.
  716.    It should actually point to an object.
  717.    Grammar actions can access the variable by casting it
  718.    to the proper pointer type.  */
  719.  
  720. #ifdef YYPARSE_PARAM
  721. # if defined (__STDC__) || defined (__cplusplus)
  722. #  define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
  723. #  define YYPARSE_PARAM_DECL
  724. # else
  725. #  define YYPARSE_PARAM_ARG YYPARSE_PARAM
  726. #  define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
  727. # endif
  728. #else /* !YYPARSE_PARAM */
  729. # define YYPARSE_PARAM_ARG
  730. # define YYPARSE_PARAM_DECL
  731. #endif /* !YYPARSE_PARAM */
  732.  
  733. /* Prevent warning if -Wstrict-prototypes.  */
  734. #ifdef __GNUC__
  735. # ifdef YYPARSE_PARAM
  736. int yyparse (void *);
  737. # else
  738. int yyparse (void);
  739. # endif
  740. #endif
  741.  
  742. /* YY_DECL_VARIABLES -- depending whether we use a pure parser,
  743.    variables are global, or local to YYPARSE.  */
  744.  
  745. #define YY_DECL_NON_LSP_VARIABLES                       \
  746. /* The lookahead symbol.  */                            \
  747. int yychar;                                             \
  748.                                                         \
  749. /* The semantic value of the lookahead symbol. */       \
  750. YYSTYPE yylval;                                         \
  751.                                                         \
  752. /* Number of parse errors so far.  */                   \
  753. int yynerrs;
  754.  
  755. #if YYLSP_NEEDED
  756. # define YY_DECL_VARIABLES                      \
  757. YY_DECL_NON_LSP_VARIABLES                       \
  758.                                                 \
  759. /* Location data for the lookahead symbol.  */  \
  760. YYLTYPE yylloc;
  761. #else
  762. # define YY_DECL_VARIABLES                      \
  763. YY_DECL_NON_LSP_VARIABLES
  764. #endif
  765.  
  766.  
  767. /* If nonreentrant, generate the variables here. */
  768.  
  769. #if !YYPURE
  770. YY_DECL_VARIABLES
  771. #endif  /* !YYPURE */
  772.  
  773. int
  774. yyparse (YYPARSE_PARAM_ARG)
  775.      YYPARSE_PARAM_DECL
  776. {
  777.   /* If reentrant, generate the variables here. */
  778. #if YYPURE
  779.   YY_DECL_VARIABLES
  780. #endif  /* !YYPURE */
  781.  
  782.   register int yystate;
  783.   register int yyn;
  784.   int yyresult;
  785.   /* Number of tokens to shift before error messages enabled.  */
  786.   int yyerrstatus;
  787.   /* Lookahead token as an internal (translated) token number.  */
  788.   int yychar1 = 0;
  789.  
  790.   /* Three stacks and their tools:
  791.      `yyss': related to states,
  792.      `yyvs': related to semantic values,
  793.      `yyls': related to locations.
  794.  
  795.      Refer to the stacks thru separate pointers, to allow yyoverflow
  796.      to reallocate them elsewhere.  */
  797.  
  798.   /* The state stack. */
  799.   short yyssa[YYINITDEPTH];
  800.   short *yyss = yyssa;
  801.   register short *yyssp;
  802.  
  803.   /* The semantic value stack.  */
  804.   YYSTYPE yyvsa[YYINITDEPTH];
  805.   YYSTYPE *yyvs = yyvsa;
  806.   register YYSTYPE *yyvsp;
  807.  
  808. #if YYLSP_NEEDED
  809.   /* The location stack.  */
  810.   YYLTYPE yylsa[YYINITDEPTH];
  811.   YYLTYPE *yyls = yylsa;
  812.   YYLTYPE *yylsp;
  813. #endif
  814.  
  815. #if YYLSP_NEEDED
  816. # define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
  817. #else
  818. # define YYPOPSTACK   (yyvsp--, yyssp--)
  819. #endif
  820.  
  821.   YYSIZE_T yystacksize = YYINITDEPTH;
  822.  
  823.  
  824.   /* The variables used to return semantic value and location from the
  825.      action routines.  */
  826.   YYSTYPE yyval;
  827. #if YYLSP_NEEDED
  828.   YYLTYPE yyloc;
  829. #endif
  830.  
  831.   /* When reducing, the number of symbols on the RHS of the reduced
  832.      rule. */
  833.   int yylen;
  834.  
  835.   YYDPRINTF ((stderr, "Starting parse\n"));
  836.  
  837.   yystate = 0;
  838.   yyerrstatus = 0;
  839.   yynerrs = 0;
  840.   yychar = YYEMPTY;             /* Cause a token to be read.  */
  841.  
  842.   /* Initialize stack pointers.
  843.      Waste one element of value and location stack
  844.      so that they stay on the same level as the state stack.
  845.      The wasted elements are never initialized.  */
  846.  
  847.   yyssp = yyss;
  848.   yyvsp = yyvs;
  849. #if YYLSP_NEEDED
  850.   yylsp = yyls;
  851. #endif
  852.   goto yysetstate;
  853.  
  854. /*------------------------------------------------------------.
  855. | yynewstate -- Push a new state, which is found in yystate.  |
  856. `------------------------------------------------------------*/
  857.  yynewstate:
  858.   /* In all cases, when you get here, the value and location stacks
  859.      have just been pushed. so pushing a state here evens the stacks.
  860.      */
  861.   yyssp++;
  862.  
  863.  yysetstate:
  864.   *yyssp = yystate;
  865.  
  866.   if (yyssp >= yyss + yystacksize - 1)
  867.     {
  868.       /* Get the current used size of the three stacks, in elements.  */
  869.       YYSIZE_T yysize = yyssp - yyss + 1;
  870.  
  871. #ifdef yyoverflow
  872.       {
  873.         /* Give user a chance to reallocate the stack. Use copies of
  874.            these so that the &'s don't force the real ones into
  875.            memory.  */
  876.         YYSTYPE *yyvs1 = yyvs;
  877.         short *yyss1 = yyss;
  878.  
  879.         /* Each stack pointer address is followed by the size of the
  880.            data in use in that stack, in bytes.  */
  881. # if YYLSP_NEEDED
  882.         YYLTYPE *yyls1 = yyls;
  883.         /* This used to be a conditional around just the two extra args,
  884.            but that might be undefined if yyoverflow is a macro.  */
  885.         yyoverflow ("parser stack overflow",
  886.                     &yyss1, yysize * sizeof (*yyssp),
  887.                     &yyvs1, yysize * sizeof (*yyvsp),
  888.                     &yyls1, yysize * sizeof (*yylsp),
  889.                     &yystacksize);
  890.         yyls = yyls1;
  891. # else
  892.         yyoverflow ("parser stack overflow",
  893.                     &yyss1, yysize * sizeof (*yyssp),
  894.                     &yyvs1, yysize * sizeof (*yyvsp),
  895.                     &yystacksize);
  896. # endif
  897.         yyss = yyss1;
  898.         yyvs = yyvs1;
  899.       }
  900. #else /* no yyoverflow */
  901. # ifndef YYSTACK_RELOCATE
  902.       goto yyoverflowlab;
  903. # else
  904.       /* Extend the stack our own way.  */
  905.       if (yystacksize >= YYMAXDEPTH)
  906.         goto yyoverflowlab;
  907.       yystacksize *= 2;
  908.       if (yystacksize > YYMAXDEPTH)
  909.         yystacksize = YYMAXDEPTH;
  910.  
  911.       {
  912.         short *yyss1 = yyss;
  913.         union yyalloc *yyptr =
  914.           (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
  915.         if (! yyptr)
  916.           goto yyoverflowlab;
  917.         YYSTACK_RELOCATE (yyss);
  918.         YYSTACK_RELOCATE (yyvs);
  919. # if YYLSP_NEEDED
  920.         YYSTACK_RELOCATE (yyls);
  921. # endif
  922. # undef YYSTACK_RELOCATE
  923.         if (yyss1 != yyssa)
  924.           YYSTACK_FREE (yyss1);
  925.       }
  926. # endif
  927. #endif /* no yyoverflow */
  928.  
  929.       yyssp = yyss + yysize - 1;
  930.       yyvsp = yyvs + yysize - 1;
  931. #if YYLSP_NEEDED
  932.       yylsp = yyls + yysize - 1;
  933. #endif
  934.  
  935.       YYDPRINTF ((stderr, "Stack size increased to %lu\n",
  936.                   (unsigned long int) yystacksize));
  937.  
  938.       if (yyssp >= yyss + yystacksize - 1)
  939.         YYABORT;
  940.     }
  941.  
  942.   YYDPRINTF ((stderr, "Entering state %d\n", yystate));
  943.  
  944.   goto yybackup;
  945.  
  946.  
  947. /*-----------.
  948. | yybackup.  |
  949. `-----------*/
  950. yybackup:
  951.  
  952. /* Do appropriate processing given the current state.  */
  953. /* Read a lookahead token if we need one and don't already have one.  */
  954. /* yyresume: */
  955.  
  956.   /* First try to decide what to do without reference to lookahead token.  */
  957.  
  958.   yyn = yypact[yystate];
  959.   if (yyn == YYFLAG)
  960.     goto yydefault;
  961.  
  962.   /* Not known => get a lookahead token if don't already have one.  */
  963.  
  964.   /* yychar is either YYEMPTY or YYEOF
  965.      or a valid token in external form.  */
  966.  
  967.   if (yychar == YYEMPTY)
  968.     {
  969.       YYDPRINTF ((stderr, "Reading a token: "));
  970.       yychar = YYLEX;
  971.     }
  972.  
  973.   /* Convert token to internal form (in yychar1) for indexing tables with */
  974.  
  975.   if (yychar <= 0)              /* This means end of input. */
  976.     {
  977.       yychar1 = 0;
  978.       yychar = YYEOF;           /* Don't call YYLEX any more */
  979.  
  980.       YYDPRINTF ((stderr, "Now at end of input.\n"));
  981.     }
  982.   else
  983.     {
  984.       yychar1 = YYTRANSLATE (yychar);
  985.  
  986. #if YYDEBUG
  987.      /* We have to keep this `#if YYDEBUG', since we use variables
  988.         which are defined only if `YYDEBUG' is set.  */
  989.       if (yydebug)
  990.         {
  991.           YYFPRINTF (stderr, "Next token is %d (%s",
  992.                      yychar, yytname[yychar1]);
  993.           /* Give the individual parser a way to print the precise
  994.              meaning of a token, for further debugging info.  */
  995. # ifdef YYPRINT
  996.           YYPRINT (stderr, yychar, yylval);
  997. # endif
  998.           YYFPRINTF (stderr, ")\n");
  999.         }
  1000. #endif
  1001.     }
  1002.  
  1003.   yyn += yychar1;
  1004.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1005.     goto yydefault;
  1006.  
  1007.   yyn = yytable[yyn];
  1008.  
  1009.   /* yyn is what to do for this token type in this state.
  1010.      Negative => reduce, -yyn is rule number.
  1011.      Positive => shift, yyn is new state.
  1012.        New state is final state => don't bother to shift,
  1013.        just return success.
  1014.      0, or most negative number => error.  */
  1015.  
  1016.   if (yyn < 0)
  1017.     {
  1018.       if (yyn == YYFLAG)
  1019.         goto yyerrlab;
  1020.       yyn = -yyn;
  1021.       goto yyreduce;
  1022.     }
  1023.   else if (yyn == 0)
  1024.     goto yyerrlab;
  1025.  
  1026.   if (yyn == YYFINAL)
  1027.     YYACCEPT;
  1028.  
  1029.   /* Shift the lookahead token.  */
  1030.   YYDPRINTF ((stderr, "Shifting token %d (%s), ",
  1031.               yychar, yytname[yychar1]));
  1032.  
  1033.   /* Discard the token being shifted unless it is eof.  */
  1034.   if (yychar != YYEOF)
  1035.     yychar = YYEMPTY;
  1036.  
  1037.   *++yyvsp = yylval;
  1038. #if YYLSP_NEEDED
  1039.   *++yylsp = yylloc;
  1040. #endif
  1041.  
  1042.   /* Count tokens shifted since error; after three, turn off error
  1043.      status.  */
  1044.   if (yyerrstatus)
  1045.     yyerrstatus--;
  1046.  
  1047.   yystate = yyn;
  1048.   goto yynewstate;
  1049.  
  1050.  
  1051. /*-----------------------------------------------------------.
  1052. | yydefault -- do the default action for the current state.  |
  1053. `-----------------------------------------------------------*/
  1054. yydefault:
  1055.   yyn = yydefact[yystate];
  1056.   if (yyn == 0)
  1057.     goto yyerrlab;
  1058.   goto yyreduce;
  1059.  
  1060.  
  1061. /*-----------------------------.
  1062. | yyreduce -- Do a reduction.  |
  1063. `-----------------------------*/
  1064. yyreduce:
  1065.   /* yyn is the number of a rule to reduce with.  */
  1066.   yylen = yyr2[yyn];
  1067.  
  1068.   /* If YYLEN is nonzero, implement the default value of the action:
  1069.      `$$ = $1'.
  1070.  
  1071.      Otherwise, the following line sets YYVAL to the semantic value of
  1072.      the lookahead token.  This behavior is undocumented and Bison
  1073.      users should not rely upon it.  Assigning to YYVAL
  1074.      unconditionally makes the parser a bit smaller, and it avoids a
  1075.      GCC warning that YYVAL may be used uninitialized.  */
  1076.   yyval = yyvsp[1-yylen];
  1077.  
  1078. #if YYLSP_NEEDED
  1079.   /* Similarly for the default location.  Let the user run additional
  1080.      commands if for instance locations are ranges.  */
  1081.   yyloc = yylsp[1-yylen];
  1082.   YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen);
  1083. #endif
  1084.  
  1085. #if YYDEBUG
  1086.   /* We have to keep this `#if YYDEBUG', since we use variables which
  1087.      are defined only if `YYDEBUG' is set.  */
  1088.   if (yydebug)
  1089.     {
  1090.       int yyi;
  1091.  
  1092.       YYFPRINTF (stderr, "Reducing via rule %d (line %d), ",
  1093.                  yyn, yyrline[yyn]);
  1094.  
  1095.       /* Print the symbols being reduced, and their result.  */
  1096.       for (yyi = yyprhs[yyn]; yyrhs[yyi] > 0; yyi++)
  1097.         YYFPRINTF (stderr, "%s ", yytname[yyrhs[yyi]]);
  1098.       YYFPRINTF (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  1099.     }
  1100. #endif
  1101.  
  1102.   switch (yyn) {
  1103.  
  1104. case 1:
  1105. #line 180 "unites.y"
  1106. {result = yyvsp[0];;
  1107.     break;}
  1108. case 2:
  1109. #line 181 "unites.y"
  1110. {result = yyvsp[0];;
  1111.     break;}
  1112. case 3:
  1113. #line 184 "unites.y"
  1114. {
  1115.   int i;
  1116.   for(i=0; i < BU_LAST; i++){
  1117.     if (yyvsp[-2].base[i] != yyvsp[0].base[i]) yyerror ("not homogeneous units");
  1118.   }
  1119.   if (yyvsp[-2].multip <= yyvsp[0].maxmultip) yyerror ("incorrect mutiple units ordering");
  1120.   yyval.val=yyvsp[-2].val*yyvsp[-2].multip+yyvsp[0].val*yyvsp[0].multip;
  1121.   yyval.multip=1; yyval.maxmultip = yyvsp[-2].multip;
  1122. ;
  1123.     break;}
  1124. case 4:
  1125. #line 193 "unites.y"
  1126. {yyval=yyvsp[0]; yyval.maxmultip=yyvsp[0].multip;;
  1127.     break;}
  1128. case 5:
  1129. #line 196 "unites.y"
  1130. {yyval=yyvsp[0]; yyval.val=val_real; yyval.signif=0;;
  1131.     break;}
  1132. case 6:
  1133. #line 197 "unites.y"
  1134. {
  1135.   yyval=yyvsp[-1]; yyval.val=val_real;
  1136.   yyval.signif=val_int;
  1137. ;
  1138.     break;}
  1139. case 7:
  1140. #line 203 "unites.y"
  1141. {
  1142.   int i;
  1143.   yyval=yyvsp[0];
  1144.   yyval.val=val_real;
  1145.   for (i=0; i < BU_LAST; i++){yyval.base[i]=unites[TUnull].base[i];}
  1146.   yyval.multip=1.0;
  1147.   yyval.signif=0;
  1148. ;
  1149.     break;}
  1150. case 8:
  1151. #line 211 "unites.y"
  1152. {
  1153.   int i;
  1154.   yyval=yyvsp[-1];
  1155.   yyval.val=val_real;
  1156.   for (i=0; i < BU_LAST; i++){yyval.base[i]=unites[TUnull].base[i];}
  1157.   yyval.multip=1.0;
  1158.   yyval.signif=val_int;
  1159. ;
  1160.     break;}
  1161. case 11:
  1162. #line 225 "unites.y"
  1163. {
  1164.   int index;
  1165.   yyval.unite = TU_LAST; /* unité non renseignée */
  1166.   strncpy(buffer,yyvsp[-1].s,MAXBUF);
  1167.   strncat(buffer,yyvsp[0].s,MAXBUF-strlen(yyvsp[0].s));
  1168.   free(yyvsp[-1].s); free(yyvsp[0].s);
  1169.   yyval.s=strdup(buffer);
  1170.   for(index=0; index< BU_LAST; index++){
  1171.     yyval.base[index] = yyvsp[-1].base[index]+yyvsp[0].base[index] ;
  1172.   }
  1173.   yyval.multip = yyvsp[-1].multip*yyvsp[0].multip;
  1174. ;
  1175.     break;}
  1176. case 12:
  1177. #line 237 "unites.y"
  1178. { yyval=yyvsp[0]; ;
  1179.     break;}
  1180. case 13:
  1181. #line 240 "unites.y"
  1182. {
  1183.   yyval=yyvsp[0]; strncpy(buffer,".",MAXBUF);
  1184.   strncat(buffer,yyvsp[0].s,MAXBUF-strlen(yyvsp[0].s));
  1185.   free(yyvsp[0].s);
  1186.   yyval.s=strdup(buffer);
  1187. ;
  1188.     break;}
  1189. case 14:
  1190. #line 246 "unites.y"
  1191. {
  1192.   int index;
  1193.   yyval=yyvsp[0];
  1194.   yyval.multip = 1/ yyval.multip;
  1195.   strncpy(buffer,"/",MAXBUF);
  1196.   strncat(buffer,yyvsp[0].s,MAXBUF-strlen(yyvsp[0].s));
  1197.   free(yyvsp[0].s);
  1198.   yyval.s=strdup(buffer);
  1199.   for(index=0; index< BU_LAST; index++){
  1200.     yyval.base[index] *= -1;
  1201.   }
  1202. ;
  1203.     break;}
  1204. case 16:
  1205. #line 264 "unites.y"
  1206. {
  1207.   yyval=yyvsp[0];
  1208.   strncpy(buffer,"m",MAXBUF);
  1209.   strncat(buffer,yyvsp[0].s,MAXBUF-strlen(yyvsp[0].s));
  1210.   free(yyvsp[0].s);
  1211.   yyval.s = strdup(buffer); yyval.multip*=1e-3;
  1212. ;
  1213.     break;}
  1214. case 17:
  1215. #line 271 "unites.y"
  1216. {
  1217.   yyval=yyvsp[0];
  1218.   strncpy(buffer,"T",MAXBUF);
  1219.   strncat(buffer,yyvsp[0].s,MAXBUF-strlen(yyvsp[0].s));
  1220.   free(yyvsp[0].s);
  1221.   yyval.s = strdup(buffer); yyval.multip*=1e12;
  1222. ;
  1223.     break;}
  1224. case 18:
  1225. #line 278 "unites.y"
  1226. {
  1227.   yyval=yyvsp[0];
  1228.   strncpy(buffer,"h",MAXBUF);
  1229.   strncat(buffer,yyvsp[0].s,MAXBUF-strlen(yyvsp[0].s));
  1230.   free(yyvsp[0].s);
  1231.   yyval.s = strdup(buffer); yyval.multip*=1e2;
  1232. ;
  1233.     break;}
  1234. case 19:
  1235. #line 285 "unites.y"
  1236. {
  1237.   yyval=yyvsp[0];
  1238.   strncpy(buffer, yyvsp[-1].s,MAXBUF);
  1239.   strncat(buffer, yyvsp[0].s, MAXBUF-strlen(yyvsp[0].s));
  1240.   free(yyvsp[-1].s); free(yyvsp[0].s);yyval.s=strdup(buffer);
  1241.   yyval.multip*=yyvsp[-1].multip;
  1242.   ;
  1243.     break;}
  1244. case 20:
  1245. #line 292 "unites.y"
  1246. {
  1247.   yyval=yyvsp[0];
  1248. ;
  1249.     break;}
  1250. case 21:
  1251. #line 297 "unites.y"
  1252. {
  1253.   int index;
  1254.   double r;
  1255.  
  1256.   yyval.i=yyvsp[0].i;
  1257.   strncpy(buffer, yyvsp[-1].s,MAXBUF);
  1258.   if (yyvsp[0].i!=1){
  1259.     strncat(buffer, "^{%d}",MAXBUF-strlen( "^{%d}"));
  1260.     sprintf(buffer2, buffer, yyvsp[0].i);
  1261.   }
  1262.   else strncpy(buffer2,buffer,MAXBUF);
  1263.   yyval.s=strdup(buffer2); free(yyvsp[-1].s);
  1264.   for(index=0; index< BU_LAST; index++){
  1265.     yyval.base[index] = unites[yyvsp[-1].unite].base[index]*yyvsp[0].i;
  1266.   }
  1267.   for(index=0, r=1; index<yyvsp[0].i ; index++){
  1268.     r*= yyval.multip;
  1269.   }
  1270.   yyval.multip=r;
  1271. ;
  1272.     break;}
  1273. case 22:
  1274. #line 319 "unites.y"
  1275. {yyval.i=1;;
  1276.     break;}
  1277. case 23:
  1278. #line 320 "unites.y"
  1279. {yyval.i = atoi(yytext);;
  1280.     break;}
  1281. case 24:
  1282. #line 324 "unites.y"
  1283. {yyval.s = strdup(yytext); yyval.multip=1.0;
  1284.  switch (yytext[0]){
  1285.  case 'y' : yyval.multip = 1e-24; break;
  1286.  case 'z' : yyval.multip = 1e-21; break;
  1287.  case 'a' : yyval.multip = 1e-18; break;
  1288.  case 'f' : yyval.multip = 1e-15; break;
  1289.  case 'p' : yyval.multip = 1e-12; break;
  1290.  case 'n' : yyval.multip = 1e-9; break;
  1291.  case 'µ' : yyval.multip = 1e-6; break;
  1292.  case 'c' : yyval.multip = 1e-2; break;
  1293.  case 'd' : if (!strcmp (yytext,"da") ) yyval.multip = 10.0;
  1294.     else yyval.multip = 0.1; break;
  1295.  case 'h' : yyval.multip = 1e2; break;
  1296.  case 'k' : yyval.multip = 1e3; break;
  1297.  case 'M' : yyval.multip = 1e6; break;
  1298.  case 'G' : yyval.multip = 1e9; break;
  1299.  case 'P' : yyval.multip = 1e15; break;
  1300.  case 'E' : yyval.multip = 1e18; break;
  1301.  case 'Z' : yyval.multip = 1e21; break;
  1302.  case 'Y': yyval.multip = 1e24; break;
  1303.  }
  1304. ;
  1305.     break;}
  1306. case 25:
  1307. #line 349 "unites.y"
  1308. {yyval.unite=TUh; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1309.     break;}
  1310. case 26:
  1311. #line 350 "unites.y"
  1312. {yyval.unite=TUmin; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1313.     break;}
  1314. case 27:
  1315. #line 351 "unites.y"
  1316. {yyval.unite=TUm; yyval.s = strdup("m"); yyval.multip=unites[yyval.unite].multiplicateur;;
  1317.     break;}
  1318. case 28:
  1319. #line 352 "unites.y"
  1320. {yyval.unite=TUg; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1321.     break;}
  1322. case 29:
  1323. #line 353 "unites.y"
  1324. {yyval.unite=TUs; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1325.     break;}
  1326. case 30:
  1327. #line 354 "unites.y"
  1328. { yyval.unite = TUA; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1329.     break;}
  1330. case 31:
  1331. #line 355 "unites.y"
  1332. { yyval.unite = TUK; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1333.     break;}
  1334. case 32:
  1335. #line 356 "unites.y"
  1336. { yyval.unite = TUmol; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1337.     break;}
  1338. case 33:
  1339. #line 357 "unites.y"
  1340. { yyval.unite = TUcd; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1341.     break;}
  1342. case 34:
  1343. #line 358 "unites.y"
  1344. { yyval.unite = TUHz; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1345.     break;}
  1346. case 35:
  1347. #line 359 "unites.y"
  1348. { yyval.unite = TUN; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1349.     break;}
  1350. case 36:
  1351. #line 360 "unites.y"
  1352. { yyval.unite = TUPa; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1353.     break;}
  1354. case 37:
  1355. #line 361 "unites.y"
  1356. { yyval.unite = TUJ; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1357.     break;}
  1358. case 38:
  1359. #line 362 "unites.y"
  1360. { yyval.unite = TUT; yyval.s = strdup("T"); yyval.multip=unites[yyval.unite].multiplicateur;;
  1361.     break;}
  1362. case 39:
  1363. #line 363 "unites.y"
  1364. { yyval.unite = TUW; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1365.     break;}
  1366. case 40:
  1367. #line 364 "unites.y"
  1368. { yyval.unite = TUC; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1369.     break;}
  1370. case 41:
  1371. #line 365 "unites.y"
  1372. { yyval.unite = TUV; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1373.     break;}
  1374. case 42:
  1375. #line 366 "unites.y"
  1376. { yyval.unite = TUohm; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1377.     break;}
  1378. case 43:
  1379. #line 367 "unites.y"
  1380. { yyval.unite = TUS; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1381.     break;}
  1382. case 44:
  1383. #line 368 "unites.y"
  1384. { yyval.unite = TUF; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1385.     break;}
  1386. case 45:
  1387. #line 369 "unites.y"
  1388. { yyval.unite = TUWb; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1389.     break;}
  1390. case 46:
  1391. #line 370 "unites.y"
  1392. { yyval.unite = TUH; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1393.     break;}
  1394. case 47:
  1395. #line 371 "unites.y"
  1396. { yyval.unite = TUlm; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1397.     break;}
  1398. case 48:
  1399. #line 372 "unites.y"
  1400. { yyval.unite = TUlx; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1401.     break;}
  1402. case 49:
  1403. #line 373 "unites.y"
  1404. { yyval.unite = TUBq; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1405.     break;}
  1406. case 50:
  1407. #line 374 "unites.y"
  1408. { yyval.unite = TUGy; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1409.     break;}
  1410. case 51:
  1411. #line 375 "unites.y"
  1412. { yyval.unite = TUSv; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1413.     break;}
  1414. case 52:
  1415. #line 376 "unites.y"
  1416. { yyval.unite = TUrad; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1417.     break;}
  1418. case 53:
  1419. #line 377 "unites.y"
  1420. { yyval.unite = TUsr; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1421.     break;}
  1422. case 54:
  1423. #line 378 "unites.y"
  1424. { yyval.unite = TUda; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1425.     break;}
  1426. case 55:
  1427. #line 379 "unites.y"
  1428. { yyval.unite = TUma; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1429.     break;}
  1430. case 56:
  1431. #line 380 "unites.y"
  1432. { yyval.unite = TUsa; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1433.     break;}
  1434. case 57:
  1435. #line 381 "unites.y"
  1436. { yyval.unite = TUangs; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1437.     break;}
  1438. case 58:
  1439. #line 382 "unites.y"
  1440. { yyval.unite = TUbarn; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1441.     break;}
  1442. case 59:
  1443. #line 383 "unites.y"
  1444. { yyval.unite = TUare; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1445.     break;}
  1446. case 60:
  1447. #line 384 "unites.y"
  1448. { yyval.unite = TUl; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1449.     break;}
  1450. case 61:
  1451. #line 385 "unites.y"
  1452. { yyval.unite = TUt; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1453.     break;}
  1454. case 62:
  1455. #line 386 "unites.y"
  1456. { yyval.unite = TUbar; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1457.     break;}
  1458. case 63:
  1459. #line 387 "unites.y"
  1460. { yyval.unite = TUeV; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1461.     break;}
  1462. case 64:
  1463. #line 388 "unites.y"
  1464. { yyval.unite = TUuam; yyval.s = strdup(yytext); yyval.multip=unites[yyval.unite].multiplicateur;;
  1465.     break;}
  1466. }
  1467.  
  1468. #line 705 "/usr/share/bison/bison.simple"
  1469.  
  1471.   yyvsp -= yylen;
  1472.   yyssp -= yylen;
  1473. #if YYLSP_NEEDED
  1474.   yylsp -= yylen;
  1475. #endif
  1476.  
  1477. #if YYDEBUG
  1478.   if (yydebug)
  1479.     {
  1480.       short *yyssp1 = yyss - 1;
  1481.       YYFPRINTF (stderr, "state stack now");
  1482.       while (yyssp1 != yyssp)
  1483.         YYFPRINTF (stderr, " %d", *++yyssp1);
  1484.       YYFPRINTF (stderr, "\n");
  1485.     }
  1486. #endif
  1487.  
  1488.   *++yyvsp = yyval;
  1489. #if YYLSP_NEEDED
  1490.   *++yylsp = yyloc;
  1491. #endif
  1492.  
  1493.   /* Now `shift' the result of the reduction.  Determine what state
  1494.      that goes to, based on the state we popped back to and the rule
  1495.      number reduced by.  */
  1496.  
  1497.   yyn = yyr1[yyn];
  1498.  
  1499.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  1500.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  1501.     yystate = yytable[yystate];
  1502.   else
  1503.     yystate = yydefgoto[yyn - YYNTBASE];
  1504.  
  1505.   goto yynewstate;
  1506.  
  1507.  
  1508. /*------------------------------------.
  1509. | yyerrlab -- here on detecting error |
  1510. `------------------------------------*/
  1511. yyerrlab:
  1512.   /* If not already recovering from an error, report this error.  */
  1513.   if (!yyerrstatus)
  1514.     {
  1515.       ++yynerrs;
  1516.  
  1517. #ifdef YYERROR_VERBOSE
  1518.       yyn = yypact[yystate];
  1519.  
  1520.       if (yyn > YYFLAG && yyn < YYLAST)
  1521.         {
  1522.           YYSIZE_T yysize = 0;
  1523.           char *yymsg;
  1524.           int yyx, yycount;
  1525.  
  1526.           yycount = 0;
  1527.           /* Start YYX at -YYN if negative to avoid negative indexes in
  1528.              YYCHECK.  */
  1529.           for (yyx = yyn < 0 ? -yyn : 0;
  1530.                yyx < (int) (sizeof (yytname) / sizeof (char *)); yyx++)
  1531.             if (yycheck[yyx + yyn] == yyx)
  1532.               yysize += yystrlen (yytname[yyx]) + 15, yycount++;
  1533.           yysize += yystrlen ("parse error, unexpected ") + 1;
  1534.           yysize += yystrlen (yytname[YYTRANSLATE (yychar)]);
  1535.           yymsg = (char *) YYSTACK_ALLOC (yysize);
  1536.           if (yymsg != 0)
  1537.             {
  1538.               char *yyp = yystpcpy (yymsg, "parse error, unexpected ");
  1539.               yyp = yystpcpy (yyp, yytname[YYTRANSLATE (yychar)]);
  1540.  
  1541.               if (yycount < 5)
  1542.                 {
  1543.                   yycount = 0;
  1544.                   for (yyx = yyn < 0 ? -yyn : 0;
  1545.                        yyx < (int) (sizeof (yytname) / sizeof (char *));
  1546.                        yyx++)
  1547.                     if (yycheck[yyx + yyn] == yyx)
  1548.                       {
  1549.                         const char *yyq = ! yycount ? ", expecting " : " or ";
  1550.                         yyp = yystpcpy (yyp, yyq);
  1551.                         yyp = yystpcpy (yyp, yytname[yyx]);
  1552.                         yycount++;
  1553.                       }
  1554.                 }
  1555.               yyerror (yymsg);
  1556.               YYSTACK_FREE (yymsg);
  1557.             }
  1558.           else
  1559.             yyerror ("parse error; also virtual memory exhausted");
  1560.         }
  1561.       else
  1562. #endif /* defined (YYERROR_VERBOSE) */
  1563.         yyerror ("parse error");
  1564.     }
  1565.   goto yyerrlab1;
  1566.  
  1567.  
  1568. /*--------------------------------------------------.
  1569. | yyerrlab1 -- error raised explicitly by an action |
  1570. `--------------------------------------------------*/
  1571. yyerrlab1:
  1572.   if (yyerrstatus == 3)
  1573.     {
  1574.       /* If just tried and failed to reuse lookahead token after an
  1575.          error, discard it.  */
  1576.  
  1577.       /* return failure if at end of input */
  1578.       if (yychar == YYEOF)
  1579.         YYABORT;
  1580.       YYDPRINTF ((stderr, "Discarding token %d (%s).\n",
  1581.                   yychar, yytname[yychar1]));
  1582.       yychar = YYEMPTY;
  1583.     }
  1584.  
  1585.   /* Else will try to reuse lookahead token after shifting the error
  1586.      token.  */
  1587.  
  1588.   yyerrstatus = 3;              /* Each real token shifted decrements this */
  1589.  
  1590.   goto yyerrhandle;
  1591.  
  1592.  
  1593. /*-------------------------------------------------------------------.
  1594. | yyerrdefault -- current state does not do anything special for the |
  1595. | error token.                                                       |
  1596. `-------------------------------------------------------------------*/
  1597. yyerrdefault:
  1598. #if 0
  1599.   /* This is wrong; only states that explicitly want error tokens
  1600.      should shift them.  */
  1601.  
  1602.   /* If its default is to accept any token, ok.  Otherwise pop it.  */
  1603.   yyn = yydefact[yystate];
  1604.   if (yyn)
  1605.     goto yydefault;
  1606. #endif
  1607.  
  1608.  
  1609. /*---------------------------------------------------------------.
  1610. | yyerrpop -- pop the current state because it cannot handle the |
  1611. | error token                                                    |
  1612. `---------------------------------------------------------------*/
  1613. yyerrpop:
  1614.   if (yyssp == yyss)
  1615.     YYABORT;
  1616.   yyvsp--;
  1617.   yystate = *--yyssp;
  1618. #if YYLSP_NEEDED
  1619.   yylsp--;
  1620. #endif
  1621.  
  1622. #if YYDEBUG
  1623.   if (yydebug)
  1624.     {
  1625.       short *yyssp1 = yyss - 1;
  1626.       YYFPRINTF (stderr, "Error: state stack now");
  1627.       while (yyssp1 != yyssp)
  1628.         YYFPRINTF (stderr, " %d", *++yyssp1);
  1629.       YYFPRINTF (stderr, "\n");
  1630.     }
  1631. #endif
  1632.  
  1633. /*--------------.
  1634. | yyerrhandle.  |
  1635. `--------------*/
  1636. yyerrhandle:
  1637.   yyn = yypact[yystate];
  1638.   if (yyn == YYFLAG)
  1639.     goto yyerrdefault;
  1640.  
  1641.   yyn += YYTERROR;
  1642.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  1643.     goto yyerrdefault;
  1644.  
  1645.   yyn = yytable[yyn];
  1646.   if (yyn < 0)
  1647.     {
  1648.       if (yyn == YYFLAG)
  1649.         goto yyerrpop;
  1650.       yyn = -yyn;
  1651.       goto yyreduce;
  1652.     }
  1653.   else if (yyn == 0)
  1654.     goto yyerrpop;
  1655.  
  1656.   if (yyn == YYFINAL)
  1657.     YYACCEPT;
  1658.  
  1659.   YYDPRINTF ((stderr, "Shifting error token, "));
  1660.  
  1661.   *++yyvsp = yylval;
  1662. #if YYLSP_NEEDED
  1663.   *++yylsp = yylloc;
  1664. #endif
  1665.  
  1666.   yystate = yyn;
  1667.   goto yynewstate;
  1668.  
  1669.  
  1670. /*-------------------------------------.
  1671. | yyacceptlab -- YYACCEPT comes here.  |
  1672. `-------------------------------------*/
  1673. yyacceptlab:
  1674.   yyresult = 0;
  1675.   goto yyreturn;
  1676.  
  1677. /*-----------------------------------.
  1678. | yyabortlab -- YYABORT comes here.  |
  1679. `-----------------------------------*/
  1680. yyabortlab:
  1681.   yyresult = 1;
  1682.   goto yyreturn;
  1683.  
  1684. /*---------------------------------------------.
  1685. | yyoverflowab -- parser overflow comes here.  |
  1686. `---------------------------------------------*/
  1687. yyoverflowlab:
  1688.   yyerror ("parser stack overflow");
  1689.   yyresult = 2;
  1690.   /* Fall through.  */
  1691.  
  1692. yyreturn:
  1693. #ifndef yyoverflow
  1694.   if (yyss != yyssa)
  1695.     YYSTACK_FREE (yyss);
  1696. #endif
  1697.   return yyresult;
  1698. }
  1699. #line 393 "unites.y"
  1700.  
  1701.  
  1702. #include "lex.yy.c"
  1703. /* le programme lui-même */
  1704.  
  1705. inline int yyerror(char * msg){
  1706.   printf("ERROR at %ld : %s\n", pos, msg);
  1707.   exit(1);
  1708. }
  1709.  
  1710. void test_verbeux(){
  1711.   int i;
  1712.   yyparse();
  1713.   if (result.s) {
  1714.     if (result.unite == TU_LAST){
  1715.       printf("%s %g SI (équation aux dimensions : ", result.s,
  1716.              result.multip*result.val );
  1717.       for (i=0; i<BU_LAST; i++){
  1718.         printf("%3d", result.base[i]);
  1719.       }
  1720.       printf(")\n");
  1721.     }
  1722.     else {
  1723.       if (result.i!=1)
  1724.         printf ("%s (%g %s)^{%d}\n", result.s,
  1725.                 result.multip*result.val,
  1726.                 unites[result.unite].nom, result.i);
  1727.       else printf("%s %g %s\n", result.s,
  1728.                   result.multip*result.val,
  1729.                   unites[result.unite].nom);
  1730.     }
  1731.   }
  1732.   else fprintf(stderr, "problème : result.s = null\n");
  1733. }
  1734.  
  1735. void sortie_normalisee(){
  1736.   /***************************************************/
  1737.   /* le format des données en sortie est :           */
  1738.   /* double int int int int int int int              */
  1739.   /* et signifie  dans l'ordre                       */
  1740.   /***************************************************/
  1741.   /* valeur                                          */
  1742.   /* puissance en unité de longueur (m)              */
  1743.   /* puissance en unité de masse (kg)                */
  1744.   /* puissance en unité de temps (s)                 */
  1745.   /* puissance en unité de courant (A)               */
  1746.   /* puissance en unité de température (K)           */
  1747.   /* puissance en unité de quantité de matière (mol) */
  1748.   /* puissance en unité de inutensité lumineuse (cd) */
  1749.   /* nombre de chiffres significatifs                */
  1750.   /* un zéro pour des extensions futures             */
  1751.   /***************************************************/
  1752.   int i,s=0;
  1753.  
  1754.   yyparse();
  1755.   printf("%g", result.multip*result.val );
  1756.   if (count_signif){ //il faut prendre en compte les nombres significatifs
  1757.     if (!result.signif) {
  1758.       s=significative(result.v);
  1759.     } else {
  1760.       s=result.signif;
  1761.     }
  1762.   }
  1763.   for (i=0; i<BU_LAST; i++){
  1764.     printf(" %3d", result.base[i]);
  1765.   }
  1766.   printf("    %d    0\n",s);
  1767. }
  1768.  
  1769. void sortie_texte(){
  1770.   /***************************************************/
  1771.   /* le format des données en sortie est :           */
  1772.   /* double string                                   */
  1773.   /* et signifie  dans l'ordre                       */
  1774.   /***************************************************/
  1775.   /* valeur  (compte tenu des ciffres significatifs) */
  1776.   /* unité   (SI)                                    */
  1777.   /***************************************************/
  1778.   int i,j,
  1779.     s=0,
  1780.     notfirst=0,
  1781.     trouve=0,
  1782.     nb_pref=sizeof(pref_units)/sizeof(pref_units[0]);
  1783.  
  1784.   yyparse();
  1785.   if (!result.signif) {
  1786.     s=significative(result.v);
  1787.   } else {
  1788.     s=result.signif;
  1789.   }
  1790.   // affiche la valeur
  1791.   if (s<=1){
  1792.     printf("%1.0e", result.multip*result.val );
  1793.   } else {
  1794.     printf("%1.*e", s-1,result.multip*result.val );
  1795.   }
  1796.   //affiche l'unité SI.
  1797.   //recherche s'il y a une unité préférentielle
  1798.   for (i=0; i<nb_pref; i++){
  1799.     trouve=(result.base[0]==pref_units[i].base[0]);
  1800.     for (j=1; j<BU_LAST; j++){
  1801.       trouve &= (result.base[j]==pref_units[i].base[j]);
  1802.     }
  1803.     if (trouve){
  1804.       printf("%s\n",pref_units[i].sym);
  1805.       return;
  1806.     }
  1807.   }
  1808.   for (i=0; i<BU_LAST; i++){
  1809.     if (result.base[i]!=0){
  1810.       if (notfirst) printf(".");
  1811.       printf("%s",unit_names[i]);
  1812.       notfirst=1;
  1813.       if (result.base[i]!=1){
  1814.         printf("^%d",result.base[i]);
  1815.       }
  1816.     }
  1817.   }
  1818.   printf("\n");
  1819. }
  1820.  
  1821. int main(int argc, char * argv[]){
  1822.   char * optstr = "os";
  1823.   int ch;
  1824.   while (-1 != (ch=getopt(argc,argv,optstr))){
  1825.     switch(ch){
  1826.     case 's':
  1827.       count_signif=1;
  1828.       sortie_normalisee();
  1829.       return 0;
  1830.       break;
  1831.     case 'o':
  1832.       sortie_texte();
  1833.       return 0;
  1834.       break;
  1835.     default:
  1836.       break;
  1837.     }
  1838.   }
  1839.   /*test_verbeux();*/
  1840.   sortie_normalisee();
  1841.   return 0;
  1842. }
  1843.