home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR36 / KEXX.ZIP / RINDENT.KEX < prev    next >
Text File  |  1989-12-05  |  518b  |  30 lines
  1. * Set Up Regular Indenting Support For Given File Extensions
  2.  
  3. X = ";"Upper(Arg(1))";"
  4. Y = ""
  5.  
  6. * Replace any blanks with semicolons
  7. Do I = 1 To Length(X)
  8.  
  9.     Z = Substr(X, I, 1)
  10.     If Z \= ' '
  11.         Then
  12.             Y = Y || Z
  13.         Else
  14.             Y = Y";"
  15.  
  16. End
  17.  
  18. Regular = (Pos(';'FType.1()';', Y) \= 0)
  19.  
  20. 'Editv Putf Regular'
  21.  
  22. * Don't do defines any more often than necessary
  23. 'Editv Get RIndent'
  24. If RIndent = "ON"
  25.     Then
  26.         Exit
  27.  
  28. 'Editv Set RIndent ON'
  29. 'Define RINDENT.KML'
  30.