1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283 |
- %==========================================================================%
- % GRG 3.2 Compilation [PSL] (C) 1988-96 Vadim V. Zhytnikov %
- %==========================================================================%
- % This file is distributed without any warranty. You may modify it but you %
- % are not allowed to remove author's name and/or distribute modified file. %
- %==========================================================================%
- % Set here amount of required free BPS or nil ...
- (setq free!-bps!-size 45000)
- (progn
- (terpri)
- (prin2 "Compiling GRG 3.2, wait few minutes.") (terpri)
- (prin2 "After several `*** Init code length is #'") (terpri)
- (prin2 "messages the compilation should be completed.") (terpri)
- (prin2 "Watch possible error messages preceded by `*****' ...") (terpri)
- (terpri)
- (wrs (open "grgcomp.log" 'output))
- )
- (de compile!-file!> (bin src)
- (prog (wcc)
- (setq wcc (wrs nil))
- (prin2 "Compiling `") (prin2 bin) (prin2 "' ...") (terpri)
- (wrs wcc)
- (terpri) (prin2 "### Compiling `") (prin2 bin) (prin2 "' ...") (terpri)
- (setq !*comp t)
- (faslout bin)
- (dskin src)
- (faslend)
- (setq !*comp nil)
- ))
- % Loading compiler ...
- (load compiler)
- % Do we need symget.dat ?
- % (cond
- % ((and (getd 'filep) (filep "$reduce/util/symget.dat"))
- % (dskin "$reduce/util/symget.dat") ))
- % Enlarging BPS if necessary ...
- (cond
- ((and free!-bps!-size (getd 'set!-bps!-size) (getd 'free!-bps)
- (lessp (free!-bps) free!-bps!-size))
- (set!-bps!-size free!-bps!-size)))
- (dskin "grgmacro.sl" )
- (dskin "grgdecl.sl" )
- (compile!-file!> "grg" "grg.sl" )
- (compile!-file!> "grg32" "grg32.sl" )
- (compile!-file!> "grgdecl" "grgdecl.sl" )
- (compile!-file!> "grggeom" "grggeom.sl" )
- (compile!-file!> "grggrav" "grggrav.sl" )
- (compile!-file!> "grginit" "grginit.sl" )
- (compile!-file!> "grgclass" "grgclass.sl" )
- (compile!-file!> "grgcomm" "grgcomm.sl" )
- (compile!-file!> "grgcoper" "grgcoper.sl" )
- (compile!-file!> "grgmain" "grgmain.sl" )
- (compile!-file!> "grgmater" "grgmater.sl" )
- (compile!-file!> "grgprin" "grgprin.sl" )
- (compile!-file!> "grgproc" "grgproc.sl" )
- (compile!-file!> "grgtrans" "grgtrans.sl" )
- (compile!-file!> "grgcfg" "grgcfg.sl" )
- (progn
- (terpri) (prin2 "### All done.") (terpri)
- (wrs nil)
- (terpri)
- (prin2 "GRG has been compiled.") (terpri)
- (prin2 "Move all created grg*.b files in the $reduce/fasl") (terpri)
- (prin2 "directory or keep them in your working directory.") (terpri)
- )
- (bye)
- %==========================================================================%
|