home *** CD-ROM | disk | FTP | other *** search
- /*
-
- CompileModules.rexx
-
- $VER: 05 Oct 1996
-
- */
-
- options results
- address command
-
- Path.def = "definitions/"
- Path.module = "modules/"
- ErrorLog = "RAM:MSE-Compiler.errors"
-
- if exists(ErrorLog) then 'C:Delete' ErrorLog" QUIET"
- 'C:List' Path.def 'PAT "#?.def" ALL FILES LFORMAT "%s%s" TO T:Compiles'
-
- call open('Compiles', "T:Compiles")
- do until eof('Compiles')
- cFile = readln('Compiles'); if cFile = "" then leave
- cFile = delstr(cFile,1,length(Path.def))
-
- 'MSE-Compiler' "Definition="cFile" ErrorLog="ErrorLog
- end
- call close('Compiles')
-
- 'C:Delete' "T:Compiles QUIET"
- exit
-