GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 09:52:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

imports in SymbolHindustani

Browse Source
This commit is contained in:
aarne
2010-11-26 16:33:33 +00:00
parent 1867e6bd88
commit bb593d6143
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/hindustani/SymbolHindustani.gf
View File

@@ -2,7 +2,7 @@
--concrete SymbolUrd of Symbol = CatUrd ** open Prelude, ResUrd, StringsHindustani in { --concrete SymbolUrd of Symbol = CatUrd ** open Prelude, ResUrd, StringsHindustani in {
incomplete concrete SymbolHindustani of Symbol = incomplete concrete SymbolHindustani of Symbol =
CatHindustani ** open Prelude, ResHindustani, CommonHindustani in { CatHindustani ** open Prelude, ResHindustani, StringsHindustani, CommonHindustani in {
lin lin
-- SymbPN i = {s = \\_ => i.s ; g = Masc} ; -- SymbPN i = {s = \\_ => i.s ; g = Masc} ;

4
lib/src/punjabi/ExtraPnb.gf
View File

@@ -8,8 +8,8 @@ concrete ExtraPnb of ExtraPnbAbs = CatPnb **
each_Det = mkDet "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" Sg ; each_Det = mkDet "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" Sg ;
have_V = mkV "راكh-نا"; have_V = mkV "راكh-نا";
IAdvAdv adv = {s = "كتنی" ++ adv.s} ; ---- IAdvAdv adv = {s = "كتنی" ++ adv.s} ;
ICompAP ap = {s = "كتنے" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ; ---- ICompAP ap = {s = "كتنے" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ;
cost_V = mkV "قیمت" ; cost_V = mkV "قیمت" ;
-- added for causitives -- added for causitives

4
lib/src/punjabi/SymbolPnb.gf
View File

@@ -3,7 +3,7 @@
concrete SymbolPnb of Symbol = CatPnb ** open Prelude, ResPnb in { concrete SymbolPnb of Symbol = CatPnb ** open Prelude, ResPnb in {
flags coding = utf8; flags coding = utf8;
{-
lin lin
-- SymbPN i = {s = \\_ => i.s ; g = Masc} ; -- SymbPN i = {s = \\_ => i.s ; g = Masc} ;
SymbPN i = {s = addGenitiveS i.s ; g = Masc} ; SymbPN i = {s = addGenitiveS i.s ; g = Masc} ;
@@ -42,6 +42,6 @@ oper
-- not mauch we can do about that. -- not mauch we can do about that.
addGenitiveS : Str -> Case => Str = \s -> addGenitiveS : Str -> Case => Str = \s ->
table {_ => s ++ "دا" } ; table {_ => s ++ "دا" } ;
-}
} }