From ff33eb8c4394cf677fb7f54396f9b68c0279dc9a Mon Sep 17 00:00:00 2001
From: Snafu <stuff@c-gabriel.at>
Date: Mon, 29 Mar 2010 16:00:38 +0200
Subject: [PATCH] Kersm Parser Testfile richtig benannt.

---
 parser/{kersm00.2 => kersm_00.2} |  0
 scanner/kersm00.0                | 40 --------------
 scanner/kersm00.out              | 89 --------------------------------
 3 files changed, 129 deletions(-)
 rename parser/{kersm00.2 => kersm_00.2} (100%)
 delete mode 100644 scanner/kersm00.0
 delete mode 100644 scanner/kersm00.out

diff --git a/parser/kersm00.2 b/parser/kersm_00.2
similarity index 100%
rename from parser/kersm00.2
rename to parser/kersm_00.2
diff --git a/scanner/kersm00.0 b/scanner/kersm00.0
deleted file mode 100644
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
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
-- 
2.25.1