videosite/jsarray.yp

   1 %%
   2 array:
   3     LEFTC kvlist RIGHTC { return $_[2] };
   4
   5 kvlist:
   6     kvlist COMMA kvpair { return [ @{$_[1]}, @{$_[3]} ] } |
   7     kvpair;
   8
   9 kvpair:
  10     quotestring COLON quotestring { return [ $_[1], $_[3] ] };
  11
  12 quotestring:
  13     QUOTE QUOTE { return "" } |
  14     QUOTE ID QUOTE { return $_[2] };
  15 %%