mngparser.ypp

   1 %{
   2         extern char *mngtext;
   3         extern void mngerror(char const *);
   4         #include "lex.mng.h"
   5         extern mngFlexLexer *mnglexer;
   6         int mnglex(void) { return mnglexer->yylex(); }
   7         #include <stdio.h>
   8         #include "mngfile.h"
   9         #include <list>
  10 %}
  11
  12 %union
  13 {
  14         float number;
  15         char *string;
  16         class MNGNode *node;
  17         class MNGExpression *expr;
  18         class MNGExpressionContainer *container;
  19         class MNGVariableNode *variable;
  20         class MNGVariableDecNode *variabledec;
  21         class MNGTrackDecNode *trackdec;
  22         class MNGEffectDecNode *effectdec;
  23         class MNGAssignmentNode *assignment;
  24         class MNGStageNode *stage;
  25         class MNGLayer *layer;
  26         std::list<class MNGAssignmentNode *> *assignmentarray;
  27         std::list<class MNGNode *> *array;
  28         std::list<class MNGStageNode *> *stagearray;
  29 }
  30
  31 %token MNG_Variable
  32 %token MNG_Effect
  33 %token MNG_Track
  34 %token MNG_Stage
  35 %token MNG_Pan
  36 %token MNG_Volume
  37 %token MNG_Delay
  38 %token MNG_TempoDelay
  39 %token MNG_Random
  40 %token MNG_FadeIn
  41 %token MNG_FadeOut
  42 %token MNG_BeatLength
  43 %token MNG_AleotoricLayer
  44 %token MNG_LoopLayer
  45 %token MNG_Update
  46 %token MNG_Add
  47 %token MNG_Subtract
  48 %token MNG_Multiply
  49 %token MNG_Divide
  50 %token MNG_SineWave
  51 %token MNG_CosineWave
  52 %token MNG_Voice
  53 %token MNG_Interval
  54 %token MNG_Condition
  55 %token MNG_BeatSynch
  56 %token MNG_UpdateRate
  57 %token MNG_Wave
  58 %token <number> MNG_number
  59 %token <string> MNG_name
  60 %token MNG_comment
  61
  62 %type <container> pan effectvolume layervolume tempodelay delay fadein fadeout beatlength beatsynch updaterate
  63 %type <node> stagesetting aleotoriclayerdec looplayerdec tracksetting wave effect interval updateblock voiceblock aleotoriclayercommand looplayercommand voicecommand condition
  64 %type <expr> expression add subtract multiply divide sinewave cosinewave random
  65 %type <variable> variable
  66 %type <array> stagesettinglist track aleotoriclayer looplayer voicecommands
  67 %type <assignment> assignment
  68 %type <assignmentarray> assignmentlist
  69 %type <variabledec> variabledec
  70 %type <effectdec> effectdec
  71 %type <trackdec> trackdec
  72 %type <stage> stage
  73 %type <stagearray> stagelist
  74
  75 %%
  76
  77 statementlist: statement { }
  78         | statementlist statement { }
  79 ;
  80
  81 statement: effectdec { g_mngfile->add($1); }
  82         | trackdec { g_mngfile->add($1); }
  83         | variabledec { g_mngfile->add($1); }
  84         | MNG_comment { }
  85 ;
  86
  87 variabledec: MNG_Variable '(' MNG_name ',' expression ')' { $$ = new MNGVariableDecNode($3, $5); }
  88 ;
  89
  90 effectdec: MNG_Effect '(' MNG_name ')' '{' stagelist '}' { $$ = new MNGEffectDecNode($3); ((MNGEffectDecNode *)$$)->children = $6; }
  91 ;
  92
  93 stagelist: stage { $$ = new std::list<MNGStageNode *>; if ($1) $$->push_back($1); }
  94         | stagelist stage { $$ = $1; if ($2) $$->push_back($2); }
  95 ;
  96
  97 stage: MNG_Stage '{' stagesettinglist '}' { $$ = new MNGStageNode(); ((MNGStageNode *)$$)->children = $3; }
  98         | MNG_comment { $$ = 0; }
  99 ;
 100
 101 stagesettinglist: stagesetting { $$ = new std::list<MNGNode *>; if ($1) $$->push_back($1); }
 102         | stagesettinglist stagesetting { $$ = $1; if ($2) $$->push_back($2); }
 103 ;
 104
 105 stagesetting: pan { $$ = $1; }
 106         | effectvolume { $$ = $1; }
 107         | delay { $$ = $1; }
 108         | tempodelay { $$ = $1; }
 109         | MNG_comment { $$ = 0; }
 110 ;
 111
 112 pan: MNG_Pan '(' expression ')' { $$ = new MNGPanNode($3); }
 113 ;
 114
 115 effectvolume: MNG_Volume '(' expression ')' { $$ = new MNGEffectVolumeNode($3); }
 116 ;
 117
 118 layervolume: MNG_Volume '(' expression ')' { $$ = new MNGLayerVolumeNode($3); }
 119 ;
 120
 121 delay: MNG_Delay '(' expression ')' { $$ = new MNGDelayNode($3); }
 122 ;
 123
 124 tempodelay: MNG_TempoDelay '(' expression ')' { $$ = new MNGTempoDelayNode($3); }
 125 ;
 126
 127 random: MNG_Random '(' expression ',' expression ')' { $$ = new MNGRandomNode($3, $5); }
 128 ;
 129
 130 trackdec: MNG_Track '(' MNG_name ')' '{' track '}' { $$ = new MNGTrackDecNode($3); ((MNGTrackDecNode *)$$)->children = $6; }
 131 ;
 132
 133 track: tracksetting { $$ = new std::list<MNGNode *>; if ($1) $$->push_back($1); }
 134         | track tracksetting { $$ = $1; if ($2) $$->push_back($2); }
 135 ;
 136
 137 tracksetting: aleotoriclayerdec { $$ = $1; }
 138         | looplayerdec { $$ = $1; }
 139         | fadein { $$ = $1; }
 140         | fadeout { $$ = $1; }
 141         | beatlength { $$ = $1; }
 142         | layervolume { $$ = $1; }
 143         | MNG_comment { $$ = 0; }
 144 ;
 145
 146 fadein: MNG_FadeIn '(' expression ')' { $$ = new MNGFadeInNode($3); }
 147 ;
 148
 149 fadeout: MNG_FadeOut '(' expression ')' { $$ = new MNGFadeOutNode($3); }
 150 ;
 151
 152 beatlength: MNG_BeatLength '(' expression ')' { $$ = new MNGBeatLengthNode($3); }
 153 ;
 154
 155 aleotoriclayerdec: MNG_AleotoricLayer '(' MNG_name ')' '{' aleotoriclayer '}' { $$ = new MNGAleotoricLayerNode($3); ((MNGAleotoricLayerNode *)$$)->children = $6; }
 156 ;
 157
 158 looplayerdec: MNG_LoopLayer '(' MNG_name ')' '{' looplayer '}' { $$ = new MNGLoopLayerNode($3); ((MNGLoopLayerNode *)$$)->children = $6; }
 159 ;
 160
 161 aleotoriclayer: aleotoriclayercommand { $$ = new std::list<MNGNode *>; if ($1) $$->push_back($1); }
 162         | aleotoriclayer aleotoriclayercommand { $$ = $1; if ($2) $$->push_back($2); }
 163 ;
 164
 165 looplayer: looplayercommand { $$ = new std::list<MNGNode *>; if ($1) $$->push_back($1); }
 166         | looplayer looplayercommand { $$ = $1; if ($2) $$->push_back($2); }
 167 ;
 168
 169 aleotoriclayercommand: effect { $$ = $1; }
 170         | MNG_comment { $$ = 0; }
 171         | layervolume { $$ = $1; }
 172         | variabledec { $$ = $1; }
 173         | updateblock { $$ = $1; }
 174         | voiceblock { $$ = $1; }
 175         | beatsynch { $$ = $1; }
 176         | updaterate { $$ = $1; }
 177         | interval { $$ = $1; }
 178 ;
 179
 180 looplayercommand: MNG_comment { $$ = 0; }
 181         | layervolume { $$ = $1; }
 182         | variabledec { $$ = $1; }
 183         | updateblock { $$ = $1; }
 184         | beatsynch { $$ = $1; }
 185         | wave { $$ = $1; }
 186         | interval { $$ = $1; }
 187         | updaterate { $$ = $1; }
 188 ;
 189
 190 effect: MNG_Effect '(' MNG_name ')' { $$ = new MNGEffectNode($3); }
 191 ;
 192
 193 updateblock: MNG_Update '{' assignmentlist '}' { $$ = new MNGUpdateNode(); ((MNGUpdateNode *)$$)->children = $3; }
 194 ;
 195
 196 assignmentlist: assignment { $$ = new std::list<MNGAssignmentNode *>; if ($1) $$->push_back($1); }
 197         | assignmentlist assignment { $$ = $1; if ($2) $$->push_back($2); }
 198 ;
 199
 200 assignment: variable '=' expression { $$ = new MNGAssignmentNode($1, $3); }
 201         | MNG_comment { $$ = 0; }
 202 ;
 203
 204 variable: MNG_name { $$ = new MNGVariableNode($1); }
 205         | MNG_Interval { $$ = new MNGVariableNode(INTERVAL); }
 206         | MNG_Volume { $$ = new MNGVariableNode(VOLUME); }
 207         | MNG_Pan { $$ = new MNGVariableNode(PAN); }
 208 ;
 209
 210 expression: add { $$ = $1; }
 211         | subtract { $$ = $1; }
 212         | multiply { $$ = $1; }
 213         | divide { $$ = $1; }
 214         | sinewave { $$ = $1; }
 215         | cosinewave { $$ = $1; }
 216         | random { $$ = $1; }
 217         | variable { $$ = $1; }
 218         | MNG_number { $$ = new MNGConstantNode($1); }
 219 ;
 220
 221 add: MNG_Add '(' expression ',' expression ')' { $$ = new MNGAddNode($3, $5); }
 222 ;
 223
 224 subtract: MNG_Subtract '(' expression ',' expression ')' { $$ = new MNGSubtractNode($3, $5); }
 225 ;
 226
 227 multiply: MNG_Multiply '(' expression ',' expression ')' { $$ = new MNGMultiplyNode($3, $5); }
 228 ;
 229
 230 divide: MNG_Divide '(' expression ',' expression ')' { $$ = new MNGDivideNode($3, $5); }
 231 ;
 232
 233 sinewave: MNG_SineWave '(' expression ',' expression ')' { $$ = new MNGSineWaveNode($3, $5); }
 234 ;
 235
 236 cosinewave: MNG_CosineWave '(' expression ',' expression ')' { $$ = new MNGCosineWaveNode($3, $5); }
 237 ;
 238
 239 voiceblock: MNG_Voice '{' voicecommands '}' { $$ = new MNGVoiceNode(); ((MNGVoiceNode *)$$)->children = $3; }
 240 ;
 241
 242 voicecommands: voicecommand { $$ = new std::list<MNGNode *>; $$->push_back($1); }
 243         | voicecommands voicecommand { $$ = $1; $$->push_back($2); }
 244 ;
 245
 246 voicecommand: wave { $$ = $1; }
 247         | interval { $$ = $1; }
 248         | effect { $$ = $1; }
 249         | condition { $$ = $1; }
 250         | updateblock { $$ = $1; }
 251 ;
 252
 253 interval: MNG_Interval '(' expression ')' { $$ = new MNGIntervalNode($3); }
 254 ;
 255
 256 condition: MNG_Condition '(' variable ',' MNG_number ',' MNG_number ')' { $$ = new MNGConditionNode($3, $5, $7); }
 257 ;
 258
 259 beatsynch: MNG_BeatSynch '(' expression ')' { $$ = new MNGUpdateRateNode($3); }
 260 ;
 261
 262 updaterate: MNG_UpdateRate '(' expression ')' { $$ = new MNGUpdateRateNode($3); }
 263 ;
 264
 265 wave: MNG_Wave '(' MNG_name ')' { $$ = new MNGWaveNode($3); }
 266 ;
 267