msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

introducing multiple inheritance

Browse Source
This commit is contained in:
aarne
2004-09-15 14:36:27 +00:00
parent 9bc8ffe4d1
commit e6fd325d07
44 changed files with 214 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
grammars/multiple/SystemCityEng.gf Normal file
View File

@@ -0,0 +1,6 @@
concrete SystemCityEng of SystemCity = SystemEng, CityEng ** open
Prelude in {
lin
RDistance x y d =
ss (["the distance from"] ++ x.s ++ "to" ++ y.s ++ "is" ++ d.s) ;
} ;