home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / PRELOAD.PAK / KINIT.M < prev    next >
Encoding:
Text File  |  1992-05-08  |  2.3 KB  |  84 lines
  1.  
  2.    Begin[ "System`"]        (* Everything in System context *)
  3.  
  4.    General::noopen = "Can't open `1`."
  5.                 (* set up the first possible message *)
  6.  
  7.    General::writewarn = "Defining rule for `1`."
  8.     
  9.                 (* this message is here because *)
  10.                 (* we want to use Off[General::writewarn] *)
  11.  
  12.    Off[General::newsym]
  13.  
  14.    Get[ "Attributes.m"]        (* install SetAttributes and ClearAttributes *)
  15.                 (* MUST load this first *)
  16.  
  17.    Get[ "Expand.m"]        (* Expand extensions *)
  18.  
  19.    Get["Integrate.m"]        (* Integrate Mathematica code  *)
  20.  
  21.    Get[ "AutoLoad.m"]        (* Load autoloading package *)
  22.  
  23. $DumpedPackages = 
  24.   {"Install.m", "Expand.m", "ValueQ.m",
  25.    "Integrate.m", "SinIntegral.m", "InverseFunctions.m",
  26.    "FormatInfinity.m", "Fourier.m", "RunThrough.m", "Edit.m",
  27.    "Attributes.m", "GraphicsCoercion.m", "Digits.m", "Obsolete.m"}
  28.  
  29. $DumpedPackages::usage = "$DumpedPackages gives a list of the packages which
  30.     have been dumped into the system."
  31.  
  32. $Thin::usage = "$Thin = True means that a thin Kernel has been started which
  33.         use an autoloading mechanism to load system packages on demand."
  34.  
  35. (* Thin or Full Kernel specific instructions *)
  36.  
  37.    If[ $Thin, Get[ "Thin.m"], Get[ "Full.m"], Get[ "Thin.m"]; $Thin = True]
  38.  
  39.    Get[ "Install.m"]        (* external packages communication *)
  40.  
  41.    Get[ "ValueQ.m"]         (* ValueQ function *)
  42.  
  43.    Get[ "SinIntegral.m"]    (* SinIntegral and CosIntegral *)
  44.  
  45.    Get[ "InverseFunctions.m"]    (* Inverse functions *)
  46.  
  47.    Get[ "FormatInfinity.m"]    (* formats for Infinity *)
  48.  
  49.    Get[ "Fourier.m"]        (* multidimensional Fourier Transforms *)
  50.  
  51. (*   
  52.  
  53.    If[ $OperatingSystem =!= "MacOS",
  54.         Get[ "RunThrough.m"]];        (* RunThrough command *)
  55.  
  56.    If[ $OperatingSystem =!= "MacOS",
  57.         Get[ "Edit.m"]]        (* Edit command *)
  58.  
  59. *)        
  60.  
  61.    Get[ "GraphicsCoercion.m"]    (* Extra graphics code *)
  62.  
  63.    Get[ "Digits.m"]        (* Digits.m (obsolete) *)
  64.  
  65.    Get[ "Obsolete.m"]        (* Support for obsolete functions *)
  66.  
  67.    Get["Simplify.m"]        (* Extra packages for simplification *)
  68.  
  69. (* NProtect functions, LAST to wrong prevent generation of symbols *)
  70. (*
  71.    Get[ "NProt.m"]
  72. *)
  73.  
  74.    If[ $Thin, , Share[]]    (* Global Share for the full version *)
  75.  
  76. (* this symbol will be evaluated when Mathematica ends *)
  77.    $Epilog := << end.m
  78.  
  79. (* restore previous context *)
  80.    End[]
  81.  
  82. (* standard return value for the Get which got this file *)
  83.    Null
  84.