summaryrefslogtreecommitdiff
path: root/examples/test/paraphrase
diff options
context:
space:
mode:
authorkrasimir <krasimir@chalmers.se>2009-05-20 11:25:00 +0000
committerkrasimir <krasimir@chalmers.se>2009-05-20 11:25:00 +0000
commit352ac74b0ff4fb616a9f40332b4c60d6c8953564 (patch)
tree3d0a8d373e29f34544d4b35e11e419b19c1a9688 /examples/test/paraphrase
parentb6ce113041d7dc26021591f050bc11a358091594 (diff)
examples/test is moved to testsuite
Diffstat (limited to 'examples/test/paraphrase')
-rw-r--r--examples/test/paraphrase/City.gf26
-rw-r--r--examples/test/paraphrase/CityEng.gf16
-rw-r--r--examples/test/paraphrase/Nat.gf29
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) ;
-}