WIP sym + cgen

1 files changed, 27 insertions, 0 deletions

diff --git a/examples/c.prs b/examples/c.prs
new file mode 100644
index 0000000..8224fb5
--- /dev/null
+++ b/examples/c.prs
@@ -0,0 +1,27 @@
+* C interoperatibility example (without imports)
+public function main
+    types
+        socket prototype
+            linkage
+                domain word
+                type word
+                protocol word
+                fd word
+            procedure using domain type protocol returning fd
+
+        close prototype
+            linkage
+                fd word
+                status word
+            procedure using fd returning status
+
+        AF_INET constant to 2
+        SOCK_STREAM constant to 2
+    linkage
+        status word
+    storage
+        fd word
+    procedure returning status
+        call socket using AF_INET SOCK_STREAM 0 returning fd
+        display "fd is " fd
+        call close using fd returning status