paths in Symbol modules; present in ResRon (not complete)

lib/src/arabic/SymbolAra.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolAra of Symbol = CatAra ** open Prelude, ResAra in {
 

lib/src/bulgarian/SymbolBul.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolBul of Symbol = CatBul ** open Prelude, ResBul in {
 

lib/src/catalan/SymbolCat.gf

@@ -1,4 +1,4 @@
---# -path=.:romance:abstract:common
+--# -path=.:../romance:../abstract:../common
 
 concrete SymbolCat of Symbol = CatCat ** SymbolRomance with
   (ResRomance = ResCat) ;

lib/src/danish/SymbolDan.gf

@@ -1,4 +1,4 @@
---# -path=.:scandinavian:abstract:common
+--# -path=.:../scandinavian:../abstract:../common
 
 concrete SymbolDan of Symbol = CatDan ** SymbolScand with
   (ResScand = ResDan) ;

lib/src/english/SymbolEng.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolEng of Symbol = CatEng ** open Prelude, ResEng in {
 

lib/src/finnish/SymbolFin.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin in {
 

lib/src/french/SymbolFre.gf

@@ -1,4 +1,4 @@
---# -path=.:romance:abstract:common
+--# -path=.:../romance:../abstract:../common
 
 concrete SymbolFre of Symbol = CatFre ** SymbolRomance with
   (ResRomance = ResFre) ;

lib/src/german/SymbolGer.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolGer of Symbol = CatGer ** open Prelude, ResGer in {
 

lib/src/hindi/SymbolHin.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolHin of Symbol = CatHin ** open Prelude, ResHin in {
 

lib/src/interlingua/SymbolIna.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolIna of Symbol = CatIna ** open Prelude, ResIna in {
 

lib/src/italian/SymbolIta.gf

@@ -1,4 +1,4 @@
---# -path=.:romance:abstract:common
+--# -path=.:../romance:../abstract:../common
 
 concrete SymbolIta of Symbol = CatIta ** SymbolRomance with
   (ResRomance = ResIta) ;

lib/src/latin/SymbolLat.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolLat of Symbol = CatLat ** open Prelude, ResLat in {
 --

lib/src/norwegian/SymbolNor.gf

@@ -1,4 +1,4 @@
---# -path=.:scandinavian:abstract:common
+--# -path=.:../scandinavian:../abstract:../common
 
 concrete SymbolNor of Symbol = CatNor ** SymbolScand with
   (ResScand = ResNor) ;

lib/src/romanian/ResRon.gf

@@ -508,9 +508,9 @@ oper
             RCond  => VCondit ;        
             RPres  => VPres m
             } ;
-          cmp = case <t,a,m> of 
-           {<RPast,Simul,Indic> | <RPres, Anter,Indic> => True ;
-            <RCond, _, _> => True;
+          cmp = case <<t,a,m> : RTense * Anteriority * Mood> of {
+            <RPast,Simul,Indic> | <RPres, Anter,Indic> => True ; --# notpresent
+            <RCond, _, _> => True;  --# notpresent
             _             => False
             } ;
           vp    = useVP vpr ;

lib/src/romanian/SymbolRon.gf

@@ -1,3 +1,5 @@
+--# -path=.:../abstract:../common
+
 concrete SymbolRon of Symbol = 
   CatRon ** open Prelude, ResRon in {
 

lib/src/russian/SymbolRus.gf

@@ -1,4 +1,4 @@
---# -path=.:abstract:common
+--# -path=.:../abstract:../common
 
 concrete SymbolRus of Symbol = CatRus ** open Prelude, ResRus in {
 

lib/src/spanish/SymbolSpa.gf

@@ -1,4 +1,4 @@
---# -path=.:romance:abstract:common
+--# -path=.:../romance:../abstract:../common
 
 concrete SymbolSpa of Symbol = CatSpa ** SymbolRomance with
   (ResRomance = ResSpa) ;

lib/src/swedish/SymbolSwe.gf

@@ -1,4 +1,4 @@
---# -path=.:scandinavian:abstract:common
+--# -path=.:../scandinavian:../abstract:../common
 
 concrete SymbolSwe of Symbol = CatSwe ** SymbolScand with
   (ResScand = ResSwe) ;

src/server/MorphoService.hs

@@ -3,7 +3,7 @@ import GF.Data.Operations
 import GF.Grammar.API
 import GF.Grammar.Parser
 import GF.Grammar.Grammar (Term)
-import GF.Grammar.PrGrammar (prTermTabular)
+--import GF.Grammar.PrGrammar (prTermTabular)
 import GF.Infra.Option
 import GF.Infra.UseIO
 import GF.Text.UTF8
@@ -60,7 +60,8 @@ doEval :: Grammar -> String -> Err JSValue
 doEval sgr t = liftM termToJSValue $ eval sgr t 
 
 termToJSValue :: Term -> JSValue
-termToJSValue t = showJSON [toJSObject [("name", name), ("value",value)] | (name,value) <- prTermTabular t]
+termToJSValue t = error "prTermTabular undefined"
+---- showJSON [toJSObject [("name", name), ("value",value)] | (name,value) <- prTermTabular t]
 
 eval :: Grammar -> String -> Err Term
 eval sgr t =