testfaelle von thomas ogrisegg (newsgroup)

diff --git a/parser/tom_all.0 b/parser/tom_all.0
new file mode 100644 (file)
index 0000000..5cfc750
--- /dev/null
+++ b/parser/tom_all.0
@@ -0,0 +1,19 @@
+/* all - teste alle ableitungen */
+struct
+a
+end;
+
+method b(c d)
+  var e := 0;
+  c := e;
+  d = e;
+  if (e = d) then c := 1-2; end;
+  if (e < d) then c := 1 or 2 or 3; else c := c * d * e; end;
+  while (not d) do
+     d := d.c - d -d - d;
+     d.c := c.d - d.c;
+     b (d, c);
+     b.b (c, d);
+  end;
+  return c = d;
+end;

diff --git a/parser/tom_empty.0 b/parser/tom_empty.0
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/parser/tom_emptym.0 b/parser/tom_emptym.0
new file mode 100644 (file)
index 0000000..d614d17
--- /dev/null
+++ b/parser/tom_emptym.0
@@ -0,0 +1,2 @@
+method m(a b c d e)
+end;

diff --git a/parser/tom_emptys.0 b/parser/tom_emptys.0
new file mode 100644 (file)
index 0000000..8232d85
--- /dev/null
+++ b/parser/tom_emptys.0
@@ -0,0 +1 @@
+struct end;

diff --git a/parser/tom_minus.2 b/parser/tom_minus.2
new file mode 100644 (file)
index 0000000..a37cbe2
--- /dev/null
+++ b/parser/tom_minus.2
@@ -0,0 +1,3 @@
+method m(a)
+  a := --1;
+end;

diff --git a/parser/tom_multeq.2 b/parser/tom_multeq.2
new file mode 100644 (file)
index 0000000..6e52224
--- /dev/null
+++ b/parser/tom_multeq.2
@@ -0,0 +1,3 @@
+method m (a b)
+  return a = b = a;
+end;

diff --git a/parser/tom_multgt.2 b/parser/tom_multgt.2
new file mode 100644 (file)
index 0000000..075b941
--- /dev/null
+++ b/parser/tom_multgt.2
@@ -0,0 +1,3 @@
+method m (a b)
+  return a < b < a;
+end;

diff --git a/parser/tom_multi.2 b/parser/tom_multi.2
new file mode 100644 (file)
index 0000000..9a45f37
--- /dev/null
+++ b/parser/tom_multi.2
@@ -0,0 +1,3 @@
+method m (a b c d)
+  return a or b - c;
+end;

diff --git a/parser/tom_order.0 b/parser/tom_order.0
new file mode 100644 (file)
index 0000000..f8dc849
--- /dev/null
+++ b/parser/tom_order.0
@@ -0,0 +1,5 @@
+method a(b)
+ return b;
+end;
+
+struct c d e end;

diff --git a/scanner/tom_genchar.sh b/scanner/tom_genchar.sh
new file mode 100644 (file)
index 0000000..d7de906
--- /dev/null
+++ b/scanner/tom_genchar.sh
@@ -0,0 +1,6 @@
+#!/bin/bash
+
+#good: 40,41,42,44,45,46,58-61,
+for i in `seq 0 8` `seq 11 31` `seq 33 39` 43 47 62 63 64 91 92 93 94 96 `seq 123 128`
+       do printf "%x" $i | ( read a; echo -en "\x$a" ) > cc$i.1
+done

diff --git a/scanner/tom_t0g.0 b/scanner/tom_t0g.0
new file mode 100644 (file)
index 0000000..d3d504d
--- /dev/null
+++ b/scanner/tom_t0g.0
@@ -0,0 +1 @@
+0xd3ad if haha

diff --git a/scanner/tom_t0g.out b/scanner/tom_t0g.out
new file mode 100644 (file)
index 0000000..fe5459c
--- /dev/null
+++ b/scanner/tom_t0g.out
@@ -0,0 +1,3 @@
+num d3ad
+if
+ident haha

diff --git a/scanner/tom_t1g.0 b/scanner/tom_t1g.0
new file mode 100644 (file)
index 0000000..2ecc787
--- /dev/null
+++ b/scanner/tom_t1g.0
@@ -0,0 +1 @@
+0xD3AD if haha

diff --git a/scanner/tom_t1g.1 b/scanner/tom_t1g.1
new file mode 100644 (file)
index 0000000..2f80c13
--- /dev/null
+++ b/scanner/tom_t1g.1
@@ -0,0 +1,3 @@
+/*
+ein kommentar bricht ab
+*
\ No newline at end of file

diff --git a/scanner/tom_t1g.out b/scanner/tom_t1g.out
new file mode 100644 (file)
index 0000000..fe5459c
--- /dev/null
+++ b/scanner/tom_t1g.out
@@ -0,0 +1,3 @@
+num d3ad
+if
+ident haha

diff --git a/scanner/tom_t2g.0 b/scanner/tom_t2g.0
new file mode 100644 (file)
index 0000000..59bfc83
--- /dev/null
+++ b/scanner/tom_t2g.0
@@ -0,0 +1,8 @@
+/* kommentar */
+0xdead
+/*
+mehrzeiliges kommentar
+blaha
+blablabla
+*/
+0xbeef

diff --git a/scanner/tom_t2g.out b/scanner/tom_t2g.out
new file mode 100644 (file)
index 0000000..0bda005
--- /dev/null
+++ b/scanner/tom_t2g.out
@@ -0,0 +1,2 @@
+num dead
+num beef

diff --git a/scanner/tom_t3g.1 b/scanner/tom_t3g.1
new file mode 100644 (file)
index 0000000..fdc7b80
--- /dev/null
+++ b/scanner/tom_t3g.1
@@ -0,0 +1,2 @@
+blablabla
+/* kommentar das nie wieder aufhoeren wird...

diff --git a/scanner/tom_t4g.0 b/scanner/tom_t4g.0
new file mode 100644 (file)
index 0000000..ec64344
--- /dev/null
+++ b/scanner/tom_t4g.0
@@ -0,0 +1,3 @@
+/*****
+ein kommentar ganz alleine
+*****/

diff --git a/scanner/tom_t4g.out b/scanner/tom_t4g.out
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/scanner/tom_t5g.0 b/scanner/tom_t5g.0
new file mode 100644 (file)
index 0000000..4143764
--- /dev/null
+++ b/scanner/tom_t5g.0
@@ -0,0 +1,4 @@
+blubb
+/*
+ein kommentar ganz am ende
+*/
\ No newline at end of file

diff --git a/scanner/tom_t5g.1 b/scanner/tom_t5g.1
new file mode 100644 (file)
index 0000000..b0ab4c2
--- /dev/null
+++ b/scanner/tom_t5g.1
@@ -0,0 +1 @@
+if 0 = \18 0

diff --git a/scanner/tom_t5g.out b/scanner/tom_t5g.out
new file mode 100644 (file)
index 0000000..c8fbf94
--- /dev/null
+++ b/scanner/tom_t5g.out
@@ -0,0 +1 @@
+ident blubb

diff --git a/scanner/tom_t6g.0 b/scanner/tom_t6g.0
new file mode 100644 (file)
index 0000000..e43e86d
--- /dev/null
+++ b/scanner/tom_t6g.0
@@ -0,0 +1 @@
+if039 000313

diff --git a/scanner/tom_t6g.out b/scanner/tom_t6g.out
new file mode 100644 (file)
index 0000000..3800b09
--- /dev/null
+++ b/scanner/tom_t6g.out
@@ -0,0 +1,2 @@
+ident if039
+num 139

diff --git a/scanner/tom_t7g.0 b/scanner/tom_t7g.0
new file mode 100644 (file)
index 0000000..62615a8
--- /dev/null
+++ b/scanner/tom_t7g.0
@@ -0,0 +1 @@
+_ _a _A A_ a_ _39

diff --git a/scanner/tom_t7g.out b/scanner/tom_t7g.out
new file mode 100644 (file)
index 0000000..f4e669c
--- /dev/null
+++ b/scanner/tom_t7g.out
@@ -0,0 +1,6 @@
+ident _
+ident _a
+ident _A
+ident A_
+ident a_
+ident _39

diff --git a/scanner/tom_t8g.0 b/scanner/tom_t8g.0
new file mode 100644 (file)
index 0000000..8554846
--- /dev/null
+++ b/scanner/tom_t8g.0
@@ -0,0 +1,6 @@
+/**/
+/*
+*/
+
+                       
+      _a /**/foo/*bar*/0x123/**/

diff --git a/scanner/tom_t8g.1 b/scanner/tom_t8g.1
new file mode 100644 (file)
index 0000000..63ea916
--- /dev/null
+++ b/scanner/tom_t8g.1
@@ -0,0 +1 @@
+/*/

diff --git a/scanner/tom_t8g.out b/scanner/tom_t8g.out
new file mode 100644 (file)
index 0000000..2407f1b
--- /dev/null
+++ b/scanner/tom_t8g.out
@@ -0,0 +1,3 @@
+ident _a
+ident foo
+num 123

diff --git a/scanner/tom_t9g.0 b/scanner/tom_t9g.0
new file mode 100644 (file)
index 0000000..faf4a91
--- /dev/null
+++ b/scanner/tom_t9g.0
@@ -0,0 +1,2 @@
+struct;end(method)var:=if.then-else*while<do=return,not or this
+STRUCT EnD mEthod

diff --git a/scanner/tom_t9g.out b/scanner/tom_t9g.out
new file mode 100644 (file)
index 0000000..51185f9
--- /dev/null
+++ b/scanner/tom_t9g.out
@@ -0,0 +1,26 @@
+struct
+;
+end
+(
+method
+)
+var
+:=
+if
+.
+then
+-
+else
+*
+while
+<
+do
+=
+return
+,
+not
+or
+this
+ident STRUCT
+ident EnD
+ident mEthod