prj/cam/src/mschema.y

   1 /*
   2   Yacc file for parsing motion schemas.
   3 */
   4
   5 %union
   6 {
   7    char *strval;
   8    int  ival;
   9    float fval;
  10    BOOL  bval;
  11 }
  12
  13 /* standard tokens */
  14 %token <strval> IDENT
  15 %token <strval> STRING
  16 %token <ival> INT
  17 %token <fval> FLOAT
  18 %token <bval> BOOLEAN
  19 %token INCLUDE
  20 %token DEFINE
  21 %token LPAREN
  22 %token RPAREN
  23 %token EQUAL
  24 %token COLON
  25
  26 /* motion schema specific tokens */
  27 %token SCHEMA
  28 %token TAG
  29 %token TAG_OPT
  30 %token ACTOR
  31 %token ACTORS_DECLARE
  32 %token ARCHETYPE
  33 %token MOTION
  34 %token TAGLIST_HEADER
  35 %token MOTLIST_HEADER
  36 %token STRETCH
  37 %token TIMEWARP
  38 %token DURATION
  39 %token DISTANCE
  40 %token MOT_NECK_FIXED
  41 %token MOT_NECK_NOT_FIXED
  42 %token MOT_BLEND_NONE
  43 %token MOT_BLEND_DEFAULT
  44 %token MOT_IS_TURN
  45 %token MOT_BLEND_LENGTH
  46 %token MOT_IN_PLACE
  47 %token MOT_IS_LOCO
  48
  49
  50
  51 %{
  52 #include <stdio.h>
  53 #include <string.h>
  54 #include <mprintf.h>
  55 #include <inctab.h>
  56 #include <cfgdbg.h>
  57 #include <config.h>
  58 #include <label.h>
  59 #include <motdb_.h>
  60 #include <motdbase.h>
  61
  62
  63 #define FILE_NAME_LEN 100
  64
  65 /*
  66   Include file stuff
  67 */
  68 extern void IncParseFile(char *fileName);
  69 extern void SchemaParseFile(char *fileName, int (*parseFn)());
  70
  71 #define mscherror mprintf
  72
  73 #define kDefaultBlendLength 500 // msec
  74
  75 #define FreeString(ident) { free(ident); ident = NULL; }
  76
  77 /* globals */
  78 #define kMaxTagsPerSchema       16
  79 #define kMaxMotionsPerSchema    128
  80
  81 static sTagDesc g_aSchemaTags[kMaxTagsPerSchema];
  82 static sMotDesc g_aSchemaMotions[kMaxMotionsPerSchema];
  83
  84 static int g_nSchemaTags=0;
  85 static int g_nSchemaMotions=0;
  86
  87 static float g_TimeWarp=0;
  88 static float g_Stretch=0;
  89 static float g_Duration=0;
  90 static float g_Distance=0;
  91
  92 static BOOL g_TagIsMandatory=TRUE;
  93 static float g_TagWeight=0;
  94
  95 static int g_TagVal=0;
  96
  97 static BOOL g_ArchIsString=FALSE;
  98 static int g_ArchInt=0;
  99 static Label g_ArchName;
 100
 101 static BOOL g_NeckIsFixed=FALSE;
 102 static int  g_BlendLength=kDefaultBlendLength;
 103 static BOOL g_IsTurn=FALSE;
 104 static BOOL g_IsLoco=FALSE;
 105 static BOOL g_InPlace=FALSE;
 106
 107
 108 %}
 109
 110 %%
 111
 112 file: statements;
 113
 114 statements: statement | statement statements;
 115 statement: include | schema | tag | actors_declare;
 116
 117 include: INCLUDE STRING
 118 {
 119    ConfigSpew("yakspew",("include %s\n",$2));
 120
 121    IncParseFile($2);
 122    FreeString($2);
 123 };
 124
 125 opt_tag_spec: tag_spec | null;
 126
 127 tag_spec: TAG_OPT FLOAT
 128 {
 129    g_TagIsMandatory=FALSE;
 130    g_TagWeight=$2;
 131 };
 132
 133 tag: TAG IDENT opt_tag_spec
 134 {
 135    sTagInfo info;
 136
 137    if(config_is_defined("yakspew"))
 138    {
 139       mprintf("tag %s mand %d",$2,g_TagIsMandatory);
 140       if(g_TagIsMandatory)
 141       {
 142          mprintf("\n");
 143       } else
 144       {
 145          mprintf(" weight %g\n",g_TagWeight);
 146       }
 147    }
 148    info.isMandatory=g_TagIsMandatory;
 149    info.weight = g_TagWeight;
 150    MotDBRegisterTag((Label *)($2),&info);
 151    // reset globals
 152    g_TagIsMandatory=TRUE;
 153    g_TagWeight=0;
 154
 155    FreeString($2);
 156 };
 157
 158 actors_declare: ACTORS_DECLARE INT
 159 {
 160    MotDBCreate($2);
 161 };
 162
 163 archetype: arch_string | arch_int;
 164
 165 arch_string: ARCHETYPE IDENT
 166 {
 167    g_ArchIsString=TRUE;
 168    strncpy(g_ArchName.text,$2,sizeof(g_ArchName));
 169    FreeString($2);
 170 };
 171
 172 arch_int: ARCHETYPE INT
 173 {
 174    g_ArchIsString=FALSE;
 175    g_ArchInt=$2;
 176 };
 177
 178 schema: SCHEMA IDENT ACTOR INT archetype optparams taglist motlist
 179 {
 180    int i;
 181    sMotDesc *pMotDesc;
 182    sTagDesc *pTagDesc;
 183    sMotSchemaDesc schema;
 184
 185    if(config_is_defined("yakspew"))
 186    {
 187       if(g_ArchIsString)
 188          mprintf("schema %s\n  with actor %d\n  with archetype %s\n",$2,$4,g_ArchName.text);
 189       else
 190          mprintf("schema %s\n  with actor %d\n  with archetype %d\n",$2,$4,g_ArchInt);
 191
 192       // look at params
 193       if(g_Duration)
 194       {
 195          mprintf("  duration %g\n",g_Duration);
 196       }
 197       if(g_Distance)
 198       {
 199          mprintf("  distance %g\n",g_Distance);
 200       }
 201       if(g_TimeWarp)
 202       {
 203          mprintf("  timewarp %g\n",g_TimeWarp);
 204       }
 205       if(g_Stretch)
 206       {
 207          mprintf("  stretch %g\n",g_Stretch);
 208       }
 209
 210       // look at tag globals
 211       pTagDesc=g_aSchemaTags;
 212       for(i=0;i<g_nSchemaTags;i++,pTagDesc++)
 213       {
 214          mprintf("  with tag %s value %d\n",pTagDesc->type.text,pTagDesc->value);
 215       }
 216
 217       // look at motion globals
 218       pMotDesc=g_aSchemaMotions;
 219       for(i=0;i<g_nSchemaMotions;i++,pMotDesc++)
 220       {
 221          mprintf("  with motion %s,",pMotDesc->name.text);
 222          if(pMotDesc->stuff.flags&kMSF_NECK_IS_FIXED)
 223          {
 224             mprintf(" neck_fixed");
 225          }
 226          if(pMotDesc->stuff.blendLength!=kDefaultBlendLength)
 227          {
 228             mprintf(" blend %d",pMotDesc->stuff.blendLength);
 229          }
 230          if(pMotDesc->stuff.flags&kMSF_IS_TURN)
 231          {
 232             mprintf(" is_turn");
 233          }
 234          if(pMotDesc->stuff.flags&kMSF_IS_LOCO)
 235          {
 236             mprintf(" is_loco");
 237          }
 238          if(pMotDesc->stuff.flags&kMSF_WANT_NO_XLAT)
 239          {
 240             mprintf(" in_place");
 241          }
 242          mprintf("\n");
 243       }
 244    }
 245
 246    schema.nTags=g_nSchemaTags;
 247    schema.pTags=g_aSchemaTags;
 248    schema.nMots=g_nSchemaMotions;
 249    schema.pMots=g_aSchemaMotions;
 250    schema.duration=g_Duration;
 251    schema.distance=g_Distance;
 252    schema.timeWarp=g_TimeWarp;
 253    schema.stretch=g_Stretch;
 254    schema.actor=$4;
 255    strncpy(schema.name.text,$2,15);
 256
 257    if(g_ArchIsString)
 258    {
 259       strncpy(schema.archName.text,g_ArchName.text,sizeof(schema.archName));
 260       schema.archIsString=TRUE;
 261    } else
 262    {
 263       schema.archInt=g_ArchInt;
 264       schema.archIsString=FALSE;
 265    }
 266    MotDBAddSchema(&schema);
 267
 268    // reset globals
 269    g_nSchemaTags=0;
 270    g_nSchemaMotions=0;
 271    g_TimeWarp=0;
 272    g_Stretch=0;
 273    g_Duration=0;
 274    g_Distance=0;
 275
 276    FreeString($2);
 277 };
 278
 279 optparams: paraminsts | null;
 280
 281 paraminsts: paraminsts paraminst | paraminst;
 282
 283 paraminst: timewarp | duration | stretch | distance;
 284
 285 timewarp: TIMEWARP FLOAT
 286 {
 287    g_TimeWarp=$2;
 288 };
 289
 290 duration: DURATION FLOAT
 291 {
 292    g_Duration=$2;
 293 };
 294
 295 stretch: STRETCH FLOAT
 296 {
 297    g_Stretch=$2;
 298 };
 299
 300 distance: DISTANCE FLOAT
 301 {
 302    g_Distance=$2;
 303 };
 304
 305
 306 taglist: TAGLIST_HEADER opttaginsts;
 307
 308 opttaginsts: taginsts | null;
 309
 310 taginsts: taginsts taginst | taginst;
 311
 312 opt_tag_val: tag_val | null;
 313
 314 tag_val: INT
 315 {
 316    g_TagVal=$1;
 317 };
 318
 319 taginst: IDENT opt_tag_val
 320 {
 321    int size;
 322
 323    if(g_nSchemaTags<kMaxTagsPerSchema)
 324    {
 325       size=sizeof(g_aSchemaTags[0].type);
 326       strncpy(g_aSchemaTags[g_nSchemaTags].type.text,$1,size);
 327       g_aSchemaTags[g_nSchemaTags].value=g_TagVal;
 328       g_nSchemaTags++;
 329    } else
 330    {
 331       Warning(("Cannot add tag %s to schema - too many tags\n",$1));
 332    }
 333    // reset globals
 334    g_TagVal=0;
 335    FreeString($1);
 336 };
 337
 338 motlist: MOTLIST_HEADER optmotions;
 339
 340 optmotions: motinsts | null;
 341
 342 motinsts: motinsts motinst | motinst;
 343
 344 optmotparamlist: motparamlist | null;
 345
 346 motparamlist: motparam motparamlist | motparam;
 347
 348 motparam: neck_fixed | blend_length | is_turn | MOT_NECK_NOT_FIXED |
 349         MOT_BLEND_DEFAULT | blend_none | is_loco | in_place;
 350
 351 neck_fixed: MOT_NECK_FIXED
 352 {
 353    g_NeckIsFixed=TRUE;
 354 };
 355
 356 blend_none: MOT_BLEND_NONE
 357 {
 358    g_BlendLength=0;
 359 };
 360
 361 blend_length: MOT_BLEND_LENGTH INT
 362 {
 363    g_BlendLength=$2;
 364 };
 365
 366 in_place: MOT_IN_PLACE
 367 {
 368    g_InPlace=TRUE;
 369 };
 370
 371 is_loco: MOT_IS_LOCO
 372 {
 373    g_IsLoco=TRUE;
 374 };
 375
 376 is_turn: MOT_IS_TURN
 377 {
 378    g_IsTurn=TRUE;
 379 };
 380
 381 motinst: IDENT optmotparamlist
 382 {
 383    int size;
 384
 385    if(g_nSchemaMotions<kMaxMotionsPerSchema)
 386    {
 387       size=sizeof(g_aSchemaMotions[0].name);
 388       strncpy(g_aSchemaMotions[g_nSchemaMotions].name.text,$1,size);
 389       g_aSchemaMotions[g_nSchemaMotions].stuff.flags=NULL;
 390       if(g_NeckIsFixed)
 391          g_aSchemaMotions[g_nSchemaMotions].stuff.flags|=kMSF_NECK_IS_FIXED;
 392       g_aSchemaMotions[g_nSchemaMotions].stuff.blendLength=g_BlendLength;
 393       if(g_IsTurn)
 394          g_aSchemaMotions[g_nSchemaMotions].stuff.flags|=kMSF_IS_TURN;
 395       if(g_IsLoco)
 396          g_aSchemaMotions[g_nSchemaMotions].stuff.flags|=kMSF_IS_LOCO;
 397       if(g_InPlace)
 398          g_aSchemaMotions[g_nSchemaMotions].stuff.flags|=kMSF_WANT_NO_XLAT;
 399       g_nSchemaMotions++;
 400    } else
 401    {
 402       Warning(("Cannot add motion %s to schema - too many motions\n",$1));
 403    }
 404
 405    // reset motion params
 406    g_NeckIsFixed=FALSE;
 407    g_BlendLength=kDefaultBlendLength;
 408    g_IsTurn=FALSE;
 409    g_IsLoco=FALSE;
 410    g_InPlace=FALSE;
 411
 412    FreeString($1);
 413 };
 414
 415 null: ;
 416
 417 motlist:
 418 {
 419 };
 420
 421
 422 %%
 423
 424 void MotSchemaYaccParse(char *schemaFile)
 425 {
 426    // init globals
 427
 428    IncTabsInit();
 429
 430    mprintf("parsing file %s!\n",schemaFile);
 431    MschParseFile(schemaFile);
 432
 433    IncTabsShutdown();
 434
 435 }
 436
 437