home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR36
/
KEXX.ZIP
/
SINDENT.KEX
< prev
next >
Wrap
Text File
|
1989-12-20
|
816b
|
41 lines
* Set Up Regular Indenting Support For Given File Extensions
X = ";"Upper(Arg(1))";"
Y = ""
* Replace any blanks with semicolons
Do I = 1 To Length(X)
Z = Substr(X, I, 1)
If Z \= ' '
Then
Y = Y || Z
Else
Y = Y";"
End
'Editv Get CExts'
'Editv Get RexxExts'
If CExts = "" Then CExts = 'C;H;CPP'
If RexxExts = "" Then RexxExts = 'KEX;KML;REX;CMD;RXT'
Smart = (Pos(';'FType.1()';', Y) \= 0)
CSupport = (Pos(';'FType.1()';', ';'CExts';') \= 0)
RexxSupport = (Pos(';'FType.1()';', ';'RexxExts';') \= 0)
'Editv Putf Smart'
'Editv Putf CSupport'
'Editv Putf RexxSupport'
* Don't do defines any more often than necessary
'Editv Get SIndent'
If SIndent = "ON"
Then
Exit
'Editv Set SIndent ON'
'Define SINDENT.KML'