home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / PRELOAD.PAK / THIN.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  2.3 KB  |  64 lines
  1. (* Instructions to build the thin kernel *)
  2.  
  3.  
  4. Begin["System`"]
  5.  
  6. Begin["System`Private`"]
  7.  
  8.   Unprotect[ $NewMessage ]
  9.  
  10.   $NewMessage =
  11.         Function[ {sym, tag},
  12.                 Module[ {res, mName},
  13.                         mName = ToString[ MessageName[sym, tag]] ;
  14.                         res = If[ tag =!= "usage",
  15.                                 FindList[ "msgthin.m",{ mName,
  16.                                         ToString[MessageName[General, tag]]}],
  17.                                 FindList[ "infothin.m", mName]] ;
  18.                         If[ ListQ[res] && Apply[ And, Map[ StringQ, res]],
  19.                                           ToExpression[ res]] ;
  20.                         ],
  21.                 {HoldAll}]
  22.  
  23.   Protect[ $NewMessage]
  24.  
  25.  
  26. End[]
  27.  
  28.  
  29.   SystemStub[ {Integrate`IntegrateG, Integrate`Definite}, "Integrate`main`"];
  30.   SystemStub[ Integrate`TableLookUp, "Integrate`table`"];                    
  31.                                                                            
  32.   SystemStub[ {JacobiSN, JacobiSD, JacobiSC, JacobiCS, JacobiCN, JacobiCD,
  33.         JacobiNC, JacobiND, JacobiDN, JacobiDS, JacobiDC, JacobiAmplitude,
  34.         InverseJacobiSN, InverseJacobiSD, InverseJacobiSC,  InverseJacobiCS,
  35.         InverseJacobiCN,  InverseJacobiCD, InverseJacobiNS, InverseJacobiNC,
  36.         InverseJacobiDS, InverseJacobiDC,InverseJacobiDN, InverseJacobiND,
  37.         EllipticNomeQ,
  38.         EllipticThetaS, EllipticThetaC, EllipticThetaN, EllipticThetaD,
  39.         WeierstrassP, WeierstrassPPrime, InverseWeierstrassP,
  40.         EllipticExp, EllipticLog}, "Elliptic.m"];
  41.  
  42.   SystemStub[ {HypergeometricPFQ, HypergeometricPFQRegularized,
  43.                Hypergeometric1F1, Hypergeometric2F1}, "HypergeometricPFQ.m"];
  44.  
  45.   SystemStub[ {InverseSeries, Series, SeriesData}, "Series.m"];
  46.  
  47.   SystemStub[ {ClebschGordan, ThreeJSymbol, SixJSymbol}, "ClebschGordan.m"];
  48.  
  49.   SystemStub[ LinearProgramming, "LinearProgramming.m"];
  50.  
  51.   SystemStub[ PrimePi, "PrimePi.m"];
  52.  
  53.   SystemStub[ NSolve, "NSolve.m"];
  54.  
  55.   SystemStub[ GroebnerBasis, "GroebnerBasis.m"];
  56.  
  57.   SystemStub[ {ComplexExpand, TargetFunctions, System`ComplexExpand`AbsExpr,
  58.                System`ComplexExpand`ArgExpr, System`ComplexExpand`ConjugateExpr,
  59.                System`ComplexExpand`ReImExpr, System`ComplexExpand`SignExpr},
  60.               "ComplexExpand.m"];
  61.  
  62. End[]
  63.  
  64.