home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR36 / KEXX.ZIP / SINDENT.KEX < prev    next >
Text File  |  1989-12-20  |  816b  |  41 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. 'Editv Get CExts'
  19. 'Editv Get RexxExts'
  20.  
  21. If CExts = "" Then CExts = 'C;H;CPP'
  22. If RexxExts = "" Then RexxExts = 'KEX;KML;REX;CMD;RXT'
  23.  
  24.  
  25. Smart = (Pos(';'FType.1()';', Y) \= 0)
  26. CSupport = (Pos(';'FType.1()';', ';'CExts';') \= 0)
  27. RexxSupport = (Pos(';'FType.1()';', ';'RexxExts';') \= 0)
  28.  
  29. 'Editv Putf Smart'
  30. 'Editv Putf CSupport'
  31. 'Editv Putf RexxSupport'
  32.  
  33. * Don't do defines any more often than necessary
  34. 'Editv Get SIndent'
  35. If SIndent = "ON"
  36.     Then
  37.         Exit
  38.  
  39. 'Editv Set SIndent ON'
  40. 'Define SINDENT.KML'
  41.