Artifact 6cc13169e1b24f2b6cd38388f39100b4cb3e0eeca2f9a65b3d416109cf1af745:

• File r33/mkfasl.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1111) [annotate] [blame] [check-ins using] [more...]

MODULE MKFASL --- Produce a fasl loading version of a given file;

% Author: Martin L. Griss.

% Modifications by: Anthony C. Hearn;


fluid '(rfasl!* rsrc!* !*break !*lower !*quiet!_faslout !*usermode
        !*writingfaslfile);

global '(!*echo);

symbolic procedure mkfasl u;
   % produce a FASL file for the module u;
   if errorp errorset(list('mkfasl1,mkquote u),t,!*backtrace)
     then <<if !*writingfaslfile then eval '(faslend);
            errorprintf("***** Error during mkfasl of %w%n",u)>>;

flag('(mkfasl),'opfn);

flag('(mkfasl),'noval);

symbolic procedure mkfasl1 u;
   begin scalar !*int,!*lower,!*usermode,!*quiet!_faslout,!*break,echo,
                ichan,oldichan;
      echo := !*echo;
      !*echo := nil;
      !*quiet!_faslout := t;
      terpri();
      prin2t bldmsg("*** Compiling %w ...",u);
      terpri();
      u := string!-downcase u;
      ichan := open(concat(u,".red"),'input);
      oldichan := rds ichan;
      faslout bldmsg("%w%w",rfasl!*,u);
      begin1();
      eval '(faslend);
      !*echo := echo;
      close ichan;
      rds oldichan
   end;

endmodule;

end;