1 files changed, 144 insertions, 0 deletions
diff --git a/softwords/softcore.pl b/softwords/softcore.pl
new file mode 100755
index 000000000000..cb521ad9ec3b
--- /dev/null
+++ b/softwords/softcore.pl
@@ -0,0 +1,144 @@
+#! /usr/bin/perl
+# Convert forth source files to a giant C string
+
+$now = localtime;
+
+print <<EOF
+/*******************************************************************
+** s o f t c o r e . c
+** Forth Inspired Command Language - 
+** Words from CORE set written in FICL
+** Author: John Sadler (john_sadler\@alum.mit.edu)
+** Created: 27 December 1997
+** Last update: $now
+*******************************************************************/
+/*
+** DO NOT EDIT THIS FILE -- it is generated by softwords/softcore.pl
+** Make changes to the .fr files in ficl/softwords instead.
+** This file contains definitions that are compiled into the
+** system dictionary by the first virtual machine to be created.
+** Created automagically by ficl/softwords/softcore.pl 
+*/
+/*
+** Copyright (c) 1997-2001 John Sadler (john_sadler\@alum.mit.edu)
+** All rights reserved.
+**
+** Get the latest Ficl release at http://ficl.sourceforge.net
+**
+** I am interested in hearing from anyone who uses ficl. If you have
+** a problem, a success story, a defect, an enhancement request, or
+** if you would like to contribute to the ficl release, please send
+** contact me by email at the address above.
+**
+** L I C E N S E  and  D I S C L A I M E R
+** 
+** Redistribution and use in source and binary forms, with or without
+** modification, are permitted provided that the following conditions
+** are met:
+** 1. Redistributions of source code must retain the above copyright
+**    notice, this list of conditions and the following disclaimer.
+** 2. Redistributions in binary form must reproduce the above copyright
+**    notice, this list of conditions and the following disclaimer in the
+**    documentation and/or other materials provided with the distribution.
+**
+** THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+** ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+** IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+** ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+** FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+** SUCH DAMAGE.
+*/
+
+
+#include "ficl.h"
+
+static char softWords[] = 
+#if FICL_WANT_SOFTWORDS
+EOF
+;
+
+$commenting = 0;
+
+while (<>) {
+    s"\n$"";            # remove EOL
+    s/\"/\\\"/g;        # escape quotes
+
+    #
+    # emit lines beginnning with "\ **" as C comments
+    #
+    if (/^\\\s\*\*/)  {	
+        s"^\\ "";
+        if ($commenting == 0) {
+            print "/*\n";
+        }
+        $commenting = 1;
+        print "$_\n";
+        next;
+    }
+
+    if ($commenting == 1) {
+        print "*/\n";
+    }
+
+    $commenting = 0;
+
+    #
+    # ignore empty lines and lines containing
+    # only empty comments
+    #
+    next if /^\s*\\\s*$/;
+    next if /^\s*$/;
+
+    #
+	# pass commented preprocessor directives
+    # == lines starting with "\ #"
+    # (supports single line directives only)
+    #
+    if (/^\\\s#/)  {
+        s"^\\ "";
+        print "$_\n";
+        next;
+    }
+
+    next if /^\s*\\ /;  # toss all other \ comment lines
+    s"\\\s+.*$"" ;      # lop off trailing \ comments
+    s"\s+\(\s.*?\)""g;  # delete ( ) comments
+    s"^\s+"";           # remove leading spaces
+    s"\s+$"";           # remove trailing spaces
+
+    #
+    # emit whatever's left as quoted string fragments
+    #
+#    $out = "    \"" . $_ . " \\n\"";
+     $out = "    \"" . $_ . " \"";
+    print "$out\n";
+}
+
+print <<EOF
+#endif /* WANT_SOFTWORDS */
+    "quit ";
+
+
+void ficlCompileSoftCore(FICL_SYSTEM *pSys)
+{
+    FICL_VM *pVM = pSys->vmList;
+    CELL id = pVM->sourceID;
+    int ret = sizeof (softWords);
+    assert(pVM);
+    pVM->sourceID.i = -1;
+    ret = ficlExec(pVM, softWords);
+    pVM->sourceID = id;
+    if (ret == VM_ERREXIT)
+        assert(FALSE);
+    return;
+}
+
+
+EOF
+;
+