diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-20 11:25:00 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-20 11:25:00 +0000 |
| commit | 352ac74b0ff4fb616a9f40332b4c60d6c8953564 (patch) | |
| tree | 3d0a8d373e29f34544d4b35e11e419b19c1a9688 /examples/test/paraphrase | |
| parent | b6ce113041d7dc26021591f050bc11a358091594 (diff) | |
examples/test is moved to testsuite
Diffstat (limited to 'examples/test/paraphrase')
| -rw-r--r-- | examples/test/paraphrase/City.gf | 26 | ||||
| -rw-r--r-- | examples/test/paraphrase/CityEng.gf | 16 | ||||
| -rw-r--r-- | examples/test/paraphrase/Nat.gf | 29 |
3 files changed, 0 insertions, 71 deletions
diff --git a/examples/test/paraphrase/City.gf b/examples/test/paraphrase/City.gf deleted file mode 100644 index 2ea8a10ff..000000000 --- a/examples/test/paraphrase/City.gf +++ /dev/null @@ -1,26 +0,0 @@ -abstract City = { - -cat S ; City ; Country ; Adj ; - -data - PredIn : City -> Country -> S ; -fun - PredAdj : City -> Adj -> S ; - Capital : Country -> City ; - CountryAdj : Adj -> Country ; -data - Stockholm, Helsinki : City ; - Sweden, Finland : Country ; - Swedish, Finnish : Adj ; - -def - PredAdj city x = PredIn city (CountryAdj x) ; - - Capital Finland = Helsinki ; - Capital Sweden = Stockholm ; - - CountryAdj Finnish = Finland ; - CountryAdj Swedish = Sweden ; - - -} diff --git a/examples/test/paraphrase/CityEng.gf b/examples/test/paraphrase/CityEng.gf deleted file mode 100644 index 39a0974c8..000000000 --- a/examples/test/paraphrase/CityEng.gf +++ /dev/null @@ -1,16 +0,0 @@ -concrete CityEng of City = { - -lincat S, City, Country, Adj = Str ; - -lin - PredIn ci co = ci ++ "is in" ++ co ; - PredAdj ci ad = ci ++ "is" ++ ad ; - Capital co = "the capital of" ++ co ; - CountryAdj ad = "the" ++ ad ++ "country" ; - Stockholm = "Stockholm" ; - Helsinki = "Helsinki" ; - Sweden = "Sweden" ; - Finland = "Finland" ; - Swedish = "Swedish" ; - Finnish = "Finnish" ; -} diff --git a/examples/test/paraphrase/Nat.gf b/examples/test/paraphrase/Nat.gf deleted file mode 100644 index 7caa0fc93..000000000 --- a/examples/test/paraphrase/Nat.gf +++ /dev/null @@ -1,29 +0,0 @@ -abstract Nat = { - -cat Nat ; - -data - Zero : Nat ; - Succ : Nat -> Nat ; - -fun one : Nat ; -def one = Succ Zero ; - -fun plus : Nat -> Nat -> Nat ; -def plus x Zero = x ; -def plus x (Succ y) = Succ (plus x y) ; - -fun twice : Nat -> Nat ; -def twice x = plus x x ; - -fun times : Nat -> Nat -> Nat ; -def times x Zero = Zero ; -def times x (Succ y) = plus (times x y) x ; - -fun four : Nat ; -def four = twice (twice one) ; - -fun exp : Nat -> Nat ; -def exp Zero = one ; -def exp (Succ x) = twice (exp x) ; -} |
