- New YouYube scheme, as some videos did not conform to

[videosite.git] / videosite / jsarray.yp

diff --git a/videosite/jsarray.yp b/videosite/jsarray.yp
new file mode 100644 (file)
index 0000000..3b32aca
--- /dev/null
+++ b/videosite/jsarray.yp
@@ -0,0 +1,15 @@
+%%
+array:
+    LEFTC kvlist RIGHTC { return $_[2] };
+
+kvlist:
+    kvlist COMMA kvpair { return [ @{$_[1]}, @{$_[3]} ] } |
+    kvpair;
+
+kvpair:
+    quotestring COLON quotestring { return [ $_[1], $_[3] ] };
+
+quotestring:
+    QUOTE QUOTE { return "" } |
+    QUOTE ID QUOTE { return $_[2] };
+%%