/fth/loadp4th.fth

https://github.com/philburk/pforth · Forth · 51 lines · 46 code · 5 blank · 0 comment · 2 complexity · 63a98cd3fd2110505ad84c68a9c5af8b MD5 · raw file

  1. \ @(#) loadp4th.fth 98/01/28 1.3
  2. \ Load various files needed by PForth
  3. \
  4. \ Author: Phil Burk
  5. \ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
  6. \
  7. \ Permission to use, copy, modify, and/or distribute this
  8. \ software for any purpose with or without fee is hereby granted.
  9. \
  10. \ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
  11. \ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
  12. \ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
  13. \ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
  14. \ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
  15. \ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  16. \ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  17. \ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  18. include? forget forget.fth
  19. include? >number numberio.fth
  20. include? task-misc1.fth misc1.fth
  21. include? case case.fth
  22. include? $= strings.fth
  23. include? privatize private.fth
  24. include? (local) ansilocs.fth
  25. include? { locals.fth
  26. include? fm/mod math.fth
  27. include? task-misc2.fth misc2.fth
  28. include? [if] condcomp.fth
  29. include? save-input save-input.fth
  30. include? read-line file.fth
  31. include? require require.fth
  32. \ load floating point support if basic support is in kernel
  33. exists? F*
  34. [IF] include? task-floats.fth floats.fth
  35. [THEN]
  36. \ useful but optional stuff follows --------------------
  37. include? task-member.fth member.fth
  38. include? :struct c_struct.fth
  39. include? smif{ smart_if.fth
  40. include? file? filefind.fth
  41. include? see see.fth
  42. include? words.like wordslik.fth
  43. include? trace trace.fth
  44. include? ESC[ termio.fth
  45. include? HISTORY history.fth
  46. map