0031740: Configuration - recover support of Yacc and Lex generation
[occt.git] / src / StepFile / step.yacc
1 /* 
2  Copyright (c) 1999-2014 OPEN CASCADE SAS
3
4  This file is part of Open CASCADE Technology software library.
5
6  This library is free software; you can redistribute it and/or modify it under
7  the terms of the GNU Lesser General Public License version 2.1 as published
8  by the Free Software Foundation, with special exception defined in the file
9  OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10  distribution for complete text of the license and disclaimer of any warranty.
11
12  Alternatively, this file may be used under the terms of Open CASCADE
13  commercial license or contractual agreement.
14 */ 
15
16 %code top {
17 // This file is part of Open CASCADE Technology software library.
18 // This file is generated, do not modify it directly; edit source file step.yacc instead.
19 }
20
21 %token STEP HEADER ENDSEC DATA ENDSTEP SCOPE ENDSCOPE ENTITY TYPE INTEGER FLOAT IDENT TEXT NONDEF ENUM HEXA QUID
22 %start stepf
23 %{
24 #include "recfile.ph"           /* definitions des types d'arguments */
25 #include "recfile.pc"           /* la-dedans, tout y est */
26
27 #define stepclearin yychar = -1
28 #define steperrok yyerrflag = 0
29
30 // disable MSVC warnings in bison code
31 #ifdef _MSC_VER
32 #pragma warning(disable:4244 4131 4127 4702)
33 #define YYMALLOC malloc
34 #define YYFREE free
35 #endif
36
37 %}
38 %%
39 /*  N.B. : les commentaires sont filtres par LEX  */
40 /*  La fin vide (selon systeme emetteur) est filtree ici  */
41 finvide : ' '
42         | finvide ' ' ;
43 finstep : ENDSTEP
44         | ENDSTEP finvide ;
45 stepf1  : STEP HEADER headl ENDSEC endhead model ENDSEC finstep ;
46 stepf2  : STEP HEADER ENDSEC endhead model ENDSEC ENDSTEP ;
47 stepf3  : STEP HEADER ENDSEC endhead model error ;
48 stepf   : stepf1 | stepf2 | stepf3
49                 {  rec_finfile();  return(0);  /*  fini pour celui-la  */  }
50         ;
51 headl   : headent
52         | headl headent
53         ;
54 headent : enttype listarg ';'
55         | error                         /*  Erreur sur Entite : la sauter  */
56         ;
57 endhead : DATA
58         {  rec_finhead();  }
59         ;
60 unarg   : IDENT         {  rec_typarg(rec_argIdent);     rec_newarg();  }
61         | QUID          {  /* deja fait par lex*/        rec_newarg();  }
62         | listarg       /*  rec_newent lors du ')' */ {  rec_newarg();  }
63         | listype listarg  /*  liste typee  */        {  rec_newarg();  }
64         | error         {  rec_typarg(rec_argMisc);      rec_newarg();
65                            yyerrstatus = 1; yyclearin;  }
66 /*  Erreur sur Parametre : tacher de le noter sans jeter l'Entite  */
67         ;
68 listype : TYPE
69         {  rec_listype();  }
70         ;
71 deblist : '('
72         {  rec_deblist();  }
73         ;
74 finlist : ')'
75         {  if (modeprint > 0)
76                 {  printf("Record no : %d -- ",nbrec+1);  rec_print(currec);  }
77            rec_newent ();  yyerrstatus = 0; }
78         ;
79 listarg : deblist finlist               /* liste vide (peut y en avoir) */
80         | deblist arglist finlist       /* liste normale, non vide */
81         | deblist error
82         ;
83 arglist : unarg
84         | arglist ',' unarg
85         | arglist error
86         ;
87 model   : bloc
88         | model bloc
89         ;
90 bloc    : entlab '=' unent ';'
91         | entlab '=' debscop model finscop unent ';'
92         | entlab '=' debscop finscop unent ';'
93         | error                         /*  Erreur sur Entite : la sauter  */
94         ;
95 plex    : enttype listarg
96         | plex enttype listarg          /*    sert a ce qui suit :     */
97         ;
98 unent   : enttype listarg               /*    Entite de Type Simple    */
99         | '(' plex ')'                  /*    Entite de Type Complexe  */
100         ;
101 debscop : SCOPE
102         {  scope_debut();  }
103         ;
104 unid    : IDENT
105         {  rec_typarg(rec_argIdent);    rec_newarg();  }
106         ;
107 export  : unid
108         | export ',' unid
109         ;
110 debexp  : '/'
111         {  rec_deblist();  }
112         ;
113 finscop : ENDSCOPE
114         {  scope_fin();  }
115         | ENDSCOPE debexp export '/'
116         {  printf("***  Warning : Export List not yet processed\n");
117            rec_newent();  scope_fin() ; }
118                 /*  La liste Export est prise comme ARGUMENT du EndScope  */
119         ;
120 entlab  : ENTITY
121         {  rec_ident();  }
122         ;
123 enttype : TYPE
124         {  rec_type ();  }
125         ;