add examples - initial examples

examples/do.slc

@@ -0,0 +1,26 @@
+/*
+Parses this:
+
+	do {
+		...code...
+	} (...cond...)
+
+Into this:
+
+	...code...
+	while(...cond...) {
+		...code...
+	}
+*/
+
+//  -> [bytecodes]
+::builtin do @body
+	"" parseblock {} // "" means no entry into the symbol table (unnamed function) - equals to 0
+	do@body(.) // (.) does not removes - only (_) no need for gencode because 
+	gen(while) // address top bit 1 when builtin from C
+	genopen() // equal to gencode(1)
+	"" parseblock ()
+	genclose()
+	genopen{}
+	do@body
+	genclose{}

examples/dup.slc

@@ -0,0 +1,4 @@
+:builtin dup @t
+	dup@t(_)
+	dup@t
+	dup@t

examples/for.slc

@@ -0,0 +1,13 @@
+::builtin for
+	parseword drop // TODO: error handling
+	"" ";" parse
+	gen(while)
+	genopen()
+	"" ";" parse
+	genclose()
+	genopen{}
+	"" ")" parse()
+	"" parseblock {}
+	swap
+	genclose{}
+;

examples/gen.slc

@@ -0,0 +1,8 @@
+: gen
+	if(1 !=) {
+		dup 1 -
+		gen
+	}
+;
+
+5 gen

examples/gen_str

@@ -0,0 +1 @@
+"word_name" gen_str // -> session storage-be

examples/if.slc

@@ -0,0 +1,12 @@
+// prefixed builtins with '#'
+// when writing a compiler - like a c-like language
+
+:if
+	()
+	#asm(jz else$)
+	{}
+	#asm(jmp ifend$)
+	#asm(else$:)
+	[]
+	#asm(ifend$:)
+;

examples/strings.slc

@@ -0,0 +1,23 @@
+"word_name" gen_str // -> session storage-be - amúgy ez utf8
+
+"abc" "df" strcon
+/*
+ abc0
+ 0004
+ df00
+ 0002
+*/
+
+// TODO: implement as C builtin instead.. but doable this way
+:builtin strcon @off1 @mod1 @
+	dup
+	7 + 4 /
+	strcon@off1(_) // (_) azt jelenti, hogy pop és változóba tesz, (.) means peek and put in var
+	dup
+	4 %
+	strcon@mod1(_)
+	strcon@off1
+	popat
+	
+	+
+;

examples/swap_builtin.slc

@@ -0,0 +1,7 @@
+// a b -> b a
+:builtin swap @tmp1 @tmp2
+	swap@tmp1(_)
+	swap@tmp2(_)
+	swap@tmp1
+	swap@tmp2
+;

examples/variable.slc

@@ -0,0 +1,2 @@
+: player_data @xpos @ypos @health
+;