Artifact 8bbd5166178a288bb6766c7289b45829993f82c8cb3d5d6d5435d053411c9a09:
- Executable file
r37/packages/alg/alg-form.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: 797) [annotate] [blame] [check-ins using] [more...]
- Executable file
r38/packages/alg/alg-form.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: 797) [annotate] [blame] [check-ins using]
module alg!-form; % Some particular algebraic mode analysis functions. % Author: Anthony C. Hearn. % Copyright (c) 1991 RAND. All rights reserved. global '(inputbuflis!* resultbuflis!* ws); symbolic procedure forminput(u,vars,mode); begin scalar x; u := cadr u; if eqcar(u,'!:int!:) then u := cadr u; if null(x := assoc(u,inputbuflis!*)) then rerror(alg,1,list("Entry",u,"not found")); return caddr x end; put('input,'formfn,'forminput); symbolic procedure formws(u,vars,mode); begin scalar x; u := cadr u; if eqcar(u,'!:int!:) then u := cadr u; if x := assoc(u,resultbuflis!*) then return mkquote cdr x else rerror(alg,2,list("Entry",u,"not found")) end; put('ws,'formfn,'formws); endmodule; end;