relicense to 0BSD
[pforth] / fth / loadp4th.fth
index a558ea6..bbb380e 100644 (file)
@@ -1,46 +1,51 @@
-\ @(#) loadp4th.fth 98/01/28 1.3\r
-\ Load various files needed by PForth\r
-\\r
-\ Author: Phil Burk\r
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom\r
-\\r
-\ The pForth software code is dedicated to the public domain,\r
-\ and any third party may reproduce, distribute and modify\r
-\ the pForth software code or any derivative works thereof\r
-\ without any compensation or license.  The pForth software\r
-\ code is provided on an "as is" basis without any warranty\r
-\ of any kind, including, without limitation, the implied\r
-\ warranties of merchantability and fitness for a particular\r
-\ purpose and their equivalents under the laws of any jurisdiction.\r
-\r
-include? forget  forget.fth\r
-include? >number numberio.fth\r
-include? task-misc1.fth   misc1.fth\r
-include? case    case.fth\r
-include? $=      strings.fth\r
-include? privatize   private.fth\r
-include? (local) ansilocs.fth\r
-include? {       locals.fth\r
-include? fm/mod  math.fth\r
-include? task-misc2.fth misc2.fth\r
-include? [if]    condcomp.fth\r
-\r
-\ load floating point support if basic support is in kernel\r
-exists? F*\r
-   [IF]  include? task-floats.fth floats.fth\r
-   [THEN]\r
-\r
-\ useful but optional stuff follows --------------------\r
-\r
-include? task-member.fth   member.fth\r
-include? :struct c_struct.fth\r
-include? smif{   smart_if.fth\r
-include? file?   filefind.fth\r
-include? see     see.fth\r
-include? words.like wordslik.fth\r
-include? trace   trace.fth\r
-include? ESC[    termio.fth\r
-include? HISTORY history.fth\r
-include? SDAD    savedicd.fth\r
-\r
-map\r
+\ @(#) 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