From 1e592e20e67440806cf451ca696068f88879add9 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 14 Dec 2009 20:01:41 +0000
Subject: [PATCH] reverse engineered version of the Editor grammar

---
 .../javascript/editor-grammar/Editor.gf       | 62 ++++++++++++++++++
 .../javascript/editor-grammar/EditorEng.gf    | 63 +++++++++++++++++++
 2 files changed, 125 insertions(+)
 create mode 100644 src/runtime/javascript/editor-grammar/Editor.gf
 create mode 100644 src/runtime/javascript/editor-grammar/EditorEng.gf

diff --git a/src/runtime/javascript/editor-grammar/Editor.gf b/src/runtime/javascript/editor-grammar/Editor.gf
new file mode 100644
index 000000000..7df69ba5d
--- /dev/null
+++ b/src/runtime/javascript/editor-grammar/Editor.gf
@@ -0,0 +1,62 @@
+abstract Editor = {
+
+cat Adjective ;
+    Noun ;
+    Verb ;
+    Determiner ;
+    Sentence ;
+
+fun Available : Adjective ;
+    Next      : Adjective ;
+    Previous  : Adjective ;
+ 
+fun Bulgarian : Noun ;
+    Danish    : Noun ;
+    English   : Noun ;
+    Finnish   : Noun ;
+    French    : Noun ;
+    German    : Noun ;
+    Italian   : Noun ;
+    Norwegian : Noun ;
+    Russian   : Noun ;
+    Spanish   : Noun ;
+    Swedish   : Noun ;
+
+fun Float_N    : Noun ;
+    Integer_N  : Noun ;
+    String_N   : Noun ;
+    
+    Language   : Noun ;
+    Node       : Noun ;
+    Page       : Noun ;
+    Refinement : Noun ;
+    Tree       : Noun ;
+    Wrapper    : Noun ;
+
+fun Copy    : Verb ;
+    Cut     : Verb ;
+    Delete  : Verb ;
+    Enter   : Verb ;
+    Parse   : Verb ;
+    Paste   : Verb ;
+    Redo    : Verb ;
+    Refine  : Verb ;
+    Replace : Verb ;
+    Select  : Verb ;
+    Show    : Verb ;
+    Undo    : Verb ;
+    Wrap    : Verb ;
+
+fun DefPlDet   : Determiner ;
+    DefSgDet   : Determiner ;
+    IndefPlDet : Determiner ;
+    IndefSgDet : Determiner ;
+
+fun Command           : Verb -> Determiner -> Noun -> Sentence ;
+    CommandAdj        : Verb -> Determiner -> Adjective -> Noun -> Sentence ;
+    ErrorMessage      : Adjective -> Noun -> Sentence ;   
+    Label             : Noun -> Sentence ;
+    RandomlyCommand   : Verb -> Determiner -> Noun -> Sentence ;
+    SingleWordCommand : Verb -> Sentence ;
+
+}
\ No newline at end of file
diff --git a/src/runtime/javascript/editor-grammar/EditorEng.gf b/src/runtime/javascript/editor-grammar/EditorEng.gf
new file mode 100644
index 000000000..95ad0eabd
--- /dev/null
+++ b/src/runtime/javascript/editor-grammar/EditorEng.gf
@@ -0,0 +1,63 @@
+--# -path=alltenses
+concrete EditorEng of Editor = open GrammarEng, ParadigmsEng in {
+
+lincat Adjective = A ;
+       Noun = N ;
+       Verb = V ;
+       Determiner = Det ;
+       Sentence = Utt ;
+
+lin Available = mkA "available" ;
+    Next      = mkA "next" ;
+    Previous  = mkA "previous" ;
+
+lin Bulgarian = mkN "Bulgarian" ;
+    Danish    = mkN "Danish" ;
+    English   = mkN "English" ;
+    Finnish   = mkN "Finnish" ;
+    French    = mkN "French" ;
+    German    = mkN "German" ;
+    Italian   = mkN "Italian" ;
+    Norwegian = mkN "Norwegian" ;
+    Russian   = mkN "Russian" ;
+    Spanish   = mkN "Spanish" ;
+    Swedish   = mkN "Swedish" ;
+
+lin Float_N    = mkN "float" ;
+    Integer_N  = mkN "integer" ;
+    String_N   = mkN "string" ;
+    
+    Language   = mkN "language" ;
+    Node       = mkN "node" ;
+    Page       = mkN "page" ;
+    Refinement = mkN "refinement" ;
+    Tree       = mkN "tree" ;
+    Wrapper    = mkN "wrapper" ;
+
+lin Copy    = mkV "copy" ;
+    Cut     = mkV "cut" ;
+    Delete  = mkV "delete" ;
+    Enter   = mkV "enter" ;
+    Parse   = mkV "parse" ;
+    Paste   = mkV "paste" ;
+    Redo    = mkV "redo" ;
+    Refine  = mkV "refine" ;
+    Replace = mkV "replace" ;
+    Select  = mkV "select" ;
+    Show    = mkV "show" ;
+    Undo    = mkV "undo" ;
+    Wrap    = mkV "wrap" ;
+
+lin DefPlDet   = DetQuant DefArt   NumPl ;
+    DefSgDet   = DetQuant DefArt   NumSg ;
+    IndefPlDet = DetQuant IndefArt NumPl ;
+    IndefSgDet = DetQuant IndefArt NumSg ;
+
+lin Command v d n = UttImpSg PPos (ImpVP (ComplSlash (SlashV2a (mkV2 v)) (DetCN d (UseN n)))) ;
+    CommandAdj v d a n = UttImpSg PPos (ImpVP (ComplSlash (SlashV2a (mkV2 v)) (DetCN d (AdjCN (PositA a) (UseN n))))) ;
+    ErrorMessage a n = UttNP (MassNP (AdjCN (PositA (mkA "random")) (UseN n))) ;
+    Label n = UttNP (MassNP (UseN n)) ;
+    RandomlyCommand v d n = UttImpSg PPos (ImpVP (AdvVP (ComplSlash (SlashV2a (mkV2 v)) (DetCN d (UseN n))) (PrepNP (mkPrep "at") (MassNP (UseN (mkN "random")))))) ;
+    SingleWordCommand v = UttImpSg PPos (ImpVP (UseV v)) ;
+
+}
\ No newline at end of file