From e1604ebaefaf8ead530f196e3117107d24a526da Mon Sep 17 00:00:00 2001
From: Snafu <stuff@c-gabriel.at>
Date: Mon, 29 Mar 2010 15:28:42 +0200
Subject: [PATCH] Scanner Testfiles von kersm

---
 scanner/kersm_00.0   | 40 ++++++++++++++++++++
 scanner/kersm_00.out | 89 ++++++++++++++++++++++++++++++++++++++++++++
 scanner/kersm_01.1   | 40 ++++++++++++++++++++
 3 files changed, 169 insertions(+)
 create mode 100644 scanner/kersm_00.0
 create mode 100644 scanner/kersm_00.out
 create mode 100644 scanner/kersm_01.1

diff --git a/scanner/kersm_00.0 b/scanner/kersm_00.0
new file mode 100644
index 0000000..ae832e6
--- /dev/null
+++ b/scanner/kersm_00.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_00.out b/scanner/kersm_00.out
new file mode 100644
index 0000000..c233f3f
--- /dev/null
+++ b/scanner/kersm_00.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
diff --git a/scanner/kersm_01.1 b/scanner/kersm_01.1
new file mode 100644
index 0000000..027132d
--- /dev/null
+++ b/scanner/kersm_01.1
@@ -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
-- 
2.25.1