odesolve.in 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. % Input the whole package of ODESolve 1+ source files -*- REDUCE -*-
  2. % F.J.Wright@Maths.QMW.ac.uk, Time-stamp: <14 September 2000>
  3. % To input the full ODESolve file set, start REDUCE in the ODESolve
  4. % source directory (or change to it) and do
  5. % in "odesolve.in"$
  6. % To compile ODESolve without using the development system utilities,
  7. % start REDUCE in the ODESolve source directory (or change to it) and
  8. % do
  9. % in "odesolve.red"$
  10. % faslout odesolve;
  11. % in "odesolve.in"$
  12. % faslend;
  13. % If using PSL, you will then need to move odesolve.b to a directory
  14. % in your PSL load path, such as the main fasl directory.
  15. in "odesolve.red"$
  16. % See `reduce/packages/rlisp/tok.red' for details of conditional parsing.
  17. !#if (memq 'csl lispsystem!*) % CSL
  18. symbolic eval!-when((eval compile),
  19. in_non_empty_list
  20. for each p in ODESolve!-subpackages!* collect concat(p, ".red"))$
  21. !#else % Assume PSL
  22. symbolic compiletime
  23. in_non_empty_list
  24. for each p in ODESolve!-subpackages!* collect
  25. compress('!" . append(explode2 p, '(!. !r !e !d !")))$ % "
  26. !#endif
  27. end$
  28. % eval!-when is a CSL fexpr like progn but its first argument must be
  29. % a list of "situations" that can be one or more of the atoms eval,
  30. % compile, load.