operators for string

polystat · Jul 11, 2022 · 1f018f0 · 1f018f0
1 parent 7422523
commit 1f018f0
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 0 deletions.
diff --git a/project/src/transpiler/aliases.h b/project/src/transpiler/aliases.h
@@ -82,6 +82,7 @@ std::map<std::string, std::string> known_aliases = {
     {"read-as-int32", "+alias c2eo.coperators.read-as-int32"},
     {"read-as-int64", "+alias c2eo.coperators.read-as-int64"},
     {"read-as-ptr", "+alias c2eo.coperators.read-as-ptr"},
+    {"read-as-string", "+alias c2eo.coperators.read-as-string"},
     {"shift-left", "+alias c2eo.coperators.shift-left"},
     {"shift-right", "+alias c2eo.coperators.shift-right"},
     {"times", "+alias c2eo.coperators.times"},
@@ -93,6 +94,7 @@ std::map<std::string, std::string> known_aliases = {
     {"write-as-int32", "+alias c2eo.coperators.write-as-int32"},
     {"write-as-int64", "+alias c2eo.coperators.write-as-int64"},
     {"write-as-ptr", "+alias c2eo.coperators.write-as-ptr"},
+    {"write-as-string", "+alias c2eo.coperators.write-as-string"},
 };
 
 #endif

diff --git a/result/eo/c2eo/coperators/read-as-string.eo b/result/eo/c2eo/coperators/read-as-string.eo
@@ -0,0 +1,7 @@
++package c2eo.coperators
+
+[a] > read-as-string
+  if. > @
+    (a.read 1).as-int.gte 0
+    (00-00-00-00.concat (a.read 4)).as-int
+    (FF-FF-FF-FF.concat (a.read 4)).as-int
diff --git a/result/eo/c2eo/coperators/wirte-as-string.eo b/result/eo/c2eo/coperators/wirte-as-string.eo
@@ -0,0 +1,10 @@
++package c2eo.coperators
+
+[a b] > write-as-string
+  memory 1 > len
+  seq > @
+    while.
+      (((a.read len).slice (len.sub 1) 1).eq 00-).not
+      [i]
+        len.write (len.add 1) > @
+    a.read (len.sub 1)