/fth/loadp4th.fth
https://github.com/philburk/pforth · Forth · 51 lines · 46 code · 5 blank · 0 comment · 2 complexity · 63a98cd3fd2110505ad84c68a9c5af8b MD5 · raw file
- \ @(#) loadp4th.fth 98/01/28 1.3
- \ Load various files needed by PForth
- \
- \ Author: Phil Burk
- \ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
- \
- \ Permission to use, copy, modify, and/or distribute this
- \ software for any purpose with or without fee is hereby granted.
- \
- \ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
- \ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
- \ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
- \ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
- \ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
- \ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
- \ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
- \ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- include? forget forget.fth
- include? >number numberio.fth
- include? task-misc1.fth misc1.fth
- include? case case.fth
- include? $= strings.fth
- include? privatize private.fth
- include? (local) ansilocs.fth
- include? { locals.fth
- include? fm/mod math.fth
- include? task-misc2.fth misc2.fth
- include? [if] condcomp.fth
- include? save-input save-input.fth
- include? read-line file.fth
- include? require require.fth
- \ load floating point support if basic support is in kernel
- exists? F*
- [IF] include? task-floats.fth floats.fth
- [THEN]
- \ useful but optional stuff follows --------------------
- include? task-member.fth member.fth
- include? :struct c_struct.fth
- include? smif{ smart_if.fth
- include? file? filefind.fth
- include? see see.fth
- include? words.like wordslik.fth
- include? trace trace.fth
- include? ESC[ termio.fth
- include? HISTORY history.fth
- map