Sorry your browser is not supported!

sync on
nc on
 on
n
sync rate 40
nc rate 40
 rate 40
ate 40
e 40
40
texture object 5,2
xture object 5,2
ure object 5,2
e object 5,2
object 5,2
ject 5,2
ct 5,2
 5,2
,2
elasticity#=0.2
asticity#=0.2
ticity#=0.2
city#=0.2
ty#=0.2
#=0.2
0.2
2
a=5
5
b=5
5
damping#=0.7
mping#=0.7
ing#=0.7
g#=0.7
=0.7
.7
set matrix tile 1,z,x,tile
t matrix tile 1,z,x,tile
matrix tile 1,z,x,tile
trix tile 1,z,x,tile
ix tile 1,z,x,tile
 tile 1,z,x,tile
ile 1,z,x,tile
e 1,z,x,tile
1,z,x,tile
z,x,tile
x,tile
tile
le
v#(obnum(x,z))=v#(obnum(x,z))*damping#
(obnum(x,z))=v#(obnum(x,z))*damping#
bnum(x,z))=v#(obnum(x,z))*damping#
um(x,z))=v#(obnum(x,z))*damping#
(x,z))=v#(obnum(x,z))*damping#
,z))=v#(obnum(x,z))*damping#
))=v#(obnum(x,z))*damping#
=v#(obnum(x,z))*damping#
#(obnum(x,z))*damping#
obnum(x,z))*damping#
num(x,z))*damping#
m(x,z))*damping#
x,z))*damping#
z))*damping#
)*damping#
damping#
mping#
ing#
g#

IF something = this THEN a=1 : b=2 : c=3

If something = this
    a=1
    b=2
    c=3
ENDIF

path$=cl$()
if path$>""

n=len(path$)
filename$=left$(right$(path$,n-1),n-2)

open to read 1,filename$
if file exist (filename$+"_decompressed.dba") then delete file filename$+"_decompressed.dba"
open to write 2,filename$+"_decompressed.dba"

repeat
read string 1,line$
words$=True_Colon(line$)
repeat
   write string 2,words$
   line$=Right(line$,len(line$)-(len(words$)+1))
   words$=True_Colon(line$)
   inc linenumber
until words$=""
until file end(1)=1

close file 1
close file 2

print "Code was decompressed into ",linenumber-1," lines. Have a nice day."

wait key
endif


Function True_Colon(text$)
q=0
ret$=text$
for i = 1 to len(text$)
   t$=mid$(text$,i)
   q=(q=0)*(t$=Chr$(34))
   if t$=":" and q=0
      ret$=Left$(text$,i-1)
      Exit
   Endif
Next i
Endfunction ret$

rem file containing "da codez"
keywordsFile$ = "C:Dark Basic SoftwareDark Basic ProfessionalEditorKeywordskeywords105.ini"
rem array to hold keywords
dim keywords(0) as string

rem load keywords into array
loadKeywords(keywordsFile$)


`/* Parameters: file name to keywordsXXX.ini
` * Stores keywords into array called "keywords()"
` */
function loadKeywords(f as string)
   FILE = 1
   if file exist(f)
      open to read FILE, f
      while file end(FILE) = 0
         read string FILE, temp$
         array insert at bottom keywords(0)
         keywords(array count(keywords(0))) = trim$(findKeyword$(temp$))
      endwhile
      close file _FILE
   endif
endfunction


`/* Parameters: String
` * Searches a line for a keyword, assuming it
` * follows the keyword.ini structure and formatting
` */
function findKeyword$(s as string)
   length = len(s)
   for t = 1 to length
      if mid$(s,t) = "=" then exitfunction left$(s,t-1)
   next t
endfunction "null"


`/* Parameters: String
` * trims off leading and trailing white spaces
` */
function trim$(s as string)
   _delim$ = " "
   startFlag = 0
   endd = 0
   start = 0
   length = len(s)
   for t = 1 to length
      if mid$(s,t) = _delim$
         if startFlag = 0 then start = t
      else
         startFlag = 1
      endif
      if mid$(s, length-(t-1)) = _delim$
         if endFlag = 0 then endd = length-(t-1)
      else
         endFlag = 1
      endif
   next t

   if endd > 0 then s = left$(s, endd-1)
   length = len(s)
   if start > 0 then s = right$(s, length-start)
endfunction s

set display mode 1024,768,16

rem text file to display
filename$ = "c:testParser.dba"
rem keep track of number of tabs
Global _tabs = 0


restore indenters
read z$
count = val(z$)
dim indenters$(count)
for t = 1 to count
   read indenters$(t)
next t

restore closers
read z$
count = val(z$)
dim closers$(count)
for t = 1 to count
   read closers$(t)
next t

restore ignores
read z$
count = val(z$)
dim ignores$(count)
for t = 1 to count
   read ignores$(t)
next t


set cursor 0,0


rem check to see if file specified is a text file
if lower$(right$(filename$, 4)) = ".dba"
  rem check if file exists
  if file exist(filename$)
      rem open file for reading
      open to read 1, filename$
      rem open file for writing parsed file
      if file exist(filename$+"_organized.dba") then delete file filename$+"_organized.dba"
      open to write 2,filename$+"_organized.dba"
      rem add text from file to array list
      while file end(1) = 0
         read string 1, line$
         parseLine(2, line$)
      endwhile
  endif
endif

rem close the file
close file 1
close file 2



print "All Done"


suspend for key







function parseLine(file as integer, s as string)
   s = trim$(s)
   length = len(s)
   parsed = 0
   outsideQuotes = 1
   for t = 1 to length
      if mid$(s,t) = chr$(34)
         flag = 0
         if outsideQuotes = 1 and flag = 0 then outsideQuotes = 0 : flag=1
         if outsideQuotes = 0 and flag = 0 then outsideQuotes = 1 : flag=1
      endif
      if mid$(s,t) = ":" and outsideQuotes = 1
         text$ = trim$(left$(s, t-1))
         writeStringWithTabs(file, text$)
         `_tabs = _tabs + checkKeywords(text$)
         `write string file, text$
         parseLine(file, right$(s, length-t))
         parsed = 1
         exit
      endif
   next t
   if parsed = 0 then write string file, "Q:"+space$(_tabs*4) + s

endfunction



function writeStringWithTabs(file as integer, s as string)
   sLength = len(s)
   s = lower$(s)
   for t = 1 to array count(indenters$())
      word$ = lower$(indenters$(t))
      wLength = len(word$)
      for j=1 to wLength
         if j<= sLength
            if mid$(word$, j) = mid$(s, j)
               indentOK = 1
            else
               indentOK = 0
               exit
            endif
         endif
      next j
      if indentOK = 1
         write string file, "I:"+space$(_tabs*4) + s
         inc _tabs, 1
         exitfunction
      endif
   next t

   for t = 1 to array count(closers$())
      word$ = lower$(closers$(t))
      wLength = len(word$)
      for j=1 to wLength
         if j<= sLength
            if mid$(word$, j) = mid$(s, j)
               indentOK = 1
            else
               indentOK = 0
               exit
            endif
         endif
      next j
      if indentOK = 1
         dec _tabs, 1
         if _tabs < 0 then _tabs = 0
         write string file, "C:"+space$(_tabs*4) + s
         exitfunction
      endif
   next t

   for t = 1 to array count(ignores$())
      word$ = lower$(ignores$(t))
      wLength = len(word$)
      for j=1 to wLength
         if j<= sLength
            if mid$(word$, j) = mid$(s, j)
               indentOK = 1
            else
               indentOK = 0
               exit
            endif
         endif
      next j
      if indentOK = 1
         if _tabs > 0
            spaces = _tabs
         else
            spaces = 0
         endif
         write string file, "X:"+space$(spaces*4) + s
         exitfunction
      endif
   next t


   write string file, "Q:"+space$(_tabs*4) + s
endfunction


function trim$(s as string)
   for t = 1 to len(s)
      if mid$(s, t) <> " "
         l = len(s) - (t-1)
         exitfunction right$(s, l)
      endif
   next t
endfunction ""

indenters:
DATA "5", "FOR", "IF", "DO", "WHILE", "REPEAT"

closers:
DATA "5", "NEXT", "ENDIF", "LOOP", "ENDWHILE", "UNTIL"

ignores:
DATA "1", "ELSE"

Dim Quotes(100) as String

path$=cl$()
if path$>""

n=len(path$)
filename$=left$(right$(path$,n-1),n-2)

open to read 1,filename$
if file exist (filename$+"_IF_Then_Conv.dba") then delete file filename$+"_IF_Then_Conv.dba"
open to write 2,filename$+"_IF_Then_Conv.dba"

repeat
read string 1,line$
words$=IF_Then_Conv(line$)
write string 2,words$
until file end(1)=1

close file 1
close file 2

print "Code "IF Then" statements have been converted."

wait key
endif


Function IF_Then_Conv(text$)
   local if_pos as DWORD
   local thn_pos as DWORD
   local else_pos as DWORD
   local IfCount as Integer

   text$=Quote_Replace(text$)

   `Do a look through for IF's and THEN's.
   thn_pos=FIND SUB STRING$(lower$(text$)," then ")
   if thn_pos<1
      text$=Quote_Restore(text$)
      ExitFunction text$
   Endif
   if_pos=FIND SUB STRING$(lower$(text$),"if ")
   if if_pos<1
      text$=Quote_Restore(text$)
      ExitFunction text$
   Endif

   IfCount=0
   new_part1$=""
   Do
      thn_pos=FIND SUB STRING$(lower$(text$)," then ")
      if thn_pos<1 Then Exit

      if_pos=FIND SUB STRING$(lower$(text$),"if ")
      if if_pos<1 Then Exit

      if if_pos>thn_pos
         text$=Left$(text$,thn_pos-1)+" NEHT "+Right$(text$,len(text$)-(thn_pos+5))
      Else
         new_part1$=new_part1$ + Left$(text$,thn_pos-1)+":"
         text$=Right$(text$,len(text$)-(thn_pos+5))
         text$=Replace_Text(text$,": Else ",":Else ")
         text$=Replace_Text(text$," Else ",":Else ")
         Inc IfCount
      Endif
   Loop
   text$=new_part1$+text$
   For i = 1 to IfCount
      text$=text$+":Endif"
   Next i
   text$=Quote_Restore(text$)
Endfunction text$


Function Quote_Replace(text$)
   `Temporarily replace Quotes so we don't confuse them in the search strings
   place=0:qn=0
   Do
      place=place+1
      if place > len(text$) Then Exit
      l$=Mid$(text$,place)
      if l$=Chr$(34)
         t$=l$
         Do
            place=place+1
            l$=Mid$(text$,place)
            t$=t$+l$
            if l$=Chr$(34) Then Exit
         Loop
         Quotes(qn)=t$
         text$=Replace_Text(text$,t$,"QQuote"+Str$(qn))
         Place=0
         qn=qn+1
      Endif
   Loop
Endfunction text$

Function Quote_Restore(text$)
   `Replaces the quotes from a previous Quote Replace
   qn=0
   Do
      If Quotes(qn)="" Then Exit
      text$=Replace_Text(text$,"QQuote"+Str$(qn),Quotes(qn))
      Quotes(qn)=""
      qn=qn+1
   Loop
Endfunction text$


Function Replace_Text(text$,find$,replace$)
   local find_pos as DWORD
   find_pos=FIND SUB STRING$(lower$(text$),lower$(find$))
   if find_pos<1 Then ExitFunction text$
   new_text$=Left$(text$,find_pos-1)+replace$+Right$(text$,len(text$)-(find_pos+(len(find$)-1)))
Endfunction new_text$

`Test of IF_Then Converter

`Simple test
If a=1 then b=1

`Complex test
a=a+1: if a>3 then b=1:c=1:if a=5 then b=b-1 else b=b+1

`Ignore quotes test
If d$=" Then ": p$=" if I am then I am. ":Endif

set display mode 1024,768,16

rem text file to display
filename$ = "c:testParser.dba"
outputfile$ = left$(filename$,len(filename$)-4) + "_organized.dba"
rem keep track of number of tabs
Global _indents = 0
Global _line_count = 0
Global tabs = 0

#CONSTANT TRUE = 1
#CONSTANT FALSE = 0

type command
   keyword$ as string
   keyType as integer
endtype


read count
dim commands(count) as command
for t = 1 to count
   read commands(t).keyword$
   read commands(t).keyType
   print commands(t).keyType
next t


rem check to see if file specified is a text file
if lower$(right$(filename$, 4)) = ".dba"
  rem check if file exists
  if file exist(filename$)
      rem open file for reading
      open to read 1, filename$
      rem open file for writing parsed file
      if file exist(outputfile$) then delete file outputfile$
      open to write 2,outputfile$
      rem add text from file to array list
      while file end(1) = 0
         read string 1, line$
         parseLine(2, line$)
      endwhile
  endif
endif

rem close the file
close file 1
close file 2



set cursor 0,0
print "File broken down into ",_line_count," lines."

suspend for key



function parseLine(file as integer, s as string)
   s = trim$(s)
   length = len(s)
   parsed = 0
   outsideQuotes = 1
   for t = 1 to length
      if mid$(s,t) = chr$(34)
         flag = 0
         if outsideQuotes = 1 and flag = 0 then outsideQuotes = 0 : flag=1
         if outsideQuotes = 0 and flag = 0 then outsideQuotes = 1 : flag=1
      endif
      if mid$(s,t) = ":" and outsideQuotes = 1
         text$ = trim$(left$(s, t-1))
         writeStringWithTabs(file, text$)
         parseLine(file, right$(s, length-t))
         parsed = 1
         exit
      endif
   next t
   if parsed = 0
      write string file, space$(_indents*4) + s
      inc _line_count
   endif

endfunction



function writeStringWithTabs(file as integer, s as string)
   match = FALSE
   s = trim$(s)

   for i = 1 to array count(commands())
      strg$ = lower$(s)
      com$ = lower$(commands(i).keyword$)
      bool = startsWith(strg$, com$)
      if bool = TRUE
         tabs = 0
         if commands(i).keyType = 1
            tabs = _indents
            inc _indents, 1
         else
            if commands(i).keyType = 2
               dec _indents, 1
               if _indents < 0 then _indents = 0
               tabs = indents
            else
               if commands(i).keyType = 3
                  if _indents > 0
                     tabs = _indents - 1
                  else
                     tabs = 0
                  endif
               endif
            endif
         endif

         match = TRUE
         exit
      endif
   next i

   if match = TRUE
      write string file, space$(tabs*4) + s
      `print space$(tabs*4),tabs
   else
      write string file, space$(_indents*4) + s
      `print space$(_indents*4),_indents
   endif
   inc _line_count, 1

endfunction



function trim$(s as string)
   for t = 1 to len(s)
      if mid$(s, t) <> " "
         l = len(s) - (t-1)
         exitfunction right$(s, l)
      endif
   next t
endfunction ""



function startsWith(s as string, c as string)
   sLength = len(s)
   cLength = len(c)

   for t = 1 to cLength
      if t <= sLength
         if mid$(c,t) <> mid$(s,t) then exitfunction FALSE
      endif
   next t
endfunction TRUE

DATA 11,"FOR",1, "IF",1, "DO",1, "WHILE",1, "REPEAT",1, "NEXT",2, "ENDIF",2, "LOOP",2, "ENDWHILE",2, "UNTIL",2, "ELSE", 3

public class FileIndenter
{
    private BufferedReader source;
    private Vector keywords = new Vector();
    
    public static void main()
    {
        String filename = "c:\\testParser.dba_decompressed.dba";
        FileIndenter indenter = new FileIndenter(filename);
        indenter.IndentAndSave("c:/testParser_java.dba"); 
    }
    
    
    public FileIndenter(String filename)
    {
        this.addKeywords();
        
        try
        {
            this.source = new BufferedReader(new FileReader(filename));
        }
        catch(Exception e)
        {System.out.println(e);}
    }
    
    
    public void IndentAndSave(String filename)
    {
        boolean match = false;
        int indents = 0;
        int tabs = 0;
        PrintWriter output = null;
        try
        {
            String line = "";
            output = new PrintWriter(new FileWriter(filename));
            
            while(line != null)            
            {
                match = false;
                line = source.readLine().trim();
                for (int i=0; i<keywords.size(); i++)
                {
                    Keyword keyword = (Keyword)keywords.get(i);
                    String word = keyword.getWord().toLowerCase().trim();
                    
                    if (line.toLowerCase().startsWith(word))
                    {
                        tabs = 0;
                        int type = keyword.getType();
                        if (type == Keyword.INDENT)
                        {
                            tabs = indents;
                            indents++;
                        }
                        else if (type == Keyword.RETRACT)
                        {
                            indents--;
                            if(indents < 0) indents = 0;
                            tabs = indents;
                        }
                        else if (type == Keyword.IGNORE)
                        {
                            if(indents>0)
                                tabs = indents-1;
                            else
                                tabs = 0;
                        }
                        
                        match = true;
                        break;
                    }
                }
                if (match)
                    output.println(this.fill("\t",tabs)+line);
                else
                    output.println(this.fill("\t",indents)+line);
            }
        }
        catch(Exception e)
        {
            System.out.println(e);
        }
        finally
        {
            if (output != null) output.close();
        }
    }
    
    
    private String fill(String c, int count)
    {
        String s = "";
        for(int i=0; i<count; i++)
        {
            s += c;
        }
        
        return s;
    }
    
    private void addKeywords()
    {
        Keyword word = new Keyword("FOR", Keyword.INDENT);
        keywords.add(word);
        word = new Keyword("IF", Keyword.INDENT);
        keywords.add(word);
        word = new Keyword("DO", Keyword.INDENT);
        keywords.add(word);
        word = new Keyword("WHILE", Keyword.INDENT);
        keywords.add(word);
        word = new Keyword("REPEAT", Keyword.INDENT);
        keywords.add(word);
        word = new Keyword("NEXT", Keyword.RETRACT);
        keywords.add(word);
        word = new Keyword("ENDIF", Keyword.RETRACT);
        keywords.add(word);
        word = new Keyword("LOOP", Keyword.RETRACT);
        keywords.add(word);
        word = new Keyword("ENDWHILE", Keyword.RETRACT);
        keywords.add(word);
        word = new Keyword("UNTIL", Keyword.RETRACT);
        keywords.add(word);
        word = new Keyword("ELSE", Keyword.IGNORE);
        keywords.add(word);
    }
}

public class Keyword
{
    public final static int INDENT = 1;
    public final static int RETRACT = 2;
    public final static int IGNORE = 3;
    
    private String word;
    private int type;
    
    public Keyword(String word, int type)
    {
        this.word = word;
        this.type = type;   
    }

    public String getWord()
    {
        return word;
    }
    
    public int getType()
    {
        return type;
    }
}

Ric...
Only because I did a mental coin toss.. Soz Riidii.. Yours was excelent too!!!