File: recompile.red

package info (click to toggle)
mathpiper 0.81f%2Bsvn4469%2Bdfsg3-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 36,572 kB
  • sloc: java: 57,479; lisp: 13,721; objc: 1,300; xml: 988; makefile: 114; awk: 95; sh: 38
file content (27 lines) | stat: -rwxr-xr-x 712 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
%
% This script is normally run via
%     make recompile which=modulename
% or  make bootstraprecompile which=modulename
%

symbolic;

load!-module 'remake;

get_configuration_data();

fluid '(!*forcecompile);
!*forcecompile := t; % Ignore date-stamps and force compilation to happen

if boundp 'which and which and not (which = "") then <<
   mods := compress explodec which;
   if member(mods, reduce_base_modules) or
      member(mods, reduce_extra_modules) then build_reduce_modules list mods
   else error(0, list("unknown module to recompile", mods)) >>
else <<
   terpri();
   printc "Must specify which module should be recompiled, eg";
   printc "  make recompile which=modulename";
   stop 8 >>;

end;