Artifact 35bb9b68011fca3f4ae7824ac489f34f62873ef4a32adb44148beef2f01c9a2d:

• File r30/entry.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

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

COMMENT This file sets up necessary entry points for autoloading modules
      in Reduce. It uses a modified version of the Defautoload function
      of Eric Benson;

SYMBOLIC MACRO PROCEDURE DEFAUTOLOAD U;
% (DEFAUTOLOAD name), (DEFAUTOLOAD name loadname),
% (DEFAUTOLOAD name loadname fntype), or
% (DEFAUTOLOAD name loadname fntype numargs)
% Default is 1 Arg EXPR in module of same name;
  BEGIN SCALAR NAME, NUMARGS, LOADNAME, FNTYPE;
    U := CDR U;
    NAME := CAR U;
    U := CDR U;
    IF U THEN <<LOADNAME := CAR U; U :=CDR U>> ELSE LOADNAME := NAME;
    IF EQCAR(NAME, 'QUOTE) THEN NAME := CADR NAME;
    IF ATOM LOADNAME THEN LOADNAME := LIST LOADNAME
     ELSE IF CAR LOADNAME EQ 'QUOTE THEN LOADNAME := CADR LOADNAME;
    IF U THEN <<FNTYPE := CAR U; U := CDR U>> ELSE FNTYPE := 'EXPR;
    IF U THEN NUMARGS := CAR U ELSE NUMARGS := 1;
    NUMARGS := IF NUMARGS=0 THEN NIL
		ELSE IF NUMARGS=1 THEN '(X1)
		ELSE IF NUMARGS=2 THEN '(X1 X2)
		ELSE IF NUMARGS=3 THEN '(X1 X2 X3)
		ELSE IF NUMARGS=4 THEN '(X1 X2 X3 X4)
		ELSE ERROR(99,LIST(NUMARGS,"too large in DEFAUTOLOAD"));
    RETURN
       LIST('PUTD,
	    MKQUOTE NAME,
	    MKQUOTE FNTYPE,
	    MKQUOTE LIST('LAMBDA, NUMARGS,
			 'PROGN .
			   ACONC(FOR EACH J IN LOADNAME
				  COLLECT LIST('LOAD!-MODULE,MKQUOTE J),
				 LIST('APPLY,
				      MKQUOTE NAME,
				      'LIST . NUMARGS))))
  END;


COMMENT Actual Entry Point Definitions;

%input editor entry points;

DEFAUTOLOAD CEDIT;

DEFAUTOLOAD(DISPLAY,CEDIT);

PUT('DISPLAY,'STAT,'RLIS);

DEFAUTOLOAD(EDITDEF,CEDIT);

PUT('EDITDEF,'STAT,'RLIS);

DEFAUTOLOAD(EDITDEF1,CEDIT);


%Compiler and LAP entry points;

%DEFAUTOLOAD(COMPD,'(LAP COMPLR CMACRO),EXPR,3);

%DEFAUTOLOAD(COMPILE,'(LAP COMPLR CMACRO));

DEFAUTOLOAD(LAP,'(LAP COMPILER CMACRO));


%Cross-reference module entry points;

PUT('CREF ,'SIMPFG ,'((T (CREFON)) (NIL (CREFOFF))));

DEFAUTOLOAD(CREFON,'(RCREF REDIO),EXPR,0);


%Factorizer module entry points;

REMPROP('FACTOR,'STAT);

DEFAUTOLOAD(EZGCDF,FACTOR,EXPR,2);

DEFAUTOLOAD(FACTORF,FACTOR);

DEFAUTOLOAD(SIMPFACTORIZE,FACTOR);

PUT('FACTORIZE,'SIMPFN,'SIMPFACTORIZE);

DEFAUTOLOAD(SIMPNPRIMITIVE,FACTOR);

PUT('NPRIMITIVE,'SIMPFN,'SIMPNPRIMITIVE);

DEFAUTOLOAD(SIMPRESULTANT,FACTOR);

PUT('RESULTANT,'SIMPFN,'SIMPRESULTANT);

PUT('FACTOR,'STAT,'RLIS);


%FASL module entry points;

REMPROP('FASLOUT,'STAT);

DEFAUTOLOAD(FASLOUT,'(LAP COMPLR CMACRO FAP));

PUT('FASLOUT,'STAT,'RLIS);


%Help module entry points (not yet available);

%REMFLAG('(HELP),'GO);

%REMPROP('HELP,'STAT);

%DEFAUTOLOAD HELP;

%FLAG('(HELP),'GO);

%PUT('HELP,'STAT,'RLIS);


%Part module entry points;

DEFAUTOLOAD(ARGLENGTH,PART);

FLAG('(ARGLENGTH),'OPFN);

DEFAUTOLOAD(SIMPPART,PART);

PUT('PART,'SIMPFN,'SIMPPART);

DEFAUTOLOAD(SIMPSETPART,PART);

PUT('SETPART!*,'SIMPFN,'SIMPSETPART);

PUT('PART,'SETQFN,'SETPART!*);


%Prettyprint module entry point;

DEFAUTOLOAD(PRETTYPRINT,PRETTY);


%Matrix module entry points;

DEFAUTOLOAD(DETQ,MATR);

DEFAUTOLOAD(LETMTR,MATR,EXPR,3);

DEFAUTOLOAD(MAPC2,MATR,EXPR,2);    %used by SOLVE;

DEFAUTOLOAD(MATSM!*,MATR);

DEFAUTOLOAD(SIMPDET,MATR);

PUT('DET,'SIMPFN,'SIMPDET);

DEFAUTOLOAD(SIMPTRACE,MATR);

PUT('TRACE,'SIMPFN,'SIMPTRACE);


%META module entry point (not yet available);

%DEFAUTOLOAD META;


%Rprint module entry point;

DEFAUTOLOAD RPRINT;


%SOLVE module entry point;

DEFAUTOLOAD(SIMPSOLVE,'(MATR SOLVE));

PUT('SOLVE,'SIMPFN,'SIMPSOLVE);


%High energy physics module entry points;

REMPROP('INDEX,'STAT); REMPROP('MASS,'STAT);

REMPROP('MSHELL,'STAT); REMPROP('VECDIM,'STAT);

REMPROP('VECTOR,'STAT);

DEFAUTOLOAD(INDEX,HEPHYS);

DEFAUTOLOAD(MASS,HEPHYS);

DEFAUTOLOAD(MSHELL,HEPHYS);

DEFAUTOLOAD(VECDIM,HEPHYS);

DEFAUTOLOAD(VECTOR,HEPHYS);

PUT('INDEX,'STAT,'RLIS);

PUT('MSHELL,'STAT,'RLIS);

PUT('MASS,'STAT,'RLIS);

PUT('VECDIM,'STAT,'RLIS);

PUT('VECTOR,'STAT,'RLIS);

FLAGOP NONCOM,NOSPUR;


%Integrator module entry point;

DEFAUTOLOAD(SIMPINT,INT);

PUT('INT,'SIMPFN,'SIMPINT);

PUT('BIGFLOAT,'MODULE!-NAME,'BFLOAT);


%Debug module entry points;

DEFAUTOLOAD(EMBFN,DEBUG,EXPR,3);

%DEFAUTOLOAD(SU2SL,TRANS);


% exec and system editor entry points;

REMFLAG('(EXEC PUSH),'GO);

IF SYSTEM!* NEQ 0 THEN

 <<REMPROP('CMD,'STAT);

   REMPROP('EDIT,'STAT);

   REMPROP('CREATE,'STAT);

   REMPROP('EXEC,'STAT);

   REMPROP('PUSH,'STAT);

   DEFAUTOLOAD(EXEC,EXEC,EXPR,0);

   DEFAUTOLOAD(PUSH,EXEC,EXPR,0);

   DEFAUTOLOAD(CREATE,'(EXEC EDIT),EXPR,0);

   DEFAUTOLOAD(EDIT1,'(EXEC EDIT),EXPR,2);

   DEFAUTOLOAD(CMD,'(EXEC EDIT),EXPR,0);

   DEFAUTOLOAD(EDITSTAT,'(EXEC EDIT),EXPR,0);

   DEFAUTOLOAD(PINSTAT,EXEC,EXPR,0);

   PUT('CMD,'STAT,'EDITSTAT);

   PUT('EXEC,'STAT,'PINSTAT);

   PUT('PUSH,'STAT,'PINSTAT);

   PUT('CREATE,'STAT,'PINSTAT);

   PUT('EDIT,'STAT,'EDITSTAT);

   FLAG('(EXEC PUSH CREATE),'IGNORE);

   FLAG('(CMD EDIT),'EVAL);

   %FLAG('(EXEC PUSH),'GO);
  >>;


END;