add v6 syntax\, reorganize stuff

docs/SPECIFICATION.org

@@ -25,11 +25,13 @@ like.
   are coming from object oriented languages you can think of self as
   "primitive types"
 
-#+begin_example
+#+begin_src ztl
-type «type_token» {
+type «token» {
-  ! values
+  init() {
+    // values
+  }
 }
-#+end_example
+#+end_src ztl
 
 * Substantial Types
 :PROPERTIES:
@@ -85,9 +87,9 @@ normal string
 
 ="«utf8 encoded characters»"=
 
-multiline literal string (also used for string interpolation like in JS)
+string interpolation
 
-=`«utf8 encoded characters» {some_var}`=
+="«utf8 encoded characters» ${some_var}"=
 
 ** logical
 :PROPERTIES:
@@ -110,11 +112,11 @@ monad above and is unwrapped in a similar way. You could also think of
 it as every variable being able to have "the type" and also "error" as a
 possible value.
 
-#+begin_example
+#+begin_src ztl
-set error to %"something borked";
+let rr = err("something borked");
-set some_var to error ?? 0;
+let var = rr ?? 0; // value is 0
-set some_var to error ?? panic(error);
+let other_var = rr ?? panic(rr); // will panic
-#+end_example
+#+end_src ztl
 
 ** datastructure
 :PROPERTIES:
@@ -133,15 +135,13 @@ Types that can be indexes are numbers and strings (no objects);
 syntax (yes I was nice and kept the syntax the same as most C like
 langs)
 
-#+begin_example
+#+begin_src ztl
-! array same as a map of int->«type»
+// array same as a map of int to «type»
+let «variable» = [val1, val2, ...];
 
-set «variable» to [val1, val2, ...] as «type»[];
+// or as a map
-
+let «variable» = {key1: val1, key2: val2, ...};
-! or as a map
+#+end_src ztl
-
-set «variable» to {key1: val1, key2: val2, ...} as «type»->«type»;
-#+end_example
 
 *** tunnel
 :PROPERTIES:
@@ -155,10 +155,10 @@ described in "tunnel" section
 :END:
 The following is a list of global operators and their effect:
 
-- =!=
+- =//=
   - comment
-- =!!=
+- =/**/=
-  - block comment (looks for another !! to close)
+  - block comment
 - =??=
   - unwrap or
 - =+=
@@ -186,9 +186,6 @@ The following is a list of global operators and their effect:
   - curry a function into another function (like haskell shove)
 - =.=
   - accessor
-- =..=
-- expander
-  - (1..10) is the same as writing (1,2,3,4,5,6,7,8,9,10)
 - =++=
   - inline add 1
 - =--=
@@ -237,41 +234,55 @@ The following is a list of global operators and their effect:
 :PROPERTIES:
 :CUSTOM_ID: keywords
 :END:
-=to=
 
-set operator
+=let=
 
-#+begin_example
+let operator
-set «token» to 0;
+
-#+end_example
+#+begin_src ztl
+let «token» = 0;
+#+end_src ztl
 
 =is=
 
 checks if a object is of that type
-=if («token» is i32) {     stdout.print("hello yes self is i32?");   }=
 
-also used for setting constants =const purple is Color(255, 255, 0);=
+#+begin_src ztl
+if («token» is i32) {
+  print("hello yes self is i32?");
+}
+#+end_src ztl
+
+also used for letting constants
+
+#+begin_src ztl
+const PURPLE is Color(255, 255, 0);
+#+end_src ztl
 
 =as=
 
 coerces a type as another type if possible
-=set «token» to 0; ! default is i32   some_functon_that_needs_a_i8(«token» as i8);=
+
+#+begin_src ztl
+let «token» = 0; // default is i32
+some_functon(«token» as i8); // needs an i8
+#+end_src ztl
 
 =in=
 
 checks if a object's type, or a type impls another type
 
-#+begin_example
+#+begin_src ztl
 if («token» in Tunnel) {
-  stdout.print("im tunnel-able");
+  print("im tunnel-able");
 }
-#+end_example
+#+end_src ztl
 
 also used inside of the for loops
 
-#+begin_example
+#+begin_src ztl
 for («token» in «collection») { «body» }
-#+end_example
+#+end_src ztl
 
 ** Object
 :PROPERTIES:
@@ -279,9 +290,9 @@ for («token» in «collection») { «body» }
 :END:
 An object is an invoked type.
 
-#+begin_example
+#+begin_src ztl
-set «variable» to «type»(«fields», …);
+let «variable» = «type»(«fields», …);
-#+end_example
+#+end_src ztl
 
 ** Tunnel
 :PROPERTIES:
@@ -335,19 +346,14 @@ connected tunnel
 =success? : tunnel_object.walk(path_or_endpoint)= -> moves around the
 filesystem or through the graph
 
-#+begin_example
+#+begin_src ztl
-set endpoint to 9p(endpoint_str);
+let endpoint = Tunnel("protocol://path/to/source");
-set tunnel to endpoint.attach(user, auth);
+let tunnel = endpoint.attach(user, auth);
-set data to tunnel.open("\some\resource").read();
+let data = tunnel.open("/some/resource").read();
-stdout.write(data);
+std.write(data); //print(data);
 data.flush();
 endpoint.clunk();
-#+end_example
+#+end_src ztl
-
-in "terminal mode" the default tunnel is stdout
-
-in "web mode" the default tunnels are log, info, trace, warn, error, but
-note these are all special tunnels which only accept write commands
 
 ** Functions
 :PROPERTIES:
@@ -358,11 +364,11 @@ always have a "default type" for all constant values or a developer can
 use the =as= keyword we do not have to define all values like in C,
 while keeping the same type safety as a more strongly typed language.
 
-#+begin_example
+#+begin_src ztl
-fn «token» («type» «parameter», ...) «return_type» {
+fn «token» («parameter» «type», ...) «return_type» {
- «instructions»
+  «body»
 }
-#+end_example
+#+end_src ztl
 
 - Built in transtypes
   - sort
@@ -379,45 +385,43 @@ fn «token» («type» «parameter», ...) «return_type» {
 :PROPERTIES:
 :CUSTOM_ID: loops
 :END:
-#+begin_example
+#+begin_src ztl
 for («token» in «collection») { «body» }
-#+end_example
+#+end_src ztl
 
 iterates through each object in the collection setting it to token
 
-#+begin_example
+#+begin_src ztl
 while («boolean expression») { «body» }
-#+end_example
+#+end_src ztl
 
 loops until the expression is false
 
-#+begin_example
+#+begin_src ztl
 loop { «body» }
-#+end_example
+#+end_src ztl
 
 loops infinitely until break or return
 
-#+begin_example
+#+begin_src ztl
-loop { «body» } until(«boolean expression»);
+do (let «variable» = initial_value, end_value, increment) { «body» }
-#+end_example
+#+end_src ztl
 
-always loops first and then until the expression is false
+loops from initial value to end value by increment value
 
 *** branching
 :PROPERTIES:
 :CUSTOM_ID: branching
 :END:
-#+begin_example
+#+begin_src ztl
-match «token» {
+if («boolean expression») {
- 'a' -> actionA  
+
- 'x' -> actionX
+} else if («boolean expression») {
- 'y'..'z' -> {
+
-  actionY
+} else {
-  actionZ
+
- }
- _ -> actionNoMatch
 }
-#+end_example
+#+end_src ztl
 
 *** exceptions
 :PROPERTIES:
@@ -425,11 +429,11 @@ match «token» {
 :END:
 take a look at error's, but you can panic on an error like self:
 
-#+begin_example
+#+begin_src ztl
-panic(#"error message");
+panic(err("error message"));
-panic(#3);
+panic(err(3));
 panic(«some_error_token»);
-#+end_example
+#+end_src ztl
 
 ** Localization
 :PROPERTIES:
@@ -437,9 +441,9 @@ panic(«some_error_token»);
 :END:
 will look up the text of «token» in the linked localization.json file
 
-#+begin_example
+#+begin_src ztl
-$«token»
+#«token»
-#+end_example
+#+end_src ztl
 
 #+begin_src json
 {
@@ -465,13 +469,13 @@ can even use localization tokens to create config files. Since
 everything is lazily compiled jit anyways it (in theory) doesn't hurt
 pertypeance much
 
-#+begin_example
+#+begin_src ztl
-use "https://code.example.com/some_library/some_file.ztl"
+use "https://git.alfrescocavern.com/some_library/some_file.ztl"
-#+end_example
+#+end_src ztl
 
-#+begin_example
+#+begin_src ztl
 use "./some_local_file.ztl"
-#+end_example
+#+end_src ztl
 
 ** Testing
 :PROPERTIES:
@@ -481,9 +485,9 @@ use "./some_local_file.ztl"
 :PROPERTIES:
 :CUSTOM_ID: assertion
 :END:
-#+begin_example
+#+begin_src ztl
-assert(«expression», «expected output») ! returns «error or none»
+assert(«expression», «expected output») //returns «error or none»
-#+end_example
+#+end_src ztl
 
 ** Measurements
 :PROPERTIES:

docs/old/ideas/idea.zl-vq

@@ -0,0 +1,39 @@
+(set purple (255 255 0))
+
+:main {
+    800 :screen_width set
+    450 :screen_height set
+
+    argv split
+    :username set
+    :password set
+
+    (username (0.0 1.0 2.0) purple) :me set
+    (password (me login)) :players set
+
+    () () me shatter pop exch pop shatter cons 
+    10.0 add cons
+    10.0 add cons
+    me shatter pop exch pop cons
+    (0.0 1.0 0.0) cons
+    45.0 cons
+    "CAMERA_PERSPECTIVE" cons
+    :camera set
+
+    screen_width screen_height "zwl client : raylib" init_window
+    60 set_target_fps
+
+    { 
+      
+      (* Do handling in here *)
+
+      end_mode_3d
+
+      end_drawing
+   } window_should_close repeat  (* Detect window close button or ESC key *)
+
+   me logout :players set
+   close_window (*Close window and OpenGL context *)
+} set
+
+main

docs/old/ideas/idea.zl0b

@@ -16,20 +16,18 @@
    :color    color
 } type
 
-:login {
+:login (player str -> nil) {
-   :player 0 check
-   :str 1 check
 
    (* do the login here *)
 } fn
 
-(255 255 0) :purple color
+255 255 0 :purple color
 
-:main {
+:main (i32 char** -> i32) {
    800 :screen_width  i32
    450 :screen_height i32
 
-   argv split
+   pop shatter
    :username str
    :password str
 
@@ -102,4 +100,4 @@
 
 } fn
 
-main
+argv split count main

docs/old/project-example-v4/language_ztl.lua

@@ -0,0 +1,64 @@
+--mod-version:3
+local syntax = require 'core.syntax'
+
+syntax.add {
+	name = "Zongor's Transpiler Language",
+	files = { "%.ztl$" },
+	comment = "!",
+	block_comment = { '!!', '!!' },
+	patterns = {
+		{ pattern = { "!!", "!!" },     type = "comment"  },                          -- tested ok
+    { pattern = "!.*",                       type = "comment" },
+    { pattern = { '"', '"', '\\' },   type = "string" },
+    { pattern = { "'", "'", '\\' },   type = "string" },
+		{ pattern = ";",                  type = "operator" },
+		{ pattern = "[%a_][%w_]*()%s*%(", type = {"function", "normal"} },
+    { pattern = "[viu][%d_]+",         type = "keyword2" },
+		{ pattern = "[A-Z][%w_]*",        type = "keyword2" },
+		{ pattern = "[9][%w_]*",          type = "keyword2" },
+    { pattern = "-?%.?%d+f?",         type = "number"   },
+	},
+	symbols = {
+	  ["fn"]  = "keyword",
+	  ["to"]  = "keyword",
+	  ["in"]  = "keyword",
+	  ["is"]  = "keyword",
+	  ["as"]  = "keyword",
+		["use"] = "keyword",
+		["set"] = "keyword",
+		["if"] = "keyword",
+		["else"] = "keyword",
+		["for"] = "keyword",
+		["loop"] = "keyword",
+		["while"] = "keyword",
+		["push"] = "keyword",
+		["pop"] = "keyword",
+		["return"] = "keyword",
+		["const"] = "keyword",
+		["type"] = "keyword",
+		["this"] = "keyword",
+
+		["eq"] = "keyword",
+		["ne"] = "keyword",
+		["mod"] = "keyword",
+		["not"] = "keyword",
+		["and"] = "keyword",
+		["or"] = "keyword",
+		["xor"] = "keyword",
+		["band"] = "keyword",
+		["bor"] = "keyword",
+		["bxor"] = "keyword",
+		["srl"] = "keyword",
+		["sll"] = "keyword",
+
+    ["char"] = "keyword2",
+    ["str"] = "keyword2",
+    ["f16"] = "keyword2",
+    ["f32"] = "keyword2",
+    ["f64"] = "keyword2",
+    ["f128"] = "keyword2",
+
+    ["true"]            = "literal",
+    ["false"]           = "literal",
+	},
+}

docs/old/project-example-v4/project.ztl

@@ -0,0 +1,48 @@
+fn build(ProjectConfig c) {
+    c.name("MMO Project");
+    c.mode("dev");
+
+    c.client([
+        LanguageSettings(
+            "c",              ! lang
+            "src/client.ztl", ! file
+            "client/",        ! out path
+            [                 ! ffi settings
+                FFISetting {
+                    "raylib",                   ! libary name
+                    "$RAYLIB_PATH/libraylib.a", ! path
+                    "./",                       ! local path
+                    "make build",               ! build command
+                }
+            ]            
+        )
+    ]);
+
+    c.server([
+        LanguageSettings(
+            "javascript",
+            "src/server.ztl",
+            "server/"           
+        )
+    ]);
+
+    c.common([
+        LanguageSettings(
+            "c",
+            "src/common.ztl",
+            "client/"           
+        },
+        LanguageSettings(
+            "javascript",
+            "src/common.ztl",
+            "server/"           
+        ),
+        LanguageSettings(
+            "sqlite",
+            "src/common.ztl",
+            "db/"           
+        )
+    ]);
+
+    c.build();
+}

docs/old/project-example-v4/src/client.ztl

@@ -0,0 +1,93 @@
+use "common.ztl";
+use "raylib" as rl;
+
+fn main (i32 argc, str[] argv) i32 {
+   set screen_width to 800 as i32;
+   set screen_height to 450 as i32;
+
+   set username to argv[0];
+   set password to argv[1];
+
+   set server to 9p("localhost:25565");
+
+   set me to Player(
+      server,
+      username,
+      Vec(0.0, 1.0, 2.0),
+      purple
+   );
+
+   set players to me.login(password);
+
+   set camera to rl.Camera3D(
+      Vec(0.0, 1.0, 0.0),
+      45.0,
+      CAMERA_PERSPECTIVE,
+      Vec(me.pos.x + 10.0,
+          me.pos.y + 10.0,
+          me.pos.z),
+      me.pos
+   );
+
+   rl.init_window("zwl client : raylib", screen_width, screen_height);
+   rl.set_target_fps(60);
+
+   !!
+   Main game loop
+   !!
+   while ( not rl.window_should_close() ) { ! Detect window close button or ESC key
+
+      set player_updated to false;
+
+      if (rl.is_key_down(KEY_RIGHT)) {
+         set me.pos.x to (me.pos.x + 0.2);
+         set player_updated to true;
+      }
+
+      if (rl.is_key_down(KEY_LEFT)) {
+         set me.pos.x to (me.pos.x + 0.2);
+         set player_updated to true;
+      }
+
+      if (rl.is_key_down(KEY_DOWN)) {
+         set me.pos.z to (me.pos.z + 0.2);
+         set player_updated to true;
+      }
+      
+      if (rl.is_key_down(KEY_UP)) {
+         set me.pos.z to (me.pos.z - 0.2);
+         set player_updated to true;
+      }
+
+      me.sync_camera(camera);
+
+      if (player_updated) {
+         set players to me.move();
+      }  else {
+         set players to me.ping();
+      }
+
+      rl.begin_drawing();
+      rl.clear_background(RAYWHITE);
+
+      rl.begin_mode_3d(camera);
+      
+      ! Draw floor
+      rl.draw_grid(30, 1.0);
+
+      rl.draw_cube(me.pos, 0.5, 0.5, 0.5, me.apperance);
+
+      for (player in players) {
+         rl.draw_cube(player.pos, 0.5, 0.5, 0.5, player.apperance);
+      }
+
+      rl.end_mode_3d();
+
+      rl.end_drawing();
+   } 
+
+   me.logout();
+   close_window(); ! Close window and OpenGL context
+   return 0;
+}
+

docs/old/project-example-v4/src/common.ztl

@@ -0,0 +1,37 @@
+type Vec {
+   init(f32 x, f32 y, f32 z) {
+     set this.x to x;
+     set this.y to y;
+     set this.z to z;
+   }
+}
+
+type Color {
+   init(i8 r, i8 g, i8 b) {
+     set this.r to r;
+     set this.g to g;
+     set this.b to b;
+   }
+}
+
+type Player {
+   init (9p server, str username, Vec pos, Color color) {
+     set this.server to server;
+     set this.username to username;
+     set this.pos to pos;
+     set this.color to color;
+   }
+
+   login (str password) Player[] {
+      this.server.auth(this.username, password);
+      set this.players to server.open("players");
+      return players.read();
+   }
+
+   logout() {
+     this.players.flush();
+     this.server.clunk();
+   }
+}
+
+const purple is Color(255, 255, 0);

docs/old/project-example-v4/src/server.ztl

@@ -0,0 +1,75 @@
+use "common.ztl";
+
+fn main (i32 argc, str[] argv) i32 {
+   set s to 9p (
+          version, 
+          auth, 
+          error, 
+          flush, 
+          attach, 
+          walk, 
+          open, 
+          create, 
+          read, 
+          write, 
+          clunk, 
+          remove, 
+          stat,
+   );
+   
+   s.host("0.0.0.0:25565");
+
+   return 0;
+}
+
+fn version(9pmsg m) {
+
+}
+
+fn auth(9pmsg m) {
+
+}
+
+fn error(9pmsg m) {
+
+}
+
+fn flush(9pmsg m) {
+
+}
+
+fn attach(9pmsg m) {
+
+}
+
+fn walk(9pmsg m) {
+
+}
+
+fn open(9pmsg m) {
+
+}
+
+fn create(9pmsg m) {
+
+}
+
+fn read(9pmsg m) {
+
+}
+
+fn write(9pmsg m) {
+
+}
+
+fn clunk(9pmsg m) {
+
+}
+
+fn remove(9pmsg m) {
+
+}
+
+fn stat(9pmsg m) {
+
+}

docs/old/project-example-v5/language_ztl.lua

@@ -0,0 +1,64 @@
+--mod-version:3
+local syntax = require 'core.syntax'
+
+syntax.add {
+	name = "Zongor's Transpiler Language",
+	files = { "%.ztl$" },
+	comment = "!",
+	block_comment = { '!!', '!!' },
+	patterns = {
+		{ pattern = { "!!", "!!" },     type = "comment"  },                          -- tested ok
+    { pattern = "!.*",                       type = "comment" },
+    { pattern = { '"', '"', '\\' },   type = "string" },
+    { pattern = { "'", "'", '\\' },   type = "string" },
+		{ pattern = ";",                  type = "operator" },
+		{ pattern = "[%a_][%w_]*()%s*%(", type = {"function", "normal"} },
+    { pattern = "[viu][%d_]+",         type = "keyword2" },
+		{ pattern = "[A-Z][%w_]*",        type = "keyword2" },
+		{ pattern = "[9][%w_]*",          type = "keyword2" },
+    { pattern = "-?%.?%d+f?",         type = "number"   },
+	},
+	symbols = {
+	  ["fn"]  = "keyword",
+	  ["to"]  = "keyword",
+	  ["in"]  = "keyword",
+	  ["is"]  = "keyword",
+	  ["as"]  = "keyword",
+		["use"] = "keyword",
+		["set"] = "keyword",
+		["if"] = "keyword",
+		["else"] = "keyword",
+		["for"] = "keyword",
+		["loop"] = "keyword",
+		["while"] = "keyword",
+		["push"] = "keyword",
+		["pop"] = "keyword",
+		["return"] = "keyword",
+		["const"] = "keyword",
+		["type"] = "keyword",
+		["this"] = "keyword",
+
+		["eq"] = "keyword",
+		["ne"] = "keyword",
+		["mod"] = "keyword",
+		["not"] = "keyword",
+		["and"] = "keyword",
+		["or"] = "keyword",
+		["xor"] = "keyword",
+		["band"] = "keyword",
+		["bor"] = "keyword",
+		["bxor"] = "keyword",
+		["srl"] = "keyword",
+		["sll"] = "keyword",
+
+    ["char"] = "keyword2",
+    ["str"] = "keyword2",
+    ["f16"] = "keyword2",
+    ["f32"] = "keyword2",
+    ["f64"] = "keyword2",
+    ["f128"] = "keyword2",
+
+    ["true"]            = "literal",
+    ["false"]           = "literal",
+	},
+}

docs/old/project-example-v5/project.ztl

@@ -0,0 +1,48 @@
+fn build(ProjectConfig c) {
+    c.name("MMO Project");
+    c.mode("dev");
+
+    c.client([
+        LanguageSettings(
+            "c",              ! lang
+            "src/client.ztl", ! file
+            "client/",        ! out path
+            [                 ! ffi settings
+                FFISetting (
+                    "raylib",                   ! libary name
+                    "$RAYLIB_PATH/libraylib.a", ! path
+                    "./",                       ! local path
+                    "make build",               ! build command
+                )
+            ]            
+        )
+    ]);
+
+    c.server([
+        LanguageSettings(
+            "javascript",
+            "src/server.ztl",
+            "server/"           
+        )
+    ]);
+
+    c.common([
+        LanguageSettings(
+            "c",
+            "src/common.ztl",
+            "client/"           
+        ),
+        LanguageSettings(
+            "javascript",
+            "src/common.ztl",
+            "server/"           
+        ),
+        LanguageSettings(
+            "sqlite",
+            "src/common.ztl",
+            "db/"           
+        )
+    ]);
+
+    c.build();
+}

docs/old/project-example-v5/src/client.ztl

@@ -0,0 +1,93 @@
+use "common.ztl";
+
+fn main (argc num, argv str) num {
+   let screen_width = 800;
+   let screen_height = 450;
+
+   let username = argv[0];
+   let password = argv[1];
+
+   let server = 9p("localhost:25565");
+
+   let me = Player(
+      server,
+      username,
+      Vec(0.0, 1.0, 2.0),
+      purple
+   );
+
+   let players = me.login(password);
+
+   let camera = Camera3D(
+      "CAMERA_PERSPECTIVE",
+      45.0,
+      Vec(0.0, 1.0, 0.0),
+      Vec(me.pos.x + 10.0,
+          me.pos.y + 10.0,
+          me.pos.z),
+      me.pos
+   );
+
+   init_window("zwl client : raylib", screen_width, screen_height);
+   target_fps(60);
+
+   while ( not window_should_close() ) {
+
+      let player_updated = false;
+
+      if (key_down(KEY_RIGHT)) {
+         me.pos.x = (me.pos.x + 0.2);
+         player_updated = true;
+      }
+
+      if (key_down(KEY_RIGHT)) {
+         me.pos.x = (me.pos.x + 0.2);
+         player_updated = true;
+      }
+
+      if (key_down(KEY_LEFT)) {
+         me.pos.x = (me.pos.x + 0.2);
+         player_updated = true;
+      }
+
+      if (key_down(KEY_DOWN)) {
+         me.pos.z = (me.pos.z + 0.2);
+         player_updated = true;
+      }
+      
+      if (key_down(KEY_UP)) {
+         me.pos.z = (me.pos.z - 0.2);
+         player_updated = true;
+      }
+
+      me.sync_camera(camera);
+
+      if (player_updated) {
+         players = me.move();
+      }  else {
+         players = me.ping();
+      }
+
+      begin_drawing();
+      clear_background(RAYWHITE);
+
+      begin_mode_3d(camera);
+      
+      draw_grid(30, 1.0);
+
+      draw_cube(me.pos, 0.5, 0.5, 0.5, me.apperance);
+
+      for (player in players) {
+         draw_cube(player.pos, 0.5, 0.5, 0.5, player.apperance);
+      }
+
+      end_mode_3d();
+
+      end_drawing();
+   } 
+
+   me.logout();
+   close_window();
+   return 0;
+}
+

docs/old/project-example-v5/src/common.ztl

@@ -0,0 +1,47 @@
+type Vec {
+   init(x f32, y f32, z f32) {
+     this.x = x;
+     this.y = y;
+     this.z = z;
+   }
+}
+
+type Color {
+   init(r i8, g i8, b i8) {
+     this.r = r;
+     this.g = g;
+     this.b = b;
+   }
+}
+
+type Camera3D {
+   init(setting str, pov f32, up Vec, pos Vec, look Vec) {
+     this.setting = setting;
+     this.pov = pov;
+     this.up = up;
+     this.pos = pos;
+     this.look = look;
+   }
+}
+
+type Player {
+   init (server 9p, username str, pos Vec, color Color) {
+     this.server = server;
+     this.username = username;
+     this.pos = pos;
+     this.color = color;
+   }
+
+   login (password str) Player[] {
+      this.server.auth(this.username, password);
+      this.players = server.open("players");
+      return players.read();
+   }
+
+   logout() {
+     this.players.flush();
+     this.server.clunk();
+   }
+}
+
+const purple = Color(255, 255, 0);

docs/old/project-example-v5/src/server.ztl

@@ -0,0 +1,75 @@
+use "common.ztl";
+
+fn main (i32 argc, str[] argv) i32 {
+   set s to 9p (
+          version, 
+          auth, 
+          error, 
+          flush, 
+          attach, 
+          walk, 
+          open, 
+          create, 
+          read, 
+          write, 
+          clunk, 
+          remove, 
+          stat,
+   );
+   
+   s.host("0.0.0.0:25565");
+
+   return 0;
+}
+
+fn version(9pmsg m) {
+
+}
+
+fn auth(9pmsg m) {
+
+}
+
+fn error(9pmsg m) {
+
+}
+
+fn flush(9pmsg m) {
+
+}
+
+fn attach(9pmsg m) {
+
+}
+
+fn walk(9pmsg m) {
+
+}
+
+fn open(9pmsg m) {
+
+}
+
+fn create(9pmsg m) {
+
+}
+
+fn read(9pmsg m) {
+
+}
+
+fn write(9pmsg m) {
+
+}
+
+fn clunk(9pmsg m) {
+
+}
+
+fn remove(9pmsg m) {
+
+}
+
+fn stat(9pmsg m) {
+
+}

docs/project-example/language_ztl.lua

@@ -4,61 +4,60 @@ local syntax = require 'core.syntax'
 syntax.add {
 	name = "Zongor's Transpiler Language",
 	files = { "%.ztl$" },
-	comment = "!",
+	comment = "//",
-	block_comment = { '!!', '!!' },
+	block_comment = { '/*', '*/' },
 	patterns = {
-		{ pattern = { "!!", "!!" },     type = "comment"  },                          -- tested ok
+	   { pattern = { "/*", "*/" },       type = "comment"  }, 
-    { pattern = "!.*",                       type = "comment" },
+	   { pattern = "//.*",               type = "comment" },
-    { pattern = { '"', '"', '\\' },   type = "string" },
+	   { pattern = { '"', '"', '\\' },   type = "string" },
-    { pattern = { "'", "'", '\\' },   type = "string" },
+	   { pattern = { "'", "'", '\\' },   type = "string" },
-		{ pattern = ";",                  type = "operator" },
+	   { pattern = ";",                  type = "operator" },
-		{ pattern = "[%a_][%w_]*()%s*%(", type = {"function", "normal"} },
+	   { pattern = "[%a_][%w_]*()%s*%(", type = {"function", "normal"} },
-    { pattern = "[viu][%d_]+",         type = "keyword2" },
+	   { pattern = "[iu][%d_]+",         type = "keyword2" },
-		{ pattern = "[A-Z][%w_]*",        type = "keyword2" },
+	   { pattern = "[A-Z][%w_]*",        type = "keyword2" },
-		{ pattern = "[9][%w_]*",          type = "keyword2" },
+	   { pattern = "-?%.?%d+f?",         type = "number"   },
-    { pattern = "-?%.?%d+f?",         type = "number"   },
 	},
 	symbols = {
-	  ["fn"]  = "keyword",
+	   ["fn"]  = "keyword",
-	  ["to"]  = "keyword",
+	   ["to"]  = "keyword",
-	  ["in"]  = "keyword",
+	   ["in"]  = "keyword",
-	  ["is"]  = "keyword",
+	   ["is"]  = "keyword",
-	  ["as"]  = "keyword",
+	   ["as"]  = "keyword",
-		["use"] = "keyword",
+	   ["use"] = "keyword",
-		["set"] = "keyword",
+	   ["set"] = "keyword",
-		["if"] = "keyword",
+	   ["if"] = "keyword",
-		["else"] = "keyword",
+	   ["else"] = "keyword",
-		["for"] = "keyword",
+	   ["for"] = "keyword",
-		["loop"] = "keyword",
+	   ["loop"] = "keyword",
-		["while"] = "keyword",
+	   ["while"] = "keyword",
-		["push"] = "keyword",
+	   ["push"] = "keyword",
-		["pop"] = "keyword",
+	   ["pop"] = "keyword",
-		["return"] = "keyword",
+	   ["return"] = "keyword",
-		["const"] = "keyword",
+	   ["const"] = "keyword",
-		["type"] = "keyword",
+	   ["type"] = "keyword",
-		["this"] = "keyword",
+	   ["this"] = "keyword",
 	   
-		["eq"] = "keyword",
+	   ["eq"] = "keyword",
-		["ne"] = "keyword",
+	   ["ne"] = "keyword",
-		["mod"] = "keyword",
+	   ["mod"] = "keyword",
-		["not"] = "keyword",
+	   ["not"] = "keyword",
-		["and"] = "keyword",
+	   ["and"] = "keyword",
-		["or"] = "keyword",
+	   ["or"] = "keyword",
-		["xor"] = "keyword",
+	   ["xor"] = "keyword",
-		["band"] = "keyword",
+	   ["band"] = "keyword",
-		["bor"] = "keyword",
+	   ["bor"] = "keyword",
-		["bxor"] = "keyword",
+	   ["bxor"] = "keyword",
-		["srl"] = "keyword",
+	   ["srl"] = "keyword",
-		["sll"] = "keyword",
+	   ["sll"] = "keyword",
 	   
-    ["char"] = "keyword2",
+	   ["char"] = "keyword2",
-    ["str"] = "keyword2",
+	   ["str"] = "keyword2",
-    ["f16"] = "keyword2",
+	   ["f16"] = "keyword2",
-    ["f32"] = "keyword2",
+	   ["f32"] = "keyword2",
-    ["f64"] = "keyword2",
+	   ["f64"] = "keyword2",
-    ["f128"] = "keyword2",
+	   ["f128"] = "keyword2",
 	   
-    ["true"]            = "literal",
+	   ["true"]            = "literal",
-    ["false"]           = "literal",
+	   ["false"]           = "literal",
 	},
 }

docs/project-example/project.ztl

@@ -8,12 +8,12 @@ fn build(ProjectConfig c) {
             "src/client.ztl", ! file
             "client/",        ! out path
             [                 ! ffi settings
-                FFISetting {
+                FFISetting (
                     "raylib",                   ! libary name
                     "$RAYLIB_PATH/libraylib.a", ! path
                     "./",                       ! local path
                     "make build",               ! build command
-                }
+                )
             ]            
         )
     ]);
@@ -31,7 +31,7 @@ fn build(ProjectConfig c) {
             "c",
             "src/common.ztl",
             "client/"           
-        },
+        ),
         LanguageSettings(
             "javascript",
             "src/common.ztl",

docs/project-example/src/client.ztl

@@ -1,93 +1,45 @@
 use "common.ztl";
-use "raylib" as rl;
 
-fn main (i32 argc, str[] argv) i32 {
+fn main (argc int, argv str[]) int {
-   set screen_width to 800 as i32;
+   let screen_width = 800;
-   set screen_height to 450 as i32;
+   let screen_height = 450;
 
-   set username to argv[0];
+   let username = argv[0];
-   set password to argv[1];
+   let password = argv[1];
 
-   set server to 9p("localhost:25565");
+   let me = Player(
-
-   set me to Player(
-      server,
       username,
-      Vec(0.0, 1.0, 2.0),
+      Vec3(0.0, 1.0, 2.0),
       purple
    );
 
-   set players to me.login(password);
+   let players = me.login(password);
 
-   set camera to rl.Camera3D(
+   let window = Window("zwl client", screen_width, screen_height);
-      Vec(0.0, 1.0, 0.0),
-      45.0,
-      CAMERA_PERSPECTIVE,
-      Vec(me.pos.x + 10.0,
-          me.pos.y + 10.0,
-          me.pos.z),
-      me.pos
-   );
 
-   rl.init_window("zwl client : raylib", screen_width, screen_height);
+   while ( not window.should_close() ) {
-   rl.set_target_fps(60);
+      me.update();
 
-   !!
+      window.begin_drawing();
-   Main game loop
+      window.clear_background(WHITE);
-   !!
-   while ( not rl.window_should_close() ) { ! Detect window close button or ESC key
 
-      set player_updated to false;
+      window.begin_mode_3d(camera);
       
-      if (rl.is_key_down(KEY_RIGHT)) {
+      window.draw_grid(30, 1.0);
-         set me.pos.x to (me.pos.x + 0.2);
-         set player_updated to true;
-      }
 
-      if (rl.is_key_down(KEY_LEFT)) {
+      window.draw_cube(me.pos, 0.5, 0.5, 0.5, me.apperance);
-         set me.pos.x to (me.pos.x + 0.2);
-         set player_updated to true;
-      }
-
-      if (rl.is_key_down(KEY_DOWN)) {
-         set me.pos.z to (me.pos.z + 0.2);
-         set player_updated to true;
-      }
-      
-      if (rl.is_key_down(KEY_UP)) {
-         set me.pos.z to (me.pos.z - 0.2);
-         set player_updated to true;
-      }
-
-      me.sync_camera(camera);
-
-      if (player_updated) {
-         set players to me.move();
-      }  else {
-         set players to me.ping();
-      }
-
-      rl.begin_drawing();
-      rl.clear_background(RAYWHITE);
-
-      rl.begin_mode_3d(camera);
-      
-      ! Draw floor
-      rl.draw_grid(30, 1.0);
-
-      rl.draw_cube(me.pos, 0.5, 0.5, 0.5, me.apperance);
 
       for (player in players) {
-         rl.draw_cube(player.pos, 0.5, 0.5, 0.5, player.apperance);
+         window.draw_cube(player.pos, 0.5, 0.5, 0.5, player.apperance);
       }
 
-      rl.end_mode_3d();
+      window.end_mode_3d();
 
-      rl.end_drawing();
+      window.end_drawing();
    } 
 
    me.logout();
-   close_window(); ! Close window and OpenGL context
+   window.close();
    return 0;
 }
 

docs/project-example/src/common.ztl

@@ -1,30 +1,46 @@
-type Vec {
+type Vec3 {
-   init(f32 x, f32 y, f32 z) {
+   init(x real, y real, z real) {
-     set this.x to x;
+     this.x = x;
-     set this.y to y;
+     this.y = y;
-     set this.z to z;
+     this.z = z;
    }
 }
 
 type Color {
-   init(i8 r, i8 g, i8 b) {
+   init(r i8, g i8, b i8) {
-     set this.r to r;
+     this.r = r;
-     set this.g to g;
+     this.g = g;
-     set this.b to b;
+     this.b = b;
+   }
+}
+
+type Camera {
+   init(pos Vec3, look Vec3) {
+     this.setting = "CAMERA_PERSPECTIVE";
+     this.pov = 45.0;
+     this.up = Vec3(0.0, 1.0, 0.0);
+     this.pos = pos;
+     this.look = look;
    }
 }
 
 type Player {
-   init (9p server, str username, Vec pos, Color color) {
+   init (username str, pos Vec3, color Color) {
-     set this.server to server;
+     this.server = Tunnel("localhost:25565");
-     set this.username to username;
+     this.username = username;
-     set this.pos to pos;
+     this.pos = pos;
-     set this.color to color;
+     this.color = color;
+     this.camera = Camera(
+        Vec3(this.pos.x + 10.0,
+         this.pos.y + 10.0,
+         this.pos.z),
+        this.pos
+     );
    }
 
-   login (str password) Player[] {
+   login (password str) Player[] {
-      this.server.auth(this.username, password);
+      this.server.attach(this.username, password);
-      set this.players to server.open("players");
+      this.players = server.open("players");
       return players.read();
    }
 
@@ -32,6 +48,30 @@ type Player {
      this.players.flush();
      this.server.clunk();
    }
+
+   update() {
+      if (key_down(KEY_RIGHT)) {
+        this.pos.x = this.pos.x + 0.2;
+        this.server.write(Command(this.username, KEY_RIGHT))
+      }
+
+      if (key_down(KEY_LEFT)) {
+        this.pos.x = this.pos.x - 0.2;
+        this.server.write(Command(this.username, KEY_LEFT))
+      }
+
+      if (key_down(KEY_DOWN)) {
+        this.pos.z = this.pos.z + 0.2;
+        this.server.write(Command(this.username, KEY_DOWN))
+      }
+      
+      if (key_down(KEY_UP)) {
+        this.pos.z = this.pos.z - 0.2;
+        this.server.write(Command(this.username, KEY_UP))
+      }
+      this.camera.sync();
+   }
 }
 
-const purple is Color(255, 255, 0);
+const PURPLE is Color(255, 255, 0);
+const WHITE is Color(0, 0, 0);

docs/project-example/src/server.ztl

@@ -1,75 +1,6 @@
 use "common.ztl";
 
-fn main (i32 argc, str[] argv) i32 {
+fn main (argc i32, argv str[]) i32 {
-   set s to 9p (
+   let s = Server("0.0.0.0:25565");
-          version, 
+   return s.start();
-          auth, 
-          error, 
-          flush, 
-          attach, 
-          walk, 
-          open, 
-          create, 
-          read, 
-          write, 
-          clunk, 
-          remove, 
-          stat,
-   );
-   
-   s.host("0.0.0.0:25565");
-
-   return 0;
-}
-
-fn version(9pmsg m) {
-
-}
-
-fn auth(9pmsg m) {
-
-}
-
-fn error(9pmsg m) {
-
-}
-
-fn flush(9pmsg m) {
-
-}
-
-fn attach(9pmsg m) {
-
-}
-
-fn walk(9pmsg m) {
-
-}
-
-fn open(9pmsg m) {
-
-}
-
-fn create(9pmsg m) {
-
-}
-
-fn read(9pmsg m) {
-
-}
-
-fn write(9pmsg m) {
-
-}
-
-fn clunk(9pmsg m) {
-
-}
-
-fn remove(9pmsg m) {
-
-}
-
-fn stat(9pmsg m) {
-
 }