summaryrefslogtreecommitdiff
path: root/old-examples/tutorial/hello
diff options
context:
space:
mode:
Diffstat (limited to 'old-examples/tutorial/hello')
-rw-r--r--old-examples/tutorial/hello/Hello.gf10
-rw-r--r--old-examples/tutorial/hello/HelloEng.gf10
-rw-r--r--old-examples/tutorial/hello/HelloFin.gf10
-rw-r--r--old-examples/tutorial/hello/HelloIta.gf10
-rw-r--r--old-examples/tutorial/hello/hello.gfs4
5 files changed, 44 insertions, 0 deletions
diff --git a/old-examples/tutorial/hello/Hello.gf b/old-examples/tutorial/hello/Hello.gf
new file mode 100644
index 000000000..769be5cbf
--- /dev/null
+++ b/old-examples/tutorial/hello/Hello.gf
@@ -0,0 +1,10 @@
+abstract Hello = {
+
+ cat Greeting ; Recipient ;
+
+ flags startcat = Greeting ;
+
+ fun
+ Hello : Recipient -> Greeting ;
+ World, Mum, Friends : Recipient ;
+} \ No newline at end of file
diff --git a/old-examples/tutorial/hello/HelloEng.gf b/old-examples/tutorial/hello/HelloEng.gf
new file mode 100644
index 000000000..69efba6b4
--- /dev/null
+++ b/old-examples/tutorial/hello/HelloEng.gf
@@ -0,0 +1,10 @@
+concrete HelloEng of Hello = {
+
+ lincat Greeting, Recipient = {s : Str} ;
+
+ lin
+ Hello rec = {s = "hello" ++ rec.s} ;
+ World = {s = "world"} ;
+ Mum = {s = "mum"} ;
+ Friends = {s = "friends"} ;
+} \ No newline at end of file
diff --git a/old-examples/tutorial/hello/HelloFin.gf b/old-examples/tutorial/hello/HelloFin.gf
new file mode 100644
index 000000000..969142a91
--- /dev/null
+++ b/old-examples/tutorial/hello/HelloFin.gf
@@ -0,0 +1,10 @@
+concrete HelloFin of Hello = {
+
+ lincat Greeting, Recipient = {s : Str} ;
+
+ lin
+ Hello rec = {s = "terve" ++ rec.s} ;
+ World = {s = "maailma"} ;
+ Mum = {s = "äiti"} ;
+ Friends = {s = "ystävät"} ;
+} \ No newline at end of file
diff --git a/old-examples/tutorial/hello/HelloIta.gf b/old-examples/tutorial/hello/HelloIta.gf
new file mode 100644
index 000000000..f1465a867
--- /dev/null
+++ b/old-examples/tutorial/hello/HelloIta.gf
@@ -0,0 +1,10 @@
+concrete HelloIta of Hello = {
+
+ lincat Greeting, Recipient = {s : Str} ;
+
+ lin
+ Hello rec = {s = "ciao" ++ rec.s} ;
+ World = {s = "mondo"} ;
+ Mum = {s = "mamma"} ;
+ Friends = {s = "amici"} ;
+} \ No newline at end of file
diff --git a/old-examples/tutorial/hello/hello.gfs b/old-examples/tutorial/hello/hello.gfs
new file mode 100644
index 000000000..783919e0e
--- /dev/null
+++ b/old-examples/tutorial/hello/hello.gfs
@@ -0,0 +1,4 @@
+import HelloEng.gf
+import HelloFin.gf
+import HelloIta.gf
+linearize -multi Hello World