home *** CD-ROM | disk | FTP | other *** search
- /* Edge macro: hn_IndentCFile
- **
- ** $VER: hn_IndentCFile.edge 1.3 (16-Feb-93 00:30:15)
- **
- ** Usage: hn_IndentCFile
- **
- ** Synopsis: Run GNU-Indent on current file
- **
- ** Author: Henrik Nordström
- ** Ängsvägen 1
- ** S 756 45 Uppsala
- */
-
-
- parse arg indentoptions
-
- options results
-
- if indentoptions="" then do
- 'getenvvar _fe_user7'
- indentoptions=result
- end
-
- 'getenvvar _fe_name'
- filename=result
-
- address command 'indent <"edge:'filename'" 'indentoptions' -o t:temp.c'
- if RC ~= 0 then exit RC
- 'position sof'
- 'blockoff'
- 'markblock'
- 'position eof'
- 'erase'
- 'include "t:temp.c"'
-