From 795d9a2172ced065feae233420d8a699bb1b7692 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 5 Oct 2009 12:54:17 +0000 Subject: [PATCH] paths in Symbol modules; present in ResRon (not complete) --- src/arabic/SymbolAra.gf | 2 +- src/bulgarian/SymbolBul.gf | 2 +- src/catalan/SymbolCat.gf | 2 +- src/danish/SymbolDan.gf | 2 +- src/english/SymbolEng.gf | 2 +- src/finnish/SymbolFin.gf | 2 +- src/french/SymbolFre.gf | 2 +- src/german/SymbolGer.gf | 2 +- src/hindi/SymbolHin.gf | 2 +- src/interlingua/SymbolIna.gf | 2 +- src/italian/SymbolIta.gf | 2 +- src/latin/SymbolLat.gf | 2 +- src/norwegian/SymbolNor.gf | 2 +- src/romanian/ResRon.gf | 6 +++--- src/romanian/SymbolRon.gf | 2 ++ src/russian/SymbolRus.gf | 2 +- src/spanish/SymbolSpa.gf | 2 +- src/swedish/SymbolSwe.gf | 2 +- 18 files changed, 21 insertions(+), 19 deletions(-) diff --git a/src/arabic/SymbolAra.gf b/src/arabic/SymbolAra.gf index d8003eaf8..3d62fc851 100644 --- a/src/arabic/SymbolAra.gf +++ b/src/arabic/SymbolAra.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolAra of Symbol = CatAra ** open Prelude, ResAra in { diff --git a/src/bulgarian/SymbolBul.gf b/src/bulgarian/SymbolBul.gf index 5b962db14..343c6971c 100644 --- a/src/bulgarian/SymbolBul.gf +++ b/src/bulgarian/SymbolBul.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolBul of Symbol = CatBul ** open Prelude, ResBul in { diff --git a/src/catalan/SymbolCat.gf b/src/catalan/SymbolCat.gf index 55ebeeadc..03cf15c96 100644 --- a/src/catalan/SymbolCat.gf +++ b/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) ; diff --git a/src/danish/SymbolDan.gf b/src/danish/SymbolDan.gf index 610f94306..0318eadbe 100644 --- a/src/danish/SymbolDan.gf +++ b/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) ; diff --git a/src/english/SymbolEng.gf b/src/english/SymbolEng.gf index 0b7405b93..f2b00bc4b 100644 --- a/src/english/SymbolEng.gf +++ b/src/english/SymbolEng.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolEng of Symbol = CatEng ** open Prelude, ResEng in { diff --git a/src/finnish/SymbolFin.gf b/src/finnish/SymbolFin.gf index 9ceac2105..fc7923a8a 100644 --- a/src/finnish/SymbolFin.gf +++ b/src/finnish/SymbolFin.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin in { diff --git a/src/french/SymbolFre.gf b/src/french/SymbolFre.gf index 3e3202f73..f9b0ca934 100644 --- a/src/french/SymbolFre.gf +++ b/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) ; diff --git a/src/german/SymbolGer.gf b/src/german/SymbolGer.gf index c2e6b2a1d..429869ffd 100644 --- a/src/german/SymbolGer.gf +++ b/src/german/SymbolGer.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolGer of Symbol = CatGer ** open Prelude, ResGer in { diff --git a/src/hindi/SymbolHin.gf b/src/hindi/SymbolHin.gf index f972c60a3..621c6d68b 100644 --- a/src/hindi/SymbolHin.gf +++ b/src/hindi/SymbolHin.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolHin of Symbol = CatHin ** open Prelude, ResHin in { diff --git a/src/interlingua/SymbolIna.gf b/src/interlingua/SymbolIna.gf index 1ea8b5841..4a3b6b2f2 100644 --- a/src/interlingua/SymbolIna.gf +++ b/src/interlingua/SymbolIna.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolIna of Symbol = CatIna ** open Prelude, ResIna in { diff --git a/src/italian/SymbolIta.gf b/src/italian/SymbolIta.gf index 527bb0afb..6555c5e9e 100644 --- a/src/italian/SymbolIta.gf +++ b/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) ; diff --git a/src/latin/SymbolLat.gf b/src/latin/SymbolLat.gf index 04946b738..3461339b2 100644 --- a/src/latin/SymbolLat.gf +++ b/src/latin/SymbolLat.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolLat of Symbol = CatLat ** open Prelude, ResLat in { -- diff --git a/src/norwegian/SymbolNor.gf b/src/norwegian/SymbolNor.gf index f7674df55..600f0e744 100644 --- a/src/norwegian/SymbolNor.gf +++ b/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) ; diff --git a/src/romanian/ResRon.gf b/src/romanian/ResRon.gf index cb76b8343..e1351c4d0 100644 --- a/src/romanian/ResRon.gf +++ b/src/romanian/ResRon.gf @@ -508,9 +508,9 @@ oper RCond => VCondit ; RPres => VPres m } ; - cmp = case of - { | => True ; - => True; + cmp = case < : RTense * Anteriority * Mood> of { + | => True ; --# notpresent + => True; --# notpresent _ => False } ; vp = useVP vpr ; diff --git a/src/romanian/SymbolRon.gf b/src/romanian/SymbolRon.gf index c8843d1a2..021e4a081 100644 --- a/src/romanian/SymbolRon.gf +++ b/src/romanian/SymbolRon.gf @@ -1,3 +1,5 @@ +--# -path=.:../abstract:../common + concrete SymbolRon of Symbol = CatRon ** open Prelude, ResRon in { diff --git a/src/russian/SymbolRus.gf b/src/russian/SymbolRus.gf index 54355374a..9eed7763f 100644 --- a/src/russian/SymbolRus.gf +++ b/src/russian/SymbolRus.gf @@ -1,4 +1,4 @@ ---# -path=.:abstract:common +--# -path=.:../abstract:../common concrete SymbolRus of Symbol = CatRus ** open Prelude, ResRus in { diff --git a/src/spanish/SymbolSpa.gf b/src/spanish/SymbolSpa.gf index bcc6323e7..e300021cb 100644 --- a/src/spanish/SymbolSpa.gf +++ b/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) ; diff --git a/src/swedish/SymbolSwe.gf b/src/swedish/SymbolSwe.gf index 0c74baa93..331e4ba3e 100644 --- a/src/swedish/SymbolSwe.gf +++ b/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) ;