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 d8003eaf..3d62fc85 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 5b962db1..343c6971 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 55ebeead..03cf15c9 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 610f9430..0318eadb 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 0b7405b9..f2b00bc4 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 9ceac210..fc7923a8 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 3e3202f7..f9b0ca93 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 c2e6b2a1..429869ff 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 f972c60a..621c6d68 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 1ea8b584..4a3b6b2f 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 527bb0af..6555c5e9 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 04946b73..3461339b 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 f7674df5..600f0e74 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 cb76b834..e1351c4d 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 c8843d1a..021e4a08 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 54355374..9eed7763 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 bcc6323e..e300021c 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 0c74baa9..331e4ba3 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) ;