Added kersm testcases

diff --git a/parser/kersm.2 b/parser/kersm.2
new file mode 100644 (file)
index 0000000..ae832e6
--- /dev/null
+++ b/parser/kersm.2
@@ -0,0 +1,40 @@
+method TForm1.FindString()
+var hFile;
+
+struct
+    pIniData;
+    pData;
+end;
+
+  /* Initalize Data */
+  hMapping  := _INVALID_HANDLE_VALUE;
+  pIniData     := 0x13;
+
+  result := 1;
+
+
+      /* Search File in Workspace... */
+      filename := abc;
+      if FileExists(aSearchFile) then
+        filename := aSearchFile;
+      else
+        return;
+      end;
+
+      /* CreateFileHandle... */
+      this.hFile := 10 * pIniData;
+
+
+
+      if hFile < INVALID_HANDLE_VALUE then
+       return 0x2345;
+      
+      if hFile = INVALID_HANDLE_VALUE then
+       return 23456;
+
+
+      while not result or pIniData = 0x12 do
+
+       pIniData := pIniData - 1;
+      end;
+end;
\ No newline at end of file

diff --git a/scanner/kersm.0 b/scanner/kersm.0
new file mode 100644 (file)
index 0000000..ae832e6
--- /dev/null
+++ b/scanner/kersm.0
@@ -0,0 +1,40 @@
+method TForm1.FindString()
+var hFile;
+
+struct
+    pIniData;
+    pData;
+end;
+
+  /* Initalize Data */
+  hMapping  := _INVALID_HANDLE_VALUE;
+  pIniData     := 0x13;
+
+  result := 1;
+
+
+      /* Search File in Workspace... */
+      filename := abc;
+      if FileExists(aSearchFile) then
+        filename := aSearchFile;
+      else
+        return;
+      end;
+
+      /* CreateFileHandle... */
+      this.hFile := 10 * pIniData;
+
+
+
+      if hFile < INVALID_HANDLE_VALUE then
+       return 0x2345;
+      
+      if hFile = INVALID_HANDLE_VALUE then
+       return 23456;
+
+
+      while not result or pIniData = 0x12 do
+
+       pIniData := pIniData - 1;
+      end;
+end;
\ No newline at end of file

diff --git a/scanner/kersm.out b/scanner/kersm.out
new file mode 100644 (file)
index 0000000..c233f3f
--- /dev/null
+++ b/scanner/kersm.out
@@ -0,0 +1,89 @@
+method
+ident TForm1
+.
+ident FindString
+(
+)
+var
+ident hFile
+;
+struct
+ident pIniData
+;
+ident pData
+;
+end
+;
+ident hMapping
+:=
+ident _INVALID_HANDLE_VALUE
+;
+ident pIniData
+:=
+num 13
+;
+ident result
+:=
+num 1
+;
+ident filename
+:=
+ident abc
+;
+if
+ident FileExists
+(
+ident aSearchFile
+)
+then
+ident filename
+:=
+ident aSearchFile
+;
+else
+return
+;
+end
+;
+this
+.
+ident hFile
+:=
+num a
+*
+ident pIniData
+;
+if
+ident hFile
+<
+ident INVALID_HANDLE_VALUE 
+then
+return 
+num 2345
+;
+if
+ident hFile
+=
+ident INVALID_HANDLE_VALUE 
+then
+return
+num 5ba0
+;
+while
+not
+ident result
+or
+ident pIniData
+=
+num 12
+do
+ident pIniData
+:= 
+ident pIniData
+-
+num 1
+;
+end
+;
+end
+;
\ No newline at end of file