diff options
author | Florian Jung <flo@thinkpad.(none)> | 2011-02-27 19:53:05 +0100 |
---|---|---|
committer | Florian Jung <flo@thinkpad.(none)> | 2011-02-27 19:53:05 +0100 |
commit | d26ab5f2338aaf07289dd57c7770f85a79cf7b2b (patch) | |
tree | 763147d5f178d7db09910b5ab2fe8fe6d75afa9b /manage0.bas | |
parent | dacd393fefeabafd1306533dd6c5a56e0ab347cc (diff) |
Removed ./configure stuff, created simple makefile
Diffstat (limited to 'manage0.bas')
-rw-r--r-- | manage0.bas | 30 |
1 files changed, 0 insertions, 30 deletions
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 |