From 4ce39e4fc1de9536de7dedfe91b6dee38dec76ae Mon Sep 17 00:00:00 2001
From: Xavier Del Campo Romero <xavi92@disroot.org>
Date: Thu, 1 Oct 2026 01:04:30 +0200
Subject: WIP sym + cgen

---
 examples/c.prs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 examples/c.prs

(limited to 'examples/c.prs')

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
-- 
cgit v1.2.3