From d26ab5f2338aaf07289dd57c7770f85a79cf7b2b Mon Sep 17 00:00:00 2001 From: Florian Jung Date: Sun, 27 Feb 2011 19:53:05 +0100 Subject: Removed ./configure stuff, created simple makefile --- manage0.bas | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 manage0.bas (limited to 'manage0.bas') diff --git a/manage0.bas b/manage0.bas deleted file mode 100644 index 90f7e8e..0000000 --- a/manage0.bas +++ /dev/null @@ -1,30 +0,0 @@ -declare function xtrim (ein as string) as string -dim as string datei,temp - -datei=command - -open datei for input as #1 -do while not eof(1) - line input #1,temp - temp=xtrim(temp) - if lcase(left(temp,10 ))="#include "+chr(22) then 'wir haben ne include! -loop - -function xtrim (ein as string) as string - dim as integer temp,i - dim as string aus,foo - foo=rtrim(ltrim(ein)) - - for i=1 to len(foo) - if mid(foo,i,1)=" " or mid(foo,i,1)=chr(9) then - if temp=0 then - aus+=" " - temp=1 - end if - else - temp=0 - aus+=mid(foo,i,1) - end if - next - return aus -end function -- cgit v1.2.1