Kersm Parser Testfile richtig benannt.

diff --git a/parser/kersm00.2 b/parser/kersm00.2
deleted file mode 100644 (file)
index ae832e6..0000000
--- a/parser/kersm00.2
+++ /dev/null
@@ -1,40 +0,0 @@
-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/parser/kersm_00.2 b/parser/kersm_00.2
new file mode 100644 (file)
index 0000000..ae832e6
--- /dev/null
+++ b/parser/kersm_00.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/kersm00.0 b/scanner/kersm00.0
deleted file mode 100644 (file)
index ae832e6..0000000
--- a/scanner/kersm00.0
+++ /dev/null
@@ -1,40 +0,0 @@
-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/kersm00.out b/scanner/kersm00.out
deleted file mode 100644 (file)
index c233f3f..0000000
--- a/scanner/kersm00.out
+++ /dev/null
@@ -1,89 +0,0 @@
-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