/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. 

  2. \ Load various files needed by PForth
    3. 

  3. \
    4. 

  4. \ Author: Phil Burk
    5. 

  5. \ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
    6. 

  6. \
    7. 

  7. \ Permission to use, copy, modify, and/or distribute this
    8. 

  8. \ software for any purpose with or without fee is hereby granted.
    9. 

  9. \
    10. 

  10. \ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
    11. 

  11. \ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
    12. 

  12. \ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
    13. 

  13. \ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
    14. 

  14. \ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
    15. 

  15. \ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
    16. 

  16. \ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
    17. 

  17. \ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    18. 

  18. 

  19. include? forget  forget.fth
    20. 

  20. include? >number numberio.fth
    21. 

  21. include? task-misc1.fth   misc1.fth
    22. 

  22. include? case    case.fth
    23. 

  23. include? $=      strings.fth
    24. 

  24. include? privatize   private.fth
    25. 

  25. include? (local) ansilocs.fth
    26. 

  26. include? {       locals.fth
    27. 

  27. include? fm/mod  math.fth
    28. 

  28. include? task-misc2.fth misc2.fth
    29. 

  29. include? [if]    condcomp.fth
    30. 

  30. include? save-input save-input.fth
    31. 

  31. include? read-line  file.fth
    32. 

  32. include? require    require.fth
    33. 

  33. 

  34. \ load floating point support if basic support is in kernel
    35. 

  35. exists? F*
    36. 

  36.    [IF]  include? task-floats.fth floats.fth
    37. 

  37.    [THEN]
    38. 

  38. 

  39. \ useful but optional stuff follows --------------------
    40. 

  40. 

  41. include? task-member.fth   member.fth
    42. 

  42. include? :struct c_struct.fth
    43. 

  43. include? smif{   smart_if.fth
    44. 

  44. include? file?   filefind.fth
    45. 

  45. include? see     see.fth
    46. 

  46. include? words.like wordslik.fth
    47. 

  47. include? trace   trace.fth
    48. 

  48. include? ESC[    termio.fth
    49. 

  49. include? HISTORY history.fth
    50. 

  50. 

  51. map
    52.