fixup commit for tag 'release-5-6'

UnGetChar call is wrong after skipspaces().

.distr

@@ -2,6 +2,7 @@ Action
 Copyright
 NEW
 README
+TODO
 TakeAction
 bin
 doc
@@ -18,4 +19,3 @@ lib
 mach
 man
 util
-Versions

Copyright

@@ -1,17 +1,32 @@
-/*
- *     A M S T E R D A M   C O M P I L E R   K I T
- *
- * Copyright (c) 1987, 1991, 1993 by the Vrije Universiteit, Amsterdam,
- * The Netherlands.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      De Boelelaan 1081a
- *      1081 HV  Amsterdam
- *      The Netherlands
- *
- */
+Copyright (c) 1987, 1990, 1993, 2005 Vrije Universiteit, Amsterdam, The Netherlands.
+All rights reserved.
+
+Redistribution and use of the Amsterdam Compiler Kit in source and
+binary forms, with or without modification, are permitted provided
+that the following conditions are met:
+
+   * Redistributions of source code must retain the above copyright
+     notice, this list of conditions and the following disclaimer.
+
+   * 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.
+
+   * Neither the name of Vrije Universiteit nor the names of the
+     software authors or contributors may be used to endorse or
+     promote products derived from this software without specific
+     prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS, AUTHORS, 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 VRIJE UNIVERSITEIT OR ANY AUTHORS 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.

DistrAction

@@ -1,3 +0,0 @@
-p=/proj/em/Work
-sh TakeAction 'make distr' $p/distr/Action
-sh TakeAction 'make distr' $p/distr/Action1

Makefile

@@ -1,35 +0,0 @@
-cmp:           # compile everything and compare
-	(cd etc  ; make cmp )
-	(cd util ; make cmp )
-	(cd lang ; make cmp )
-	(cd mach ; make cmp )
-
-install:         # compile everything to machine code
-	(cd etc  ; make install )
-	(cd util ; make install )
-	(cd lang/cem ; make install )
-	(cd mach ; make install )
-	(cd lang/pc ; make install )
-
-clean:        # remove all non-sources, except boot-files
-	(cd doc ; make clean )
-	(cd man ; make clean )
-	(cd h   ; make clean )
-	(cd etc  ; make clean )
-	(cd util ; make clean )
-	(cd lang ; make clean )
-	(cd mach ; make clean )
-
-opr:            # print all sources
-	make pr | opr
-
-pr:             # print all sources
-	@( pr Makefile ; \
-	  (cd doc ; make pr ) ; \
-	  (cd man ; make pr ) ; \
-	  (cd h ; make pr ) ; \
-	  (cd etc  ; make pr ) ; \
-	  (cd lang ; make pr ) ; \
-	  (cd util ; make pr ) ; \
-	  (cd mach ; make pr ) \
-	)

NEW

@@ -1,4 +1,15 @@
-This is ACK distribution 5.2.
+This is ACK distribution 5.6.
+
+This is a minor update of 5.5, the last public release from Vrije University.
+Only minor changes have been made to make the system build on modern
+platforms.
+
+The NEW document from the previous release follows.
+
+David Given
+dg@cowlark.com 2005-06-24
+
+-----------------------------------------------------------------------------
 
 The only addition with respect to the 5th ACK distribution is the support
 for Solaris 2 on SPARCs. It also contains many bug fixes.

README

@@ -1,2 +1,174 @@
-Before starting installation you should read
-the file doc/install.pr
+# $Source$
+# $State$
+
+Installing the ACK on a modern platform
+=======================================
+
+This document provides some very quick and dirty instructions for installing
+the ACK on a modern platform. It is not intended as a substitute for the
+real instructions, which can be found in doc/install.pr.
+
+Let me repeat myself:
+
+THE FULL INSTALLATION INSTRUCTIONS ARE IN doc/install.pr.
+
+The ACK is a very large and complex package and has received minimal
+maintenance for the best part of a decade. During that time, the Unix
+world has moved on, and many APIs have changed. It compiles cleanly on
+my, dtrg's, test machine, which is a Debian Ubuntu Linux system. Your
+mileage may vary.
+
+All disclaimers now done, now on to the good stuff:
+
+Building the ACK
+----------------
+
+I'm assuming you're using Linux here, because that's what I use. If you
+don't use Linux, please let me know if you have any trouble and I'll update
+the instructions.
+
+1. Configure the build.
+
+   To do this, run the first/first script. You will be asked several
+   questions.
+   
+   * What is the root of the ACK source tree?
+   
+     This is the directory that you have unpacked the distribution into.
+     For example, /home/dg/src/Ack-5.6.
+     
+   * What is the root of the configuration tree?
+   
+     This is the directory that the build process will use for temporary
+     files. You'll only need this during the compilation process; it can
+     be removed afterwards.
+     For example, /tmp/ack-conf
+     
+   * What is the root of the ACK binaries?
+   
+     This is the ACK's installation path; where the binaries will live.
+     This needs to be writable during the build process --- if you want
+     to install in /usr/local, you either have to make /usr/local
+     writable or compile as root. Sorry!
+     
+   * What is your system type?
+   
+     Linux isn't on the list. Choose ANY.
+     
+   * Is this the system you are running on?
+   
+     Yes.
+     
+   * Are you satisfied?
+   
+     Yes.
+     
+   * What default machine do you wish to compile for?
+   
+     The ACK wants to know what architecture to target if you don't manually
+     specify an architecture. Unfortunately, it can't generate runnable
+     binaries for Linux or any other modern system (except possible Solaris
+     on Sparc). I'd recommend you choose em44. This will produce portable
+     binaries using the ACK's intermediate format, which you can run using
+     the int interpreter.
+     
+   * What kind of Unix are you running?
+   
+     Linux is a mixture, but I pick SYS_5 and it works.
+     
+   * Do you wish to limit the installation?
+   
+     No. If you pick Yes, the script will ask detailed questions about
+     exactly what you want to build. Modern systems are fast enough that
+     we may as well build everything.
+     
+   * Which system call library do you wish to use on the VAX?
+   
+     I don't have a VAX; the only person I know who has one uses it to vacuum
+     his carpets. I pick libsysV_2 with no ill effects.
+     
+   If the configuration script is happy, it will generate a script called
+   INSTALL.
+   
+2. Do the compilation.
+
+   The configuration script will recommend a command line. Execute this. On
+   modern systems, the compilation doesn't take long.
+   
+   Check the output of the configuration script for "Failed" lines. On my
+   system there are two:
+   
+     $ grep Failed INSTALL.out
+     Failed for Intel 8080 download programs, see dl/Out
+     Failed for Intel 8080 support
+   
+   You can ignore these. They aren't important.
+   
+3. Use the ACK.
+
+   Ensure that the ACK's binary directory is on your path; this is /bin in
+   the directory you specified during the configuration process. In my
+   example, this is /usr/local/bin. The /man subdirectory should go on your
+   manpath.
+
+   To test your path, do: ack
+   
+   This should return silently.
+   
+   To test your manpath, do: man ack
+      
+   This will produce the documentation for the main compiler driver.
+   
+   If this works, you can remove the conf tree (/tmp/ack-conf in my example).
+   
+Gotchas
+-------
+
+There are some things you should be aware of.
+
+* The ACK's archiver tool is called 'arch'. This conflicts on Linux platforms
+  with a utility that displays the current architecture. If your compilation
+  occasionally fails obscurely and displays something like 'i686', you are
+  running afoul of this. As a workaround, rearrange your path so the ACK's
+  bin directory comes first --- but do be aware that some Linux system
+  tools may stop working.
+  
+* By default, the ack tool will compile K&R C. Practically all C source these
+  days is ANSI C --- use the -ansi switch to enable ANSI mode. No, the ACK is
+  not C99 compatible.
+  
+* Not all combinations of optimisation and architectures work. This is
+  perfectly normal, but the combinations are not well documented. Everything
+  supports -O.
+  
+Disclaimer
+----------
+
+The ACK is mature, well-tested software, but the environment in which it was
+developed for and tested under is rather different from that available on
+today's machines. There will probably be little in the way of logical bugs,
+but there may be many compilation and API bugs.
+
+If you wish to use the ACK, *please* join the mailing list. We are interested
+in any reports of success and particularly, failure. If it does fail for you,
+we would love to know why, in as much detail as possible. Bug fixes are even
+more welcome.
+
+The ACK is licensed under a BSD-like license. Please see the 'Copyright' file
+for the full text.
+
+You can find the mailing list on the project's web site:
+
+	http://tack.sourceforge.net/
+	
+Please enjoy.
+
+David Given (dtrg on Sourceforge)
+dg@cowlark.com
+2005-06-24, 23:53
+
+# Revision history
+# $Log$
+# Revision 2.2  2005-06-24 23:20:41  dtrg
+# Added some new readmes at the top level.
+#

TODO

@@ -0,0 +1,20 @@
+# $Source$
+# $State$
+
+This file contains things that I have noticed need fixing, but have not
+yet been fixed. Everything here should be reasonably low priority. Some
+bugs have been bodged around to make things work; these are all marked in
+the source with FIXME tags.
+
+
+* util/int needs to be rewritten to emulate sgtty with termios; look for
+  FIXMEs.
+
+* mach/i80/dl/nascom.c needs to be rewritten to use termios, not sgtty.
+
+
+# Revision history
+# $Log$
+# Revision 2.1  2005-06-24 23:20:41  dtrg
+# Added some new readmes at the top level.
+#

bin/mk_manpage

@@ -15,4 +15,4 @@ if [ -f $2/man/head ] ; then : ; else cat > $2/man/head <<'EOF'
 EOF
 fi
 if [ -d $2/man/man$num ] ; then : ; else mkdir $2/man/man$num ; fi
-cat $2/man/head $1 > $2/man/man$num/`expr //$1 : '.*/\([^/]*\)'`
+cat $2/man/head $1  | sed "s!TARGETHOME!$2!" > $2/man/man$num/`expr //$1 : '.*/\([^/]*\)'`

distr/Exceptions

@@ -1,8 +1,6 @@
-++ ./doc/proto.make made
+++ ./doc/install.pr made
 ++ ./doc/int/.distr made
-++ ./h/em_mnem.h not present
-++ ./h/em_pseu.h not present
-++ ./h/em_spec.h not present
+++ ./etc/new_table_done made
 ++ ./lang/cem/cemcom.ansi/Version.c made
 ++ ./lang/cem/libcc.ansi/stdlib/malloc.c made
 ++ ./lang/cem/cemcom/Version.c made
@@ -13,8 +11,5 @@
 ++ ./mach/sparc_solaris/libem/LIST made
 ++ ./util/LLgen/src/LLgen.c.dist made
 ++ ./util/cpp/Version.c made
-++ ./util/data/em_flag.c not present
-++ ./util/data/em_mnem.c not present
-++ ./util/data/em_pseu.c not present
 ++ ./util/ego/share/pop_push.h made
 ++ ./util/grind/ops.c made

distr/How_To

@@ -1,3 +1,27 @@
+How to make a distribution
+--------------------------
+
+I have written a new tool to generate the distributions that does not rely on
+having a local CVS server --- distr/mkdist.
+
+To use it, you need to specify your CVS work tree, the destination directory
+that the distribution will be written to, plus flags. It should be self-
+documenting; use:
+
+	mkdist --help
+	
+...to get documentation.
+
+It uses .distr files in exactly the same way as the previous mechanism.
+
+The documentation for the old distribution tools follows.
+
+David Given
+dg@cowlark.com
+2005-06-25
+
+-----------------------------------------------------------------------------
+
 How to make a fresh distribution:
 For a distribution you need ".distr" files and RCS files.
 The EM home directory contains a file called ".distr". It contains
@@ -12,7 +36,8 @@ these files.
 
 When all this is correct, use the shell script mktree the extract
 the distribution from the EM tree.
-	sh mktree destination_tree repository_tree > destination_tree/Versions 2>f.attf
+	sh mktree destination_tree repository_tree <distrname> 2>f.attf
+Use the "cvs rtag" command to give the distribution a name first!
 Make sure that the destination tree exists and is empty!
 Failing to do that will almost certainly result in a welter of
 error messages.
@@ -42,8 +67,8 @@ Now, the tree contains all the files in the distribution, but it also contains
 files that should not be in the distribution, especially the files created
 by CVS.
 That is why we now give the command:
-	dtar cdf distr5 .
-The file distr5 is the one you should put on tape!
+	dtar cdf distr .
+The file distr is the one you should put on tape!
 But,.... before doing that: Try it out!
 Repeat the process described in the installation manual.
 Only if that succeeds you are sure that you included the files needed.

distr/dwalk

@@ -1,10 +1,4 @@
 : ${CDIR=.}
-if [ $# = 1 ]
-then
-	${DD-:} $CDIR $1
-else
-	${DD-:} $CDIR
-fi
 ${DF-:} $CDIR .distr
 if test ! -r $DESTDIR/$CDIR/.distr
 then

distr/mkd

@@ -1,27 +0,0 @@
-case $1 in
-.)	;;
-*)	mkdir $DESTDIR/$1
-	;;
-esac
-p=$REPDIR/$1
-dir=$1
-if [ $# = 2 ]
-then
-	if [ -f $2 ]
-	then	
-		set `fgrep "$dir " $2`
-	fi
-fi
-cd $DESTDIR/$dir
-if [ $# = 2 ]
-then
-	RV $p $2 > /dev/null 2>&1
-	echo "$dir $2"
-else
-	if `CV $p > /dev/null 2>&1`
-	then
-		echo "$dir `RC -i`"
-	else
-		echo "-- $dir CV failed for some reason" 1>&2
-	fi
-fi

distr/mkdist

@@ -0,0 +1,165 @@
+#!/bin/sh
+# $Source$
+# $State$
+
+# Set up default variables.
+
+destdir=
+srcdir=`pwd`
+arch=/usr/local/bin/arch
+delete=no
+copy=ln
+
+# --- Options parsing -------------------------------------------------------
+
+while [ "$1" != "" ]; do
+	case "$1" in
+		-s|--srcdir)
+			srcdir="$2"
+			shift
+			;;
+			
+		-d|--destdir)
+			destdir="$2"
+			shift
+			;;
+			
+		-x|--delete)
+			delete=yes
+			;;
+			
+		-c|--copy)
+			copy="cp -dp"
+			;;
+			
+		-a|--arch)
+			arch="$2"
+			shift
+			;;
+			
+		-h|--help)
+			echo "mkdist [options]"
+			echo "Options are:"
+			echo "  -s --srcdir <path>   The CVS tree to read from. (default: CWD)"
+			echo "  -d --destdir <path>  The directory to create the distribution in."
+			echo "  -x --delete          Erase the destination directory first."
+			echo "  -c --copy            Make physical copies of the files. (default: hardlink)"
+			echo "  -a --arch <path>     Where the ACK 'arch' tool is."
+			echo "  -h --help            Display this message."
+			exit 0
+			;;
+			
+		*)
+			echo "Unrecognised option. Try --help for help."
+			exit 1
+	esac
+	shift
+done
+
+if [ "$destdir" == "" ]; then
+	echo "You must specify a destination directory. (Try --help for help.)"
+	exit 1
+fi
+
+# --- Main routines ---------------------------------------------------------
+
+# These two routines do the work of traversing the source tree and building
+# the distribution tree.
+
+addfile() {
+	local f
+	f="${1##$srcdir/}"
+	mkdir -p $destdir/`dirname $f`
+	$copy "$1" "$destdir/$f"
+}
+
+process_dir() {
+	local path
+	local archivename
+	
+	path=$1
+	cd $path
+	
+	# Look for a LIST file and cache the first line.
+	
+	archivename=
+	if [ -f LIST ]; then
+		archivename=`head -1 LIST`
+	fi
+
+	for i in `cat $path/.distr`; do
+		if [ -d $i ]; then
+			# This is a directory. Recurse into it.
+			
+			( process_dir $path/$i )
+		elif [ -f $i ]; then
+			# This is a file.
+			
+			addfile $path/$i
+		elif [ "$i" = "$archivename" ]; then
+			# Build the named archive.
+
+			$arch cDr `cat LIST`
+			addfile $path/$archivename
+		else
+		(
+			PATH=$PATH:.
+			export PATH
+			make distr || make $i || (
+				echo "Don't know what to do with $i, listed in $1/.distr."
+				exit 1
+			)
+			
+			if [ ! -f "$path/$i" ]; then
+				echo "Make failed for $i, listed in $path/.distr"
+				exit 1
+			fi
+			addfile $path/$i
+		)
+		fi
+	done
+}
+
+# --- Main program ----------------------------------------------------------
+
+# Test to make sure that $arch points to the right thing.
+
+if !(strings $arch | grep archiver > /dev/null); then
+	echo "$arch does not seem to point at the ACK archiver tool."
+	echo "(Don't confuse this with the Linux tool for displaying your"
+	echo "architecture.)"
+	echo ""
+	echo "Press RETURN to go ahead anyway, or CTRL+C to abort."
+	read
+fi
+
+# Actually do the work.
+
+echo "Creating distribution from CVS tree: $srcdir"
+echo "              into destination tree: $destdir"
+echo ""
+
+if [ -e $destdir ]; then
+	if [ "$delete" == "yes" ]; then
+		echo "Press RETURN to erase $destdir and its contents, or CTRL+C to abort."
+		read
+		echo "Erasing..."
+		rm -rf "$destdir"
+	else
+		echo "$destdir exists. Aborting."
+		exit 1
+	fi
+fi
+
+echo "Working..."
+mkdir -p $destdir
+process_dir $srcdir
+echo "Done."
+
+# Revision history
+# $Log$
+# Revision 1.2  2005-06-24 23:19:23  dtrg
+# Added new mkdist tool.
+#
+# Revision 1.1  2005/06/24 22:13:57  dtrg
+# Created new tool to generate distributions.

distr/mktree

@@ -16,12 +16,26 @@ case $2 in
 /*)	REPDIR=$2 ;;
 *)	REPDIR=`pwd`/$2 ;;
 esac
+# DD=$DDIR/mkd
+# export DD
+mkdir -p $DESTDIR
+CVSROOT=/usr/proj/em/Repositories
+export CVSROOT
+cd $DESTDIR
+case $# in
+3)
+	cvs checkout world -r $3
+	;;
+2)
+	cvs checkout world
+	;;
+esac
 cd $REPDIR
-DD=$DDIR/mkd
 DF=$DDIR/mkf
 DA=$DDIR/mka
-export DDIR DESTDIR DD DF DA REPDIR
-$DDIR/dwalk $3
+export DDIR DESTDIR DF DA REPDIR
+
+$DDIR/dwalk
 
 cd $DESTDIR
 find . -type d -print | xargs chmod "uog+rx"

doc/.distr

@@ -30,3 +30,4 @@ int
 ceg
 sparc
 lint
+pascal

doc/LLgen/.distr

@@ -1,3 +1,4 @@
 LLgen.n
+LLgen_NCER.n
 LLgen.refs
 proto.make

doc/LLgen/LLgen.n

@@ -338,7 +338,12 @@ grammar rule.
 .PP
 In order to facilitate communication between the actions and
 \fILLparse\fR,
-the parsing routines can be given C-like parameters. So, for example
+the parsing routines can be given C-like parameters.
+Each parameter must be declared separately, and each of these declarations must
+end with a semicolon.
+For the last parameter, the semicolon is optional.
+.PP
+So, for example
 .nf
 .ft CW
 .sp 1
@@ -921,7 +926,7 @@ stat    {       int     ident, val; } :
         | '\en'
         ;
 
-expr(int level, int *val;) {       int     expr; } :
+expr(int level; int *val;) {       int     expr; } :
           factor(val)
           [ %while (prio(tok.t_tokno) >= level)
                     /* Swallow operators as long as their priority is

doc/LLgen/Makefile

@@ -1,9 +1,15 @@
 # $Id$
 
+GRAP=grap
+PIC=pic
 EQN=eqn
 REFER=refer
 TBL=tbl
-TARGET=-Tlp
+
+all:		../LLgen.doc ../LLgen_NCER.doc
 
 ../LLgen.doc:	LLgen.n LLgen.refs
-		$(REFER) -sA+T -p LLgen.refs LLgen.n | $(EQN) $(TARGET) | $(TBL) > $@
+		$(REFER) -sA+T -p LLgen.refs LLgen.n | $(EQN) | $(TBL) > $@
+
+../LLgen_NCER.doc:	LLgen_NCER.n
+		$(GRAP) LLgen_NCER.n | pic | eqn > $@

doc/LLgen/proto.make

@@ -4,9 +4,17 @@
 
 SRC_DIR = $(SRC_HOME)/doc/LLgen
 
+GRAP=grap
+PIC=pic
 EQN=eqn
 REFER=refer
 TBL=tbl
 
+all:	$(TARGET_HOME)/doc/LLgen.doc $(TARGET_HOME)/doc/LLgen_NCER.doc
+
 $(TARGET_HOME)/doc/LLgen.doc:	$(SRC_DIR)/LLgen.n $(SRC_DIR)/LLgen.refs
 	$(REFER) -sA+T -p $(SRC_DIR)/LLgen.refs $(SRC_DIR)/LLgen.n | $(EQN) | $(TBL) > $@
+
+$(TARGET_HOME)/doc/LLgen_NCER.doc:      $(SRC_DIR)/LLgen_NCER.n
+		$(GRAP) $(SRC_DIR)/LLgen_NCER.n | pic | eqn > $@
+

doc/Makefile

@@ -12,7 +12,8 @@ OPR=dip
 RESFILES= \
 	toolkit.$(SUF) install.$(SUF) em.$(SUF) ack.$(SUF) v7bugs.$(SUF) \
 	peep.$(SUF) cg.$(SUF) ncg.$(SUF) regadd.$(SUF) LLgen.$(SUF) \
-	basic.$(SUF) crefman.$(SUF) pcref.$(SUF) val.$(SUF) ansi_C.$(SUF) \
+	basic.$(SUF) crefman.$(SUF) pascal.$(SUF) pcref.$(SUF) val.$(SUF) \
+	ansi_C.$(SUF) \
 	6500.$(SUF) i80.$(SUF) z80.$(SUF) top.$(SUF) ego.$(SUF) \
 	m68020.$(SUF) occam.$(SUF) m2ref.$(SUF) ceg.$(SUF) nopt.$(SUF) \
 	sparc.$(SUF) int.$(SUF) lint.$(SUF)
@@ -78,4 +79,4 @@ clean:
 # It makes a version of the installation manual, suitable for a simple
 # line printer.
 distr:		install.doc
-		tbl install.doc | nroff -Tlpr $(MS) >install.pr
+		tbl install.doc | nroff -Tlp $(MS) >install.pr

doc/em/int/proto.make

@@ -10,10 +10,10 @@ all:            em emdmp tables
 tables:         mktables $(SRC_HOME)/etc/ip_spec.t
 		mktables $(SRC_HOME)/etc/ip_spec.t tables
 
-mktables:       mktables.c $(TARGET_HOME)/h/em_spec.h \
+mktables:       $(SRC_DIR)/mktables.c $(TARGET_HOME)/h/em_spec.h \
 		$(TARGET_HOME)/h/em_flag.h \
 		$(TARGET_HOME)/lib.bin/em_data.$(LIBSUF) $(TARGET_HOME)/h/ip_spec.h
-		$(CC) -I$(TARGET_HOME)/h -O -o mktables mktables.c $(TARGET_HOME)/lib.bin/em_data.$(LIBSUF)
+		$(CC) -I$(TARGET_HOME)/h -O -o mktables $(SRC_DIR)/mktables.c $(TARGET_HOME)/lib.bin/em_data.$(LIBSUF)
 
 em:             $(SRC_DIR)/em.p
 		apc -O $(SRC_DIR)/em.p >emerrs ; mv a.out em

doc/install.doc

@@ -1084,7 +1084,7 @@ directory "first".
 Em_path.h also specifies which directory should be used for
 temporary files.
 Most programs from the Kit do indeed use that directory
-although some remain stubborn and use /tmp or /usr/tmp.
+although some remain stubborn and use /tmp.
 .LP
 The shape of the tree should not be altered lightly because
 most Makefiles and the

doc/pascal/.distr

@@ -0,0 +1,20 @@
+ab+intro.doc
+compar.doc
+conf.doc
+contents.doc
+deviations.doc
+example.doc
+extensions.doc
+hints.doc
+his.doc
+improv.doc
+internal.doc
+options.doc
+proto.make
+reference.doc
+rtl.doc
+syntax.doc
+test.doc
+titlepg.doc
+transpem.doc
+vrk.doc

doc/pascal/proto.make

@@ -0,0 +1,28 @@
+# $Id$
+
+#PARAMS         do not remove this line!
+
+SRC_DIR = $(SRC_HOME)/doc/pascal
+
+PIC = pic
+
+SRC =  \
+	$(SRC_DIR)/ab+intro.doc \
+	$(SRC_DIR)/internal.doc \
+	$(SRC_DIR)/transpem.doc \
+	$(SRC_DIR)/conf.doc \
+	$(SRC_DIR)/options.doc \
+	$(SRC_DIR)/extensions.doc \
+	$(SRC_DIR)/deviations.doc \
+	$(SRC_DIR)/hints.doc \
+	$(SRC_DIR)/test.doc \
+	$(SRC_DIR)/compar.doc \
+	$(SRC_DIR)/improv.doc \
+	$(SRC_DIR)/his.doc \
+	$(SRC_DIR)/reference.doc \
+	$(SRC_DIR)/syntax.doc \
+	$(SRC_DIR)/rtl.doc \
+	$(SRC_DIR)/example.doc
+
+$(TARGET_HOME)/doc/pascal.doc:	$(SRC)
+	$(PIC) $(SRC) > $@

doc/proto.make

@@ -6,6 +6,7 @@ TBL=tbl
 EQN=eqn
 PIC=pic
 REFER=refer
+GRAP=grap
 
 RESFILES= \
 	$(TARGET_HOME)/doc/toolkit.doc \
@@ -18,6 +19,8 @@ RESFILES= \
 	$(TARGET_HOME)/doc/ncg.doc \
 	$(TARGET_HOME)/doc/regadd.doc \
 	$(TARGET_HOME)/doc/LLgen.doc \
+	$(TARGET_HOME)/doc/LLgen_NCER.doc \
+	$(TARGET_HOME)/doc/pascal.doc \
 	$(TARGET_HOME)/doc/basic.doc \
 	$(TARGET_HOME)/doc/crefman.doc \
 	$(TARGET_HOME)/doc/ansi_C.doc \
@@ -72,7 +75,11 @@ $(TARGET_HOME)/doc/regadd.doc:	$(SRC_HOME)/doc/regadd.doc
 
 $(TARGET_HOME)/doc/LLgen.doc:	LLgen.X
 LLgen.X:
-		cd LLgen; make "EQN="$(EQN) "TBL="$(TBL) "REFER="$(REFER) 
+		cd LLgen; make "EQN="$(EQN) "TBL="$(TBL) "REFER="$(REFER) "GRAP="$(GRAP)
+
+$(TARGET_HOME)/doc/LLgen_NCER.doc:	LLgen_NCER.X
+LLgen_NCER.X:
+		cd LLgen; make "EQN="$(EQN) "TBL="$(TBL) "REFER="$(REFER) "GRAP="$(GRAP)
 
 $(TARGET_HOME)/doc/basic.doc:	$(SRC_HOME)/doc/basic.doc
 		cat $(SRC_HOME)/doc/basic.doc >$@
@@ -105,6 +112,10 @@ $(TARGET_HOME)/doc/sparc.doc:	sparc.X
 sparc.X:
 		cd sparc; make "PIC="$(PIC) "TBL="$(TBL)
 
+$(TARGET_HOME)/doc/pascal.doc:	pascal.X
+pascal.X:
+		cd pascal; make "PIC="$(PIC)
+
 $(TARGET_HOME)/doc/top.doc:	top.X
 top.X:
 		cd top; make "EQN="$(EQN) "TBL="$(TBL) "REFER="$(REFER)

emtest/select.c

@@ -32,9 +32,9 @@ int	high	= 999;
 FILE	*file1;
 FILE	*file2;
 FILE	*file3;
-char	name1[] = "/usr/tmp/f1XXXXXX";
-char	name2[] = "/usr/tmp/f2XXXXXX";
-char	name3[] = "/usr/tmp/f3XXXXXX";
+char	name1[] = "/tmp/f1XXXXXX";
+char	name2[] = "/tmp/f2XXXXXX";
+char	name3[] = "/tmp/f3XXXXXX";
 
 char *to3dig();
 

fast/driver/driver.c

@@ -31,9 +31,13 @@ Something wrong here! Only one of FM2, FPC, or FCC must be defined
 
 #include <errno.h>
 #include <signal.h>
-#include <varargs.h>
 #include <stdio.h>
 #include <em_path.h>
+#if __STDC__
+#include <stdarg.h>
+#else
+#include <varargs.h>
+#endif
 
 /*
 	Version producing ACK .o files in one pass.
@@ -178,7 +182,11 @@ int v_flag = 0;
 int O_flag = 0;
 int ansi_c = 0;
 
+#if __STDC__
+char *mkstr(char *, ...);
+#else
 char *mkstr();
+#endif
 char *malloc();
 char *alloc();
 char *extension();
@@ -669,7 +677,32 @@ concat(al1, al2)
 		*p++ = *q++;
 	}
 }
+#if __STDC__
+/*VARARGS*/
+char *
+mkstr(char *dst, ...)
+{
+	va_list ap;
 
+	va_start(ap, dst);
+	{
+		register char *p;
+		register char *q;
+
+		q = dst;
+		p = va_arg(ap, char *);
+
+		while (p) {
+			while (*q++ = *p++);
+			q--;
+			p = va_arg(ap, char *);
+		}
+	}
+	va_end(ap);
+
+	return dst;
+}
+#else
 /*VARARGS*/
 char *
 mkstr(va_alist)
@@ -696,7 +729,7 @@ mkstr(va_alist)
 
 	return dst;
 }
-
+#endif
 basename(str, dst)
 	char *str;
 	register char *dst;

fast_misc/.distr

@@ -1,6 +0,0 @@
-man
-INSTALL
-INSTALL_A
-READ_ME.n
-driver.c
-str_change.c

fast_misc/INSTALL

@@ -1,182 +0,0 @@
-#!/bin/sh
-
-# installation of fast ACK compilers fcc, fm2, and fpc
-
-# is the call correct?
-case $# in
-1)
-	if [ -d $1 ] 
-	then
-		:
-	else
-		echo $0: $1 is not a directory >&2
-		exit 1
-	fi
-	;;
-*)
-	echo $0: Call is $0 \<bin directory\> >&2
-	exit 1
-	;;
-esac
-
-# investigate machine: either vax or sun(3)
-
-echo $0: determining type of machine ...
-cat > t.c <<'EOF'
-main() {
-#ifdef sun
-	printf("sun\n");
-#endif
-#ifdef vax
-	printf("vax\n");
-#endif
-}
-EOF
-if cc t.c
-then
-	:
-else
-	$0: compilation failed >&2
-	exit 1
-fi
-m=`./a.out`
-rm -f a.out t.[co]
-case $m in
-sun|vax)
-	echo $0: Starting installation for a $m ...
-	;;
-*)
-	echo $0: machine must be sun or vax >&2
-	exit 1
-	;;
-esac
-
-# make links to proper bin and lib directories
-
-echo $0: creating bin and lib directories ...
-rm -f bin lib
-ln -s bin.$m bin
-ln -s lib.$m lib
-
-# edit manual page
-sed s@CHANGE_ME@`pwd`/def@ < man/fm2.1.src > man/fm2.1
-
-# now compile the driver program
-
-echo $0: compiling driver program ...
-rm -f fcc fm2 fpc
-SunOs4=
-if [ -f /usr/lib/ld.so ]
-then
-# different options for the loader on SunOs 4.0
-	SunOs4=-DSunOs4
-fi
-if cc -O -DFASTDIR=\"`pwd`\" $SunOs4 -DFCC -o fcc driver.c &&
-   cc -O -DFASTDIR=\"`pwd`\" $SunOs4 -DFM2 -o fm2 driver.c &&
-   cc -O -DFASTDIR=\"`pwd`\" $SunOs4 -DFPC -o fpc driver.c
-then
-	:
-else
-	echo $0: compilation of driver program failed >&2
-	exit 1
-fi
-
-if cc -o str_change str_change.c
-then
-	case $m in
-	vax)
-		./str_change CHANGE_ME `pwd` < bin.vax/m2mm > fm2mm
-		;;
-	sun)
-		./str_change CHANGE_ME `pwd` < bin.sun/m2mm > fm2mm
-		;;
-	esac
-	rm -f str_change.o str_change
-	chmod +x fm2mm
-else
-	echo "$0: compilation of string patching program failed; cannot create fm2mm" >&2
-fi
-
-#now run simple tests
-
-echo $0: run some simple tests
-failed=false
-cat > test.mod <<'EOF'
-MODULE test;
-FROM InOut IMPORT	WriteString, WriteLn;
-BEGIN
-	WriteString("Hello World");
-	WriteLn
-END test.
-EOF
-if ./fm2 test.mod 2>/dev/null
-then
-	case `a.out` in
-	"Hello World")
-		;;
-	*)
-		echo $0: fm2 test failed >&2
-		failed=true
-		;;
-	esac
-else
-	echo $0: fm2 compilation failed >&2
-	failed=true
-fi
-
-cat > test.c <<'EOF'
-main() { printf("Hello World\n"); }
-EOF
-if ./fcc test.c 2>/dev/null
-then
-	case `a.out` in
-	"Hello World")
-		;;
-	*)
-		echo $0: fcc test failed >&2
-		failed=true
-		;;
-	esac
-else
-	echo $0: fcc compilation failed >&2
-	failed=true
-fi
-
-cat > test.p <<'EOF'
-program p(output); begin writeln('Hello World') end.
-EOF
-if ./fpc test.p 2>/dev/null
-then
-	case `a.out` in
-	"Hello World")
-		;;
-	*)
-		echo $0: fpc test failed >&2
-		failed=true
-		;;
-	esac
-else
-	echo $0: fpc compilation failed >&2
-	failed=true
-fi
-
-rm -f test.* a.out
-
-case $failed in
-true)
-	echo $0: some tests failed, installation aborted >&2
-	exit 1
-	;;
-false)
-	rm -f $1/fm2 $1/fcc $1/fpc
-	cp fm2 fcc fpc $1
-	if [ -f fm2mm ]
-	then
-		rm -f $1/fm2mm
-		cp fm2mm $1/fm2mm
-	fi
-	rm -f fm2 fpc fcc fm2mm
-	echo $0: Installation completed
-	exit 0
-	;;
-esac

fast_misc/INSTALL_A

@@ -1,166 +0,0 @@
-#!/bin/sh
-
-# installation of fast ACK compilers afcc, afm2
-
-# is the call correct?
-case $# in
-1)
-	if [ -d $1 ] 
-	then
-		:
-	else
-		echo $0: $1 is not a directory >&2
-		exit 1
-	fi
-	;;
-*)
-	echo $0: Call is $0 \<ACK home directory\> >&2
-	exit 1
-	;;
-esac
-
-# investigate machine: either vax or sun(3)
-
-echo $0: determining type of machine ...
-cat > t.c <<'EOF'
-main() {
-#ifdef sun
-	printf("sun\n");
-#endif
-#ifdef vax
-	printf("vax\n");
-#endif
-}
-EOF
-if cc t.c
-then
-	:
-else
-	echo $0: compilation failed >&2
-	exit 1
-fi
-m=`./a.out`
-rm -f a.out t.[co]
-case $m in
-sun|vax)
-	echo $0: Starting installation for a $m ...
-	;;
-*)
-	echo $0: machine must be sun or vax >&2
-	exit 1
-	;;
-esac
-
-# edit manual page
-sed s@CHANGE_ME@$1/lib/m2@ < man/afm2.1.src > man/afm2.1
-
-# install the compiler binaries
-
-echo $0: copying compiler binaries ...
-case $m in
-sun)
-	cp ack.sun/cemcom* ack.sun/m2* $1/lib/m68020
-	;;
-vax)
-	cp ack.vax/cemcom* ack.vax/m2* $1/lib/vax4
-	;;
-esac
-
-# now compile the driver program
-
-echo $0: compiling driver program ...
-rm -f afcc afm2
-if cc -O -DACK_BIN -I$1/h -DFCC -o afcc driver.c &&
-   cc -O -DACK_BIN -I$1/h -DFM2 -o afm2 driver.c
-then
-	:
-else
-	echo $0: compilation of driver program failed >&2
-	exit 1
-fi
-
-( cd $1/lang/m2/libm2
-  echo 'killbss() { }' > killbss.c
-  ../../../bin/acc -L -c -LIB killbss.c
-  cp LIST LIST.old
-  echo 'killbss.c' >> LIST
-  ../../../bin/arch r tail_m2.a killbss.c
-) > /dev/null 2>&1
-
-case $m in
-sun)
-	( cd $1/lib/sun3
-	  cp tail_m2 tail_m2.orig
-	  ../../bin/aal r tail_m2 ../../lang/m2/libm2/killbss.o
-	)
-	;;
-vax)
-	( cd $1/lib/vax4
-	  cp tail_m2 tail_m2.orig
-	  ar r tail_m2 ../../lang/m2/libm2/killbss.o
-	  ranlib tail_m2
-	)
-	;;
-esac > /dev/null 2>&1
-
-#now run simple tests
-
-echo $0: run some simple tests
-failed=false
-cat > test.mod <<'EOF'
-MODULE test;
-FROM InOut IMPORT	WriteString, WriteLn;
-BEGIN
-	WriteString("Hello World");
-	WriteLn
-END test.
-EOF
-if ./afm2 test.mod 2>/dev/null
-then
-	case `a.out` in
-	"Hello World")
-		;;
-	*)
-		echo $0: afm2 test failed >&2
-		failed=true
-		;;
-	esac
-else
-	echo $0: afm2 compilation failed >&2
-	failed=true
-fi
-
-cat > test.c <<'EOF'
-main() { printf("Hello World\n"); }
-EOF
-if ./afcc test.c 2>/dev/null
-then
-	case `a.out` in
-	"Hello World")
-		;;
-	*)
-		echo $0: afcc test failed >&2
-		failed=true
-		;;
-	esac
-else
-	echo $0: afcc compilation failed >&2
-	failed=true
-fi
-
-rm -f test.* a.out
-
-case $failed in
-true)
-	echo $0: some tests failed, installation aborted >&2
-	exit 1
-	;;
-false)
-	rm -f $1/bin/afm2 $1/bin/afcc
-	cp afm2 afcc $1/bin
-	rm -f afm2 afcc
-	cp man/afcc.1 man/afm2.1 $1/man
-	echo $0: Installation completed
-	exit 0
-	;;
-esac

fast_misc/READ_ME.n

@@ -1,80 +0,0 @@
-.ND
-.SH
-Installing the fast ACK compilers
-.LP
-This is the first distribution of the fast ACK compilers, in
-binary form, for either a DEC VAX running Berkeley Unix BSD 4.2 or BSD 4.3,
-or a SUN-3 MC68020 work-station running SunOS 3.2-3.5, or SunOS 4.0.
-The distribution contains a C-, a Modula-2-, and a Pascal-compiler producing object
-code that is compatible with cc-produced object code. There are also
-versions for C and Modula-2 producing object code that is compatible
-with ACK, 4th distribution.
-The distribution also contains a Modula-2 makefile generator.
-.LP
-The tape contains the following files and directories:
-.IP "lib.vax and bin.vax"
-.br
-binaries and libraries for the VAX.
-.IP "lib.sun and bin.sun"
-.br
-binaries and libraries for the SUN-3.
-.IP def
-directory containing definition modules of the Modula-2 run-time system.
-.IP man
-directory containing manual pages.
-.IP doc
-directory containing some documents describing the languages implemented.
-.IP "ack.sun and ack.vax"
-.br
-binaries for ACK compatible fast compilers.
-.IP "driver.c"
-.br
-sources of the compiler driver.
-.IP "READ_ME"
-.br
-the file you are reading now.
-.IP "INSTALL" and "INSTALL_A"
-.br
-shell-scripts taking care of the installation.
-.LP
-Installation makes the following commands available:
-.IP fm2
-fast Modula-2 compiler.
-.IP fcc
-fast C compiler.
-.IP fpc
-fast Pascal compiler.
-.IP fm2mm
-.br
-makefile generator for fast Modula-2 compiler.
-.LP
-To install these commands, proceed as follows:
-.IP 1.
-Create a directory for the compilers, f.i. /usr/local/lib/fastc.
-You will need about 3 megabyte to extract the tape.
-.IP 2.
-Go to this directory and extract the tape (which is in 1600 bpi tar-format).
-.IP 3.
-Execute the INSTALL shell-script with one argument: the directory in
-which the fm2, fcc, fpc, and fm2mm binaries must be installed, f.i.
-/usr/local/bin.
-This will take care of the installation of the cc(1) compatible
-versions of the fast ACK compilers.
-The INSTALL script will also run some small tests.
-.IP 4.
-The man-subdirectory contains manual pages. When you have satisfied
-yourself that fm2, fcc, and fpc work properly, install the
-fm2, fm2mm, fcc, and fpc manual pages
-in a public man-directory, and announce the availability of
-fm2, fm2mm, fcc, and fpc.
-.IP 5.
-The tape also contains ACK-compatible fast ACK compilers for C and Modula-2.
-If you have the 4th ACK distribution (became available in august 1988),
-you can use the INSTALL_A shell-script to install these in the ACK tree.
-Call INSTALL_A with the ACK home directory as argument.
-This will make afm2 and afcc available in the ACK bin-directory.
-.IP 6.
-After the installation, some directories are no longer needed. The ack.sun
-and ack.vax directories can be removed; when on a SUN, the bin.vax and
-lib.vax directories can be removed; when on a VAX, the bin.sun and lib.sun
-directories can be removed.

fast_misc/man/.distr

@@ -1,5 +0,0 @@
-afcc.1
-afm2.1.src
-fcc.1
-fm2.1.src
-fpc.1

fast_misc/man/afcc.1

@@ -1,157 +0,0 @@
-.TH AFCC 1
-.SH NAME
-afcc \- fast ACK compatible C compiler
-.SH SYNOPSIS
-.B afcc
-[
-.B \-c
-]
-[
-.B \-O
-]
-[
-.B \-v
-]
-[
-.B \-vn
-]
-[ \fB\-D\fIname\fR ]
-[ \fB\-D\fIname\fB=\fIdef\fR ]
-[
-.BI \-I pathname
-]
-[
-.B \-w
-]
-[
-.B \-o 
-.I outfile
-]
-[
-.B \-R
-]
-[
-.BI \-U name
-]
-[
-.BI -M compiler
-]
-.I sourcefile ...
-.SH DESCRIPTION
-.LP
-.I Afcc
-is a fast
-.B C
-compiler. It translates 
-.B C
-programs
-into ack(1ACK)-compatible relocatable object modules, and does so in one pass.
-Then, if the \fB\-c\fP flag is not given,
-.I afcc
-offers the object modules to a link-editor,
-to create an executable binary.
-.LP
-.I Afcc
-accepts several types of filename arguments.  Files with 
-names ending in
-.B .c
-are taken to be 
-.B C
-source programs. 
-They are compiled, and the resulting object module is placed in the current
-directory.
-The object module is named after its source file, the suffix
-.B .o
-replacing 
-.BR .c
-in the name of the object.
-.LP
-Other arguments refer to loader options,
-object modules, or object libraries.
-Unless the
-.B \-c
-flag is given, these modules and libraries, together with the results of any
-specified compilations, are passed (in the order given) to the
-link-editor to produce
-an output file named
-.IR a.out .
-You can specify a name for the executable by using the
-.B \-o 
-option.
-.SH OPTIONS
-.LP
-The \fB\-l\fIlib\fR, \fB\-d\fP, \fB\-n\fP, \fB\-N\fP,
-\fB\-r\fP, \fB\-s\fP, \fB\-S\fP, \fB\-i\fP, and \fB\-u\fP options are
-passed to the link-editor program.
-The \fB\-u\fP option takes an extra argument.
-.IP \fB\-c\fP
-.br
-Suppress the loading phase of the compilation, and force an object module to
-be produced, even if only one program is compiled.
-A single object module can be named explicitly using the
-.B \-o
-option.
-.IP \fB\-D\fIname\fR\fB=\fIdef\fR
-Define a symbol
-.I name
-to the 
-preprocessor, as if by "#define".
-.IP \fB\-D\fIname\fR
-.br
-same as \fB\-D\fIname\fB=1\fR.
-.IP \fB\-I\fIpathname\fR
-.br
-Add
-.I pathname
-to the list of directories in which to search for
-.B #include
-files with filenames not beginning with slash.
-The compiler first searches for
-.B #include
-files in the directory containing
-.I sourcefile,
-then in directories in
-.B \-I
-options, then in the ACK include directory,
-and finally, in
-.I /usr/include.
-.IP "\fB\-o \fIoutput\fR"
-Name the final output file
-.I output.
-.IP \fB\-O\fP
-.br
-Use a version of the compiler that is just a bit slower, but produces
-better code.
-.IP \fB\-U\fIname\fR
-.br
-Remove any initial definition of
-.I name.
-.IP \fB\-v\fP
-.br
-Verbose. Print the commands as they are executed.
-.IP \fB\-vn\fP
-.br
-Verbose, no execute. Only print the commands, do not execute them.
-.IP \fB\-w\fP
-suppress warning messages.
-.IP \fB\-R\fP
-.br
-test for more compatibility with Kernighan & Ritchie C [1].
-.IP \fB\-M\fIcompiler\fR
-.br
-use \fIcompiler\fR as C-2 compiler instead of the default.
-.LP
-Object modules produced by ack(1ACK) and
-.I afcc
-can be freely mixed.
-.SH "SEE ALSO"
-.IP [1]
-B.W. Kernighan, D. Ritchie, "\fIThe C programming Language\fP", Prentice-Hall Inc., 1978
-.IP [2]
-E.H. Baalbergen, "\fIThe ACK CEM compiler\fP".
-.IP [3]
-ack(1ACK) manual page.
-.SH DIAGNOSTICS
-Diagnostics are intended to be self-explanatory.
-.SH REMARKS
-You need the 4th ACK distribution to be able to use this program.

fast_misc/man/afm2.1.src

@@ -1,214 +0,0 @@
-.TH FM2 1
-.SH NAME
-afm2 \- fast ACK compatible Modula-2 compiler
-.SH SYNOPSIS
-.B afm2
-[
-.B \-c
-]
-[
-.B \-O
-]
-[
-.B \-v
-]
-[
-.B \-vn
-]
-[ \fB\-D\fIname\fR ]
-[ \fB\-D\fIname\fB=\fIdef\fR ]
-[
-.BI \-I pathname
-]
-[
-.BI \-w classes
-]
-[
-.BI \-W classes
-]
-[
-.B \-L
-]
-[
-.B \-o 
-.I outfile
-]
-[
-.B \-R
-]
-[
-.B \-A
-]
-[
-.B \-3
-]
-[
-.B \-_
-]
-[
-.BI \-U name
-]
-[
-.BI -M compiler
-]
-.I sourcefile ...
-.SH DESCRIPTION
-.LP
-.I afm2
-is a fast
-.B Modula-2
-compiler. It translates 
-.B Modula-2
-programs
-into ack(1ACK)-compatible relocatable object modules, and does so in one pass.
-Then, if the \fB\-c\fP flag is not given,
-.I afm2
-offers the object modules to a link-editor,
-to create an executable binary.
-.LP
-.I Afm2
-accepts several types of filename arguments.  Files with 
-names ending in
-.B .mod
-are taken to be 
-.B Modula-2
-source programs. 
-They are compiled, and the resulting object module is placed in the current
-directory.
-The object module is named after its source file, the suffix
-.B .o
-replacing 
-.BR .mod
-in the name of the object.
-A file with suffix
-.B .mod
-is passed through the C preprocessor if it begins with a '#'.
-.PP
-Definition modules are not separately compiled. The compiler reads them when
-it needs them.
-Definition modules are expected to reside in files with names ending
-in
-.BR .def .
-The name of the file in which a definition module is stored must be the same as
-the module-name, apart from the extension.
-Also, in most Unix systems filenames are only 14 characters long.
-So, given an IMPORT declaration for a module called "LongModulName",
-the compiler will try to open a file called "LongModulN.def".
-The requirement does not hold for implementation or program modules,
-but is certainly recommended.
-.LP
-Other arguments refer to loader options,
-object modules, or object libraries.
-Unless the
-.B \-c
-flag is given, these modules and libraries, together with the results of any
-specified compilations, are passed (in the order given) to the
-link-editor to produce
-an output file named
-.IR a.out .
-You can specify a name for the executable by using the
-.B \-o 
-option.
-.SH OPTIONS
-.LP
-The \fB\-l\fIlib\fR, \fB\-d\fP, \fB\-n\fP, \fB\-N\fP,
-\fB\-r\fP, \fB\-s\fP, \fB\-S\fP, \fB\-i\fP, and \fB\-u\fP options are
-passed to the link-editor program.
-The \fB\-u\fP option takes an extra argument.
-.IP \fB\-c\fP
-.br
-Suppress the loading phase of the compilation, and force an object module to
-be produced, even if only one program is compiled.
-A single object module can be named explicitly using the
-.B \-o
-option.
-.IP \fB\-D\fIname\fR\fB=\fIdef\fR
-Define a symbol
-.I name
-to the 
-preprocessor, as if by "#define".
-.IP \fB\-D\fIname\fR
-.br
-same as \fB\-D\fIname\fB=1\fR.
-.IP \fB\-I\fIpathname\fR
-.br
-Add
-.I pathname
-to the list of directories in which to search for
-.B #include
-files with filenames not beginning with slash.
-The preprocessor first searches for
-.B #include
-files in the directory containing
-.I sourcefile,
-then in directories in
-.B \-I
-options, then in the ACK include directory,
-and finally, in
-.I /usr/include.
-This flag is also passed to the compiler. When the compiler needs a definition
-module, it is first searched for in the current directory, then in the
-directories given to it by the \fB\-I\fP flag, and then in a default directory,
-.I CHANGE_ME.
-.I afm2
-This default directory contains all definition modules of
-the runtime system.
-.IP "\fB\-o \fIoutput\fR"
-Name the final output file
-.I output.
-.IP \fB\-O\fP
-.br
-Use a version of the compiler that is just a bit slower, but produces
-better code.
-.IP \fB\-U\fIname\fR
-.br
-Remove any initial definition of
-.I name.
-.IP \fB\-v\fP
-.br
-Verbose. Print the commands as they are executed.
-.IP \fB\-vn\fP
-.br
-Verbose, no execute. Only print the commands, do not execute them.
-.IP \fB\-L\fR
-do not generate code to keep track of
-the current location in the source code.
-.IP \fB\-w\fR\fIclasses\fR
-suppress warning messages whose class is a member of \fIclasses\fR.
-Currently, there are three classes: \fBO\fR, indicating old-flashioned use,
-\fBW\fR, indicating "ordinary" warnings, and \fBR\fR, indicating
-restricted Modula-2.
-If no \fIclasses\fR are given, all warnings are suppressed.
-By default, warnings in class \fBO\fR and \fBW\fR are given.
-.IP \fB\-W\fR\fIclasses\fR
-allow for warning messages whose class is a member of \fIclasses\fR.
-.IP \fB\-R\fP
-.br
-disable all range-checks.
-.IP \fB\-A\fP
-.br
-enable extra array bound checks. Unfortunately, the back-end used for this
-compiler is a bit sloppy, so extra array bound checks are needed if you want
-detection of array bound errors.
-.IP \fB\-3\fP
-.br
-Only accept Modula-2 programs that strictly conform to the 3rd Edition of
-[1].
-.IP \fB\-_\fP
-.br
-allow for underscores within identifiers. Identifiers may not start or end
-with an underscore, even if this flag is given.
-.IP \fB\-M\fIcompiler\fR
-.br
-use \fIcompiler\fR as Modula-2 compiler instead of the default.
-.SH "SEE ALSO"
-.IP [1]
-N. Wirth, \fIProgramming in Modula-2\fP, 3rd edition, Springer Verlag.
-.IP [2]
-C.J.H. Jacobs, \fIThe ACK Modula-2 Compiler\fP.
-.IP [3]
-ack(1ACK) unix manual page.
-.SH DIAGNOSTICS
-Diagnostics are intended to be self-explanatory.
-.SH REMARKS
-You need the 4th ACK distribution to be able to use this program.

fast_misc/man/fcc.1

@@ -1,160 +0,0 @@
-.TH FCC 1
-.SH NAME
-fcc \- fast CC-compatible C compiler
-.SH SYNOPSIS
-.B fcc
-[
-.B \-c
-]
-[
-.B \-O
-]
-[
-.B \-v
-]
-[
-.B \-vn
-]
-[ \fB\-D\fIname\fR ]
-[ \fB\-D\fIname\fB=\fIdef\fR ]
-[
-.BI \-I pathname
-]
-[
-.B \-w
-]
-[
-.B \-o 
-.I outfile
-]
-[
-.B \-R
-]
-[
-.BI \-U name
-]
-[
-.BI -M compiler
-]
-.I sourcefile ...
-.SH DESCRIPTION
-.LP
-.I Fcc
-is a fast
-.B C
-compiler. It translates 
-.B C
-programs
-into cc(1)-compatible relocatable object modules, and does so in one pass.
-Then, if the \fB\-c\fP flag is not given,
-.I fcc
-offers the object modules to a link-editor,
-to create an executable binary.
-.LP
-.I Fcc
-accepts several types of filename arguments.  Files with 
-names ending in
-.B .c
-are taken to be 
-.B C
-source programs. 
-They are compiled, and the resulting object module is placed in the current
-directory.
-The object module is named after its source file, the suffix
-.B .o
-replacing 
-.BR .c
-in the name of the object.
-.LP
-Other arguments refer to loader options,
-object modules, or object libraries.
-Unless the
-.B \-c
-flag is given, these modules and libraries, together with the results of any
-specified compilations, are passed (in the order given) to the
-link-editor to produce
-an output file named
-.IR a.out .
-You can specify a name for the executable by using the
-.B \-o 
-option.
-.LP
-If a single 
-.B C
-program is compiled and loaded all at once, the object module
-file is deleted.
-.SH OPTIONS
-.LP
-The \fB\-l\fIlib\fR, \fB\-d\fP, \fB\-n\fP, \fB\-N\fP,
-\fB\-r\fP, \fB\-s\fP, \fB\-S\fP, \fB\-i\fP, and \fB\-u\fP options are
-passed to the link-editor program.
-The \fB\-u\fP option takes an extra argument.
-.IP \fB\-c\fP
-.br
-Suppress the loading phase of the compilation, and force an object module to
-be produced, even if only one program is compiled.
-A single object module can be named explicitly using the
-.B \-o
-option.
-.IP \fB\-D\fIname\fR\fB=\fIdef\fR
-Define a symbol
-.I name
-to the 
-preprocessor, as if by "#define".
-.IP \fB\-D\fIname\fR
-.br
-same as \fB\-D\fIname\fB=1\fR.
-.IP \fB\-I\fIpathname\fR
-.br
-Add
-.I pathname
-to the list of directories in which to search for
-.B #include
-files with filenames not beginning with slash.
-The compiler first searches for
-.B #include
-files in the directory containing
-.I sourcefile,
-then in directories in
-.B \-I
-options, and finally, in
-.I /usr/include.
-.IP "\fB\-o \fIoutput\fR"
-Name the final output file
-.I output.
-.IP \fB\-O\fP
-.br
-Use a version of the compiler that is just a bit slower, but produces
-better code.
-.IP \fB\-U\fIname\fR
-.br
-Remove any initial definition of
-.I name.
-.IP \fB\-v\fP
-.br
-Verbose. Print the commands as they are executed.
-.IP \fB\-vn\fP
-.br
-Verbose, no execute. Only print the commands, do not execute them.
-.IP \fB\-w\fP
-suppress warning messages.
-.IP \fB\-R\fP
-.br
-test for more compatibility with Kernighan & Ritchie C [1].
-.IP \fB\-M\fIcompiler\fR
-.br
-use \fIcompiler\fR as C-2 compiler instead of the default.
-.LP
-Object modules produced by cc(1) and
-.I fcc
-can be freely mixed, as long as the link-editor is called through
-.I fcc.
-.SH "SEE ALSO"
-.IP [1]
-B.W. Kernighan, D. Ritchie, "\fIThe C programming Language\fP", Prentice-Hall Inc., 1978
-.IP [2]
-E.H. Baalbergen, "\fIThe ACK CEM compiler\fP".
-.IP [3]
-cc(1) unix manual page.
-.SH DIAGNOSTICS
-Diagnostics are intended to be self-explanatory.

fast_misc/man/fm2.1.src

@@ -1,230 +0,0 @@
-.TH FM2 1
-.SH NAME
-fm2 \- fast CC compatible Modula-2 compiler
-.SH SYNOPSIS
-.B fm2
-[
-.B \-c
-]
-[
-.B \-O
-]
-[
-.B \-v
-]
-[
-.B \-vn
-]
-[ \fB\-D\fIname\fR ]
-[ \fB\-D\fIname\fB=\fIdef\fR ]
-[
-.BI \-I pathname
-]
-[
-.BI \-w classes
-]
-[
-.BI \-W classes
-]
-[
-.B \-L
-]
-[
-.B \-o 
-.I outfile
-]
-[
-.B \-R
-]
-[
-.B \-A
-]
-[
-.B \-3
-]
-[
-.B \-U
-]
-[
-.B \-e
-]
-[
-.BI \-U name
-]
-[
-.BI -M compiler
-]
-.I sourcefile ...
-.SH DESCRIPTION
-.LP
-.I fm2
-is a fast
-.B Modula-2
-compiler. It translates 
-.B Modula-2
-programs
-into cc(1)-compatible relocatable object modules, and does so in one pass.
-Then, if the \fB\-c\fP flag is not given,
-.I fm2
-offers the object modules to a link-editor,
-to create an executable binary.
-.LP
-.I Fm2
-accepts several types of filename arguments.  Files with 
-names ending in
-.B .mod
-are taken to be 
-.B Modula-2
-source programs. 
-They are compiled, and the resulting object module is placed in the current
-directory.
-The object module is named after its source file, the suffix
-.B .o
-replacing 
-.BR .mod
-in the name of the object.
-A file with suffix
-.B .mod
-is passed through the C preprocessor if it begins with a '#'.
-.PP
-Definition modules are not separately compiled. The compiler reads them when
-it needs them.
-Definition modules are expected to reside in files with names ending
-in
-.BR .def .
-The name of the file in which a definition module is stored must be the same as
-the module-name, apart from the extension.
-Also, in most Unix systems filenames are only 14 characters long.
-So, given an IMPORT declaration for a module called "LongModulName",
-the compiler will try to open a file called "LongModulN.def".
-The requirement does not hold for implementation or program modules,
-but is certainly recommended.
-.LP
-Other arguments refer to loader options,
-object modules, or object libraries.
-Unless the
-.B \-c
-flag is given, these modules and libraries, together with the results of any
-specified compilations, are passed (in the order given) to the
-link-editor to produce
-an output file named
-.IR a.out .
-You can specify a name for the executable by using the
-.B \-o 
-option.
-.LP
-If a single 
-.B Modula-2
-program is compiled and loaded all at once, the object module
-file is deleted.
-.SH OPTIONS
-.LP
-The \fB\-l\fIlib\fR, \fB\-d\fP, \fB\-n\fP, \fB\-N\fP,
-\fB\-r\fP, \fB\-s\fP, \fB\-S\fP, \fB\-i\fP, and \fB\-u\fP options are
-passed to the link-editor program.
-The \fB\-u\fP option takes an extra argument.
-.IP \fB\-c\fP
-.br
-Suppress the loading phase of the compilation, and force an object module to
-be produced, even if only one program is compiled.
-A single object module can be named explicitly using the
-.B \-o
-option.
-.IP \fB\-D\fIname\fR\fB=\fIdef\fR
-Define a symbol
-.I name
-to the 
-preprocessor, as if by "#define".
-.IP \fB\-D\fIname\fR
-.br
-same as \fB\-D\fIname\fB=1\fR.
-.IP \fB\-I\fIpathname\fR
-.br
-Add
-.I pathname
-to the list of directories in which to search for
-.B #include
-files with filenames not beginning with slash.
-The preprocessor first searches for
-.B #include
-files in the directory containing
-.I sourcefile,
-then in directories in
-.B \-I
-options, and finally, in
-.I /usr/include.
-This flag is also passed to the compiler. When the compiler needs a definition
-module, it is first searched for in the current directory, then in the
-directories given to it by the \fB\-I\fP flag, and then in a default directory,
-.I CHANGE_ME.
-.I fm2
-This default directory contains all definition modules of
-the runtime system.
-.IP "\fB\-o \fIoutput\fR"
-Name the final output file
-.I output.
-.IP \fB\-O\fP
-.br
-Use a version of the compiler that is just a bit slower, but produces
-better code.
-.IP \fB\-U\fIname\fR
-.br
-Remove any initial definition of
-.I name.
-.IP \fB\-v\fP
-.br
-Verbose. Print the commands as they are executed.
-.IP \fB\-vn\fP
-.br
-Verbose, no execute. Only print the commands, do not execute them.
-.IP \fB\-L\fR
-do not generate code to keep track of
-the current location in the source code.
-.IP \fB\-w\fR\fIclasses\fR
-suppress warning messages whose class is a member of \fIclasses\fR.
-Currently, there are three classes: \fBO\fR, indicating old-flashioned use,
-\fBW\fR, indicating "ordinary" warnings, and \fBR\fR, indicating
-restricted Modula-2.
-If no \fIclasses\fR are given, all warnings are suppressed.
-By default, warnings in class \fBO\fR and \fBW\fR are given.
-.IP \fB\-W\fR\fIclasses\fR
-allow for warning messages whose class is a member of \fIclasses\fR.
-.IP \fB\-R\fP
-.br
-disable all range-checks.
-.IP \fB\-A\fP
-.br
-enable extra array bound checks. Unfortunately, the back-end used for this
-compiler is a bit sloppy, so extra array bound checks are needed if you want
-detection of array bound errors.
-.IP \fB\-3\fP
-.br
-Only accept Modula-2 programs that strictly conform to the 3rd Edition of
-[1].
-.IP \fB\-U\fP
-.br
-allow for underscores within identifiers. Identifiers may not start or end
-with an underscore, even if this flag is given.
-.IP \fB\-e\fP
-.br
-allow for local extensions. Currently, the only local extensions are
-procedure constants.
-.IP \fB\-M\fIcompiler\fR
-.br
-use \fIcompiler\fR as Modula-2 compiler instead of the default.
-.PP
-The compiler does not do any version-control. Instead, a makefile
-generator,
-.IR m2mm ,
-is included.
-.SH "SEE ALSO"
-.IP [1]
-N. Wirth, \fIProgramming in Modula-2\fP, 3rd edition, Springer Verlag.
-.IP [2]
-C.J.H. Jacobs, \fIThe ACK Modula-2 Compiler\fP.
-.IP [3]
-cc(1) unix manual page.
-.IP [4]
-m2mm(1) manual page.
-.SH DIAGNOSTICS
-Diagnostics are intended to be self-explanatory.

fast_misc/man/fpc.1

@@ -1,230 +0,0 @@
-.TH FM2 1
-.SH NAME
-fpc \- fast CC compatible Modula-2 compiler
-.SH SYNOPSIS
-.B fpc
-[
-.B \-c
-]
-[
-.B \-O
-]
-[
-.B \-v
-]
-[
-.B \-vn
-]
-[ \fB\-D\fIname\fR ]
-[ \fB\-D\fIname\fB=\fIdef\fR ]
-[
-.BI \-I pathname
-]
-[
-.B \-w
-]
-[
-.B \-L
-]
-[
-.B \-o 
-.I outfile
-]
-[
-.B \-R
-]
-[
-.B \-A
-]
-[
-.B \-a
-]
-[
-.B \-d
-]
-[
-.BI \-i num
-]
-[
-.B \-t
-]
-[
-.B \-C
-]
-[
-.B \-U+
-]
-[
-.B \-u+
-]
-[
-.B \-s+
-]
-[
-.B \-c+
-]
-[
-.BI \-U name
-]
-[
-.BI -M compiler
-]
-.I sourcefile ...
-.SH DESCRIPTION
-.LP
-.I fpc
-is a fast
-.B Pascal
-compiler. It translates 
-.B Pascal
-programs
-into cc(1)-compatible relocatable object modules, and does so in one pass.
-Then, if the \fB\-c\fP flag is not given,
-.I fpc
-offers the object modules to a link-editor,
-to create an executable binary.
-.LP
-.I Fpc
-accepts several types of filename arguments.  Files with 
-names ending in
-.B .p
-are taken to be 
-.B Pascal
-source programs. 
-They are compiled, and the resulting object module is placed in the current
-directory.
-The object module is named after its source file, the suffix
-.B .o
-replacing 
-.BR .p
-in the name of the object.
-A file with suffix
-.B .p
-is passed through the C preprocessor if it begins with a '#'.
-.LP
-Other arguments refer to loader options,
-object modules, or object libraries.
-Unless the
-.B \-c
-flag is given, these modules and libraries, together with the results of any
-specified compilations, are passed (in the order given) to the
-link-editor to produce
-an output file named
-.IR a.out .
-You can specify a name for the executable by using the
-.B \-o 
-option.
-.LP
-If a single 
-.B Pascal
-program is compiled and loaded all at once, the object module
-file is deleted.
-.SH OPTIONS
-.LP
-The \fB\-l\fIlib\fR, \fB\-d\fP, \fB\-n\fP, \fB\-N\fP,
-\fB\-r\fP, \fB\-s\fP, \fB\-S\fP, \fB\-i\fP, and \fB\-u\fP options are
-passed to the link-editor program.
-The \fB\-u\fP option takes an extra argument.
-.IP \fB\-c\fP
-.br
-Suppress the loading phase of the compilation, and force an object module to
-be produced, even if only one program is compiled.
-A single object module can be named explicitly using the
-.B \-o
-option.
-.IP \fB\-D\fIname\fR\fB=\fIdef\fR
-Define a symbol
-.I name
-to the 
-preprocessor, as if by "#define".
-.IP \fB\-D\fIname\fR
-.br
-same as \fB\-D\fIname\fB=1\fR.
-.IP \fB\-I\fIpathname\fR
-.br
-Add
-.I pathname
-to the list of directories in which to search for
-.B #include
-files with filenames not beginning with slash.
-The preprocessor first searches for
-.B #include
-files in the directory containing
-.I sourcefile,
-then in directories in
-.B \-I
-options, and finally, in
-.I /usr/include.
-.IP "\fB\-o \fIoutput\fR"
-Name the final output file
-.I output.
-.IP \fB\-O\fP
-.br
-Use a version of the compiler that is just a bit slower, but produces
-better code.
-.IP \fB\-U\fIname\fR
-.br
-Remove any initial definition of
-.I name.
-.IP \fB\-v\fP
-.br
-Verbose. Print the commands as they are executed.
-.IP \fB\-vn\fP
-.br
-Verbose, no execute. Only print the commands, do not execute them.
-.IP \fB\-L\fP
-.br
-do not generate code to keep track of
-the current location in the source code.
-.IP \fB\-w\fP
-.br
-suppress warning messages.
-.IP \fB\-d\fP
-.br
-allow for "long"s.
-.IP \fB\-i\fInum\fR
-.br
-set size for integer sets. By default, the set size is the word size.
-.IP \fB\-C\fP
-.br
-distinguish between lower case and upper case. Normally, upper case letters
-are considered equal to their lower case counterpart.
-.IP \fB\-t\fP
-.br
-trace calls and exits of procedures and functions.
-.IP \fB\-R\fP
-.br
-disable all range-checks.
-.IP \fB\-A\fP
-.br
-enable extra array bound checks. Unfortunately, the back-end used for this
-compiler is a bit sloppy, so extra array bound checks are needed if you want
-detection of array bound errors.
-.IP \fB\-a\fP
-.br
-disable assertions. Assertions are skipped instead of evaluated.
-.IP "\fB\-U+\fP, \fB\-u+\fP"
-.br
-allow for underscores within identifiers. Identifiers may not start
-with an underscore, even if this flag is given.
-.IP \fB-s+\fP
-.br
-allow only standard 
-.BR Pascal .
-This disables the \fB\-c+\fP, \fB\-d\fR, \fB\-u+\fR,
-\fB\-U+\fR and \fB\-C\fR options.
-Furthermore, assertions are not recognized at all.
-.IP \fB-c+\fP
-.br
-allow C-like strings. This option is mainly intended for usage with
-C-functions. This option will cause the type 'string' to be known.
-.IP \fB\-M\fIcompiler\fR
-.br
-use \fIcompiler\fR as Modula-2 compiler instead of the default.
-.SH "SEE ALSO"
-.IP [1]
-J.W. Stevenson, H. v. Eck, \fIAmsterdam Compiler Kit-Pascal reference manual\fP.
-.IP [2]
-cc(1) unix manual page.
-.SH DIAGNOSTICS
-Diagnostics are intended to be self-explanatory.

fast_misc/str_change.c

@@ -1,95 +0,0 @@
-/*	Utility to change strings in binary files.
-	Reads from standard input, writes on standard output.
-	Only replaces one occurrence if the -s flag is given.
-*/
-
-#include <stdio.h>
-
-main(argc, argv)
-	char *argv[];
-{
-	register char *psrc;
-	register int ch;
-	int srclen;
-	int sflag = 0;
-	char *progname = argv[0];
-
-	while (argc > 1 && argv[1][0] == '-') {
-		switch(argv[1][1]) {
-		case 's':
-			sflag = 1;
-			break;
-		default:
-			fprintf(stderr,
-			"Usage: %s [-s] <originalstring> <replacementstring>\n",
-			progname);
-			exit(1);
-		}
-		argc--;
-		argv++;
-	}
-	if (argc != 3) {
-		fprintf(stderr,
-			"Usage: %s [-s] <originalstring> <replacementstring>\n",
-			progname);
-		exit(1);
-	}
-
-	psrc = argv[1];
-	srclen = strlen(psrc);
-	if (srclen == 0) {
-		fprintf(stderr,
-			"%s: originalstring must have length > 0\n",
-			progname);
-		exit(1);
-	}
-	for (;;) {
-		ch = getchar();
-		if (ch == EOF) exit(0);
-		if (ch != (*psrc & 0377)) {
-			putchar(ch);
-			continue;
-		}
-		do {
-			psrc++;
-			ch = getchar();
-		} while (ch && ch == (*psrc & 0377));
-		if (ch != EOF) ungetc(ch, stdin);
-		if (*psrc == '\0') {
-			/* we have a match */
-			register int i;
-			register char *prepl = argv[2];
-
-			for (i = srclen; i; i--) {
-				if (*prepl) {
-					putchar(*prepl);
-					prepl++;
-				}
-				else putchar('\0');
-			}
-			while (*prepl) {
-				putchar(*prepl);
-				prepl++;
-				if (ch != EOF) ch = getchar();
-			}
-			if (sflag) {
-				break;
-			}
-		}
-		else {
-			register char *p = argv[1];
-			
-			while (p < psrc) {
-				putchar(*p);
-				p++;
-			}
-			if (ch == EOF) exit(0);
-		}
-		psrc = argv[1];
-	}
-	if (ch == EOF) exit(0);
-	while ((ch = getchar()) != EOF) {
-		putchar(ch);
-	}
-	exit(0);
-}

fcc/driver/fcc.c

@@ -21,9 +21,14 @@
 
 #include <errno.h>
 #include <signal.h>
-#include <varargs.h>
 #include <stdio.h>
 #include <em_path.h>
+#if __STDC__
+#include <stdarg.h>
+#else
+#include <varargs.h>
+#endif
+
 
 /*
 	Version producing cc-compatible .o files in one pass.
@@ -117,7 +122,11 @@ int c_flag = 0;
 int v_flag = 0;
 int O_flag = 0;
 
+#if __STDC__
+char *mkstr(char *, ...);
+#else
 char *mkstr();
+#endif
 char *malloc();
 char *alloc();
 char *extension();
@@ -483,6 +492,32 @@ concat(al1, al2)
 	}
 }
 
+#if __STDC__
+/*VARARGS*/
+char *
+mkstr(char *dst, ...)
+{
+	va_list ap;
+
+	va_start(ap, dst);
+	{
+		register char *p;
+		register char *q;
+
+		q = dst;
+		p = va_arg(ap, char *);
+
+		while (p) {
+			while (*q++ = *p++);
+			q--;
+			p = va_arg(ap, char *);
+		}
+	}
+	va_end(ap);
+
+	return dst;
+}
+#else
 /*VARARGS*/
 char *
 mkstr(va_alist)
@@ -509,6 +544,7 @@ mkstr(va_alist)
 
 	return dst;
 }
+#endif
 
 basename(str, dst)
 	char *str;

first/first

@@ -18,14 +18,7 @@ else
 fi
 export E_FLAG E_SFX
 
-echo check write-ability of /tmp and /usr/tmp ...
-if ( >/usr/tmp/aaax.$$ )
-then
-	rm /usr/tmp/aaax.$$
-else
-	echo /usr/tmp must exist and be writable.
-	exit 2
-fi
+echo check write-ability of /tmp ...
 if ( >/tmp/aaax.$$ )
 then
 	rm /tmp/aaax.$$
@@ -33,7 +26,7 @@ else
 	echo /tmp must exist and be writable.
 	exit 2
 fi
-echo "/tmp and /usr/tmp ok"
+echo "/tmp ok"
 
 if [ -f macros ]
 then
@@ -58,7 +51,7 @@ m68_unisoft|m68k2)	ACM=m68k2 ; SYS=V7; BYTE_ORDER=3210 ; MACH=m68k2 ;;
 m68_sysV_0|mantra)	ACM=mantra ; SYS=SYS_5; BYTE_ORDER=3210 ; MACH=m68k4 ;;
 m68020)		ACM=m68020 ; SYS=SYS_5; BYTE_ORDER=3210 ; MACH=m68020 ;;
 sparc)		ACM=sparc ; SYS=BSD4_2; BYTE_ORDER=3210 ; MACH=sparc ;;
-sparc_solaris)	ACM=sparc_solaris ; SYS=SYS_5; BYTE_ORDER=3210 ; MACH=solaris ;;
+sparc_solaris)	ACM=sparc_solaris ; SYS=SYS_5; BYTE_ORDER=3210 ; MACH=sparc_solaris ;;
 i86)		ACM=i86 ; SYS=SYS_5; BYTE_ORDER=0123 ; MACH=i86 ;;
 xenix3)		ACM=xenix3 ; SYS=SYS_5; BYTE_ORDER=0123 ; MACH=i86 ;;
 minix)		ACM=minix ; SYS=V7; BYTE_ORDER=0123 ; MACH=i86 ;;

first/get_makepars

@@ -26,7 +26,7 @@ EOF
 		: We can find out ourselves what the word-size and
 		: the pointer-size of the target machine is.
 		cc ws.c 2>/dev/null
-		a.out > t$$
+		./a.out > t$$
 		. t$$
 		rm -f t$$ a.out ws.[co]
 	else
@@ -69,7 +69,7 @@ then
 	fi
 	case $ACM in
 	sun3|sparc)
-		ed - make_macros <<'EOF'
+		ed -s make_macros <<'EOF'
 /cc-and-mkdep.sun/s/^..//
 w
 q

first/install_tail

@@ -1,12 +1,12 @@
 set -e
 
-PATH=::$CONFIG/bin:$UTIL_HOME/bin:/usr/local/bin:/bin:/usr/bin:/usr/ccs/bin:/usr/ucb
+PATH=::$CONFIG/bin:$UTIL_HOME/bin:/usr/ccs/bin:/usr/ucb:$PATH
 export PATH
 
 $SRC_HOME/first/create_dir $CONFIG
 $SRC_HOME/first/create_dir $CONFIG/bin
 
-echo "PATH=::$CONFIG/bin:$UTIL_HOME/bin:/usr/local/bin:/bin:/usr/bin:/usr/ccs/bin:/usr/ucb; export PATH" > $CONFIG/bin/TakeAction
+echo "PATH=:$CONFIG/bin:$UTIL_HOME/bin:$PATH; export PATH" > $CONFIG/bin/TakeAction
 cat $SRC_HOME/TakeAction >> $CONFIG/bin/TakeAction
 sed '/^#PARAMS/r make_macros' < $SRC_HOME/first/mk_makefile > $CONFIG/bin/mk_makefile
 cp $SRC_HOME/first/create_dir $CONFIG/bin/create_dir
@@ -21,7 +21,7 @@ $SRC_HOME/first/limit_impl
 
 case $SYSNAME in
 i386)
-	ed - $TARGET_HOME/lib/descr/fe << 'ABC'
+	ed -s $TARGET_HOME/lib/descr/fe << 'ABC'
 1,$s/-D{NAME}/-D{NAME} -DNO_PROTOTYPE/
 w
 q
@@ -41,12 +41,12 @@ fi
 
 case X$SYSVAX in
 Xvax_sysV_2)
-	ed - $TARGET_HOME/lib/vax4/descr << 'ABC'
+	ed -s $TARGET_HOME/lib/vax4/descr << 'ABC'
 /CPP_F/s/$/ -D__USG/
 w
 q
 ABC
-	ed - $CONFIG/mach/vax4/Action << 'ABC'
+	ed -s $CONFIG/mach/vax4/Action << 'ABC'
 /libbsd4_2/s/libbsd4_2/libsysV_2/
 w
 q
@@ -54,7 +54,7 @@ ABC
 	( cd $CONFIG/mach/vax4
 	  for i in libcc libcc.ansi
 	  do
-	  	ed - $i/Makefile << 'ABC'
+	  	ed -s $i/Makefile << 'ABC'
 /BFS/s/BFS/UFS/
 w
 q
@@ -63,14 +63,14 @@ ABC
 	)
 	;;
 Xvax_bsd4_2)
-	ed - $TARGET_HOME/lib/vax4/descr << 'ABC'
+	ed -s $TARGET_HOME/lib/vax4/descr << 'ABC'
 /CPP_F/s/$/ -D__BSD4_2/
 w
 q
 ABC
 	;;
 Xvax_bsd4_1a)
-	ed - $CONFIG/mach/vax4/Action << 'ABC'
+	ed -s $CONFIG/mach/vax4/Action << 'ABC'
 /libbsd4_2/s/libbsd4_2/libbsd4_1a/
 w
 q

first/limit_impl

@@ -1,13 +1,13 @@
 for i in $DISABLE_LANG
 do
-	ed - $CONFIG/Action <<EOF
+	ed -s $CONFIG/Action <<EOF
 /^name "$i/;/^end/s/^/!/
 w
 q
 EOF
 	case $i in
 	Modula-2)
-		ed - $CONFIG/Action <<EOF
+		ed -s $CONFIG/Action <<EOF
 /^name "$i definition/;/^end/s/^/!/
 /^name "$i makefile/;/^end/s/^/!/
 w
@@ -15,14 +15,14 @@ q
 EOF
 		;;
 	ANSI-C)	: install compiler anyway
-		ed - $CONFIG/Action <<EOF
+		ed -s $CONFIG/Action <<EOF
 /^!name "$i frontend/;/^!end/s/^!//
 w
 q
 EOF
 		;;
 	C)	: install compiler anyway
-		ed - $CONFIG/Action <<EOF
+		ed -s $CONFIG/Action <<EOF
 /^!name "$i frontend/;/^!end/s/^!//
 w
 q
@@ -112,7 +112,7 @@ done
 DISABLE_INT=0
 for i in $DISABLE_SUP
 do
-	ed - $CONFIG/Action <<EOF
+	ed -s $CONFIG/Action <<EOF
 /^dir .*$i\$/;?^name?;/^end/s/^/!/
 w
 q
@@ -170,7 +170,7 @@ m68*|sun2|sun3|pmds*)
 esac
 if test $DISABLE_INT = 1
 then
-	ed - $CONFIG/Action <<EOF
+	ed -s $CONFIG/Action <<EOF
 /68000 interpreters/;/^end/s/^/!/
 w
 q
@@ -185,7 +185,7 @@ then
 		do
 			if fgrep -s $j $i
 			then
-				ed - $i <<EOF
+				ed -s $i <<EOF
 /$j/;?^name?,/^end/s/^/!/
 w
 q
@@ -197,7 +197,7 @@ fi
 
 if [ $DO_FAST = n ]
 then
-	ed - $CONFIG/Action <<'EOF'
+	ed -s $CONFIG/Action <<'EOF'
 /^name "Peephole optimizer lib/;/^end/s/^/!/
 /^name "Fast/;$s/^/!/
 w

first/mk_config

@@ -7,7 +7,7 @@ echo "echo $SYSNAME" > $CONFIG/bin/ack_sys
 chmod +x $CONFIG/bin/ack_sys
 
 cd $SRC_HOME
-find . -type d -print > $CONFIG/dir_list
+find . -type d -perm -555 -print > $CONFIG/dir_list
 
 cd $CONFIG
 for i in mach/*/libsys
@@ -77,7 +77,7 @@ do
 		mk_makefile $SRC_HOME/mach/proto/ncg/proto.make | sed -e "/#MACH_DEFINE/,/^MACH/s/=.*/= $i/" > Makefile
 		if [ -f $SRC_HOME/mach/$i/ncg/table_dir ]
 		then
-			ed - Makefile <<EOF
+			ed -s Makefile <<EOF
 /^#TABLE_DEFINE/+1r $SRC_HOME/mach/$i/ncg/table_dir
 w
 q

first/mk_makefile

@@ -14,7 +14,7 @@ esac
 
 cp $1 /tmp/mk_mak$$
 
-ed - /tmp/mk_mak$$ << 'EOF'
+ed -s /tmp/mk_mak$$ << 'EOF'
 /^#PARAMS/c
 #PARAMS		do not remove this line!
 .
@@ -23,7 +23,7 @@ q
 EOF
 case `ack_sys` in
 sparc_solaris)
-	ed - /tmp/mk_mak$$ << 'EOF'
+	ed -s /tmp/mk_mak$$ << 'EOF'
 g/^EXTRALIB/s/=/= -lelf/
 w
 q

first/mk_target

@@ -6,6 +6,7 @@ create_dir $TARGET_HOME
 create_dir $TARGET_HOME/config
 create_dir $TARGET_HOME/lib.bin
 create_dir $TARGET_HOME/modules
+create_dir $TARGET_HOME/modules/h
 create_dir $TARGET_HOME/bin
 
 cp local.h em_path.h $TARGET_HOME/config

first/target_comp

@@ -5,6 +5,10 @@ CC=cc#				# compiler to be used for compiling ACK
 # always passed to $(CC) -c.
 COPTIONS=-O -D_EM_WSIZE=4 -D_EM_PSIZE=4
 
+# passed to $(CC) -c when compiling modules.
+LIBOPTIONS=#
+# LIBOPTIONS=-LIB -L		# when $(CC) is ACK
+
 CC_AND_MKDEP=cc-and-mkdep.all#	# when $(CC) is neither ACK or SUN,
 # CC_AND_MKDEP=cc-and-mkdep.ack## when $(CC) is an ACK-derived C compiler,
 # CC_AND_MKDEP=cc-and-mkdep.sun## when $(CC) is a SUN C compiler

lang/basic/lib/string.c

@@ -7,7 +7,7 @@
 
 extern char *salloc() ;
 
-_len(str)
+_length(str)
 String *str;
 {
 	okr(str);
@@ -64,7 +64,7 @@ String *s1,*s2;
 	int length;
 	okr(s1); okr(s2);
 	s= (String *) salloc(sizeof(String));
-	s->strlength= _len(s1)+_len(s2);
+	s->strlength= _length(s1)+_length(s2);
 	s->strval= salloc(s->strlength+1);
 	s->strcount = 1;
 	strcpy(s->strval,s2->strval);
@@ -175,7 +175,7 @@ int length;
 	String *s;
 	int i;
 
-	i= _len(str)-length;
+	i= _length(str)-length;
 	if(i<0) i=0;
 	s= _newstr(str->strval+i);
 	return(s);

lang/basic/src.old/.distr

@@ -1,20 +0,0 @@
-Makefile
-basic.yacc
-bem.c
-bem.h
-compile.c
-eval.c
-func.c
-gencode.c
-graph.c
-graph.h
-initialize.c
-basic.lex
-parsepar.c
-split.c
-symbols.c
-symbols.h
-util.c
-y.tab.c
-y.tab.h
-yywrap.c

lang/basic/src.old/Makefile

@@ -1,53 +0,0 @@
-# $Header$
-
-d=../../..
-h=$d/h
-l=$d/lib
-INSTALL=$l/em_bem
-
-CFLAGS = -I$h -O
-
-FILES= bem.o y.tab.o symbols.o initialize.o compile.o \
-	parsepar.o yywrap.o gencode.o util.o graph.o \
-	eval.o func.o split.o
-
-CFILES= bem.c y.tab.c symbols.c initialize.c compile.c \
-	parsepar.c yywrap.c gencode.c util.c graph.c \
-	eval.c func.c split.c
-
-SRC=    bem.h symbols.h graph.h y.tab.h \
-	bem.c basic.yacc symbols.c initialize.c compile.c \
-	parsepar.c yywrap.c gencode.c util.c graph.c \
-	eval.c func.c split.c
-
-first :		bem
-
-cmp :		bem
-		cmp bem $(INSTALL)
-
-install:	bem
-		cp bem $(INSTALL)
-
-clean:
-		rm -f *.[osmk] *.old bem
-
-opr:
-		make pr ^ opr
-pr:
-		@pr $(SRC)
-
-distr:		y.tab.c y.tab.h
-
-bem:		$(FILES)
-		$(CC) -o bem $(FILES)
-
-y.tab.o : 	y.tab.c basic.lex
-		$(CC) $(CFLAGS) -c y.tab.c
-
-y.tab.h y.tab.c : basic.yacc 
-		yacc -d basic.yacc
-
-$(FILES)	: bem.h symbols.h graph.h y.tab.h
-
-lint:		$(CFILES)
-		lint -phac -I$h $(CFILES)

lang/basic/src.old/basic.lex

@@ -1,484 +0,0 @@
-#ifndef NORSCID
-static char rcs_lex[] = "$Header$" ;
-#endif
-
-/* This file contains the new lexical analizer */
-typedef struct {
-	char *name; 
-	int token, classvalue,length;
-} Key;
-
-Key keywords [] ={
-"abs",		FUNCTION,	ABSSYM,		0,
-"and",		BOOLOP,		ANDSYM,		0,
-"asc",		FUNCTION,	ASCSYM,		0,
-"as",		 ASSYM,		0,	0,
-"atn",		FUNCTION,	ATNSYM,		0,
-"auto",		ILLEGAL,	0,	0,
-"base",		BASESYM,	0,	0,
-"call",		CALLSYM,	0,	0,
-"cdbl",		FUNCTION,	CDBLSYM,	0,
-"chain",	ILLEGAL,	0,	0,
-"chr",		FUNCTION,	CHRSYM,		0,
-"cint",		FUNCTION,	CINTSYM,	0,
-"clear",	CLEARSYM,	0,	0,
-"cload",	ILLEGAL,	0,	0,
-"close",	ILLEGAL,	0,	0,
-"common",	ILLEGAL,	0,	0,
-"cont",		ILLEGAL,	0,	0,
-"cos",		FUNCTION,	COSSYM,		0,
-"csng",		FUNCTION,	CSNGSYM,	0,
-"csave",	ILLEGAL,	0,	0,
-"cvi",		FUNCTION,	CVISYM,		0,
-"cvs",		FUNCTION,	CVSSYM,		0,
-"cvd",		FUNCTION,	CVDSYM,		0,
-"data",		DATASYM,	0,	0,
-"defint",	DEFINTSYM,	0,	0,
-"defsng",	DEFSNGSYM,	0,	0,
-"defdbl",	DEFDBLSYM,	0,	0,
-"defstr",	DEFSTRSYM,	0,	0,
-"def",		DEFSYM,		0,	0,
-"delete",	ILLEGAL,	0,	0,
-"dim",		DIMSYM,		0,	0,
-"edit",		ILLEGAL,	0,	0,
-"else",		ELSESYM,	0,	0,
-"end",		ENDSYM,		0,	0,
-"eof",		FUNCTION,	EOFSYM,		0,
-"eqv",		BOOLOP,		EQVSYM,	0,
-"erase",	ILLEGAL,	0,	0,
-"error",	ERRORSYM,	0,	0,
-"err",		ERRSYM,		0,	0,
-"erl",		ERLSYM,		0,	0,
-"exp",		FUNCTION,	EXPSYM,		0,
-"field",	FIELDSYM,	0,	0,
-"fix",		FUNCTION,	FIXSYM,		0,
-"for",		FORSYM,		0,	0,
-"fre",		FUNCTION,	FRESYM,		0,
-"get",		GETSYM,		0,	0,
-"gosub",	GOSUBSYM,	0,	0,
-"goto",		GOTOSYM,	0,	0,
-"hex",		FUNCTION,	HEXSYM,		0,
-"if",		IFSYM,		0,	0,
-"imp",		BOOLOP,		IMPSYM,	0,
-"inkey",	INKEYSYM,	0,	0,
-"input",	INPUTSYM,	0,	0,
-"inp",		FUNCTION,	INPSYM,		0,
-"instr",	FUNCTION,	INSTRSYM,	0,
-"int",		FUNCTION,	INTSYM,		0,
-"kill",		ILLEGAL,	0,	0,
-"left",		FUNCTION,	LEFTSYM,	0,
-"len",		FUNCTION,	LENSYM,		0,
-"let",		LETSYM,		0,	0,
-"line",		LINESYM,	0,	0,
-"list",		LISTSYM,	0,	0,
-"llist",	ILLEGAL,	0,	0,
-"load",		LOADSYM,	0,	0,
-"loc",		FUNCTION,	LOCSYM,		0,
-"log",		FUNCTION,	LOGSYM,		0,
-"lpos",		FUNCTION,	LPOSSYM,	0,
-"lprint",	ILLEGAL,	0,	0,
-"lset",		LSETSYM,	0,	0,
-"merge",	MERGESYM,	0,	0,
-"mid",		MIDSYM,		0,		0,
-"mki",		FUNCTION,	MKISYM,		0,
-"mks",		FUNCTION,	MKSSYM,		0,
-"mkd",		FUNCTION,	MKDSYM,		0,
-"mod",		MODSYM,		0,	0,
-"name",		ILLEGAL,	0,	0,
-"new",		ILLEGAL,	0,	0,
-"next",		NEXTSYM,	0,	0,
-"not",			NOTSYM,	0,	0,
-"null",		ILLEGAL,	0,	0,
-"on",		ONSYM,		0,	0,
-"oct",		FUNCTION,	OCTSYM,		0,
-"open",		OPENSYM,	0,	0,
-"option",	OPTIONSYM,	0,	0,
-"or",		BOOLOP,		ORSYM,	0,
-"out",		FUNCTION,	OUTSYM,	0,
-"peek",		PEEKSYM,	0,	0,
-"poke",		POKESYM,	0,	0,
-"print",	PRINTSYM,	0,	0,
-"pos",		FUNCTION,	POSSYM,		0,
-"put",		PUTSYM,		0,	0,
-"randomi",	RANDOMIZESYM,	0,	0,
-"read",		READSYM,	0,	0,
-"rem",		REMSYM,		0,	0,
-"renum",	ILLEGAL,	0,	0,
-"ren",		ILLEGAL,	0,	0,
-"restore",	RESTORESYM,	0,	0,
-"resume",	ILLEGAL,	0,	0,
-"return",	RETURNSYM,	0,	0,
-"right",	FUNCTION,	RIGHTSYM,	0,
-"rnd",		FUNCTION,	RNDSYM,		0,
-"run",		ILLEGAL,	0,	0,
-"save",		ILLEGAL,	0,	0,
-"step",		STEPSYM,	0,	0,
-"sgn",		FUNCTION,	SGNSYM,		0,
-"sin",		FUNCTION,	SINSYM,		0,
-"space",	FUNCTION,	SPACESYM,	0,
-"spc",		FUNCTION,	SPCSYM,		0,
-"sqr",		FUNCTION,	SQRSYM,		0,
-"stop",		STOPSYM,	0,	0,
-"string",	FUNCTION,	STRINGSYM,	0,
-"str",		FUNCTION,	STRSYM,		0,
-"swap",		SWAPSYM,	0,	0,
-"tab",		FUNCTION,	TABSYM,		0,
-"tan",		FUNCTION,	TANSYM,		0,
-"then",		THENSYM,	0,	0,
-"to",		TOSYM,		0,		0,
-"tron",		TRONOFFSYM,	TRONSYM,	0,
-"troff",	TRONOFFSYM,	TROFFSYM,	0,
-"using",	USINGSYM,	0,	0,
-"usr",		FUNCTION,	USRSYM,		0,
-"val",		FUNCTION,	VALSYM,		0,
-"varptr",	FUNCTION,	VARPTRSYM,	0,
-"wait",		ILLEGAL,	0,	0,
-"while",	WHILESYM,	0,	0,
-"wend",		WENDSYM,	0,	0,
-"width",	ILLEGAL,	0,	0,
-"write",	WRITESYM,	0,	0,
-"xor",		BOOLOP,		XORSYM,	0,
-0,	0,	0,	0
-};
-
-char *index();
-
-/* Keyword index table */
-
-int	kex[27];
-
-/* Initialize the keyword table */
-fillkex()
-{
-	Key *k;
-	int i;
-	for(k=keywords;k->name;k++)
-		k->length= strlen(k->name);
-	k=keywords;
-	for(i=0;k->name && i<='z'-'a';i++)
-	{
-		for(;k->name && *k->name<i+'a';k++);
-		if( *k->name!=i+'a') continue;
-		kex[*k->name-'a']=k-keywords;
-		for(;k->name && *k->name==i+'a';k++);
-		kex[*(k-1)->name-'a'+1]=k-keywords;
-	}
-	if(debug)
-	{
-		for(i=0;i<27;i++)
-		printf("%c:%d\n",'a'+i,kex[i]);
-	}
-}
-
-#include <ctype.h>
-
-/* Get each line separately into the buffer */
-/* Lines too long are terminated and flagged illegal */
-
-#define MAXLINELENGTH	1024
-
-char	inputline[MAXLINELENGTH];	/* current source line */
-char	*cptr;				/* next character to decode */
-int	yylineno=0;			/* source line counter */
-
-getline()
-{
-	/* get next input line */
-
-	if( fgets(inputline,MAXLINELENGTH,yyin) == NULL)
-		return(FALSE);
-	yylineno ++;
-	if( index(inputline,'\n') == 0)
-		error("source line too long");
-	inputline[MAXLINELENGTH-1]=0;
-	if( listing)
-		fputs(inputline,stdout);
-	cptr= inputline;
-	return(TRUE);
-}
-yyerror(str)
-char *str;
-{
-	error("Syntax error");
-}
-
-typechar()
-{
-	switch(*cptr)
-	{
-	case '$':
-		cptr++; return( STRINGTYPE);
-	case '%':
-		cptr++; return( INTTYPE);
-	case '!':
-		cptr++; return( FLOATTYPE);
-	case '#':
-		cptr++; return( DOUBLETYPE);
-	}
-	return(0);
-}
-
-/* symbols in Microsoft are significant for the first 40 characters */
-#define SIGNIFICANT 40
-char name[SIGNIFICANT+1];
-
-lookup()
-{
-	Key *k;
-	Symbol *Sym;
-	char *c;
-	int i, typech;
-
-	sval= name;
-	for(c=cptr; *c && isalnum(*c);c++) 
-	if( isupper(*c) )
-		*c= tolower((*c));
-	for(k= keywords+kex[*cptr-'a']; k->name != 0 && *(k->name)== *cptr;k++)
-	if( strncmp(cptr,k->name,k->length)==0)
-	{
-		/* check functions first*/
-		if( isalnum( *(cptr+k->length) ) &&
-		    k->token==FUNCTION) continue;
-		cptr += k->length;
-		yylval.integer= k->classvalue;
-		if(debug) printf("lookup:%d %d\n",
-				 k->classvalue,k->token);
-		if( k->token == FUNCTION)
-		{
-			/* stripp type character */
-			typech=typechar();
-		}
-			/* illegals + rem */
-			if( k->token == REMSYM || k->token==ILLEGAL)
-				while( *cptr && *cptr!=':' && *cptr!='\n')
-					cptr++;
-			return( k->token);
-		}
-	/* Is it  a function  name ? */
-	c=cptr;
-	/* Identifier found, update the symbol table */
-	i=0;
-	while( isalnum(*c) || *c == '.')
-		if( i<SIGNIFICANT) name[i++]= *c++;
-	name[i]=0;
-	cptr=c;
-	Sym= srchsymbol(name);
-	yylval.Sptr = Sym;
-	typech= typechar();
-	if(Sym->symtype!=DEFAULTTYPE) 
-	{
-		if(typech && typech!=Sym->symtype && wflag)
-			warning("type re-declared,ignored");
-	}
-	if( typech)
-		Sym->symtype=typech;
-	if(debug) printf("lookup:%d Identifier\n",Sym);
-	if( (name[0]=='f' || name[0]=='F') &&
-	    (name[1]=='n' || name[1]=='N') )
-		return(FUNCTID);
-	return(IDENTIFIER);
-}
-
-/* Parsing unsigned numbers */
-readconstant()
-{
-	/* read HEX and OCTAL numbers */
-	char *c;
-	cptr++;
-	if( *cptr == 'H' || *cptr=='h')
-	{
-		/* HEX */
-		cptr++;
-		c=cptr;
-		while(  isdigit(*cptr) || 
-			(*cptr>='a' && *cptr<='f' ) ||
-			(*cptr>='A' && *cptr<='F' ) )cptr++;
-		sscanf(c,"%x",&ival);
-	} else 
-	if( *cptr == 'O' || *cptr == 'o')
-	{
-		/* OCTAL */
-		cptr++;
-		c=cptr;
-		while( isdigit(*cptr) ) cptr++;
-		sscanf(c,"%o",&ival);
-	} else
-	error("H or O expected");
-	return(INTVALUE);
-}
-
-number()
-{
-	long	i1;
-	double	atof();
-	register char *c;
-	int overflow = 0;
-	char cx;
-
-	i1=0;
-	c=cptr;
-	while(isdigit(*c)){
-		i1= i1*10 + *c-'0';
-		if (i1 < 0) overflow = 1;
-		c++;
-	}
-	if( *c != '.'){
-		if( i1> MAXINT || i1<MININT || overflow) {
-			cx = *c;
-			*c = 0;
-			/*NOSTRICT*/ dval= atof(cptr);
-			cptr=c;
-			*c = cx;
-			return(FLTVALUE);
-		}
-		/*NOSTRICT*/ ival= i1;
-		cptr = c;
-#ifdef YYDEBUG
-		if(yydebug) printf("number:INTVALUE %d",i1);
-#endif
-		return(INTVALUE);
-	}
-	/* handle floats */
-	/*NOSTRICT*/
-	c++;
-	while( isdigit(*c)){
-		c++;
-	}
-	/* handle exponential part */
-	if( *c =='e' || *c == 'E'){
-		c++;
-		while(isdigit(*c)){
-			c++;
-		}
-	}
-	cx = *c; *c = 0;
-	dval = atof(cptr);
-	*c = cx; cptr=c;
-#ifdef YYDEBUG
-	if(yydebug) printf("number:FLTVALUE %f",dval);
-#endif
-	return(FLTVALUE);
-}
-scanstring()
-{
-	int i,length;
-	char firstchar;
-	/* skip this string value, you might as well copy it to
-	   the EM file as well, because it is not used internally
-	*/
-	/* generate label here */
-	yylval.integer= genrom();
-	length=0;
-	if( fputc('"',emfile) == EOF) fatal("scanstring");
-	sval= cptr;
-	firstchar = *cptr;
-	if( *cptr== '"') cptr++;
-	while( *cptr !='"')
-	{
-		switch(*cptr)
-		{
-		case 0:
-		case '\n': 
-#ifdef YYDEBUG
-			if(yydebug) printf("STRVALUE\n");
-#endif
-			if( firstchar == '"')
-				error("non-terminated string");
-			return(STRVALUE);
-		case '\'':
-		case '\\':
-			putc('\\', emfile);
-		default:
-			fputc(*cptr,emfile);
-		}
-		cptr++;
-		length++;
-	}
-	*cptr=0;
-	cptr++;
-	fprintf(emfile,"\\000\"\n");
-	i=yylval.integer;
-	yylval.integer= genrom();
-	fprintf(emfile,"l%d,9999,%d\n",i,length);
-#ifdef YYDEBUG
-	if(yydebug) printf("STRVALUE found\n");
-#endif
-	return(STRVALUE);
-}
-yylex()
-{
-	char *c;
-
-	/* Here is the big switch */
-	c= cptr;
-	switch(*c){
-	case 'a': case 'b': case 'c': case 'd': case 'e':
-	case 'f': case 'g': case 'h': case 'i': case 'j':
-	case 'k': case 'l': case 'm': case 'n': case 'o':
-	case 'p': case 'q': case 'r': case 's': case 't':
-	case 'u': case 'v': case 'w': case 'x': case 'y':
-	case 'z': case 'A': case 'B': case 'C': case 'D':
-	case 'E': case 'F': case 'G': case 'H': case 'I':
-	case 'J': case 'K': case 'L': case 'M': case 'N':
-	case 'O': case 'P': case 'Q': case 'R': case 'S':
-	case 'T': case 'U': case 'V': case 'W': case 'X':
-	case 'Y': case 'Z': case '_': 
-		return(lookup());
-
-	case '0': case '1': case '2': case '3': case '4':
-	case '5': case '6': case '7': case '8': case '9':
-	case '.':
-		return(number());
-	case '\'':
-		/* comment at end of line */
-		while( *cptr != '\n' && *cptr) cptr++;
-	case '\n':
-		cptr++;
-		return(EOLN);
-	case 0:
-#ifdef YYDEBUG
-		if( yydebug) printf("end of buffer");
-#endif
-		return(0);
-	case '"':
-		return(scanstring());
-	/* handle double operators */
-	case ' ':
-	case '\t':
-		cptr++;
-		return(yylex());
-	case '&':
-		return(readconstant());
-	case '?': 
-		cptr++;
-		return(PRINTSYM);
-	case '>':
-		if( *(c+1)=='='){
-			c++;c++;cptr=c; yylval.integer= GESYM;return(RELOP);
-		}
-		yylval.integer= '>';
-		cptr++;
-		return(RELOP);
-	case '<':
-		if( *(c+1)=='='){
-			c++; c++; cptr=c; yylval.integer=LESYM; return(RELOP);
-		} else
-		if( *(c+1)=='>'){
-			c++; c++; cptr=c; yylval.integer=NESYM; return(RELOP);
-		} 
-		yylval.integer= '<';
-		cptr++;
-		return(RELOP);
-	}
-	return(*cptr++);
-}
-
-char *
-index(s, c)
-	register char *s, c;
-{
-	while (*s)
-		if (*s++ == c)
-			return --s;
-	return (char *)0;
-}

lang/basic/src.old/basic.yacc

@@ -1,483 +0,0 @@
-%token ILLEGAL
-%token ASSYM
-%token BASESYM
-%token CALLSYM
-%token CLEARSYM
-%token CLOSESYM
-%token DATASYM
-%token DEFINTSYM
-%token DEFSNGSYM
-%token DEFDBLSYM
-%token DEFSTRSYM
-%token DEFSYM
-%token DIMSYM
-%token ELSESYM
-%token ERRSYM
-%token ERLSYM
-%token ERRORSYM
-%token FIELDSYM
-%token FORSYM
-%token <integer> FUNCTION
-%token <Sptr> FUNCTID
-%token INKEYSYM
-%token GETSYM
-%token GOSUBSYM
-%token GOTOSYM
-%token <integer> IFSYM
-%token INPUTSYM
-%token LETSYM
-%token LINESYM
-%token LSETSYM
-%token MIDSYM
-%token NEXTSYM
-%token ONSYM
-%token OPENSYM
-%token OPTIONSYM
-%token PRINTSYM
-%token POKESYM
-%token PUTSYM
-%token RANDOMIZESYM
-%token READSYM
-%token REMSYM
-%token RESTORESYM
-%token RETURNSYM
-%token ENDSYM
-%token STOPSYM
-%token STEPSYM
-%token SWAPSYM
-%token THENSYM
-%token TOSYM
-%token <integer> TRONOFFSYM
-%token USINGSYM
-%token USRSYM
-%token WHILESYM
-%token WENDSYM
-%token WRITESYM
-/* special tokens */
-%token EOLN
-%token INTVALUE
-%token FLTVALUE
-%token DBLVALUE
-%token <integer> STRVALUE
-%token UNARYSYM
-%token <Sptr> IDENTIFIER
-%token ANDSYM
-%token ORSYM
-%token VARPTR
-
-%type <Sptr> arraydcl identifier indexed
-%type <cptr> getput
-%type <integer> exprlist expression negation compare sum term factor
-%type <integer> parmlist variable printlist inputtail funcname funccall
-
-%left <integer> BOOLOP
-%left NOTSYM
-%left '=' '<' '>' LESYM GESYM NESYM
-%left <integer> RELOP
-%left '+' '-'
-%left '*' '/' '\\' MODSYM
-%left '^'
-%left UNARYMINUS
-
-%{
-#define YYDEBUG
-#include "bem.h"
-
-typedef union {
-	int	integer ;
-	Symbol	*Sptr ;
-	char	*cptr ;
-} YYSTYPE ;
-
-int	ival;
-double  dval;
-char	*sval;
-int 	e1,e2;
-
-char	*formatstring;	/* formatstring used for printing */
-Symbol	*s;		/* Symbol dummy */
-%}
-%%
-programline	: INTVALUE {newblock(ival); newemblock(ival);} stmts EOLN
-		| '#' INTVALUE STRVALUE EOLN
-		| EOLN
-		;
-
-
-stmts	: singlestmt
-	| stmts ':' singlestmt
-	;
-
-singlestmt : callstmt
-	| clearstmt
-	| closestmt
-	| datastmt
-	| deffnstmt
-	| defvarstmt
-	| defusrstmt
-	| dimstmt		
-	| ERRORSYM expression		{errorstmt($2);}
-	| fieldstmt
-	| forstmt
-	| getstmt
-	| gosubstmt
-	| ongotostmt
-	| ifstmt
-	| illegalstmt
-	| inputstmt
-	| letstmt
-	| lineinputstmt
-	| lsetstmt
-	| midstmt
-	| exceptionstmt
-	| nextstmt
-	| GOTOSYM INTVALUE			{gotostmt(ival);}
-	| openstmt
-	| optionstmt
-	| pokestmt
-	| printstmt
-	| randomizestmt
-	| readstmt
-	| REMSYM		
-	| restorestmt
-	| returnstmt
-	| ENDSYM		{ emcode("loc","0");
-				  emcode("cal","$_hlt");
-				  emcode("asp",EMINTSIZE);}
-	| STOPSYM		{ emcode("cal","$_stop");}
-	| swapstmt
-	| TRONOFFSYM		{ tronoff=$1;}
-	| whilestmt
-	| wendstmt
-	| writestmt
-	| /* EMPTY STATEMENT */
-	;
-
-illegalstmt:	ILLEGAL 		{illegalcmd();}
-
-callstmt:	CALLSYM	IDENTIFIER parmlist ')'
-	{ 
-		emcode("cal",proclabel($2->symname));
-		while($3 -- >0) emcode("asp",EMPTRSIZE);
-	}
-	|	CALLSYM	IDENTIFIER 
-	{ 	emcode("cal",proclabel($2->symname));}
-
-parmlist: '(' variable	{ $$=1;}
-	| parmlist ',' variable	{ $$= $1+1;}
-
-clearstmt:	CLEARSYM			{warning("statement ignored");}
-	|	CLEARSYM ',' expression	{warning("statement ignored");}
-	|	CLEARSYM ',' expression ',' expression	{warning("statement ignored");}
-closestmt:	CLOSESYM filelist		
-	|	CLOSESYM	{emcode("cal","$_close");}
-
-filelist:	cross intvalue			{ emcode("loc",itoa(ival));
-						 emcode("cal","$_clochn");
-						 emcode("asp",EMINTSIZE);}
-	|	filelist ',' cross intvalue 	{ emcode("loc",itoa(ival));
-						 emcode("cal","$_clochn");
-						 emcode("asp",EMINTSIZE);}
-
-datastmt:	DATASYM  {datastmt();} datalist	{fprintf(datfile,"\n");}
-
-dataelm : INTVALUE	{fprintf(datfile,"%d",ival);}
-	| '-' INTVALUE	{fprintf(datfile,"%d",-ival);}
-	| FLTVALUE	{fprintf(datfile,"%f",dval);}
-	| '-' FLTVALUE	{fprintf(datfile,"%f",-dval);}
-	| STRVALUE	{fprintf(datfile,"\"%s\"",sval);}
-	| IDENTIFIER	{fprintf(datfile,"\"%s\"",sval);}
-	;
-
-datalist: dataelm
-	| datalist ',' {fputc(',',datfile);} dataelm
-	;
-
-deffnstmt:	DEFSYM heading '=' expression {endscope($4);}
-
-heading : FUNCTID			{ newscope($1); heading();}
-	| FUNCTID {newscope($1);} '(' idlist ')'	{ heading();}
-
-idlist : IDENTIFIER		{ dclparm($1);}
-	| idlist ',' IDENTIFIER	{ dclparm($3);}
-	;
-
-defvarstmt: 	DEFINTSYM 			{ setdefaulttype( INTTYPE);}
-	|	DEFSNGSYM 			{ setdefaulttype( FLOATTYPE);}
-	|	DEFDBLSYM 			{ setdefaulttype( DOUBLETYPE);}
-	|	DEFSTRSYM 			{ setdefaulttype( STRINGTYPE);}
-
-defusrstmt:	DEFSYM USRSYM error ':'		{illegalcmd();}
-
-dimstmt:	DIMSYM arraydcl ')'		{dclarray($2);}
-	|	dimstmt ',' arraydcl ')'	{dclarray($3);}
-	;
-
-arraydcl : IDENTIFIER '(' INTVALUE	{$$=$1; s= $1;
-					 s->dimlimit[s->dimensions]=ival;
-					 s->dimensions++;
-					}
-	| arraydcl ',' INTVALUE		{$$=$1; s= $1;
-					 if(s->dimensions<MAXDIMENSIONS)
-					 {
-						 s->dimlimit[s->dimensions]=ival;
-						 s->dimensions++;
-					} else
-						error("too many dimensions");
-					}
-
-
-
-fieldstmt:	FIELDSYM cross intvalue {setchannel(ival);} ',' fieldlist	{notyetimpl();}
-
-fieldlist:	intvalue ASSYM variable
-	| fieldlist ',' intvalue ASSYM variable
-	;
-
-forstmt: FORSYM IDENTIFIER {forinit($2);} '=' expression  {forexpr($5);}
-	TOSYM expression {forlimit($8);} step
-	;
-
-step	: STEPSYM expression		{forstep($2);}
-	| /*EMPTY*/			{emcode("loc","1"); forstep(INTTYPE);}
-	;
-
-nextstmt: NEXTSYM IDENTIFIER			{nextstmt($2);}
-	| NEXTSYM				{ nextstmt((Symbol *)0);}
-	| nextstmt ',' IDENTIFIER		{ nextstmt($3);}
-
-getstmt:	getput  	{emcode("loc",itoa(0));
-				 emcode("cal",$1);
-				 emcode("asp",EMINTSIZE);}
-	|	getput ',' intvalue 
-				{ /* position seek pointer first*/
-				  emcode("loc",itoa(ival));
-				  emcode("cal",$1);
-				  emcode("asp",EMINTSIZE);
-				}
-getput: GETSYM	cross intvalue { setchannel(ival); $$= "$_getrec";}
-	| PUTSYM cross intvalue { setchannel(ival); $$= "$_putsym";}
-
-gosubstmt:	GOSUBSYM INTVALUE		{gosubstmt(ival);}
-
-returnstmt:	RETURNSYM			{returnstmt();}
-
-ifstmt:		IFSYM expression {$1=ifstmt($2);} thenpart 
-		{$1=thenpart($1);} elsepart {elsepart($1);}
-	;
-
-thenpart:	THENSYM INTVALUE		{gotostmt(ival);}
-	|	THENSYM stmts
-	|	GOTOSYM INTVALUE		{gotostmt(ival);}
-	;
-elsepart:	ELSESYM INTVALUE 		{gotostmt(ival);}
-	|	ELSESYM stmts 
-	|	/* empty */
-	;
-
-inputstmt:	INPUTSYM  semiprompt  readlist 
-	|	INPUTSYM  '#' intvalue {setchannel(ival);}',' readlist
-	;
-
-semiprompt : semi STRVALUE ';' 	{ loadstr($2); prompt(1);}
-	| semi STRVALUE ','		{ loadstr($2); prompt(0);}
-	| /*EMPTY*/			{ setchannel(-1);
-					  emcode("cal","$_qstmark");}
-
-semi	: ';'	| /* empty */ ;
-
-letstmt:	LETSYM {e1=where();} variable {e2=where();}
-		'=' expression	{assign($3,$6);}
-	|	{e1=where();} variable  {e2=where();}
-		'=' expression		{assign($2,$5);}
-
-lineinputstmt: LINESYM INPUTSYM semiprompt {setchannel(-1);} variable {linestmt($5);} 
-	|	LINESYM '#' intvalue {setchannel(ival);} ',' variable {linestmt($6);}
-	;
-
-readlist: readelm		
-	| readlist ',' readelm	
-	;
-readelm:	variable	{readelm($1);}
-
-lsetstmt:	LSETSYM variable '=' expression	{notyetimpl();}
-
-midstmt:	MIDSYM '$'  midparms '=' expression 
-	{ 	emcode("cal","$_midstmt");
-		emcode("asp",EMINTSIZE);
-		emcode("asp",EMINTSIZE);
-		emcode("asp",EMPTRSIZE);
-		emcode("asp",EMPTRSIZE);}
-
-midparms:	'(' midfirst midsec midthird ')' 
-
-midfirst:	expression 	{ conversion($1,STRINGTYPE); }
-midsec:		',' expression 	{ conversion($2,INTTYPE); }
-midthird:	',' expression 	{ conversion($2,INTTYPE); }
-		| /* empty */ 	{ emcode("loc","-1");}
-
-exceptionstmt:	ONSYM ERRORSYM GOTOSYM INTVALUE	{exceptstmt(ival);}
-
-ongotostmt:	ONSYM expression 
-		GOSUBSYM constantlist {ongosubstmt($2);}
-	| 	ONSYM expression 
-		GOTOSYM constantlist  {ongotostmt($2);}
-
-constantlist: INTVALUE			{jumpelm(ival);}
-	| constantlist ',' INTVALUE	{ jumpelm(ival);}
-
-openstmt:	OPENSYM mode openchannel expression 
-		{ conversion($4,STRINGTYPE); openstmt(0);}
-	|	OPENSYM mode openchannel 
-		expression {conversion($4,STRINGTYPE);} 
-		INTVALUE { openstmt(ival);}
-
-openchannel: cross INTVALUE ','	{ setchannel(ival);}
-
-mode	: expression ',' 	{conversion($1,STRINGTYPE);}
-	| ','			{ emcode("lae","_iomode");}
-	;
-
-optionstmt:	OPTIONSYM BASESYM intvalue { optionbase(ival);}
-
-printstmt:	PRINTSYM 		{setchannel(-1);emcode("cal","$_nl");}
-	| 	PRINTSYM file format printlist 
-	{ 	if( $4) emcode("cal","$_nl");}
-file	: '#' intvalue ','	{setchannel(ival);}
-	| /* empty */		{setchannel(-1);}
-	;
-format  : USINGSYM STRVALUE ';'		{ loadstr($2);}
-	| USINGSYM variable ';'		{ 
-		if($2!=STRINGTYPE) error("string variable expected");}
-	| /* empty */				{formatstring=0;}
-
-printlist: expression			{ printstmt($1); $$=1;}
-	| ','				{ zone(1); $$=0;}
-	| ';'				{ zone(0); $$=0;}
-	| printlist expression		{ printstmt($2); $$=1;}
-	| printlist ','			{ zone(1);$$=0;}
-	| printlist ';'			{ zone(0);$$=0;}
-	;
-pokestmt: POKESYM expression ',' expression	{pokestmt($2,$4);}
-	;
-randomizestmt:	RANDOMIZESYM 
-			{ emcode("cal","$_randomi");}
-	| 	RANDOMIZESYM expression
-			 { conversion($2,INTTYPE);
-			  emcode("cal","$_setrand");
-			  emcode("asp",EMINTSIZE);}
-
-readstmt:	READSYM {setchannel(0);} variable	{ readelm($3);}
-	|	readstmt ',' variable	{ readelm($3);}
-
-restorestmt:	RESTORESYM INTVALUE	{ restore(ival);}
-	|	RESTORESYM 		{ restore(0);}
-	
-swapstmt:	SWAPSYM variable ',' variable	{ swapstmt($2,$4);}
-
-whilestmt:	WHILESYM {whilestart();} expression	 {whiletst($3);}
-	;
-
-wendstmt :	WENDSYM				{wend();}
-
-writestmt:	WRITESYM		{setchannel(-1);emcode("cal","$_wrnl");}
-	|	WRITESYM file writelist 	{emcode("cal","$_wrnl");}
-	;
-
-writelist: expression			{writestmt($1,0);}
-	| writelist ',' expression	{writestmt($3,1);}
-	;
-
-cross: '#' | /* empty */
-
-intvalue: INTVALUE
-	;
-
-variable: identifier { $$=loadaddr($1);}
-	| indexed ')'	{$$=endarrayload();}
-	| ERRSYM	{emcode("lae","_errsym"); $$= INTTYPE;}
-	| ERLSYM	{emcode("lae","_erlsym"); $$= INTTYPE;}
-	;
-indexed	: identifier '(' 			{newarrayload($1);} 
-	 expression 			{loadarray($4); $$=$1;}
-	| indexed ',' expression	{loadarray($3); $$=$1;}
-	;
-
-
-expression:
-	  negation
-	| expression BOOLOP expression	{$$=boolop($1,$3,$2);}
-	;
-
-negation: NOTSYM compare		{$$=boolop($2,0,NOTSYM);}
-	| compare
-	;
-
-compare	: sum
-	| sum RELOP sum			{$$=relop($1,$3,$2);}
-	| sum '=' sum			{$$=relop($1,$3,'=');}
-	;
-	
-sum	: term
-	| sum '-' sum			{$$=plusmin($1,$3,'-');}
-	| sum '+' sum			{$$=plusmin($1,$3,'+');}
-	;
-term	: factor
-	| factor '^' factor		{$$=power($1,$3);}
-	| term '*' term		{$$=muldiv($1,$3,'*');}
-	| term '\\' term		{$$=muldiv($1,$3,'\\');}
-	| term '/' term		{$$=muldiv($1,$3,'/');}
-	| term MODSYM term		{$$=muldiv($1,$3,MODSYM);}
-	;
-factor  : INTVALUE			{$$=loadint(ival);}
-	| '(' expression ')'		{$$=$2;}
-	| '-' factor  { $$=negate($2);}
-	| FLTVALUE			{$$=loaddbl(dval);}
-	| STRVALUE			{$$= STRINGTYPE; loadstr($1);}
-	| variable			{$$=$1; loadvar($1);}
-	| INKEYSYM '$' 			{ emcode("cal","$_inkey");
-					  emcode("lfr",EMPTRSIZE);
-					  $$= STRINGTYPE;
-					}
-	| VARPTR '(' '#' intvalue ')'	{ warning("Not supported"); $$=INTTYPE;}
-	| FUNCTION			{$$= callfcn($1,0);}
-	| FUNCTION '(' cross exprlist')'	{$$=callfcn($1,$4);}
-	| funcname			{ $$=fcnend(0);}
-	| funcname funccall ')'	{ $$=fcnend($2);}
-	| MIDSYM '$' midparms	
-	{
-		emcode("cal","$_mid");
-		emcode("asp",EMINTSIZE);
-		emcode("asp",EMINTSIZE);
-		emcode("asp",EMPTRSIZE);
-		/* emcode("asp",itoa($3)); */
-		emcode("lfr",EMPTRSIZE);
-		$$= STRINGTYPE;
-	}
-	| INPUTSYM '$' '(' expression inputtail
-	{
-		emcode("cal","$_inpfcn");
-		emcode("asp",EMINTSIZE);
-		emcode("asp",EMINTSIZE);
-		emcode("asp",EMPTRSIZE);
-		$$= STRINGTYPE;
-	}
-inputtail: ',' expression ')'		{ conversion($2,INTTYPE); $$= INTTYPE;}
-	 | ',' '#' expression ')'	{ conversion($3,INTTYPE); $$= INTTYPE;}
-	 | ')'				{ emcode("loc","-1"); $$= INTTYPE;}
-
-funcname: FUNCTID		{$$=fcncall($1);}
-
-funccall:  '(' expression	{ callparm(0,$2); $$=1;}
-	| funccall ',' expression	{ callparm($1,$3); $$=$1+1;}
-	
-identifier: IDENTIFIER	{ dcltype($1); $$=$1;}
-
-exprlist: expression	{ typetable[0]= $1; $$=1;}
-	| exprlist ',' expression { typetable[$1]=$3;$$=$1+1;}
-
-%%
-#ifndef NORCSID
-static char rcs_id[]	= "$Header$" ;
-#endif
-#include "basic.lex"

lang/basic/src.old/bem.c

@@ -1,53 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[]	= "$Header$" ;
-static char rcs_bem[]	= RCS_BEM ;
-static char rcs_symb[]	= RCS_SYMB ;
-static char rcs_graph[]	= RCS_GRAPH ;
-#endif
-
-/* Author: M.L. Kersten
-**
-** This is the main routine for the BASIC-EM frontend.
-** Program parameters are decoded, the BASIC program is parsed
-** and compiled to an executable program
-**
-** Bem expects at least three parameters. One ending with '.i' is considered
-** the input to the compiler, '.e' denotes the file to be generated,
-** and the last name denotes the name of the user supplied file name.
-** The latter is used to store the data entries.
-** Additional flags may be supplied, see parseparms.
-*/
-
-char	*program;
-
-char	datfname[MAXFILENAME] ;
-char	tmpfname[MAXFILENAME] ;
-
-char	*inpfile, *outfile;
-main(argc,argv)
-int argc;
-char **argv;
-{
-	extern int errorcnt;
-
-	/* parseparams */
-	parseparams(argc,argv);
-	/* initialize the system */
-	initialize();
-	/* compile source programs */
-	compileprogram(program);
-	linewarnings();
-	if( errorcnt) {
-		unlink(tmpfname);
-		exit(-1);
-	}
-	/* process em object files */
-	simpleprogram();
-	exit(0);
-}

lang/basic/src.old/bem.h

@@ -1,76 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include <stdio.h>
-#include <ctype.h>
-#include <signal.h>
-
-/* Author: M.L. Kersten
-** Here all the global objects are defined.
-*/
-#include "symbols.h"
-#include "graph.h"
-#include "y.tab.h"
-
-#ifndef NORCSID
-# define RCS_BEM	"$Header$"
-#endif
-
-#define MAXINT		32768
-#define MININT		-32767
-#define EMINTSIZE	"EM_WSIZE"
-#define EMPTRSIZE	"EM_PSIZE"
-#define EMFLTSIZE	"EM_DSIZE"
-
-#define MAXPIECES	100
-#define MAXFILENAME	200
-
-#define CHANNEL		0
-#define THRESHOLD	40		/* for splitting blocks */
-
-#define void		int		/* Some C compilers don't know void */
-
-extern char	*program;		/* name of source program */
-extern char	*inpfile;		/* input tko compiler */
-extern char	*outfile;		/* output from compiler */
-
-extern char	datfname[MAXFILENAME];	/* data statements file */
-extern char	tmpfname[MAXFILENAME];	/* temporary statements file */
-
-extern FILE	*emfile;		/* EM output file */
-extern FILE	*datfile;		/* data file */
-extern FILE	*Tmpfile;		/* compiler temporary */
-extern FILE	*yyin;			/* Compiler input */
-
-extern int	endofinput;
-extern int 	wflag;
-extern int	hflag;
-extern int	traceflag;
-extern int	yydebug;
-extern int	yylineno;
-extern int	listing;
-extern int	nolins;
-extern int	threshold;
-extern int	debug;
-extern int 	tronoff;
-
-extern int	emlinecount;		/* counts lines on Tmpfile */
-extern int 	dataused;
-extern int	typetable[10];		/* parameters to standard functions */
-
-extern Linerecord *currline;
-
-
-extern char *itoa();
-extern char *datalabel();
-extern char *instrlabel();
-extern char *proclabel();
-extern char *typesize();
-extern char *typestring();
-extern char *salloc();
-
-extern char *sprintf();
-extern char *strcpy();
-extern char *strcat();
-extern char *malloc();

lang/basic/src.old/compile.c

@@ -1,24 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-
-/* compile the next program in the list */
-/* Here we should open the input file. (for the future) */
-
-FILE *yyin;
-
-compileprogram(dummyprog)
-char *dummyprog;
-{
-
-	while( getline())
-		(void) yyparse();
-	(void) fclose(yyin);
-}

lang/basic/src.old/eval.c

@@ -1,444 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-
-/* Here you find all routines to evaluate expressions and
-   generate code for assignment statements
-*/
-
-exprtype(ltype,rtype)
-int	ltype,rtype;
-{
-	/* determine the result type of an expression */
-	if( ltype== STRINGTYPE || rtype==STRINGTYPE)
-	{
-		if( ltype!=rtype)
-			error("type conflict, string expected");
-		return( STRINGTYPE);
-	}
-	/* take maximum */
-	if( ltype<rtype) return(rtype);
-	return(ltype);
-}
-
-conversion(oldtype,newtype)
-int oldtype,newtype;
-{
-	/* the value on top of the stack should be converted */
-	if( oldtype==newtype) return;
-	switch( oldtype)
-	{
-	case INTTYPE:
-		if( newtype==FLOATTYPE || newtype==DOUBLETYPE)
-		{
-			emcode("loc",EMINTSIZE);
-			emcode("loc",EMFLTSIZE);
-			emcode("cif","");
-		}else{
-			if(debug) 
-				printf("type n=%d o=%d\n",newtype,oldtype);
-			error("conversion error");
-		}
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		if( newtype==INTTYPE)
-		{
-			/* rounded ! */
-			emcode("cal","$_cint");
-			emcode("asp",EMFLTSIZE);
-			emcode("lfr",EMINTSIZE);
-			break;
-		}else
-		if( newtype== FLOATTYPE || newtype==DOUBLETYPE)
-			break;
-	default:
-		if(debug) 
-			printf("type n=%d o=%d\n",newtype,oldtype);
-		error("conversion error");
-	}
-}
-extraconvert(oldtype,newtype,topstack)
-int oldtype,newtype,topstack;
-{
-	/* the value below the top of the stack should be converted */
-	if( oldtype==newtype ) return;
-	if( debug) printf("extra convert %d %d %d\n",oldtype,newtype,topstack);
-	/* save top in dummy */
-	switch( topstack)
-	{
-	case INTTYPE:
-		emcode("ste","dummy1");
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		/* rounded ! */
-		emcode("lae","dummy1");
-		emcode("sti",EMFLTSIZE);
-		break;
-	default:
-		error("conversion error");
-		return;
-	}
-	/* now its on top of the stack */
-	conversion(oldtype,newtype);
-	/* restore top */
-	switch( topstack)
-	{
-	case INTTYPE:
-		emcode("loe","dummy1");
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		/* rounded ! */
-		emcode("lae","dummy1");
-		emcode("loi",EMFLTSIZE);
-	}
-}
-
-boolop(ltype,rtype,operator)
-int	ltype,rtype,operator;
-{
-	if( operator != NOTSYM)
-	{
-		extraconvert(ltype,INTTYPE,rtype);
-		conversion(rtype,INTTYPE);
-	} else conversion(ltype,INTTYPE);
-	switch( operator)
-	{
-	case NOTSYM:	emcode("com",EMINTSIZE); break;
-	case ANDSYM:	emcode("and",EMINTSIZE); break;
-	case ORSYM:	emcode("ior",EMINTSIZE); break;
-	case XORSYM:	emcode("xor",EMINTSIZE); break;
-	case EQVSYM:
-		emcode("xor",EMINTSIZE);
-		emcode("com",EMINTSIZE);
-		break;
-	case IMPSYM:
-		/* implies */
-		emcode("com",EMINTSIZE);
-		emcode("and",EMINTSIZE);
-		emcode("com",EMINTSIZE);
-		break;
-	default:	error("boolop:unexpected");
-	}
-	return(INTTYPE);
-}
-genbool(opcode)
-char *opcode;
-{
-	int l1,l2;
-	l1= genlabel();
-	l2= genlabel();
-	emcode(opcode,instrlabel(l1));
-	emcode("loc",itoa(0));
-	emcode("bra",instrlabel(l2));
-	fprintf(Tmpfile,"%d\n",l1); emlinecount++;
-	emcode("loc",itoa(-1));
-	fprintf(Tmpfile,"%d\n",l2); emlinecount++;
-}
-relop( ltype,rtype,operator)
-int	ltype,rtype,operator;
-{
-	int	result;
-	if(debug) printf("relop %d %d op=%d\n",ltype,rtype,operator);
-	result= exprtype(ltype,rtype);
-	extraconvert(ltype,result,rtype);
-	conversion(rtype,result);
-	/* compare the objects */
-	if( result== INTTYPE)
-		emcode("cmi", EMINTSIZE);
-	else
-	if( result==FLOATTYPE || result==DOUBLETYPE)
-		emcode("cmf",EMFLTSIZE);
-	else
-	if( result==STRINGTYPE)
-	{
-		emcode("cal","$_strcomp");
-		emcode("asp",EMPTRSIZE);
-		emcode("asp",EMPTRSIZE);
-		emcode("lfr",EMINTSIZE);
-	} else	error("relop:unexpected");
-	/* handle the relational operators */
-	switch(operator)
-	{
-	case '<':	genbool("zlt"); break;
-	case '>':	genbool("zgt"); break;
-	case '=':	genbool("zeq"); break;
-	case NESYM:	genbool("zne"); break;
-	case LESYM:	genbool("zle"); break;
-	case GESYM:	genbool("zge"); break;
-	default:	error("relop:unexpected operator");
-	}
-	return(INTTYPE);
-}
-plusmin(ltype,rtype,operator)
-int	ltype,rtype,operator;
-{
-	int result;
-	result= exprtype(ltype,rtype);
-
-	if( result== STRINGTYPE)
-	{
-		if( operator== '+')
-		{
-			emcode("cal","$_concat");
-			emcode("asp",EMPTRSIZE);
-			emcode("asp",EMPTRSIZE);
-			emcode("lfr",EMPTRSIZE);
-		} else error("illegal operator");
-	} else {
-		extraconvert(ltype,result,rtype);
-		conversion(rtype,result);
-		if( result== INTTYPE)
-		{
-			if( operator=='+') 
-				emcode("adi",EMINTSIZE);
-			else	emcode("sbi",EMINTSIZE);
-		} else{
-			if( operator=='+') 
-				emcode("adf",EMFLTSIZE);
-			else	emcode("sbf",EMFLTSIZE);
-		}
-	}
-	return(result);
-}
-muldiv(ltype,rtype,operator)
-int	ltype,rtype,operator;
-{
-	int result;
-
-	result= exprtype(ltype,rtype);
-	if(operator==MODSYM || operator== '\\') result=INTTYPE;
-	extraconvert(ltype,result,rtype);
-	conversion(rtype,result);
-	if( result== INTTYPE)
-	{
-		if( operator=='/') 
-		{
-			result= DOUBLETYPE;
-			extraconvert(ltype,result,rtype);
-			conversion(rtype,result);
-			emcode("dvf",EMFLTSIZE);
-		} else
-		if( operator=='\\')
-			emcode("dvi",EMINTSIZE);
-		else
-		if( operator=='*') 
-			emcode("mli",EMINTSIZE);
-		else	
-		if( operator==MODSYM)
-			emcode("rmi",EMINTSIZE);
-		else	error("illegal operator");
-	} else{
-		if( operator=='/') 
-			emcode("dvf",EMFLTSIZE);
-		else
-		if( operator=='*') 
-			emcode("mlf",EMFLTSIZE);
-		else	error("illegal operator");
-	}
-	return(result);
-}
-negate(type)
-int type;
-{
-	switch(type)
-	{
-	case INTTYPE:
-		emcode("ngi",EMINTSIZE); break;
-	case DOUBLETYPE:
-	case FLOATTYPE:
-		emcode("ngf",EMFLTSIZE); break;
-	default:
-		error("Illegal operator");
-	}
-	return(type);
-}
-power(ltype,rtype)
-int	ltype,rtype;
-{
-	extraconvert(ltype,DOUBLETYPE,rtype);
-	conversion(rtype,DOUBLETYPE);
-	emcode("cal","$_power");
-	emcode("asp",EMFLTSIZE);
-	emcode("asp",EMFLTSIZE);
-	emcode("lfr",EMFLTSIZE);
-	return(DOUBLETYPE);
-}
-char *typesize(ltype)
-int ltype;
-{
-	switch( ltype)
-	{
-	case INTTYPE:
-		return(EMINTSIZE);
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		return(EMFLTSIZE);
-	case STRINGTYPE:
-		return(EMPTRSIZE);
-	default:
-		error("typesize:unexpected");
-		if(debug) printf("type received %d\n",ltype);
-	}
-	return(EMINTSIZE);
-}
-/*
-loadptr(s)
-Symbol *s;
-{
-	if( POINTERSIZE==WORDSIZE)
-		fprintf(Tmpfile," loe l%d\n",s->symalias);
-	else 
-	if( POINTERSIZE== 2*WORDSIZE)
-		fprintf(Tmpfile," lde l%d\n",s->symalias);
-	else error("loadptr:unexpected pointersize");
-}
-*/
-char *typestring(type)
-int type;
-{
-	switch(type)
-	{
-	case INTTYPE:
-		return(EMINTSIZE);
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		return(EMFLTSIZE);
-	case STRINGTYPE:
-		return(EMPTRSIZE);
-	default:
-		error("typestring: unexpected type");
-	}
-	return("0");
-}
-loadvar(type)
-int type;
-{
-	/* load a simple variable  its address is on the stack*/
-	emcode("loi",typestring(type));
-}
-loadint(value)
-int value;
-{
-	emcode("loc",itoa(value));
-	return(INTTYPE);
-}
-loaddbl(value)
-double value;
-{
-	int index;
-	index= genlabel();
-	fprintf(emfile,"l%d\n bss 8,%fF8,1\n",index,value);
-	emcode("lae",datalabel(index));
-	emcode("loi",EMFLTSIZE);
-	return(DOUBLETYPE);
-}
-loadstr(value)
-int value;
-{
-	emcode("lae",datalabel(value));
-}
-loadaddr(s)
-Symbol *s;
-{
-	extern Symbol *fcn;
-	int i,j;
-
-	if(debug) printf("load %s %d\n",s->symname,s->symtype);
-	if( s->symalias>0)
-		emcode("lae",datalabel(s->symalias));
-	else{	
-		j= -s->symalias;
-		if(debug) printf("load parm %d\n",j);
-		fprintf(Tmpfile," lal ");
-		for(i=fcn->dimensions;i>j;i--)
-			fprintf(Tmpfile,"%s+",typesize(fcn->dimlimit[i-1]));
-		fprintf(Tmpfile,"0\n");
-		emlinecount++;
-		/*
-		emcode("lal",datalabel(fcn->dimalias[-s->symalias]));
-		*/
-	}
-	return(s->symtype);
-}
-assign(type,lt)
-int type,lt;
-{
-	extern int e1,e2;
-	conversion(lt,type);
-	exchange(e1,e2);
-	/* address is on stack already */
-	emcode("sti",typestring(type) );
-}
-storevar(lab,type)
-int lab,type;
-{
-	/*store value back */
-	emcode("lae",datalabel(lab));
-	emcode("sti",typestring(type));
-}
-
-/* maintain a stack of array references */
-int	dimstk[MAXDIMENSIONS], dimtop= -1;
-Symbol  *arraystk[MAXDIMENSIONS];
-
-newarrayload(s)
-Symbol *s;
-{
-	if( dimtop<MAXDIMENSIONS) dimtop++;
-	if( s->dimensions==0)
-	{
-		s->dimensions=1;
-		defarray(s);
-	}
-	dimstk[dimtop]= s->dimensions;
-	arraystk[dimtop]= s;
-	emcode("lae",datalabel(s->symalias));
-}
-endarrayload()
-{
-	return(arraystk[dimtop--]->symtype);
-}
-loadarray(type)
-int	type;
-{
-	int	dim;
-	Symbol	*s;
-
-	if( dimtop<0 || dimtop>=MAXDIMENSIONS)
-		fatal("too many nested array references");
-	/* index expression is on top of stack */
-	s=arraystk[dimtop];
-	dim= dimstk[dimtop];
-	if( dim==0)
-	{
-		error("too many indices");
-		dimstk[dim--]=0;
-		return;
-	}
-	conversion(type,INTTYPE);
-	dim--;
-	/* first check index range */
-	fprintf(Tmpfile," lae r%d\n",s->dimalias[dim]);
-	emlinecount++;
-	emcode("rck",EMINTSIZE);
-	emcode("lae",datalabel(s->dimalias[dim]));
-	emcode("aar",EMINTSIZE);
-	dimstk[dimtop]--;
-}
-storearray(type)
-{
-	/* used only in let statement */
-	extern int e1,e2;
-	exchange(e1,e2);
-	emcode("sti",typestring(type));
-}

lang/basic/src.old/func.c

@@ -1,223 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-
-/* expression types for predefined functions are assembled */
-int	typetable[10];
-int	exprlimit;
-
-/* handle all predefined functions */
-#define cv(X)	conversion(type,X); pop=X
-#define cl(X)	emcode("cal",X);
-
-parm(cnt)
-int cnt;
-{
-	if( cnt> exprlimit)
-		error("Not enough arguments");
-	if( cnt < exprlimit)
-		error("Too many arguments");
-}
-
-callfcn(fcnnr,cnt)
-int fcnnr,cnt;
-{
-	int pop=DOUBLETYPE;
-	int res=DOUBLETYPE;
-	int type;
-
-
-	type= typetable[0];
-	exprlimit=cnt;
-	if(debug) printf("fcn=%d\n",fcnnr);
-	switch(fcnnr)
-	{
-	case ABSSYM: 	cv(DOUBLETYPE);
-			cl("$_abr");
-			parm(1);
-			break;
-	case ASCSYM:	cv(STRINGTYPE);
-			cl("$_asc"); res=INTTYPE;
-			parm(1);
-			break;
-	case ATNSYM:	cv(DOUBLETYPE);
-			cl("$_atn");
-			parm(1);
-			break;
-	case CDBLSYM:	cv(DOUBLETYPE);  return(DOUBLETYPE);;
-	case CHRSYM:	cv(INTTYPE);
-			cl("$_chr"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case CSNGSYM:
-		cv(DOUBLETYPE); return(DOUBLETYPE);
-	case CINTSYM:	cv(INTTYPE);  return(INTTYPE);
-	case COSSYM:	cv(DOUBLETYPE);
-			cl("$_cos");
-			parm(1);
-			break;
-	case CVISYM:	cv(STRINGTYPE);
-			cl("$_cvi"); res=INTTYPE;
-			parm(1);
-			break;
-	case CVSSYM:	cv(STRINGTYPE);
-			cl("$_cvd"); res=DOUBLETYPE;
-			parm(1);
-			break;
-	case CVDSYM:	cv(STRINGTYPE);
-			cl("$_cvd"); res=DOUBLETYPE;
-			parm(1);
-			break;
-	case EOFSYM:	
-			if( cnt==0)
-			{
-				res= INTTYPE;
-				pop= INTTYPE;
-				emcode("loc","-1");
-			} else cv(INTTYPE);
-			cl("$_ioeof"); res=INTTYPE;
-			break;
-	case EXPSYM:	cv(DOUBLETYPE);
-			cl("$_exp");
-			parm(1);
-			break;
-	case FIXSYM:	cv(DOUBLETYPE);
-			cl("$_fix"); res=INTTYPE;
-			parm(1);
-			break;
-	case INPSYM:
-	case LPOSSYM:
-	case FRESYM:	pop=0;
-			warning("function not supported");
-			parm(1);
-			break;
-	case HEXSYM:	cv(INTTYPE);
-			cl("$_hex"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case OUTSYM:
-	case INSTRSYM:	cv(DOUBLETYPE);
-			cl("$_instr"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case INTSYM:	cv(DOUBLETYPE);
-			cl("$_fcint");
-			parm(1);
-			break;
-	case LEFTSYM:	parm(2);
-			extraconvert(type, STRINGTYPE,typetable[1]);
-			type= typetable[1];
-			cv(INTTYPE);
-			cl("$_left"); res=STRINGTYPE;
-			emcode("asp",EMPTRSIZE);
-			emcode("asp",EMINTSIZE);
-			emcode("lfr",EMPTRSIZE);
-			return(STRINGTYPE);
-	case LENSYM:	cv(STRINGTYPE);
-			cl("$_len"); res=INTTYPE;
-			parm(1);
-			break;
-	case LOCSYM:	cv(INTTYPE);
-			cl("$_loc"); res=INTTYPE;
-			parm(1);
-			break;
-	case LOGSYM:	cv(DOUBLETYPE);
-			cl("$_log");
-			parm(1);
-			break;
-	case MKISYM:	cv(INTTYPE);
-			cl("$_mki"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case MKSSYM:	cv(DOUBLETYPE);
-			cl("$_mkd"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case MKDSYM:	cv(DOUBLETYPE);
-			cl("$_mkd"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case OCTSYM:	cv(INTTYPE);
-			cl("$_oct"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case PEEKSYM:	cv(INTTYPE);
-			cl("$_peek"); res=INTTYPE;
-			parm(1);
-			break;
-	case POSSYM:	emcode("asp",typestring(type));
-			emcode("exa","_pos");
-			emcode("loe","_pos");
-			return(INTTYPE);
-	case RIGHTSYM:	parm(2);
-			extraconvert(type, STRINGTYPE,typetable[1]);
-			type= typetable[1];
-			cv(INTTYPE);
-			cl("$_right"); res=STRINGTYPE;
-			emcode("asp",EMINTSIZE);
-			emcode("asp",EMPTRSIZE);
-			emcode("lfr",EMPTRSIZE);
-			return(STRINGTYPE);
-	case RNDSYM:	if( cnt==1) pop=type; else pop=0;
-			cl("$_rnd"); res= DOUBLETYPE;
-			break;
-	case SGNSYM:	cv(DOUBLETYPE);
-			cl("$_sgn"); res=INTTYPE;
-			parm(1);
-			break;
-	case SINSYM:	cv(DOUBLETYPE);
-			cl("$_sin");
-			parm(1);
-			break;
-	case SPACESYM:	cv(INTTYPE);
-			cl("$_space"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case SPCSYM:	cv(INTTYPE);
-			cl("$_spc"); res=0;
-			parm(1);
-			break;
-	case SQRSYM:	cv(DOUBLETYPE);
-			cl("$_sqt");
-			parm(1);
-			break;
-	case STRSYM:	cv(DOUBLETYPE);
-			cl("$_str");
-			parm(1);
-			break;
-	case STRINGSYM:	cv(STRINGTYPE);
-			cl("$_string"); res=STRINGTYPE;
-			parm(1);
-			break;
-	case TABSYM:	cv(INTTYPE);
-			cl("$_tab"); res=0;
-			parm(1);
-			break;
-	case TANSYM:	cv(DOUBLETYPE);
-			cl("$_tan");
-			parm(1);
-			break;
-	case VALSYM:	cv(STRINGTYPE);
-			cl("$atol"); res=INTTYPE;
-			parm(1);
-			break;
-	case VARPTRSYM:	cv(DOUBLETYPE);
-			cl("$_valptr");
-			parm(1);
-			break;
-	default:	error("unknown function");
-	}
-	if(pop)
-		emcode("asp",typestring(pop));
-	if(res)
-	emcode("lfr",typestring(res));
-	return(res);
-}
-

lang/basic/src.old/gencode.c

@@ -1,585 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-
-/* Here we find all routines dealing with pure EM code generation */
-
-static int	emlabel=1;
-genlabel() { return(emlabel++);}
-
-
-genemlabel()
-{
-	int l;
-
-	l=genlabel();
-	fprintf( emfile,"l%d\n",l);
-	return(l);
-}
-genrom()
-{
-	int l;
-	l= genemlabel();
-	fprintf(emfile," rom ");
-	return(l);
-}
-
-where()
-{
-	return(emlinecount);
-}
-exchange(blk1,blk2)
-int blk1,blk2;
-{
-	/* exchange assembler blocks */
-	if(debug) printf("exchange %d %d %d\n",blk1,blk2,emlinecount);
-	fprintf(Tmpfile," exc %d,%d\n",blk2-blk1,emlinecount-blk2);
-	emlinecount++;
-}
-
-/* routines to manipulate the Tmpfile */
-int	emlinecount;		/* count number of lines generated */
-				/* this value can be used to generate EXC */
-int tronoff=0;
-newemblock(nr)
-int nr;
-{
-	/* save location on Tmpfile */
-	currline->offset= ftell(Tmpfile);
-	fprintf(Tmpfile,"%d\n",currline->emlabel);
-	emlinecount++;
-	if (! nolins) {
-		fprintf(Tmpfile," lin %d\n",nr);
-		emlinecount++;
-	}
-	if( tronoff || traceflag) {
-		emcode("loc",itoa(nr));
-		emcode("cal","$_trace");
-		emcode("asp","EM_WSIZE");
-	}
-}
-
-emcode(operation,params)
-char *operation,*params;
-{
-	fprintf(Tmpfile," %s %s\n",operation,params);
-	emlinecount++;
-}
-/* Handle data statements */
-int	dataused=0;
-List	*datalist=0;
-datastmt()
-{
-	List *l,*l1;
-	/*NOSTRICT*/ l= (List *) salloc(sizeof(List));
-	l->linenr= currline->linenr;
-	/*NOSTRICT?*/ l->emlabel= (long) ftell(datfile);
-	if( datalist==0) 
-	{
-		datalist=l;
-		datfile= fopen(datfname,"w");
-		if( datfile==NULL) fatal("improper file creation permission");
-	}else{
-		l1= datalist;
-		while(l1->nextlist) l1= l1->nextlist;
-		l1->nextlist=l;
-	}
-
-	dataused=1;
-}
-datatable()
-{
-	List *l;
-	int line=0;
-
-	/* called at end to generate the data seek table */
-	fprintf(emfile," exa _seektab\n");
-	fprintf(emfile,"_seektab\n");
-	l= datalist;
-	while(l)
-	{
-		fprintf(emfile," rom %d,%d\n", l->linenr,line++);
-		l= l->nextlist;
-	}
-	fprintf(emfile," rom 0,0\n");
-}
-
-/* ERROR and exception handling */
-exceptstmt(lab)
-int lab;
-{
-	/* exceptions to subroutines are supported only */
-	extern int gosubcnt;
-	List	*l;
-
-	emcode("loc",itoa(gosubcnt));
-	l= (List *) gosublabel();
-	l->emlabel= gotolabel(lab);
-	emcode("cal","$_trpset");
-	emcode("asp",EMINTSIZE);
-}
-
-errorstmt(exprtype)
-int	exprtype;
-{
-	/* convert expression to a valid error number */
-	/* obtain the message and print it */
-	emcode("cal","$error");
-	emcode("asp",typesize(exprtype));
-}
-
-/* BASIC IO */
-openstmt(recsize)
-int recsize;
-{
-	emcode("loc",itoa(recsize));
-	emcode("cal","$_opnchn");
-	emcode("asp",EMPTRSIZE);
-	emcode("asp",EMPTRSIZE);
-	emcode("asp",EMINTSIZE);
-}
-
-
-printstmt(exprtype)
-int	exprtype;
-{
-	switch(exprtype)
-	{
-	case INTTYPE:
-		emcode("cal","$_prinum");
-		emcode("asp",typestring(INTTYPE));
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		emcode("cal","$_prfnum");
-		emcode("asp",typestring(DOUBLETYPE));
-		break;
-	case STRINGTYPE:
-		emcode("cal","$_prstr");
-		emcode("asp",EMPTRSIZE);
-		break;
-	case 0:	/* result of tab function etc */
-		break;
-	default:
-		error("printstmt:unexpected");
-	}
-}
-zone(i)
-int i;
-{
-	if( i)emcode("cal","$_zone");
-}
-writestmt(exprtype,comma)
-int	exprtype,comma;
-{
-	if( comma) emcode("cal","$_wrcomma");
-	switch(exprtype)
-	{
-	case INTTYPE:
-		emcode("cal","$_wrint");
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		emcode("cal","$_wrint");
-		break;
-	case STRINGTYPE:
-		emcode("cal","$_wrstr");
-		break;
-	default:
-		error("printstmt:unexpected");
-	}
-	emcode("asp",EMPTRSIZE);
-}
-restore(lab)
-int lab;
-{
-	/* save this information too */
-
-	 emcode("loc",itoa(0));
-	 emcode("cal","$_setchan");
-	 emcode("asp",EMINTSIZE);
-	 emcode("loc",itoa(lab));
-	 emcode("cal","$_restore");
-	 emcode("asp",EMINTSIZE);
-}
-prompt(qst)
-int qst;
-{
-	setchannel(-1);
-	emcode("cal","$_prstr");
-	emcode("asp",EMPTRSIZE);
-	if(qst) emcode("cal","$_qstmark");
-}
-linestmt(type)
-int type;
-{
-	if( type!= STRINGTYPE)
-		error("String variable expected");
-	emcode("cal","$_rdline");
-	emcode("asp",EMPTRSIZE);
-}
-readelm(type)
-int type;
-{
-	switch(type)
-	{
-	case INTTYPE:
-		emcode("cal","$_readint");
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		emcode("cal","$_readflt");
-		break;
-	case STRINGTYPE:
-		emcode("cal","$_readstr");
-		break;
-	default:
-		error("readelm:unexpected type");
-	}
-	emcode("asp",EMPTRSIZE);
-}
-
-/* Swap exchanges the variable values */
-swapstmt(ltype,rtype)
-int	ltype, rtype;
-{
-	if( ltype!= rtype)
-		error("Type mismatch");
-	else
-	switch(ltype)
-	{
-	case INTTYPE:
-		emcode("cal","$_intswap");
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		emcode("cal","$_fltswap");
-		break;
-	case STRINGTYPE:
-		emcode("cal","$_strswap");
-		break;
-	default:
-		error("swap:unexpected");
-	}
-	emcode("asp",EMPTRSIZE);
-	emcode("asp",EMPTRSIZE);
-}
-
-/* input/output handling */
-setchannel(val)
-int val;
-{	/* obtain file descroption */
-	emcode("loc",itoa(val));
-	emcode("cal","$_setchan");
-	emcode("asp",EMINTSIZE);
-}
-/* The if-then-else statements */
-ifstmt(type)
-int type;
-{
-	/* This BASIC follows the True= -1 rule */
-	int nr;
-
-	nr= genlabel();
-	if( type == INTTYPE)
-		emcode("zeq",instrlabel(nr));
-	else	
-	if( type == FLOATTYPE)
-	{
-		emcode("lae","fltnull");
-		emcode("loi",EMFLTSIZE);
-		emcode("cmf",EMFLTSIZE);
-		emcode("zeq",instrlabel(nr));
-	}
-	else error("Integer or Float expected");
-	return(nr);
-}
-thenpart( elselab)
-int elselab;
-{
-	int nr;
-
-	nr=genlabel();
-	emcode("bra",instrlabel(nr));
-	fprintf(Tmpfile,"%d\n",elselab);
-	emlinecount++;
-	return(nr);
-}
-elsepart(lab)int lab;
-{
-	fprintf(Tmpfile,"%d\n",lab); emlinecount++;
-}
-/* generate code for the for-statement */
-#define MAXFORDEPTH 20
-struct FORSTRUCT{
-	Symbol	*loopvar;		/* loop variable */
-	int	initaddress;
-	int	limitaddress;
-	int	stepaddress;
-	int	fortst;		/* variable limit test */
-	int	forinc;		/* variable increment code */
-	int	forout;		/* end of loop */
-} fortable[MAXFORDEPTH];
-int	forcnt= -1;
-
-forinit(s)
-Symbol *s;
-{
-	int type;
-	struct FORSTRUCT *f;
-
-	dcltype(s);
-	type= s->symtype;
-	forcnt++;
-	if( (type!=INTTYPE && type!=FLOATTYPE && type!=DOUBLETYPE) ||
-	    s->dimensions)
-		error("Illegal loop variable");
-	if( forcnt >=MAXFORDEPTH)
-		error("too many for statements");
-	else{
-		f=fortable+forcnt; 
-		f->loopvar=s;
-		f->fortst=genlabel();
-		f->forinc=genlabel();
-		f->forout=genlabel();
-		/* generate space for temporary objects */
-		f->initaddress= dclspace(type);
-		f->limitaddress= dclspace(type);
-		f->stepaddress= dclspace(type);
-	}
-}
-forexpr(type)
-int type;
-{
-	/* save start value of loop variable in a save place*/
-	/* to avoid clashing with final value and step expression */
-	int result;
-	result= fortable[forcnt].loopvar->symtype;
-	conversion(type,result);
-	storevar(fortable[forcnt].initaddress, result);
-}
-forlimit(type)
-int type;
-{
-	/* save the limit value too*/
-	int result;
-	result= fortable[forcnt].loopvar->symtype;
-	conversion(type,result);
-	storevar(fortable[forcnt].limitaddress, result);
-}
-forskipped(f)
-struct FORSTRUCT *f;
-{
-	int type;
-	type= f->loopvar->symtype;
-	/* evaluate lower bound times sign of step */
-	emcode("lae",datalabel(f->initaddress));
-	loadvar(type);
-	conversion(type,DOUBLETYPE);
-	emcode("lae",datalabel(f->stepaddress));
-	loadvar(type);
-	conversion(type,DOUBLETYPE);
-	emcode("cal","$_sgn");
-	emcode("asp",EMFLTSIZE);
-	emcode("lfr",EMINTSIZE);
-	conversion(INTTYPE,DOUBLETYPE);
-	emcode("mlf",EMFLTSIZE);
-	/* evaluate higher bound times sign of step */
-	emcode("lae",datalabel(f->limitaddress));
-	loadvar(type);
-	conversion(type,DOUBLETYPE);
-	emcode("lae",datalabel(f->stepaddress));
-	loadvar(type);
-	conversion(type,DOUBLETYPE);
-	emcode("cal","$_sgn");
-	emcode("asp",EMFLTSIZE);
-	emcode("lfr",EMINTSIZE);
-	conversion(INTTYPE,DOUBLETYPE);
-	emcode("mlf",EMFLTSIZE);
-	/* skip condition */
-	emcode("cmf",EMFLTSIZE);
-	emcode("zgt",instrlabel(f->forout));
-}
-forstep(type)
-int type;
-{
-	int result;
-	int varaddress;
-	struct FORSTRUCT *f;
-
-	f= fortable+forcnt;
-	result= f->loopvar->symtype;
-	varaddress= f->loopvar->symalias;
-	conversion(type,result);
-	storevar(f->stepaddress, result);
-	/* all information available, generate for-loop head */
-	/* test for ingoring loop */
-	forskipped(f);
-	/* set initial value */
-	emcode("lae",datalabel(f->initaddress));
-	loadvar(result);
-	emcode("lae",datalabel(varaddress));
-	emcode("sti",typestring(result));
-	emcode("bra",instrlabel(f->fortst)); 
-	/* increment loop variable */
-	fprintf(Tmpfile,"%d\n",f->forinc);
-	emlinecount++;
-	emcode("lae",datalabel(varaddress));
-	loadvar(result);
-	emcode("lae",datalabel(f->stepaddress));
-	loadvar(result);
-	if(result == INTTYPE)
-		emcode("adi",EMINTSIZE);
-	else	emcode("adf",EMFLTSIZE);
-	emcode("lae",datalabel(varaddress));
-	emcode("sti",typestring(result));
-	/* test boundary */
-	fprintf(Tmpfile,"%d\n",f->fortst);
-	emlinecount++;
-	emcode("lae",datalabel(varaddress));
-	loadvar(result);
-	emcode("lae",datalabel(f->limitaddress));
-	loadvar(result);
-	if(result == INTTYPE)
-		emcode("cmi",EMINTSIZE);
-	else	emcode("cmf",EMFLTSIZE);
-	emcode("zgt",instrlabel(f->forout));
-}
-nextstmt(s)
-Symbol *s;
-{
-	if(forcnt>MAXFORDEPTH || forcnt<0 || 
-	  ( s && s!= fortable[forcnt].loopvar))
-		error("NEXT without FOR");
-	else{
-		/* address of variable is on top of stack ! */
-		emcode("bra",instrlabel(fortable[forcnt].forinc));
-		fprintf(Tmpfile,"%d\n",fortable[forcnt].forout);
-		forcnt--;
-	}
-}
-
-pokestmt(type1,type2)
-int	type1,type2;
-{
-	conversion(type1,INTTYPE);
-	conversion(type2,INTTYPE);
-	emcode("cal","$_poke");
-	emcode("asp",EMINTSIZE);
-	emcode("asp",EMINTSIZE);
-}
-
-/* generate code for the while statement */
-#define MAXDEPTH 20
-
-int	whilecnt, whilelabels[MAXDEPTH][2]; /*0=head,1=out */
-
-whilestart()
-{
-	whilecnt++;
-	if( whilecnt==MAXDEPTH)
-		fatal("too many nestings");
-	/* gendummy label in graph */
-	newblock(-1);
-	whilelabels[whilecnt][0]= currline->emlabel;
-	whilelabels[whilecnt][1]= genlabel();
-	fprintf(Tmpfile,"%d\n", whilelabels[whilecnt][0]);
-	emlinecount++;
-}
-whiletst(exprtype)
-int exprtype;
-{
-	/* test expression type */
-	conversion(exprtype,INTTYPE);
-	fprintf(Tmpfile," zeq *%d\n",whilelabels[whilecnt][1]);
-	emlinecount++;
-}
-wend()
-{
-	if( whilecnt<1)
-		error("not part of while statement");
-	else{
-		fprintf(Tmpfile," bra *%d\n",whilelabels[whilecnt][0]);
-		fprintf(Tmpfile,"%d\n",whilelabels[whilecnt][1]);
-		emlinecount++;
-		emlinecount++;
-		whilecnt--;
-	}
-}
-
-/* generate code for the final version */
-prologcode()
-{
-	/* generate the EM prolog code */
-	fprintf(emfile,"fltnull\n con 0,0,0,0\n");
-	fprintf(emfile,"dummy2\n con 0,0,0,0\n");
-	fprintf(emfile,"tronoff\n con 0\n");
-	fprintf(emfile,"dummy1\n con 0,0,0,0\n");
-	fprintf(emfile," exa _iomode\n_iomode\n rom \"O\"\n");
-	fprintf(emfile," exa _errsym\n");
-	fprintf(emfile,"_errsym\n bss EM_WSIZE,0,1\n");
-	fprintf(emfile," exa _erlsym\n");
-	fprintf(emfile,"_erlsym\n bss EM_WSIZE,0,1\n");
-}
-
-prolog2()
-{
-	fprintf(emfile," exp $main\n");
-	fprintf(emfile," pro $main,0\n");
-	fprintf(emfile," mes 3\n");
-	fprintf(emfile," mes 9,0\n");
-	/* Trap handling */
-	fprintf(emfile," cal $_ini_trp\n");
-	fprintf(emfile," exa trpbuf\n");
-	fprintf(emfile," lae trpbuf\n");
-	fprintf(emfile," cal $setjmp\n");
-	fprintf(emfile," asp 4\n");
-	fprintf(emfile," lfr %s\n",EMINTSIZE);
-	fprintf(emfile," dup %s\n",EMINTSIZE);
-	fprintf(emfile," zeq *0\n");
-	fprintf(emfile," lae returns\n");
-	fprintf(emfile," csa %s\n",EMINTSIZE);
-	fprintf(emfile,"0\n");
-	fprintf(emfile," asp EM_WSIZE\n");
-	/* when data lists are used open its file */
-	if( dataused)
-	{
-		fprintf(emfile," loc 0\n");
-		fprintf(emfile," cal $_setchan\n");
-		fprintf(emfile," asp EM_WSIZE\n");
-		fprintf(emfile,"datfname\n rom \"%s\\0\"\n", datfname);
-		fprintf(emfile,"dattyp\n rom \"i\\0\"\n");
-		fprintf(emfile,"datfdes\n rom datfname,1,%d\n",
-			strlen(datfname));
-		fprintf(emfile,"dattdes\n rom dattyp,1,1\n");
-		fprintf(emfile," lae dattdes\n");
-		fprintf(emfile," lae datfdes\n");
-		fprintf(emfile," loc 0\n");
-		fprintf(emfile," cal $_opnchn\n");
-		fprintf(emfile," asp EM_PSIZE\n");
-		fprintf(emfile," asp EM_PSIZE\n");
-		fprintf(emfile," asp EM_WSIZE\n");
-	}
-	datatable();
-}
-
-epilogcode()
-{
-	/* finalization code */
-	int nr;
-	nr= genlabel();
-	fprintf(emfile," bra *%d\n",nr);
-	genreturns();
-	fprintf(emfile,"%d\n",nr);
-	fprintf(emfile," loc 0\n");
-	fprintf(emfile," cal $_hlt\n");
-	fprintf(emfile," end 0\n");
-	fprintf(emfile," mes 4,4\n");
-}

lang/basic/src.old/graph.c

@@ -1,298 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-
-List *forwardlabel=0;
-
-Linerecord	*firstline, 
-		*currline, 
-		*lastline;
-
-List *newlist()
-{
-	List *l;
-	/*NOSTRICT*/ l= (List *) salloc(sizeof(List));
-	return(l);
-}
-
-/* Line management is handled here */
-
-Linerecord *srchline(nr)
-int nr;
-{
-	Linerecord *l;
-	for(l=firstline;l && l->linenr<=nr;l= l->nextline)
-	if( l->linenr== nr) return(l);
-	return(0);
-}
-List *srchforward(nr)
-int nr;
-{
-	List *l;
-	for(l=forwardlabel;l ;l=l->nextlist)
-	if( l->linenr== nr) return(l);
-	return(0);
-}
-linewarnings()
-{
-	List *l;
-	extern int errorcnt;
-	l= forwardlabel;
-	while(l)
-	{
-	 	if( !srchline(l->linenr))
-		{
-			fprintf(stderr,"ERROR: line %d not defined\n",l->linenr);
-			errorcnt++;
-		}
-		l=l->nextlist;
-	}
-}
-
-newblock(nr)
-int	nr;
-{
-	Linerecord	*l;
-	List		*frwrd;
-
-	if( debug) printf("newblock at %d\n",nr);
-	if( nr>0 && currline && currline->linenr>= nr)
-	{
-		if( debug) printf("old line:%d\n",currline->linenr);
-		error("Lines out of sequence");
-	}
-
-	frwrd=srchforward(nr);
-	if( frwrd && debug) printf("forward found %d\n",frwrd->emlabel);
-	l= srchline(nr);
-	if( l)
-	{
-		error("Line redefined");
-		nr= -genlabel();
-	}
-
-	/* make new EM block structure */
-	/*NOSTRICT*/ l= (Linerecord *) salloc(sizeof(*l));
-	l->emlabel= frwrd? frwrd->emlabel: genlabel();
-	l->linenr= nr;
-	/* save offset into Tmpfile too */
-	l->offset = (long) ftell(Tmpfile);
-	l->codelines= emlinecount;
-
-	/* insert this record */
-	if( firstline)
-	{
-		currline->nextline=l;
-		l->prevline= currline;
-		lastline= currline=l;
-	} else
-		firstline = lastline =currline=l;
-}
-
-gotolabel(nr)
-int nr;
-{
-	/* simulate a goto statement in the line record table */
-	Linerecord *l1;
-	List	*ll;
-
-	if(debug) printf("goto label %d\n",nr);
-	/* update currline */
-	ll= newlist();
-	ll-> linenr=nr;
-	ll-> nextlist= currline->gotos;
-	currline->gotos= ll;
-
-	/* try to generate code */
-	l1= srchline(nr);
-	if( (ll=srchforward(nr))!=0) 
-		nr= ll->emlabel;
-	else
-	if( l1==0)
-	{
-		/* declare forward label */
-		if(debug) printf("declare forward %d\n",nr);
-		ll= newlist();
-		ll->emlabel= genlabel();
-		ll-> linenr=nr;
-		ll->nextlist= forwardlabel;
-		forwardlabel= ll;
-		nr= ll->emlabel;
-	} else 
-		nr= l1->emlabel;
-	return(nr);
-}
-gotostmt(nr)
-int nr;
-{
-	emcode("bra",instrlabel(gotolabel(nr)));
-}
-/* GOSUB-return, assume that proper entries are made to subroutines
-   only. The return statement is triggered by a fake constant label */
-
-List	*gosubhead, *gotail;
-int	gosubcnt=1;
-
-List *gosublabel()
-{
-	List *l;
-
-	l= newlist();
-	l->nextlist=0;
-	l->emlabel=genlabel();
-	if( gotail){
-		gotail->nextlist=l;
-		gotail=l;
-	} else gotail= gosubhead=l;
-	gosubcnt++;
-	return(l);
-}
-gosubstmt(lab)
-int lab;
-{
-	List *l;
-	int nr,n;
-
-	n=gosubcnt;
-	l= gosublabel();
-	nr=gotolabel(lab);
-	emcode("loc",itoa(n));	/*return index */
-	emcode("cal","$_gosub");	/* administer legal return */
-	emcode("asp",EMINTSIZE);
-	emcode("bra",instrlabel(nr));
-	fprintf(Tmpfile,"%d\n",l->emlabel);
-	emlinecount++;
-}
-genreturns()
-{
-	int nr;
-	nr= genlabel();
-	fprintf(emfile,"returns\n");
-	fprintf(emfile," rom *%d,1,%d\n",nr,gosubcnt-1);
-	while( gosubhead)
-	{
-		fprintf(emfile," rom *%d\n",gosubhead->emlabel);
-		gosubhead= gosubhead->nextlist;
-	}
-	fprintf(emfile,"%d\n",nr);
-	fprintf(emfile," loc 1\n");
-	fprintf(emfile," cal $error\n");
-}
-returnstmt()
-{
-	emcode("cal","$_retstmt");	/* ensure legal return*/
-	emcode("lfr",EMINTSIZE);
-	fprintf(Tmpfile," lae returns\n");
-	emlinecount++;
-	emcode("csa",EMINTSIZE);
-}
-/* compound goto-gosub statements */
-List	*jumphead,*jumptail;
-int	jumpcnt;
-
-jumpelm(nr)
-int nr;
-{
-	List *l;
-
-	l= newlist();
-	l->emlabel= gotolabel(nr);
-	l->nextlist=0;
-	if( jumphead==0) jumphead= jumptail= l;
-	else {
-		jumptail->nextlist=l;
-		jumptail=l;
-	}
-	jumpcnt++;
-}
-ongotostmt(type)
-int type;
-{
-	/* generate the code itself, index in on top of the stack */
-	/* blurh, store the number of entries in the descriptor */
-	int firstlabel;
-	int descr;
-	List *l;
-	/* create descriptor first */
-	descr= genlabel();
-	firstlabel=genlabel();
-	fprintf(Tmpfile,"l%d\n",descr); emlinecount++;
-	fprintf(Tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt-1); emlinecount++;
-	l= jumphead;
-	while( l)
-	{
-		fprintf(Tmpfile," rom *%d\n",l->emlabel); emlinecount++;
-		l= l->nextlist;
-	}
-	jumphead= jumptail=0; jumpcnt=0;
-	if(debug) printf("ongotst:%d labels\n", jumpcnt);
-	conversion(type,INTTYPE);
-	emcode("lae",datalabel(descr));
-	emcode("csa",EMINTSIZE);
-	fprintf(Tmpfile,"%d\n",firstlabel); emlinecount++;
-}
-ongosubstmt(type)
-int type;
-{
-	List *l;
-	int firstlabel;
-	int descr;
-	/* create descriptor first */
-	descr= genlabel();
-	firstlabel=genlabel();
-	fprintf(Tmpfile,"l%d\n",descr); emlinecount++;
-	fprintf(Tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt-1); emlinecount++;
-	l= jumphead;
-	while( l)
-	{
-		fprintf(Tmpfile," rom *%d\n",l->emlabel); emlinecount++;
-		l= l->nextlist;
-	}
-	jumphead= jumptail=0; jumpcnt=0;
-
-	l= newlist();
-	l->nextlist=0;
-	l->emlabel=firstlabel;
-	if( gotail){
-		gotail->nextlist=l;
-		gotail=l;
-	} else gotail= gosubhead=l;
-	/* save the return point of the gosub */
-	emcode("loc",itoa(gosubcnt));
-	emcode("cal","$_gosub");
-	emcode("asp",EMINTSIZE);
-	gosubcnt++;
-	/* generate gosub */
-	conversion(type,INTTYPE);
-	emcode("lae",datalabel(descr));
-	emcode("csa",EMINTSIZE);
-	fprintf(Tmpfile,"%d\n",firstlabel);
-	emlinecount++;
-}
-
-/* REGION ANALYSIS and FINAL VERSION GENERATION */
-
-simpleprogram()
-{
-	char	buf[512];
-	int length;
-
-	/* a small EM programs has been found */
-	prologcode();
-	prolog2();
-	(void) fclose(Tmpfile);
-	Tmpfile= fopen(tmpfname,"r");
-	if( Tmpfile==NULL)
-		fatal("tmp file disappeared");
-	while( (length=fread(buf,1,512,Tmpfile)) != 0)
-		(void) fwrite(buf,1,length,emfile);
-	epilogcode();
-	(void) unlink(tmpfname);
-}

lang/basic/src.old/graph.h

@@ -1,40 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#
-
-#ifndef NORCSID
-# define RCS_GRAPH	"$Header$"
-#endif
-
-/* 
-** The control graph is represented by a multi-list structure.
-** The em code is stored on the em intermediate file already
-** The offset and length is saved only.
-** Although this makes code generation mode involved, it allows
-** rather large BASIC programs to be processed.
-*/
-typedef struct LIST {
-	int	emlabel;		/* em label used with forwards */
-	int	linenr;			/* BASIC line number */
-	struct LIST *nextlist;
-} List;
-
-typedef struct LINERECORD{
-	int	emlabel;		/* target label */
-	int	linenr;			/* BASIC line number */
-	long	offset;			/* file offset in em file */
-	long	codelines;		/* number of em code lines */
-	List	*callers;		/* used from where ? */
-	List	*gotos;			/* fanout labels */
-	struct LINERECORD	*nextline, *prevline;
-	int	fixed;			/* fixation of block */
-} Linerecord;
-
-extern Linerecord	*firstline, 
-		*currline, 
-		*lastline;
-extern List	*forwardlabel;
-
-extern List	*gosublabel();

lang/basic/src.old/initialize.c

@@ -1,49 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-#include <em_path.h>
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-/* generate temporary files etc */
-
-FILE	*emfile;
-FILE	*Tmpfile;
-FILE	*datfile;
-
-initialize()
-{
-	register char *cindex, *cptr ;
-
-	sprintf(tmpfname,"%s/abc%d",TMP_DIR,getpid());
-	/* Find the basename */
-	/* Strip leading directories */
-	cindex= (char *)0 ;
-	for ( cptr=program ; *cptr ; cptr++ ) if ( *cptr=='/' ) cindex=cptr ;
-	if ( !cindex ) cindex= program ;
-	else {
-		cindex++ ;
-		if ( !*cindex ) {
-			warning("Null program name, assuming \"basic\"") ;
-			cindex= "basic" ;
-		}
-	}
-	cptr=datfname ;
-	while ( *cptr++ = *cindex++ ) ;
-	/* Strip trailing suffix */
-	if ( cptr>datfname+3 && cptr[-3]=='.' ) cptr[-3]=0 ;
-	strcat(datfname,".d");
-	yyin= fopen(inpfile,"r");
-	emfile= fopen(outfile,"w");
-	Tmpfile= fopen(tmpfname,"w");
-	if( yyin==NULL || emfile== NULL || Tmpfile== NULL )
-		fatal("Improper file permissions");
-	fillkex();	/* initialize symbol table */
-	fprintf(emfile,"#\n");
-	fprintf(emfile," mes 2,EM_WSIZE,EM_PSIZE\n");
-	initdeftype();	/* set default symbol declarers */
-}

lang/basic/src.old/parsepar.c

@@ -1,58 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-int	listing;		/* -E listing required */
-int	debug;			/* -d compiler debugging */
-int	wflag=0;		/* -w no warnings */
-int	hflag=0;		/* -h<number> to split EM program */
-int	traceflag=0;		/* generate line tracing code */
-int	nolins=0;		/* -l: generate no LIN statements */
-
-parseparams(argc,argv)
-int argc;
-char **argv;
-{
-	int files=0 ;
-	int i;
-	char *ext;
-
-	if(argc< 4)
-	{
-	fprintf(stderr,"usage %s <flags> <file> <file> <source>\n", argv[0]);
-	exit(-1);
-	}
-	for(i=1;i<argc;i++)
-	if( argv[i][0]=='-')
-		switch(argv[i][1])
-		{
-		case 'D': yydebug++; break;	/* parser debugging */
-		case 't': traceflag++; break;	/* line tracing */
-		case 'h':/* split EM file */
-			hflag=0;
-			threshold= atoi(argv[i][2]);
-			if( threshold==0)
-				threshold= THRESHOLD;	
-			break;
-		case 'd': debug++; break;
-		case 'L': nolins++; break;	/* no EM lin statements */
-		case 'E': listing++; break;	/* generate full listing */
-		case 'w': wflag++; break;
-		} else {
-			/* new input file */
-			switch ( files++ ) {
-			case 0: inpfile= argv[i]; break;
-			case 1: outfile= argv[i]; break;
-			case 2: /* should be the source file name */
-				program= argv[i]; break;
-			default:fatal("Too many file arguments") ;
-			}
-		}
-	if (files < 3) fatal("Too few file arguments");
-}

lang/basic/src.old/split.c

@@ -1,94 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-/* Split the intermediate code into procedures.
-   This is necessary to make the EM code fit on
-   smaller machines. (for the Peephole optimizer!)
-*/
-
-/* Heuristic is to collect all basic blocks of more then THRESHOLD
-   em instructions into a procedure
-*/
-
-int	procnum;
-int	threshold;	/* can be set by the user */
-
-
-fix(lnr)
-int lnr;
-{
-	/* this block may not be moved to a procedure */
-	Linerecord *lr;
-
-	if(debug) printf("fixate %d\n",lnr);
-	for(lr= firstline;lr; lr=lr->nextline)
-	if( lr->linenr == lnr)
-		lr->fixed=1;
-}
-
-fixblock(l)
-List *l;
-{
-	while(l)
-	{
-		fix(l->linenr);
-		l=l->nextlist;
-	}
-}
-phase1()
-{
-	/* copy all offloaded blocks */
-	Linerecord	*lr, *lf;
-	long		blksize;
-
-	lf= lr= firstline;
-	blksize= lr->codelines;
-	while( lr)
-	{
-		if( lr->fixed){
-			if( !lf->fixed && blksize>threshold)
-			{
-				/*move block */
-				if(debug) printf("%d %d->%d moved\n",
-					blksize,lf->linenr, lr->linenr);
-			}
-			lf= lr;
-			blksize= lr->codelines;
-		}
-		lr= lr->nextline;
-	}
-}
-phase2()
-{
-	/* copy main procedure */
-	prolog2();
-	epilogcode();
-}
-split()
-{
-	/* selectively copy the intermediate code to procedures */
-	Linerecord	*lr;
-
-	if( debug) printf("split EM code using %d\n",threshold);
-
-	/* First consolidate the goto's and caller's */
-	lr= firstline;
-	while(lr)
-	{
-		fixblock(lr->callers);
-		fixblock(lr->gotos);
-		lr= lr->nextline;
-	}
-
-	/* Copy the temporary file piecewise */
-	prologcode();
-	phase1();
-	phase2();
-}

lang/basic/src.old/symbols.c

@@ -1,294 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-/* Symboltable management module */
-
-int	deftype[128];		/* default type declarer */
-				/* which may be set by OPTION BASE */
-
-initdeftype()
-{
-	int i;
-	for(i='a';i<='z';i++) deftype[i]= DOUBLETYPE;
-	for(i='A';i<='Z';i++) deftype[i]= DOUBLETYPE;
-}
-
-int indexbase=0;		/* start of array subscripting */
-
-Symbol	*firstsym = NIL;
-Symbol *alternate = NIL;
-
-Symbol *srchsymbol(str)
-char *str;
-{
-	Symbol *s;
-	/* search symbol table entry or create it */
-	if(debug) printf("srchsymbol %s\n",str);
-	s=firstsym;
-	while(s)
-	{
-		if( strcmp(s->symname,str)==0) return(s);
-		s= s->nextsym;
-	}
-	/* search alternate list */
-	s=alternate;
-	while(s)
-	{
-		if( strcmp(s->symname,str)==0) return(s);
-		s= s->nextsym;
-	}
-	/* not found, create an emty slot */
-	/*NOSTRICT*/ s=  (Symbol *) salloc(sizeof(Symbol));
-	s->symtype= DEFAULTTYPE;
-	s->nextsym= firstsym;
-	s->symname= (char *) salloc((unsigned)(strlen(str)+1));
-	strcpy(s->symname,str);
-	firstsym= s;
-	if(debug) printf("%s allocated\n",str);
-	return(s);
-}
-
-dcltype(s)
-Symbol *s;
-{
-	/* type declarer */
-	int type;
-	if( s->isparam) return;
-	type=s->symtype;
-	if(type==DEFAULTTYPE)
-		/* use the default rule */
-		type= deftype[*s->symname];
-	/* generate the emlabel too */
-	if( s->symalias==0)
-		s->symalias= dclspace(type);
-	s->symtype= type;
-	if(debug) printf("symbol set to %d\n",type);
-}
-dclarray(s)
-Symbol *s;
-{
-	int i; int size;
-
-	if( s->symtype==DEFAULTTYPE) s->symtype= DOUBLETYPE;
-	if(debug) printf("generate space and descriptors for %d\n",s->symtype);
-	if(debug) printf("dim %d\n",s->dimensions);
-	s->symalias= genlabel();
-	/* generate descriptors */
-	size=1;
-	for(i=0;i<s->dimensions;i++)
-		s->dimalias[i]= genlabel();
-	for(i=s->dimensions-1;i>=0;i--)
-	{
-		fprintf(emfile,"l%d\n rom %d,%d,%d*%s\n",
-			s->dimalias[i],
-			indexbase,
-			s->dimlimit[i]-indexbase,
-			size, typesize(s->symtype));
-		size = size* (s->dimlimit[i]+1-indexbase);
-	}
-	if(debug) printf("size=%d\n",size);
-	/* size of stuff */
-	fprintf(emfile,"l%d\n bss %d*%s,0,1\n",
-		s->symalias,size,typesize(s->symtype));
-	/* Generate the range check descriptors */
-	for( i= 0; i<s->dimensions;i++)
-		fprintf(emfile,"r%d\n rom %d,%d\n",
-			s->dimalias[i],
-			indexbase,
-			s->dimlimit[i]);
-
-}
-defarray(s)
-Symbol *s;
-{
-	/* array is used without dim statement, set default limits */
-	int i;
-	for(i=0;i<s->dimensions;i++) s->dimlimit[i]=10;
-	dclarray(s);
-}
-dclspace(type)
-{
-	int nr;
-	nr= genemlabel();
-	switch( type)
-	{
-	case STRINGTYPE:
-		fprintf(emfile," bss %s,0,1\n",EMPTRSIZE);
-		break;
-	case INTTYPE:
-		fprintf(emfile," bss %s,0,1\n",EMINTSIZE);
-		break;
-	case FLOATTYPE:
-	case DOUBLETYPE:
-		fprintf(emfile," bss 8,0.0F %s,1\n",EMFLTSIZE);
-		break;
-	}
-	return(nr);
-}
-
-/* SOME COMPILE TIME OPTIONS */
-optionbase(ival)
-int	ival;
-{
-	if( ival<0 || ival>1)
-		error("illegal option base value");
-	else indexbase=ival;
-}
-
-setdefaulttype(type)
-int	type;
-{
-	extern char *cptr;
-	char	first,last,i;
-
-	/* handcrafted parser for letter ranges */
-	if(debug) printf("deftype:%s\n",cptr);
-	while( isspace(*cptr)) cptr++;
-	if( !isalpha(*cptr))
-		error("letter expected");
-	first= *cptr++;
-	if(*cptr=='-')
-	{
-		/* letter range */
-		cptr++;
-		last= *cptr;
-		if( !isalpha(last))
-			error("letter expected");
-		else for(i=first;i<=last;i++) deftype[i]= type;
-		cptr++;
-	} else deftype[first]=type;
-	if( *cptr== ',') 
-	{
-		cptr++;
-		setdefaulttype(type);	/* try again */
-	}
-}
-
-Symbol *fcn;
-
-newscope(s)
-Symbol *s;
-{
-	if(debug) printf("new scope for %s\n",s->symname);
-	alternate= firstsym;
-	firstsym = NIL;
-	fcn=s;
-	s->isfunction=1;
-	if( fcn->dimensions)
-		error("Array redeclared");
-	if( fcn->symtype== DEFAULTTYPE)
-		fcn->symtype=DOUBLETYPE;
-}
-/* User defined functions */
-heading( )
-{
-	char	procname[50];
-	sprintf(procname,"$_%s",fcn->symname);
-	emcode("pro",procname);
-	if( fcn->symtype== DEFAULTTYPE)
-		fcn->symtype= DOUBLETYPE;
-}
-fcnsize()
-{
-	/* generate portable function size */
-	int	i;
-	for(i=0;i<fcn->dimensions;i++)
-		fprintf(Tmpfile,"%s+",typesize(fcn->dimlimit[i]));
-	fprintf(Tmpfile,"0\n"); emlinecount++;
-}
-endscope(type)
-int type;
-{
-	Symbol *s;
-
-	if( debug) printf("endscope");
-	conversion(type,fcn->symtype);
-	emcode("ret", typestring(fcn->symtype));
-	/* generate portable EM code */
-	fprintf(Tmpfile," end ");
-	fcnsize();
-	s= firstsym;
-	while(s)
-	{
-		firstsym = s->nextsym;
-		/*NOSTRICT*/ free((char *)s);
-		s= firstsym;
-	}
-	firstsym= alternate;
-	alternate = NIL;
-	fcn=NIL;
-}
-
-dclparm(s)
-Symbol	*s;
-{
-	int size=0;
-	if( s->symtype== DEFAULTTYPE)
-		s->symtype= DOUBLETYPE;
-	s->isparam=1;
-	fcn->dimlimit[fcn->dimensions]= s->symtype;
-	fcn->dimensions++;
-	/*
-	OLD STUFF
-	for(i=fcn->dimensions;i>0;i--)
-		fcn->dimalias[i]= fcn->dimalias[i-1];
-	*/
-	/*fcn->parmsize += typesize(s->symtype);*/
-	/* fcn->dimalias[0]= -typesize(s->symtype)-fcn->dimalias[1];*/
-	s->symalias= -fcn->dimensions;
-	if( debug) printf("parameter %d offset %d\n",fcn->dimensions-1,-size);
-}
-/* unfortunately function calls have to be stacked as  well */
-#define MAXNESTING	50
-Symbol	*fcntable[MAXNESTING];
-int	fcnindex= -1;
-
-fcncall(s)
-Symbol *s;
-{
-	if( !s->isfunction)
-		error("Function not declared");
-	else{
-		fcn= s;
-		fcnindex++;
-		fcntable[fcnindex]=s;
-	}
-	return(s->symtype);
-}
-fcnend(parmcount)
-int parmcount;
-{
-	int type;
-	/* check number of arguments */
-	if( parmcount <fcn->dimensions)
-		error("not enough parameters");
-	if( parmcount >fcn->dimensions)
-		error("too many parameters");
-	fprintf(Tmpfile," cal $_%s\n",fcn->symname);
-	emlinecount++;
-	fprintf(Tmpfile," asp ");
-	fcnsize();
-	emcode("lfr",typestring(fcn->symtype));
-	type= fcn->symtype;
-	fcnindex--;
-	if( fcnindex>=0)
-		fcn= fcntable[fcnindex];
-	return(type);
-}
-callparm(ind,type)
-int ind,type;
-{
-	if( fcnindex<0) error("unexpected parameter");
-
-	if( ind >= fcn->dimensions)
-		error("too many parameters");
-	else 
-		conversion(type,fcn->dimlimit[ind]);
-}

lang/basic/src.old/symbols.h

@@ -1,89 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#ifndef NORCSID
-# define RCS_SYMB	"$Header$"
-#endif
-
-#define NIL	0
-#define TRUE	1
-#define FALSE	0
-
-#define DEFAULTTYPE	500
-#define INTTYPE		501
-#define FLOATTYPE	502
-#define DOUBLETYPE	503
-#define STRINGTYPE	504
-
-#define ABSSYM		520
-#define ASCSYM		521
-#define ATNSYM		522
-#define CDBLSYM		524
-#define CHRSYM		525
-#define CINTSYM		526
-#define COSSYM		527
-#define CSNGSYM		528
-#define CVISYM		529
-#define CVSSYM		530
-#define CVDSYM		531
-#define EOFSYM		532
-#define EXPSYM		533
-#define FIXSYM		534
-#define FRESYM		535
-#define HEXSYM		536
-#define INPSYM		538
-#define INSTRSYM	539
-#define LEFTSYM		540
-#define LENSYM		541
-#define LOCSYM		542
-#define LOGSYM		543
-#define LPOSSYM		544
-#define MKISYM		546
-#define MKSSYM		547
-#define MKDSYM		548
-#define OCTSYM		549
-#define PEEKSYM		550
-#define POSSYM		551
-#define RIGHTSYM	552
-#define RNDSYM		553
-#define SGNSYM		554
-#define SINSYM		555
-#define SPACESYM	556
-#define SPCSYM		557
-#define SQRSYM		558
-#define STRSYM		559
-#define STRINGSYM	560
-#define TABSYM		561
-#define TANSYM		562
-#define VALSYM		564
-#define VARPTRSYM	565
-/* some stuff forgotten */
-#define INTSYM		567
-#define AUTOSYM		568
-#define LISTSYM		569
-#define LOADSYM		570
-#define MERGESYM	571
-#define TRONSYM		572
-#define TROFFSYM	573
-#define XORSYM	574
-#define EQVSYM	575
-#define IMPSYM	576
-#define OUTSYM 577
-
-#define MAXDIMENSIONS	10
-
-typedef struct SYMBOL{
-	char 	*symname;
-	int	symalias;
-	int	symtype;
-	int	dimensions;		/* dimension array/function */
-	int	dimlimit[MAXDIMENSIONS]; /* type of parameter */
-	int	dimalias[MAXDIMENSIONS]; 
-	struct	SYMBOL *nextsym;
-	int	isfunction;
-	int	parmsize;
-	int	isparam;
-} Symbol;
-
-extern	Symbol *srchsymbol();

lang/basic/src.old/util.c

@@ -1,91 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-#define abs(X)  (X>=0?X:-X)
-/* Miscelaneous routines can be found here */
-
-int	errorcnt;
-
-warning(str)
-char *str;
-{
-	if (! wflag) Xerror("WARNING",str);
-}
-error(str)
-char *str;
-{
-	Xerror("ERROR",str);
-	errorcnt++;
-}
-Xerror(type,str)
-char *str;
-char *type;
-{
-	extern int listing,yylineno;
-	if( !listing) fprintf(stderr,"LINE %d:",yylineno);
-	fprintf(stderr,"%s:%s\n",type,str);
-}
-fatal(str)
-char *str;
-{
-	Xerror("FATAL",str);
-	unlink(tmpfname);
-	exit(-1);
-}
-notyetimpl()
-{
-	warning("not yet implemented");
-}
-illegalcmd()
-{
-	warning("illegal command");
-}
-char *itoa(i)
-int i;
-{
-	static char buf[30];
-	sprintf(buf,"%d",i);
-	return(buf);
-}
-char *instrlabel(i)
-int i;
-{
-	static char buf[30];
-	sprintf(buf,"*%d",i);
-	return(buf);
-}
-char *datalabel(i)
-int i;
-{
-	static char buf[30];
-	if( i>0)
-		sprintf(buf,"l%d",i);
-	else	sprintf(buf,"%d",-i);
-	return(buf);
-}
-
-char *salloc(length)
-unsigned length;
-{		
-	char *s,*c;
-	extern char *malloc() ;
-	s=c= malloc(length);
-	if ( !s ) fatal("Out of memory") ;
-	while(length--)*c++ =0;
-	return(s);
-}
-
-char * proclabel(str)
-char *str;
-{
-	static char buf[50];
-	sprintf(buf,"$%s",str);
-	return(buf);
-}

lang/basic/src.old/yywrap.c

@@ -1,25 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-#include "bem.h"
-
-#ifndef NORSCID
-static char rcs_id[] = "$Header$" ;
-#endif
-
-/* Author: M.L. Kersten
-** yywrap is called upon encountering endoffile on yyin.
-** when more input files are present, it moves to the next
-** otherwise -1 is returned and simultaneous endofinput is set
-*/
-int endofinput =0;
-
-
-yywrap()
-{
-	if( fclose(yyin) == EOF)
-		fatal("fclose problems ");
-	/* check for next input file */
-	return(-1);
-}

lang/basic/src/func.c

@@ -138,7 +138,7 @@ int *typetable;
                            	C_lfr((arith) BEMPTRSIZE);
 				return(STRINGTYPE);
 		case LENSYM:	cv(STRINGTYPE);
-				C_cal("_len"); 
+				C_cal("_length"); 
 				res=INTTYPE;
 				parm(1);
 				break;

lang/basic/src/maketokentab

@@ -1,4 +1,4 @@
-ed - Lpars.h <<'+'
+ed -s Lpars.h <<'+'
 1d
 1,$s/# *define //
 1,$s/ ...$//

lang/basic/src/proto.main

@@ -17,7 +17,8 @@ LINTLIBDIR =	$(UTIL_HOME)/modules/lib
 MALLOC =	$(LIBDIR)/malloc.$(SUF)
 
 EMLIB =		$(LIBDIR)/libem_mes.$(LIBSUF) \
-		$(LIBDIR)/libem$(PRODUCE).$(LIBSUF)
+		$(LIBDIR)/libem$(PRODUCE).$(LIBSUF) \
+		$(TARGET_HOME)/lib.bin/em_data.$(LIBSUF)
 
 MODLIB =	$(LIBDIR)/liballoc.$(LIBSUF) \
 		$(MALLOC) \

lang/cem/cemcom.ansi/.distr

@@ -1,4 +1,3 @@
-Version.c
 proto.make
 proto.main
 LLlex.c

lang/cem/cemcom.ansi/LLmessage.c

@@ -19,11 +19,17 @@ LLmessage(tk)	{
 		error("end of file expected");
 	}
 	else if (tk)	{
+#ifndef LLNONCORR
 		error("%s missing before %s", symbol2str(tk), symbol2str(DOT));
+#endif
 		insert_token(tk);
 	}
 	else	{
+#ifndef LLNONCORR
 		error("%s deleted", symbol2str(DOT));
+#else
+		error("%s not expected", symbol2str(DOT));
+#endif
 	}
 	tk_nmb_at_last_syn_err = token_nmb;
 }

lang/cem/cemcom.ansi/Makefile

@@ -1,5 +0,0 @@
-distr:
-	echo '#ifndef	lint' > Version.c
-	echo 'char Version[] = "ACK ANSI C compiler Version XXX";' | \
-		sed "s/XXX/`RC -i`/" >> Version.c
-	echo '#endif' >> Version.c

lang/cem/cemcom.ansi/code.c

@@ -37,6 +37,7 @@
 #include	"atw.h"
 #include	"assert.h"
 #include	"LLlex.h"
+#include	"align.h"
 #ifdef	LINT
 #include	"l_lint.h"
 #endif	/* LINT */
@@ -154,7 +155,7 @@ end_code()
 		/* floating point used	*/
 		C_ms_flt();
 	}
-	C_ms_src((int)(LineNumber - 2), FileName);
+	C_ms_src((int)(LineNumber - 2), source);
 	C_close();
 }
 #endif	/* LINT */
@@ -411,7 +412,7 @@ do_return_expr(expr)
 	code_expr(expr, RVAL, TRUE, NO_LABEL, NO_LABEL);
 	if (struct_return != 0) {
 		LoadLocal((arith) 0, pointer_size);
-		store_block(func_size, func_type->tp_align);
+		store_block(func_type->tp_size, func_type->tp_align);
 	}
 	C_bra(return_label);
 	return_expr_occurred = 1;
@@ -554,11 +555,12 @@ loc_init(expr, id)
 			break;		/* switch */
 		} else if (!tmpoffset) {/* first time for this variable */
 			tmpoffset = df->df_address;
+			if (unknownsize) tmpoffset = -1;
 			df->df_address = data_label();
 			C_df_dlb((label)df->df_address);
 		} else {
 			C_lae_dlb((label)df->df_address, (arith)0);
-			load_block(tp->tp_size, 1);
+			load_block(tp->tp_size, word_align);
 			if (unknownsize) {
 				/* tmpoffset += tp->tp_size; */
 				unknownsize = 0;
@@ -569,7 +571,7 @@ loc_init(expr, id)
 						    , df->df_sc);
 			}
 			C_lal(tmpoffset);
-			store_block(tp->tp_size, 1);
+			store_block(tp->tp_size, tmpoffset % word_align ? 1 : word_align);
 			df->df_address = tmpoffset;
 			tmpoffset = 0;
 		}

lang/cem/cemcom.ansi/declar.g

@@ -145,6 +145,7 @@ single_decl_specifier /* non_empty */ (register struct decspecs *ds;)
 		ds->ds_typedef = 1;
 	}
 |
+	%erroneous
 	IDENTIFIER
 	{
 		error("%s is not a type identifier", dot.tk_idf->id_text);
@@ -154,6 +155,9 @@ single_decl_specifier /* non_empty */ (register struct decspecs *ds;)
 			dot.tk_idf->id_def->df_sc = TYPEDEF;
 		}
 	}
+|
+	%illegal
+	IDENTIFIER
 |
 	struct_or_union_specifier(&ds->ds_type)
 |

lang/cem/cemcom.ansi/domacro.c

@@ -388,7 +388,7 @@ do_define()
 	/* read the replacement text if there is any			*/
 	ch = skipspaces(ch,0);	/* find first character of the text	*/
 	ASSERT(ch != EOI);
-	/* UngetChar() is not right when replacement starts with a '/' */
+	/* UnGetChar() is not right when replacement starts with a '/' */
 	ChPushBack(ch);
 	repl_text = get_text((nformals > 0) ? formals : 0, &length);
 	macro_def(id, repl_text, nformals, length, NOFLAG);

lang/cem/cemcom.ansi/error.c

@@ -6,7 +6,11 @@
 /*	E R R O R   A N D  D I A G N O S T I C   R O U T I N E S	*/
 
 #include	"lint.h"
+#if __STDC__
+#include	<stdarg.h>
+#else
 #include	<varargs.h>
+#endif
 #include	<system.h>
 #ifndef	LINT
 #include	<em.h>
@@ -60,6 +64,218 @@ extern char loptions[];
 
 static _error();
 
+#if __STDC__
+/*VARARGS*/
+error(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(ERROR, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+expr_error(struct expr *expr, char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (!(expr->ex_flags & EX_ERROR)) {
+			/* to prevent proliferation */
+			_error(ERROR, expr->ex_file, expr->ex_line, fmt, ap);
+			expr->ex_flags |= EX_ERROR;
+		}
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+lexstrict(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(STRICT, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+strict(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(STRICT, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+expr_strict(struct expr *expr, char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (!(expr->ex_flags & EX_ERROR)) {
+			/* to prevent proliferation */
+			_error(STRICT, expr->ex_file, expr->ex_line, fmt, ap);
+		}
+	}
+	va_end(ap);
+}
+
+#ifdef DEBUG
+/*VARARGS*/
+debug(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(DO_DEBUG, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+#endif /* DEBUG */
+
+/*VARARGS*/
+warning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+expr_warning(struct expr *expr, char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (!(expr->ex_flags & EX_ERROR)) {
+			/* to prevent proliferation */
+			_error(WARNING, expr->ex_file, expr->ex_line, fmt, ap);
+		}
+	}
+	va_end(ap);
+}
+
+#ifdef	LINT
+
+/*VARARGS*/
+def_warning(struct def *def, char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(WARNING, def->df_file, def->df_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+
+/*VARARGS*/
+hwarning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (loptions['h'])
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+awarning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (loptions['a'])
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+#endif	/* LINT */
+
+/*VARARGS*/
+lexerror(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(ERROR, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+lexwarning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(WARNING, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+crash(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(CRASH, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+
+	C_close();
+#ifdef	DEBUG
+	sys_stop(S_ABORT);
+#else	/* DEBUG */
+	sys_stop(S_EXIT);
+#endif	/* DEBUG */
+	/* NOTREACHED */
+}
+
+/*VARARGS*/
+fatal(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(FATAL, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+
+	if (C_busy()) C_close();
+	sys_stop(S_EXIT);
+	/*NOTREACHED*/
+}
+#else
 /*VARARGS*/
 error(va_alist)				/* fmt, args */
 	va_dcl
@@ -68,7 +284,8 @@ error(va_alist)				/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(ERROR, dot.tk_file, dot.tk_line, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(ERROR, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -82,10 +299,11 @@ expr_error(va_alist)			/* expr, fmt, args */
 	va_start(ap);
 	{
 		register struct expr *expr = va_arg(ap, struct expr *);
+		char *fmt = va_arg(ap, char *);
 
 		if (!(expr->ex_flags & EX_ERROR)) {
 			/* to prevent proliferation */
-			_error(ERROR, expr->ex_file, expr->ex_line, ap);
+			_error(ERROR, expr->ex_file, expr->ex_line, fmt, ap);
 			expr->ex_flags |= EX_ERROR;
 		}
 	}
@@ -100,7 +318,8 @@ lexstrict(va_alist)
 
 	va_start(ap);
 	{
-		_error(STRICT, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(STRICT, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -113,7 +332,8 @@ strict(va_alist)
 
 	va_start(ap);
 	{
-		_error(STRICT, dot.tk_file, dot.tk_line, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(STRICT, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -127,10 +347,11 @@ expr_strict(va_alist)			/* expr, fmt, args */
 	va_start(ap);
 	{
 		struct expr *expr = va_arg(ap, struct expr *);
+		char *fmt = va_arg(ap, char *);
 
 		if (!(expr->ex_flags & EX_ERROR)) {
 			/* to prevent proliferation */
-			_error(STRICT, expr->ex_file, expr->ex_line, ap);
+			_error(STRICT, expr->ex_file, expr->ex_line, fmt, ap);
 		}
 	}
 	va_end(ap);
@@ -145,9 +366,8 @@ debug(va_alist)
 
 	va_start(ap);
 	{
-		_error(DO_DEBUG, dot.tk_file, dot.tk_line, ap);
-		/* _error(DO_DEBUG, NILEXPR, ap);
-		*/
+		char *fmt = va_arg(ap, char *);
+		_error(DO_DEBUG, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -161,9 +381,8 @@ warning(va_alist)
 
 	va_start(ap);
 	{
-		_error(WARNING, dot.tk_file, dot.tk_line, ap);
-		/* _error(WARNING, NILEXPR, ap);
-		*/
+		char *fmt = va_arg(ap, char *);
+		_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -177,10 +396,11 @@ expr_warning(va_alist)			/* expr, fmt, args */
 	va_start(ap);
 	{
 		struct expr *expr = va_arg(ap, struct expr *);
+		char *fmt = va_arg(ap, char *);
 
 		if (!(expr->ex_flags & EX_ERROR)) {
 			/* to prevent proliferation */
-			_error(WARNING, expr->ex_file, expr->ex_line, ap);
+			_error(WARNING, expr->ex_file, expr->ex_line, fmt, ap);
 		}
 	}
 	va_end(ap);
@@ -197,8 +417,9 @@ def_warning(va_alist)			/* def, fmt, args */
 	va_start(ap);
 	{
 		register struct def *def = va_arg(ap, struct def *);
+		char *fmt = va_arg(ap, char *);
 
-		_error(WARNING, def->df_file, def->df_line, ap);
+		_error(WARNING, def->df_file, def->df_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -212,8 +433,9 @@ hwarning(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
+		char *fmt = va_arg(ap, char *);
 		if (loptions['h'])
-			_error(WARNING, dot.tk_file, dot.tk_line, ap);
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -226,8 +448,9 @@ awarning(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
+		char *fmt = va_arg(ap, char *);
 		if (loptions['a'])
-			_error(WARNING, dot.tk_file, dot.tk_line, ap);
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -242,7 +465,8 @@ lexerror(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(ERROR, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(ERROR, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -255,7 +479,8 @@ lexwarning(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(WARNING, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(WARNING, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -268,7 +493,8 @@ crash(va_alist)				/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(CRASH, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(CRASH, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 
@@ -289,7 +515,8 @@ fatal(va_alist)				/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(FATAL, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(FATAL, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 
@@ -297,16 +524,17 @@ fatal(va_alist)				/* fmt, args */
 	sys_stop(S_EXIT);
 	/*NOTREACHED*/
 }
+#endif
 
 static
-_error(class, fn, ln, ap)
+_error(class, fn, ln, fmt, ap)
 	int class;
 	char *fn;
 	unsigned int ln;
+	char *fmt;
 	va_list ap;
 {
 	char *remark;
-	char *fmt = va_arg(ap, char *);
 	
 	/* check visibility of message */
 	switch (class)	{

lang/cem/cemcom.ansi/idf.c

@@ -235,11 +235,13 @@ declare_idf(ds, dc, lvl)
 						idf->id_text);
 				/** type = idf->id_def->df_type = int_type; **/
 				}
-				newdef->df_address =
+				if (type->tp_size != (arith) -1) {
+				    newdef->df_address =
 					NewLocal(type->tp_size,
 						 type->tp_align,
 						 regtype(type),
 						 sc);
+				}
 				break;
 			case STATIC:
 				newdef->df_address = (arith) data_label();
@@ -520,49 +522,65 @@ declare_formals(idf, fp)
 	register struct stack_entry *se = stack_level_of(L_FORMAL1)->sl_entry;
 	arith f_offset = (arith)0;
 	register int nparams = 0;
-	int hasproto = idf->id_def->df_type->tp_proto != 0;
+	int hasproto;
+	struct def *df = idf->id_def;
+
+	/* When one of the formals has the same name as the function, 
+	   it hides the function def. Get it.
+	*/
+	while (se) {
+		if (se->se_idf == idf) {
+			df = df->next;
+			break;
+		}
+		se = se->next;
+	}
+
+	se = stack_level_of(L_FORMAL1)->sl_entry;
+	
+	hasproto = df->df_type->tp_proto != 0;
 
 #ifdef	DEBUG
 	if (options['t'])
 		dumpidftab("start declare_formals", 0);
 #endif	/* DEBUG */
-	if (is_struct_or_union(idf->id_def->df_type->tp_up->tp_fund)) {
+	if (is_struct_or_union(df->df_type->tp_up->tp_fund)) {
 		/* create space for address of return value */
 		f_offset = pointer_size;
 	}
 	while (se)	{
-		register struct def *def = se->se_idf->id_def;
+		df = se->se_idf->id_def;
 		
 		/* this stacklevel may also contain tags. ignore them */
-		if (!def || def->df_level < L_FORMAL1 ) {
+		if (!df || df->df_level < L_FORMAL1 ) {
 			se = se->next;
 			continue;
 		}
 
-		def->df_address = f_offset;
+		df->df_address = f_offset;
 		/*	the alignment convention for parameters is: align on
 			word boundaries, i.e. take care that the following
 			parameter starts on a new word boundary.
 		*/
 		if (! hasproto 
-		    && def->df_type->tp_fund == FLOAT
-		    && def->df_type->tp_size != double_size) {
+		    && df->df_type->tp_fund == FLOAT
+		    && df->df_type->tp_size != double_size) {
 			f_offset = align(f_offset + double_size, (int) word_size);
 		}
-		else f_offset = align(f_offset + def->df_type->tp_size, (int) word_size);
-		RegisterAccount(def->df_address, def->df_type->tp_size,
-				regtype(def->df_type),
-				def->df_sc);
+		else f_offset = align(f_offset + df->df_type->tp_size, (int) word_size);
+		RegisterAccount(df->df_address, df->df_type->tp_size,
+				regtype(df->df_type),
+				df->df_sc);
 		/* cvt int to char or short and double to float, if necessary
 		 */
-		formal_cvt(hasproto, def);
+		formal_cvt(hasproto, df);
 
-		def->df_level = L_FORMAL2;	/* CJ */
+		df->df_level = L_FORMAL2;	/* CJ */
 		if (nparams++ >= STDC_NPARAMS)
 			strict("number of formal parameters exceeds ANSI limit");
 #ifdef DBSYMTAB
 		if (options['g']) {
-			stb_string(def, FORMAL, se->se_idf->id_text);
+			stb_string(df, FORMAL, se->se_idf->id_text);
 		}
 #endif /* DBSYMTAB */
 		se = se->next;

lang/cem/cemcom.ansi/input.c

@@ -82,8 +82,8 @@ AtEoIF()
 	}
 	IncludeLevel--;
 #endif
-#endif /* NOPP */
 	if (WorkingDir[0] != '\0') free(WorkingDir);
+#endif /* NOPP */
 #ifndef LINT
 	if (FileName != source) free(FileName);
 #endif

lang/cem/cemcom.ansi/ival.g

@@ -220,13 +220,19 @@ gen_tphead(tpp, nest)
 	}
 	if (gen_error) return tpp;
 	if (tp->tp_fund == UNION) {
+		/* Here, we saw a {, which could be the start of a union
+		   initializer. It could, however, also be the start of the
+		   initializer for the first union field ...
+		*/
 		sd = tp->tp_sdef;
-		if (AHEAD == '{' &&
+		if (AHEAD != '{' &&
 		    (aggregate_type(sd->sd_type) || 
 		     sd->sd_type->tp_fund == UNION)) {
-			return &(sd->sd_type);
+			/* In this case, assume that it is the start of the
+			   initializer of the union field, so:
+			*/
+			return gen_tphead(&(tp->tp_sdef->sd_type), nest);
 		}
-		return gen_tphead(&(tp->tp_sdef->sd_type), nest);
 	}
 	p = new_e_stack();
 	p->next = p_stack;
@@ -234,6 +240,10 @@ gen_tphead(tpp, nest)
 	p->s_nested = nest;
 	p->s_tpp = tpp;
 	switch(tp->tp_fund) {
+	case UNION:
+		p->s_def = sd = tp->tp_sdef;
+		p->bytes_upto_here = 0;
+		return &(sd->sd_type);
 	case ARRAY:
 		p->nelem = -1;
 		p->elem_count = 1;
@@ -290,6 +300,11 @@ again:
 	case ERRONEOUS:
 		if (! gen_error) gen_error = pack_level;
 		return p->s_tpp;
+	case UNION:
+		sd = p->s_def;
+		p->bytes_upto_here +=
+			size_of_type(sd->sd_type, "selector");
+		return p->s_tpp;
 	default:
 		if (p->elem_count == p->nelem && p->s_nested) {
 			p = p->next;
@@ -357,6 +372,13 @@ gen_tpend()
 	    if (!gen_error) {
 		tp = *(p->s_tpp);
 		switch(tp->tp_fund) {
+		case UNION:
+			sd = p->s_def;
+			p->bytes_upto_here +=
+				size_of_type(sd->sd_type, "selector");
+			while (p->bytes_upto_here++ < tp->tp_size)
+				con_nullbyte();
+			break;
 		case ARRAY:
 			if (tp->tp_size == -1) {
 				*(p->s_tpp) = construct_type(ARRAY, tp->tp_up,

lang/cem/cemcom.ansi/proto.main

@@ -17,7 +17,8 @@ LINTLIBDIR =	$(UTIL_HOME)/modules/lib
 MALLOC =	$(LIBDIR)/malloc.$(SUF)
 
 EMLIB =		$(LIBDIR)/libem_mes.$(LIBSUF) \
-		$(LIBDIR)/libem$(PRODUCE).$(LIBSUF)
+		$(LIBDIR)/libem$(PRODUCE).$(LIBSUF) \
+		$(TARGET_HOME)/lib.bin/em_data.$(LIBSUF)
 
 MODLIB =	$(LIBDIR)/libinput.$(LIBSUF) \
 		$(LIBDIR)/libassert.$(LIBSUF) \

lang/cem/cemcom.ansi/proto.make

@@ -12,7 +12,7 @@ SRC_DIR = \
 TABGEN=	$(UTIL_BIN)/tabgen
 LLGEN =	$(UTIL_BIN)/LLgen
 LLGENOPTIONS = \
-	-v
+	-n
 
 SRC_G =	$(SRC_DIR)/program.g $(SRC_DIR)/declar.g \
 	$(SRC_DIR)/expression.g $(SRC_DIR)/statement.g $(SRC_DIR)/ival.g
@@ -20,7 +20,6 @@ GEN_G =	tokenfile.g
 GFILES=	$(GEN_G) $(SRC_G)
 
 SRC_C = \
-	$(SRC_DIR)/Version.c \
 	$(SRC_DIR)/LLlex.c \
 	$(SRC_DIR)/LLmessage.c \
 	$(SRC_DIR)/arith.c \
@@ -65,7 +64,7 @@ SRC_C = \
 	$(SRC_DIR)/type.c \
 	$(SRC_DIR)/util.c
 GEN_C =	tokenfile.c program.c declar.c expression.c statement.c ival.c \
-	symbol2str.c char.c Lpars.c next.c
+	symbol2str.c char.c Lpars.c next.c Lncor.c
 CFILES=	$(SRC_C) $(GEN_C)
 
 SRC_H = \
@@ -197,6 +196,7 @@ clean:
 LLfiles:	$(GFILES)
 		$(LLGEN) $(LLGENOPTIONS) $(GFILES)
 		@touch LLfiles
+		@if [ -f Lncor.c ] ; then : ; else touch Lncor.c ; fi
 
 hfiles:		Parameters $(SRC_DIR)/make.hfiles
 		$(SRC_DIR)/make.hfiles Parameters

lang/cem/cemcom.ansi/replace.c

@@ -150,7 +150,7 @@ expand_macro(repl, idf)
 		ch = GetChar();
 		ch = skipspaces(ch,1);
 		if (ch != '(') {	/* no replacement if no () */
-			UnGetChar();
+			ChPushBack(ch);
 			return 0;
 		} else
 			getactuals(repl, idf);
@@ -194,17 +194,17 @@ expand_defined(repl)
 	if ((class(ch) != STIDF) && (class(ch) != STELL)) {
 		error("identifier missing");
 		if (parens && ch != ')') error(") missing");
-		if (!parens || ch != ')') UnGetChar();
+		if (!parens || ch != ')') ChPushBack(ch);
 		add2repl(repl, '0');
 		return;
 	}
-	UnGetChar();
+	ChPushBack(ch);
 	id = GetIdentifier(0);
 	ASSERT(id || class(ch) == STELL);
 	ch = GetChar();
 	ch = skipspaces(ch, 0);
 	if (parens && ch != ')') error(") missing");
-	if (!parens || ch != ')') UnGetChar();
+	if (!parens || ch != ')') ChPushBack(ch);
 	add2repl(repl, (id && id->id_macro) ? '1' : '0');
 	add2repl(repl, ' ');
 }

lang/cem/cemcom/.distr

@@ -1,4 +1,3 @@
-Version.c
 proto.make
 proto.main
 LLlex.c

lang/cem/cemcom/LLmessage.c

@@ -20,11 +20,17 @@ LLmessage(tk)	{
 		error("end of file expected");
 	}
 	else if (tk)	{
+#ifndef LLNONCORR
 		error("%s missing before %s", symbol2str(tk), symbol2str(DOT));
+#endif
 		insert_token(tk);
 	}
 	else	{
+#ifndef LLNONCORR
 		error("%s deleted", symbol2str(DOT));
+#else
+		error("%s not expected", symbol2str(DOT));
+#endif
 	}
 	tk_nmb_at_last_syn_err = token_nmb;
 }

lang/cem/cemcom/Makefile

@@ -1,5 +0,0 @@
-distr:
-	echo '#ifndef	lint' > Version.c
-	echo 'char Version[] = "ACK C compiler Version XXX";' | \
-		sed "s/XXX/`RC -i`/" >> Version.c
-	echo '#endif' >> Version.c

lang/cem/cemcom/Makefile.erik

@@ -1,718 +0,0 @@
-# $Id$
-#	M A K E F I L E   F O R   A C K   C - C O M P I L E R
-
-# Machine and environ dependent definitions
-EMHOME =	/usr/em#			# ACK tree on this machine
-DESTINATION =	/user1/$$USER/bin#		# where to put the stuff
-MKDEP =		$(EMHOME)/bin/mkdep#		# dependency generator
-MAP =
-#MAP = -DInsertFile=ins_file -DInsertText=ins_text# bug in m68k2 back end
-SIM =		/user1/dick/bin/sim#		# Dicks sim program
-LINT =		/usr/new/lint
-
-# Libraries and EM interface definitions
-SYSLIB =	$(EMHOME)/modules/lib/libsystem.a
-EMKLIB =	$(EMHOME)/modules/lib/libemk.a
-EMELIB =	$(EMHOME)/modules/lib/libeme.a $(EMHOME)/lib/em_data.a
-STRLIB =	$(EMHOME)/modules/lib/libstring.a
-PRTLIB =	$(EMHOME)/modules/lib/libprint.a
-EMMESLIB =	$(EMHOME)/modules/lib/libem_mes.a
-INPLIB =	$(EMHOME)/modules/lib/libinput.a
-ALLOCLIB =	$(EMHOME)/modules/lib/liballoc.a
-MALLOC =	$(EMHOME)/modules/lib/malloc.o
-#CH3LIB =	$(EMHOME)/modules/lib/libch3.a
-CH3LIB =
-LIBS =		$(INPLIB) $(CH3LIB) $(EMMESLIB) $(EMKLIB) \
-		$(PRTLIB) $(STRLIB) $(ALLOCLIB) $(MALLOC) $(SYSLIB)
-ELIBS =		$(INPLIB) $(CH3LIB) $(EMMESLIB) $(EMELIB) \
-		$(PRTLIB) $(STRLIB) $(ALLOCLIB) $(MALLOC) $(SYSLIB)
-LIB_INCLUDES =	-I$(EMHOME)/modules/h -I$(EMHOME)/modules/pkg
-EM_INCLUDES =	-I$(EMHOME)/h
-SYSLLIB =	$(EMHOME)/modules/lib/llib-lsys.ln
-EMKLLIB =	$(EMHOME)/modules/lib/llib-lemk.ln
-EMELLIB =	$(EMHOME)/modules/lib/llib-leme.ln
-STRLLIB =	$(EMHOME)/modules/lib/llib-lstr.ln
-PRTLLIB =	$(EMHOME)/modules/lib/llib-lprint.ln
-EMMESLLIB =	$(EMHOME)/modules/lib/llib-lmes.ln
-INPLLIB =	$(EMHOME)/modules/lib/llib-linput.ln
-CH3LLIB =	$(EMHOME)/modules/lib/llib-lch3.ln
-ALLOCLLIB =	$(EMHOME)/modules/lib/llib-alloc.ln
-LINTLIBS =
-#LINTLIBS =	$(CH3LLIB) $(INPLLIB) $(EMMESLLIB) $(EMKLLIB) \
-#		$(PRTLLIB) $(STRLLIB) $(SYSLLIB) $(ALLOCLLIB)
-
-# Where to install the compiler and its driver
-CEMCOM =	$(DESTINATION)/cemcom
-DRIVER =	$(DESTINATION)/cem
-
-# What C compiler to use and how
-# CC = $(ACK) -.c
-# CC = CC
-# CC = /bin/cc
-COPTIONS =
-
-# What parser generator to use and how
-GEN =		$(EMHOME)/bin/LLgen
-GENOPTIONS =	-vv
-
-# Special #defines during compilation
-CDEFS =		$(MAP) $(EM_INCLUDES) $(LIB_INCLUDES)
-CFLAGS =	$(CDEFS) $(COPTIONS) -O# we cannot pass the COPTIONS to lint!
-
-# Grammar files and their objects
-LSRC =	tokenfile.g declar.g statement.g expression.g program.g ival.g
-GLCSRC = tokenfile.c declar.c statement.c expression.c program.c Lpars.c ival.c
-LOBJ =	tokenfile.o declar.o statement.o expression.o program.o Lpars.o ival.o
-
-CSRC =  main.c idf.c declarator.c decspecs.c struct.c \
-        expr.c ch7.c ch7bin.c cstoper.c arith.c \
-        asm.c code.c dumpidf.c error.c field.c\
-        tokenname.c LLlex.c LLmessage.c \
-        input.c domacro.c replace.c init.c options.c \
-        scan.c skip.c stack.c type.c ch7mon.c label.c eval.c \
-        switch.c conversion.c util.c \
-        blocks.c dataflow.c Version.c
-# Objects of hand-written C files
-COBJ =	main.o idf.o declarator.o decspecs.o struct.o \
-	expr.o ch7.o ch7bin.o cstoper.o arith.o \
-	asm.o code.o dumpidf.o error.o field.o\
-	tokenname.o LLlex.o LLmessage.o \
-	input.o domacro.o replace.o init.o options.o \
-	scan.o skip.o stack.o type.o ch7mon.o label.o eval.o \
-	switch.o conversion.o util.o \
-	blocks.o dataflow.o Version.o
-
-# Objects of other generated C files
-GCSRC = char.c symbol2str.c next.c
-GOBJ =	char.o symbol2str.o next.o
-
-# generated source files
-GSRC =	char.c symbol2str.c next.c \
-	code.h declar.h decspecs.h def.h expr.h field.h  estack.h \
-	idf.h macro.h stack.h stmt.h struct.h switch.h type.h util.h
-
-# .h files generated by `make hfiles'; PLEASE KEEP THIS UP-TO-DATE!
-GHSRC = botch_free.h dataflow.h debug.h density.h errout.h \
-	idfsize.h ifdepth.h inputtype.h inumlength.h lapbuf.h \
-	nobitfield.h nofloat.h nopp.h noRoption.h nocross.h \
-	nparams.h numsize.h parbufsize.h pathlength.h \
-	strsize.h target_sizes.h textsize.h use_tmp.h spec_arith.h static.h \
-	reg_count.h
-
-# Other generated files, for 'make clean' only
-GENERATED = tokenfile.g Lpars.h LLfiles LL.output lint.out \
-	print Xref lxref hfiles cfiles $(GLCSRC)
-
-# include files containing ALLOCDEF specifications
-NEXTFILES = code.str declar.str decspecs.str def.str expr.str field.str \
-	estack.str util.str \
-	idf.str macro.str stack.str stmt.str struct.str switch.str type.str
-
-.SUFFIXES: .str .h
-.str.h:
-	./make.allocd <$*.str >$*.h
-
-all:	cc
-
-cc:
-	make "EMHOME="$(EMHOME) "CC=$(CC)" hfiles
-	make "EMHOME="$(EMHOME) "CC=$(CC)" LLfiles
-	make "EMHOME="$(EMHOME) "CC=$(CC)" main
-
-cem:	cem.c
-	$(CC) -O cem.c $(SYSLIB) -o cem
-
-lint.cem: cem.c
-	$(LINT) -bx cem.c
-
-hfiles: ./make.hfiles Parameters
-	./make.hfiles Parameters
-	@touch hfiles
-
-LLfiles: $(LSRC)
-	$(GEN) $(GENOPTIONS) $(LSRC)
-	@touch LLfiles
-
-tokenfile.g:	tokenname.c make.tokfile
-	<tokenname.c ./make.tokfile >tokenfile.g
-
-symbol2str.c:	tokenname.c make.tokcase
-	<tokenname.c ./make.tokcase >symbol2str.c
-
-char.c:	char.tab
-	$(EMHOME)/bin/tabgen -fchar.tab >char.c
-
-next.c:	make.next $(NEXTFILES)
-	./make.next $(NEXTFILES) >next.c
-
-code.h:		make.allocd
-declar.h:	make.allocd
-decspecs.h:	make.allocd
-def.h:		make.allocd
-estack.h:	make.allocd
-expr.h:		make.allocd
-field.h:	make.allocd
-idf.h:		make.allocd
-macro.h:	make.allocd
-stack.h:	make.allocd
-stmt.h:		make.allocd
-struct.h:	make.allocd
-switch.h:	make.allocd
-type.h:		make.allocd
-util.h:		make.allocd
-
-# Objects needed for 'main'
-OBJ =	$(COBJ) $(LOBJ) $(GOBJ)
-SRC =	$(CSRC) $(LCSRC) $(GCSRC)
-
-main:	$(OBJ) Makefile.erik
-	$(CC) $(COPTIONS) $(LFLAGS) $(OBJ) $(LIBS) -o main 
-	size main
-
-emain:	$(OBJ) Makefile.erik
-	$(CC) $(COPTIONS) $(LFLAGS) $(OBJ) $(ELIBS) -o emain 
-	size emain
-
-cfiles: hfiles LLfiles $(GSRC)
-	@touch cfiles
-
-install: main cem
-	cp main $(CEMCOM)
-	cp cem $(DRIVER)
-
-print:	files
-	pr `cat files` > print
-
-tags:	cfiles
-	ctags $(SRC)
-
-shar:	files
-	shar `cat files`
-
-listcfiles:
-	@echo $(SRC)
-
-listobjects:
-	@echo $(OBJ)
-
-depend:	cfiles
-	sed '/^#AUTOAUTO/,$$d' Makefile.erik >Makefile.erik.new
-	echo '#AUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTO' >>Makefile.erik.new
-	$(MKDEP) $(SRC) | sed 's/\.c:/.o:/' >>Makefile.erik.new
-	mv Makefile.erik Makefile.erik.old
-	mv Makefile.erik.new Makefile.erik
-	
-xref:
-	ctags -x `grep "\.[ch]" files`|sed "s/).*/)/">Xref
-	
-lxref:
-	lxref $(OBJ) -lc >lxref
-
-lint:	lint.main lint.cem
-
-lint.main: cfiles
-	$(LINT) -bx $(CDEFS) $(SRC) $(LINTLIBS) >lint.out
-
-cchk:
-	cchk $(SRC)
-
-clean:
-	rm -f $(LCSRC) $(OBJ) $(GENERATED) $(GSRC) $(GHSRC)
-
-sim:	cfiles
-	$(SIM) $(SIMFLAGS) $(CSRC) $(GSRC) $(LSRC)
-
-#AUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTOAUTO
-main.o: LLlex.h
-main.o: Lpars.h
-main.o: align.h
-main.o: arith.h
-main.o: debug.h
-main.o: declar.h
-main.o: file_info.h
-main.o: idf.h
-main.o: input.h
-main.o: inputtype.h
-main.o: level.h
-main.o: noRoption.h
-main.o: nobitfield.h
-main.o: nocross.h
-main.o: nofloat.h
-main.o: nopp.h
-main.o: sizes.h
-main.o: spec_arith.h
-main.o: specials.h
-main.o: target_sizes.h
-main.o: tokenname.h
-main.o: type.h
-main.o: use_tmp.h
-idf.o: LLlex.h
-idf.o: Lpars.h
-idf.o: align.h
-idf.o: arith.h
-idf.o: assert.h
-idf.o: botch_free.h
-idf.o: debug.h
-idf.o: declar.h
-idf.o: decspecs.h
-idf.o: def.h
-idf.o: file_info.h
-idf.o: idf.h
-idf.o: idfsize.h
-idf.o: label.h
-idf.o: level.h
-idf.o: noRoption.h
-idf.o: nobitfield.h
-idf.o: nocross.h
-idf.o: nofloat.h
-idf.o: nopp.h
-idf.o: sizes.h
-idf.o: spec_arith.h
-idf.o: specials.h
-idf.o: stack.h
-idf.o: struct.h
-idf.o: target_sizes.h
-idf.o: type.h
-declarator.o: Lpars.h
-declarator.o: arith.h
-declarator.o: botch_free.h
-declarator.o: declar.h
-declarator.o: expr.h
-declarator.o: idf.h
-declarator.o: label.h
-declarator.o: nobitfield.h
-declarator.o: nocross.h
-declarator.o: nofloat.h
-declarator.o: nopp.h
-declarator.o: sizes.h
-declarator.o: spec_arith.h
-declarator.o: target_sizes.h
-declarator.o: type.h
-decspecs.o: Lpars.h
-decspecs.o: arith.h
-decspecs.o: decspecs.h
-decspecs.o: def.h
-decspecs.o: level.h
-decspecs.o: noRoption.h
-decspecs.o: nobitfield.h
-decspecs.o: nofloat.h
-decspecs.o: spec_arith.h
-decspecs.o: type.h
-struct.o: LLlex.h
-struct.o: Lpars.h
-struct.o: align.h
-struct.o: arith.h
-struct.o: assert.h
-struct.o: botch_free.h
-struct.o: debug.h
-struct.o: def.h
-struct.o: field.h
-struct.o: file_info.h
-struct.o: idf.h
-struct.o: level.h
-struct.o: noRoption.h
-struct.o: nobitfield.h
-struct.o: nocross.h
-struct.o: nofloat.h
-struct.o: nopp.h
-struct.o: sizes.h
-struct.o: spec_arith.h
-struct.o: stack.h
-struct.o: struct.h
-struct.o: target_sizes.h
-struct.o: type.h
-expr.o: LLlex.h
-expr.o: Lpars.h
-expr.o: arith.h
-expr.o: botch_free.h
-expr.o: declar.h
-expr.o: decspecs.h
-expr.o: def.h
-expr.o: expr.h
-expr.o: file_info.h
-expr.o: idf.h
-expr.o: label.h
-expr.o: level.h
-expr.o: noRoption.h
-expr.o: nobitfield.h
-expr.o: nocross.h
-expr.o: nofloat.h
-expr.o: nopp.h
-expr.o: sizes.h
-expr.o: spec_arith.h
-expr.o: target_sizes.h
-expr.o: type.h
-ch7.o: Lpars.h
-ch7.o: arith.h
-ch7.o: assert.h
-ch7.o: debug.h
-ch7.o: def.h
-ch7.o: expr.h
-ch7.o: idf.h
-ch7.o: label.h
-ch7.o: nobitfield.h
-ch7.o: nofloat.h
-ch7.o: nopp.h
-ch7.o: spec_arith.h
-ch7.o: struct.h
-ch7.o: type.h
-ch7bin.o: Lpars.h
-ch7bin.o: arith.h
-ch7bin.o: botch_free.h
-ch7bin.o: expr.h
-ch7bin.o: idf.h
-ch7bin.o: label.h
-ch7bin.o: noRoption.h
-ch7bin.o: nobitfield.h
-ch7bin.o: nofloat.h
-ch7bin.o: nopp.h
-ch7bin.o: spec_arith.h
-ch7bin.o: struct.h
-ch7bin.o: type.h
-cstoper.o: Lpars.h
-cstoper.o: arith.h
-cstoper.o: assert.h
-cstoper.o: debug.h
-cstoper.o: expr.h
-cstoper.o: idf.h
-cstoper.o: label.h
-cstoper.o: nobitfield.h
-cstoper.o: nocross.h
-cstoper.o: nofloat.h
-cstoper.o: nopp.h
-cstoper.o: sizes.h
-cstoper.o: spec_arith.h
-cstoper.o: target_sizes.h
-cstoper.o: type.h
-arith.o: Lpars.h
-arith.o: arith.h
-arith.o: botch_free.h
-arith.o: expr.h
-arith.o: field.h
-arith.o: idf.h
-arith.o: label.h
-arith.o: mes.h
-arith.o: noRoption.h
-arith.o: nobitfield.h
-arith.o: nofloat.h
-arith.o: nopp.h
-arith.o: spec_arith.h
-arith.o: type.h
-code.o: Lpars.h
-code.o: arith.h
-code.o: assert.h
-code.o: atw.h
-code.o: botch_free.h
-code.o: code.h
-code.o: dataflow.h
-code.o: debug.h
-code.o: declar.h
-code.o: decspecs.h
-code.o: def.h
-code.o: expr.h
-code.o: file_info.h
-code.o: idf.h
-code.o: label.h
-code.o: level.h
-code.o: noRoption.h
-code.o: nobitfield.h
-code.o: nocross.h
-code.o: nofloat.h
-code.o: nopp.h
-code.o: sizes.h
-code.o: spec_arith.h
-code.o: specials.h
-code.o: stack.h
-code.o: stmt.h
-code.o: target_sizes.h
-code.o: type.h
-code.o: use_tmp.h
-dumpidf.o: Lpars.h
-dumpidf.o: arith.h
-dumpidf.o: debug.h
-dumpidf.o: def.h
-dumpidf.o: expr.h
-dumpidf.o: field.h
-dumpidf.o: idf.h
-dumpidf.o: label.h
-dumpidf.o: nobitfield.h
-dumpidf.o: nofloat.h
-dumpidf.o: nopp.h
-dumpidf.o: spec_arith.h
-dumpidf.o: stack.h
-dumpidf.o: static.h
-dumpidf.o: struct.h
-dumpidf.o: type.h
-error.o: LLlex.h
-error.o: arith.h
-error.o: debug.h
-error.o: errout.h
-error.o: expr.h
-error.o: file_info.h
-error.o: label.h
-error.o: nofloat.h
-error.o: nopp.h
-error.o: spec_arith.h
-error.o: tokenname.h
-field.o: Lpars.h
-field.o: align.h
-field.o: arith.h
-field.o: assert.h
-field.o: code.h
-field.o: debug.h
-field.o: expr.h
-field.o: field.h
-field.o: idf.h
-field.o: label.h
-field.o: nobitfield.h
-field.o: nocross.h
-field.o: nofloat.h
-field.o: nopp.h
-field.o: sizes.h
-field.o: spec_arith.h
-field.o: target_sizes.h
-field.o: type.h
-tokenname.o: LLlex.h
-tokenname.o: Lpars.h
-tokenname.o: arith.h
-tokenname.o: file_info.h
-tokenname.o: idf.h
-tokenname.o: nofloat.h
-tokenname.o: nopp.h
-tokenname.o: spec_arith.h
-tokenname.o: tokenname.h
-LLlex.o: LLlex.h
-LLlex.o: Lpars.h
-LLlex.o: arith.h
-LLlex.o: assert.h
-LLlex.o: class.h
-LLlex.o: debug.h
-LLlex.o: def.h
-LLlex.o: file_info.h
-LLlex.o: idf.h
-LLlex.o: idfsize.h
-LLlex.o: input.h
-LLlex.o: nocross.h
-LLlex.o: nofloat.h
-LLlex.o: nopp.h
-LLlex.o: numsize.h
-LLlex.o: sizes.h
-LLlex.o: spec_arith.h
-LLlex.o: strsize.h
-LLlex.o: target_sizes.h
-LLmessage.o: LLlex.h
-LLmessage.o: Lpars.h
-LLmessage.o: arith.h
-LLmessage.o: file_info.h
-LLmessage.o: idf.h
-LLmessage.o: nofloat.h
-LLmessage.o: nopp.h
-LLmessage.o: spec_arith.h
-input.o: file_info.h
-input.o: input.h
-input.o: inputtype.h
-input.o: nopp.h
-domacro.o: LLlex.h
-domacro.o: Lpars.h
-domacro.o: arith.h
-domacro.o: assert.h
-domacro.o: botch_free.h
-domacro.o: class.h
-domacro.o: debug.h
-domacro.o: file_info.h
-domacro.o: idf.h
-domacro.o: idfsize.h
-domacro.o: ifdepth.h
-domacro.o: input.h
-domacro.o: interface.h
-domacro.o: macro.h
-domacro.o: nofloat.h
-domacro.o: nopp.h
-domacro.o: nparams.h
-domacro.o: parbufsize.h
-domacro.o: spec_arith.h
-domacro.o: textsize.h
-replace.o: LLlex.h
-replace.o: arith.h
-replace.o: assert.h
-replace.o: class.h
-replace.o: debug.h
-replace.o: file_info.h
-replace.o: idf.h
-replace.o: input.h
-replace.o: interface.h
-replace.o: macro.h
-replace.o: nofloat.h
-replace.o: nopp.h
-replace.o: pathlength.h
-replace.o: spec_arith.h
-replace.o: static.h
-replace.o: strsize.h
-init.o: class.h
-init.o: idf.h
-init.o: interface.h
-init.o: macro.h
-init.o: nopp.h
-options.o: align.h
-options.o: arith.h
-options.o: botch_free.h
-options.o: class.h
-options.o: dataflow.h
-options.o: idf.h
-options.o: idfsize.h
-options.o: macro.h
-options.o: noRoption.h
-options.o: nobitfield.h
-options.o: nocross.h
-options.o: nofloat.h
-options.o: nopp.h
-options.o: sizes.h
-options.o: spec_arith.h
-options.o: target_sizes.h
-options.o: use_tmp.h
-scan.o: class.h
-scan.o: idf.h
-scan.o: input.h
-scan.o: interface.h
-scan.o: lapbuf.h
-scan.o: macro.h
-scan.o: nopp.h
-scan.o: nparams.h
-skip.o: LLlex.h
-skip.o: arith.h
-skip.o: class.h
-skip.o: file_info.h
-skip.o: input.h
-skip.o: interface.h
-skip.o: nofloat.h
-skip.o: nopp.h
-skip.o: spec_arith.h
-stack.o: Lpars.h
-stack.o: arith.h
-stack.o: botch_free.h
-stack.o: debug.h
-stack.o: def.h
-stack.o: idf.h
-stack.o: level.h
-stack.o: mes.h
-stack.o: noRoption.h
-stack.o: nobitfield.h
-stack.o: nofloat.h
-stack.o: nopp.h
-stack.o: spec_arith.h
-stack.o: stack.h
-stack.o: struct.h
-stack.o: type.h
-type.o: Lpars.h
-type.o: align.h
-type.o: arith.h
-type.o: botch_free.h
-type.o: def.h
-type.o: idf.h
-type.o: nobitfield.h
-type.o: nocross.h
-type.o: nofloat.h
-type.o: nopp.h
-type.o: sizes.h
-type.o: spec_arith.h
-type.o: target_sizes.h
-type.o: type.h
-ch7mon.o: Lpars.h
-ch7mon.o: arith.h
-ch7mon.o: botch_free.h
-ch7mon.o: def.h
-ch7mon.o: expr.h
-ch7mon.o: idf.h
-ch7mon.o: label.h
-ch7mon.o: nobitfield.h
-ch7mon.o: nofloat.h
-ch7mon.o: nopp.h
-ch7mon.o: spec_arith.h
-ch7mon.o: type.h
-label.o: Lpars.h
-label.o: arith.h
-label.o: def.h
-label.o: idf.h
-label.o: label.h
-label.o: level.h
-label.o: noRoption.h
-label.o: nobitfield.h
-label.o: nofloat.h
-label.o: nopp.h
-label.o: spec_arith.h
-label.o: type.h
-eval.o: Lpars.h
-eval.o: align.h
-eval.o: arith.h
-eval.o: assert.h
-eval.o: atw.h
-eval.o: code.h
-eval.o: dataflow.h
-eval.o: debug.h
-eval.o: def.h
-eval.o: expr.h
-eval.o: idf.h
-eval.o: label.h
-eval.o: level.h
-eval.o: mes.h
-eval.o: nobitfield.h
-eval.o: nocross.h
-eval.o: nofloat.h
-eval.o: nopp.h
-eval.o: sizes.h
-eval.o: spec_arith.h
-eval.o: specials.h
-eval.o: stack.h
-eval.o: target_sizes.h
-eval.o: type.h
-switch.o: Lpars.h
-switch.o: arith.h
-switch.o: assert.h
-switch.o: botch_free.h
-switch.o: code.h
-switch.o: debug.h
-switch.o: density.h
-switch.o: expr.h
-switch.o: idf.h
-switch.o: label.h
-switch.o: noRoption.h
-switch.o: nobitfield.h
-switch.o: nofloat.h
-switch.o: nopp.h
-switch.o: spec_arith.h
-switch.o: switch.h
-switch.o: type.h
-conversion.o: Lpars.h
-conversion.o: arith.h
-conversion.o: nobitfield.h
-conversion.o: nocross.h
-conversion.o: nofloat.h
-conversion.o: sizes.h
-conversion.o: spec_arith.h
-conversion.o: target_sizes.h
-conversion.o: type.h
-util.o: Lpars.h
-util.o: align.h
-util.o: def.h
-util.o: nocross.h
-util.o: nofloat.h
-util.o: regcount.h
-util.o: sizes.h
-util.o: stack.h
-util.o: target_sizes.h
-util.o: use_tmp.h
-util.o: util.h
-blocks.o: Lpars.h
-blocks.o: align.h
-blocks.o: arith.h
-blocks.o: atw.h
-blocks.o: label.h
-blocks.o: nocross.h
-blocks.o: nofloat.h
-blocks.o: sizes.h
-blocks.o: spec_arith.h
-blocks.o: stack.h
-blocks.o: target_sizes.h
-dataflow.o: dataflow.h
-char.o: class.h
-symbol2str.o: Lpars.h

lang/cem/cemcom/cem.1

@@ -1,230 +0,0 @@
-.TH CEM 1L 86/11/12
-.SH NAME
-cem \- ACK C compiler
-.SH SYNOPSIS
-.B cem
-[ option ] ... file ...
-.SH DESCRIPTION
-.I Cem
-is a
-.I cc (1)-like
-C compiler that uses the C front-end compiler
-.I cemcom (1)
-of the Amsterdam Compiler Kit.
-.I Cem
-interprets its arguments not starting with a '\-' as
-source files, to be compiled by the various parts of the compilation process,
-which are listed below.
-File arguments whose names end with \fB.\fP\fIcharacter\fP are interpreted as
-follows:
-.IP .[ao]
-object file.
-.IP .[ci]
-C source code
-.IP .e
-EM assembler source file.
-.IP .k
-compact EM file, not yet optimized by the EM peephole optimizer.
-.IP .m
-compact EM file, already optimized by the peephole optimizer.
-.IP .s
-assembler file.
-.LP
-The actions to be taken by
-.I cem
-are directed by the type of file argument and the various options that are
-presented to it.
-.PP
-The following set of options, which is a mixture of options interpreted by
-.I cc (1)
-and 
-.I ack (?)
-are interpreted by
-.I cem .
-(The options not specified here are passed to the loader.)
-.IP \fB\-B\fP\fIname\fP
-Use 
-.I name
-as front-end compiler instead of the default 
-.I cemcom (1).
-.br
-Same as "\fB\-Rcem=\fP\fIname\fP".
-.IP \fB\-C\fP
-Run C preprocessor 
-.I /lib/cpp
-only and prevent it from eliding comments.
-.IP \fB\-D\fP\fIname\fP\fB=\fP\fIdef\fP
-Define the 
-.I name
-to the preprocessor, as if by "#define".
-.IP \fB\-D\fP\fIname\fP
-.br
-Same as "\fB\-D\fP\fIname\fP\fB=1\fP".
-.IP \fB\-E\fP
-Run only the macro preprocessor on the named files and send the
-result to standard output.
-.IP \fB\-I\fP\fIdir\fP
-\&"#include" files whose names do not begin with '/' are always
-sought first in the directory of the \fIfile\fP argument, then in directories
-in \fB\-I\fP options, then in directories on a standard list (which in fact
-consists of "/usr/include").
-.IP \fB\-L\fP\fIdir\fP
-Use \fIdir\fP as library-containing directory instead of the default.
-.IP \fB\-N\fP\fIc\fP
-Only effective if ACK pipeline is used. 
-This option causes some default actions and options to be suppressed, according
-to
-.I c :
-.RS
-.IP \fBc\fP
-do not convert from EM a.out to local a.out format (i.e., skip the 
-.B cv
-pass.)
-.IP \fBl\fP
-do not pass the default loader flags to the
-.B ld
-pass.
-.RE
-.IP \fB\-P\fP
-Same as \fB\-E\fP, but sending the result of input file \fIfile\fP\fB.[ceis]\fP
-to \fIfile\fP\fB.i\fP.
-.IP \fB\-R\fP
-Passed to \fIcemcom\fP(1) in order to parse the named C programs according
-to the C language as described in [K&R] (also called \fIRestricted\fP C).
-.IP \fB\-R\fP\fIprog\fP\fB=\fP\fIname\fP
-.br
-Use \fIname\fP as program for phase \fIprog\fP of the compilation instead of
-the default.
-\&\fIProg\fP is one of the following names:
-.RS
-.IP \fBcpp\fP
-macro preprocessor
-.IP \fBcem\fP
-front\-end compiler
-.IP \fBopt\fP
-EM peephole optimizer
-.IP \fBdecode\fP
-EM compact to EM assembler translator
-.IP \fBencode\fP
-EM assembler to EM compact translator
-.IP \fBbe\fP
-EM compact code to target\-machine assembly code compiler
-.IP \fBcg\fP
-same as \fBbe\fP
-.IP \fBas\fP
-assembler
-.IP \fBld\fP
-linker/loader
-.IP \fBcv\fP
-a.out format converting program (only if ACK pipeline is used)
-.RE
-.IP \fB\-R\fP\fIprog\fP\fB\-\fP\fIoption\fP
-.br
-Pass \fB\-\fP\fIoption\fP to the compilation phase indicated by \fIprog\fP.
-.IP \fB\-S\fP
-Same as \fB\-c.s\fP.
-.IP \fB\-U\fP\fIname\fP
-.br
-Remove any initial definition of \fIname\fP.
-.IP \fB\-V\fP\fIcm\fP.\fIn\fP,\ \fB\-V\fIcm\fP.\fIncm\fP.\fIn\fP\ ...
-.br
-Set the size and alignment requirements of the C constructs of the named
-C input files.
-The letter \fIc\fP indicates the simple type, which is one of
-\fBs\fP(short), \fBi\fP(int), \fBl\fP(long), \fBf\fP(float), \fBd\fP(double) or
-\fBp\fP(pointer).
-The \fIm\fP parameter can be used to specify the length of the type (in bytes)
-and the \fIn\fP parameter for the alignment of that type.
-Absence of \fIm\fP or \fIn\fP causes the default value to be retained.
-To specify that the bitfields should be right adjusted instead of the
-default left adjustment, specify \fBr\fP as \fIc\fP parameter
-without parameters.
-.br
-This option is passed directly to \fIcemcom\fP(1).
-.IP \fB\-c\fP
-Same as \fB\-c.o\fP.
-.IP \fB\-c.e\fP
-Produce human-readable EM assembly code on \fIfile\fP\fB.e\fP for the
-named files \fIfile\fP\fB.[cikm]\fP 
-.IP \fB\-c.k\fP
-Compile C source \fIfile\fP\fB.[ci]\fP or
-encode human-readable EM assembly code from \fIfile\fP\fB.e\fP
-into non-optimized compact EM code and write the result on \fIfile\fP\fB.k\fP
-.IP \fB\-c.m\fP
-Compile C source \fIfile\fP\fB.[ci]\fP,
-translate non-optimized EM code from \fIfile\fP\fB.k\fP or
-encode EM assembly code from \fIfile\fP\fB.e\fP
-into optimized compact EM code and write the result on \fIfile\fP\fB.m\fP
-.IP \fB\-c.o\fP
-Suppress the loading phase of the compilation, and force an object file to
-be produced even if only one program is compiled
-.IP \fB\-c.s\fP
-Compile the named \fIfile\fP\fB.[ceikm]\fP input files, and leave the 
-assembly language output on corresponding files suffixed ".s".
-.IP \fB\-k\fP
-Same as \fB\-c.k\fP.
-.IP \fB\-l\fP\fIname\fP
-.br
-Append the library \fBlib\fP\fIname\fP\fB.a\fP to the list of files that
-should be loaded and linked into the final output file.
-The library is searched for in the library directory.
-.IP \fB\-m\fP
-Same as \fB\-c.m\fP.
-.IP \fB\-o\fP\ \fIoutput\fP
-.br
-Name the final output file \fIoutput\fP.
-If this option is used, the default "a.out" will be left undisturbed.
-.IP \fB\-p\fP
-Produce EM profiling code (\fBfil\fP and \fBlin\fP instructions to
-enable an interpreter to keep track of the current location in the
-source code)
-.IP \fB\-t\fP
-Keep the intermediate files, produced during the various phases of the 
-compilation.
-The produced files are named \fIfile\fP\fB.\fP\fIcharacter\fP where 
-\&\fIcharacter\fP indicates the type of the file as listed before.
-.IP \fB\-v\fP
-Verbose.
-Print the commands before they are executed.
-.IP \fB\-vn\fP
-Do not really execute (for debugging purposes only).
-.IP \fB\-vd\fP
-Print some additional information (for debugging purposes only).
-.IP \fB\-\-\fP\fIanything\fP
-.br
-Equivalent to \fB\-Rcem\-\-\fP\fIanything\fP.
-The options 
-.B \-\-C ,
-.B \-\-E
-and
-.B \-\-P
-all have the same effect as respectively
-.B \-C ,
-.B \-E
-and
-.B \-P
-except for the fact that the macro preprocessor is taken to be the
-built\-in preprocessor of the \fBcem\fP phase.
-Most "\-\-" options are used by
-.I cemcom (1)
-to set some internal debug switches.
-.LP
-.SH SEE ALSO
-cemcom(1), cc(1), ack(?), as(1), ld(1)
-.br
-.IP [K&R]
-B.W. Kernighan and D.M. Ritchie, \fIThe C Programming Language\fP,
-Prentice-Hall, 1978.
-.SH DIAGNOSTICS
-.I Cem
-reports any failure of its components.
-.SH BUGS
-.IP \(bu
-All intermediate files are placed in the current working directory which
-causes files with the same name as the intermediate files to be overwritten.
-.IP \(bu
-.B Cem
-only accepts a limited number of arguments to be passed to the components.
-(e.g., 256).
-.IP \(bu
-Please report suggestions and other bugs to erikb@vu44.uucp

lang/cem/cemcom/cem.c

@@ -1,764 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-/*	$Id$	*/
-/*
-	Driver for the CEMCOM compiler: works like /bin/cc and accepts
-	most of the options accepted by /bin/cc and /usr/em/bin/ack.
-	Date written: dec 4, 1985
-	Adapted for 68000 (Aug 19, 1986)
-	Merged the vax and mantra versions (Nov 10, 1986)
-	Author: Erik Baalbergen
-*/
-
-#include <stdio.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <errno.h>
-#include <signal.h>
-
-#define MAXARGC	256	/* maximum number of arguments allowed in a list */
-#define USTR_SIZE	1024	/* maximum length of string variable */
-
-struct arglist {
-	int al_argc;
-	char *al_argv[MAXARGC];
-};
-
-/* some system-dependent variables	*/
-char *PP = "/lib/cpp";
-char *CEM = "/usr/em/lib/em_cemcom";
-char *ENCODE = "/usr/em/lib/em_encode";
-char *DECODE = "/usr/em/lib/em_decode";
-char *OPT = "/usr/em/lib/em_opt";
-char *SHELL = "/bin/sh";
-
-#ifndef MANTRA
-char *CG = "/usr/em/lib/vax4/cg";
-char *AS = "/bin/as";
-char *AS_FIX = "/user1/erikb/bin/mcomm";
-char *LD = "/bin/ld";
-char *LIBDIR = "/user1/cem/lib";
-char *V_FLAG = "-Vs2.2w4.4i4.4l4.4f4.4d8.4p4.4";
-#else MANTRA
-char *CG = "/usr/em/lib/m68k2/cg";
-char *AS = "/usr/em/lib/m68k2/as";
-char *LD = "/usr/em/lib/em_led";
-char *CV = "/usr/em/lib/m68k2/cv";
-char *LIBDIR = "/usr/em/lib/m68k2";
-char *V_FLAG = "-Vs2.2w2.2i2.2l4.2f4.2d8.2p4.2";
-#endif MANTRA
-
-struct arglist LD_HEAD = {
-	2,
-	{
-#ifndef MANTRA
-		"/usr/em/lib/vax4/head_em",
-		"/usr/em/lib/vax4/head_cc"
-#else MANTRA
-		"/usr/em/lib/m68k2/head_em",
-		"/usr/em/lib/m68k2/head_cc"
-#endif MANTRA
-	}
-};
-
-struct arglist LD_TAIL = {
-#ifndef MANTRA
-	4,
-	{
-		"/user1/cem/lib/libc.a",
-		"/user1/cem/lib/stb.o",
-		"/usr/em/lib/vax4/tail_mon",
-		"/usr/em/lib/vax4/tail_em"
-	}
-#else MANTRA
-	7,
-	{
-		"/usr/em/lib/m68k2/tail_cc.1s",
-		"/usr/em/lib/m68k2/tail_cc.2g",
-		"/usr/em/lib/m68k2/tail_cem",
-		"/usr/em/lib/m68k2/tail_fp.a",
-		"/usr/em/lib/m68k2/tail_em.rt",
-		"/usr/em/lib/m68k2/tail_mon",
-		"/usr/em/lib/m68k2/end_em"
-	}
-#endif MANTRA
-};
-
-char *o_FILE = "a.out";
-#ifdef MANTRA
-char *cv_FILE = "cv.out";
-#endif MANTRA
-
-#define remove(str)	(((FLAG(t) == 0) && unlink(str)), (str)[0] = '\0')
-#define cleanup(str)		(str && remove(str))
-#define mkname(dst, s1, s2)	mkstr(dst, (s1), (s2), 0)
-#define init(al)		(al)->al_argc = 1
-#define library(nm) \
-	mkstr(alloc((unsigned int)strlen(nm) + strlen(LIBDIR) + 7), \
-		LIBDIR, "/lib", nm, ".a", 0)
-
-struct arglist SRCFILES, LDFILES, GEN_LDFILES, PP_FLAGS, CEM_FLAGS,
-	OPT_FLAGS, DECODE_FLAGS, ENCODE_FLAGS, CG_FLAGS, AS_FLAGS,
-	O_FLAGS, DEBUG_FLAGS, CALL_VEC;
-
-#ifndef MANTRA
-struct arglist LD_FLAGS;
-#else MANTRA
-struct arglist LD_FLAGS = {
-	5,
-	{
-		"-b0:0x80000",
-		"-a0:2",
-		"-a1:2",
-		"-a2:2",
-		"-a3:2"
-	}
-};
-struct arglist CV_FLAGS;
-int Nc_flag = 0;
-#endif MANTRA
-
-/* option naming */
-#define NAME(chr)	chr
-#define FLAG(chr)	NAME(chr)_flag
-int E_flag, P_flag, S_flag, c_flag, e_flag, k_flag, 
-	m_flag, o_flag, t_flag, v_flag;
-
-/* various passes */
-struct prog {
-	char *p_name;
-	char **p_task;
-	struct arglist *p_flags;
-} ProgParts[] = {
-	{ "cpp",	&PP,		&PP_FLAGS	},
-	{ "cem",	&CEM,		&CEM_FLAGS	},
-	{ "opt",	&OPT,		&OPT_FLAGS	},
-	{ "decode",	&DECODE,	&DECODE_FLAGS	},
-	{ "encode",	&ENCODE,	&ENCODE_FLAGS	},
-	{ "be",		&CG,		&CG_FLAGS	},
-	{ "cg",		&CG,		&CG_FLAGS	},
-	{ "as",		&AS,		&AS_FLAGS	},
-	{ "ld",		&LD,		&LD_FLAGS	},
-#ifdef MANTRA
-	{ "cv",		&CV,		&CV_FLAGS	},
-#endif MANTRA
-	{ 0,		0,		0		}
-};
-
-/* various forward declarations */
-int trap();
-char *mkstr();
-char *alloc();
-long sizeof_file();
-
-/* various globals */
-char *ProgCall = 0;
-int debug = 0;
-int exec = 1;
-int RET_CODE = 0;
-
-main(argc, argv)
-	char *argv[];
-{
-	char *str, **argvec, *file, *ldfile = 0;
-	int count, ext;
-	char Nfile[USTR_SIZE], kfile[USTR_SIZE], sfile[USTR_SIZE],
-		mfile[USTR_SIZE], ofile[USTR_SIZE], BASE[USTR_SIZE];
-	register struct arglist *call = &CALL_VEC;
-
-	set_traps(trap);
-	ProgCall = *argv++;
-	append(&CEM_FLAGS, "-L");
-	while (--argc > 0) {
-		if (*(str = *argv++) != '-') {
-			append(&SRCFILES, str);
-			continue;
-		}
-		switch (str[1]) {
-		case '-':
-			switch (str[2]) {
-			case 'C':
-			case 'E':
-			case 'P':
-				FLAG(E) = 1;
-				append(&PP_FLAGS, str);
-				PP = CEM;
-				FLAG(P) = (str[2] == 'P');
-				break;
-			default:
-				append(&DEBUG_FLAGS, str);
-				break;
-			}
-			break;
-		case 'B':
-			PP = CEM = &str[2];
-			break;
-		case 'C':
-		case 'E':
-		case 'P':
-			FLAG(E) = 1;
-			append(&PP_FLAGS, str);
-			FLAG(P) = (str[1] == 'P');
-			break;
-		case 'c':
-			if (str[2] == '.') {
-				switch (str[3]) {
-				case 's':
-					FLAG(S) = 1;
-					break;
-				case 'k':
-					FLAG(k) = 1;
-					break;
-				case 'o':
-					FLAG(c) = 1;
-					break;
-				case 'm':
-					FLAG(m) = 1;
-					break;
-				case 'e':
-					FLAG(e) = 1;
-					break;
-				default:
-					bad_option(str);
-				}
-			}
-			else
-			if (str[2] == '\0')
-				FLAG(c) = 1;
-			else
-				bad_option(str);
-			break;
-		case 'D':
-		case 'I':
-		case 'U':
-			append(&PP_FLAGS, str);
-			break;
-		case 'k':
-			FLAG(k) = 1;
-			break;
-		case 'l':
-			if (str[2] == '\0')	/* no standard libraries */
-				LD_HEAD.al_argc = LD_TAIL.al_argc = 0;
-			else	/* use library from library directory */
-				append(&SRCFILES, library(&str[2]));
-			break;
-		case 'L':	/* change default library directory */
-			LIBDIR = &str[2];
-			break;
-		case 'm':
-			FLAG(m) = 1;
-			break;
-#ifdef MANTRA
-		case 'N':
-			switch (str[2]) {
-			case 'c': /* no a.out conversion */
-				Nc_flag = 1;
-				break;
-			case 'l': /* no default options to led */
-				LD_FLAGS.al_argc = 0;
-				break;
-			default:
-				bad_option(str);
-			}
-			break;
-#endif MANTRA
-		case 'o':
-			FLAG(o) = 1;
-			if (argc-- < 0)
-				bad_option(str);
-			else
-				o_FILE = *argv++;
-			break;
-		case 'O':
-			append(&O_FLAGS, "-O");
-			break;
-		case 'R':
-			if (str[2] == '\0')
-				append(&CEM_FLAGS, str);
-			else
-				Roption(str);
-			break;
-		case 'S':
-			FLAG(S) = 1;
-			break;
-		case 't':
-			FLAG(t) = 1;
-			break;
-		case 'v':	/* set debug switches */
-			FLAG(v) = 1;
-			switch (str[2]) {
-			case 'd':
-				debug = 1;
-				break;
-			case 'n':	/* no execute */
-				exec = 0;
-				break;
-			case '\0':
-				break;
-			default:
-				bad_option(str);
-			}
-			break;
-		case 'V':
-			V_FLAG = str;
-			break;
-		default:
-			append(&LD_FLAGS, str);
-		}
-	}
-	if (debug) report("Note: debug output");
-	if (exec == 0)
-		report("Note: no execution");
-	count = SRCFILES.al_argc;
-	argvec = &(SRCFILES.al_argv[0]);
-	Nfile[0] = '\0';
-	while (count-- > 0) {
-		basename(file = *argvec++, BASE);
-		if (FLAG(E)) {
-			char ifile[USTR_SIZE];
-
-			init(call);
-			append(call, PP);
-			concat(call, &DEBUG_FLAGS);
-			concat(call, &PP_FLAGS);
-			append(call, file);
-			runvec(call, FLAG(P) ? mkname(ifile, BASE, ".i") : 0);
-			continue;
-		}
-		ext = extension(file);
-		/* .c to .k and .N	*/
-		if (ext == 'c' || ext == 'i') {
-			init(call);
-			append(call, CEM);
-			concat(call, &DEBUG_FLAGS);
-			append(call, V_FLAG);
-			concat(call, &CEM_FLAGS);
-			concat(call, &PP_FLAGS);
-			append(call, file);
-			append(call, mkname(kfile, BASE, ".k"));
-			append(call, mkname(Nfile, BASE, ".N"));
-			if (runvec(call, (char *)0)) {
-				file = kfile;
-				ext = 'k';
-				if (sizeof_file(Nfile) <= 0L)
-					remove(Nfile);
-			}
-			else {
-				remove(kfile);
-				remove(Nfile);
-				continue;
-			}
-		}
-		/* .e to .k */
-		if (ext == 'e') {
-			init(call);
-			append(call, ENCODE);
-			concat(call, &ENCODE_FLAGS);
-			append(call, file);
-			append(call, mkname(kfile, BASE, ".k"));
-			if (runvec(call, (char *)0) == 0)
-				continue;
-			file = kfile;
-			ext = 'k';
-		}
-		if (FLAG(k))
-			continue;
-		/* decode .k or .m */
-		if (FLAG(e) && (ext == 'k' || ext == 'm')) {
-			char efile[USTR_SIZE];
-			init(call);
-			append(call, DECODE);
-			concat(call, &DECODE_FLAGS);
-			append(call, file);
-			append(call, mkname(efile, BASE, ".e"));
-			runvec(call, (char *)0);
-			cleanup(kfile);
-			continue;
-		}
-		/* .k to .m */
-		if (ext == 'k') {
-			init(call);
-			append(call, OPT);
-			concat(call, &OPT_FLAGS);
-			append(call, file);
-			if (runvec(call, mkname(mfile, BASE, ".m")) == 0)
-				continue;
-			file = mfile;
-			ext = 'm';
-			cleanup(kfile);
-		}
-		if (FLAG(m))
-			continue;
-		/* .m to .s */
-		if (ext == 'm') {
-			init(call);
-			append(call, CG);
-			concat(call, &CG_FLAGS);
-			append(call, file);
-			append(call, mkname(sfile, BASE, ".s"));
-			if (runvec(call, (char *)0) == 0)
-				continue;
-			if (Nfile[0] != '\0') {
-#ifndef MANTRA
-				init(call);
-				append(call, AS_FIX);
-				append(call, Nfile);
-				append(call, sfile);
-				runvec(call, (char *)0);
-#endif MANTRA
-				remove(Nfile);
-			}
-			cleanup(mfile);
-			file = sfile;
-			ext = 's';
-		}
-		if (FLAG(S))
-			continue;
-		/* .s to .o */
-		if (ext == 's') {
-			ldfile = FLAG(c) ?
-				ofile :
-				alloc((unsigned)strlen(BASE) + 3);
-			init(call);
-			append(call, AS);
-			concat(call, &AS_FLAGS);
-#ifdef MANTRA
-			append(call, "-");
-#endif MANTRA
-			append(call, "-o");
-			append(call, mkname(ldfile, BASE, ".o"));
-			append(call, file);
-			if (runvec(call, (char *)0) == 0)
-				continue;
-			file = ldfile;
-			ext = 'o';
-			cleanup(sfile);
-		}
-		if (FLAG(c))
-			continue;
-		append(&LDFILES, file);
-		if (ldfile) {
-			append(&GEN_LDFILES, ldfile);
-			ldfile = 0;
-		}
-	}
-	/* *.o to a.out */
-	if (RET_CODE == 0 && LDFILES.al_argc > 0) {
-		init(call);
-		append(call, LD);
-		concat(call, &LD_FLAGS);
-		append(call, "-o");
-#ifndef MANTRA
-		append(call, o_FILE);
-#else MANTRA
-		append(call, Nc_flag ? o_FILE : cv_FILE);
-#endif MANTRA
-		concat(call, &LD_HEAD);
-		concat(call, &LDFILES);
-		concat(call, &LD_TAIL);
-		if (runvec(call, (char *)0)) {
-			register i = GEN_LDFILES.al_argc;
-
-			while (i-- > 0)
-				remove(GEN_LDFILES.al_argv[i]);
-#ifdef MANTRA
-			/* convert to local a.out format */
-			if (Nc_flag == 0) {
-				init(call);
-				append(call, CV);
-				concat(call, &CV_FLAGS);
-				append(call, cv_FILE);
-				append(call, o_FILE);
-				if (runvec(call, (char *)0))
-					remove(cv_FILE);
-			}
-#endif MANTRA
-		}
-	}
-	exit(RET_CODE);
-}
-
-#define BUFSIZE  (USTR_SIZE * MAXARGC)
-char alloc_buf[BUFSIZE];
-
-char *
-alloc(u)
-	unsigned u;
-{
-	static char *bufptr = &alloc_buf[0];
-	register char *p = bufptr;
-
-	if ((bufptr += u) >= &alloc_buf[BUFSIZE])
-		panic("no space");
-	return p;
-}
-
-append(al, arg)
-	register struct arglist *al;
-	char *arg;
-{
-	if (al->al_argc >= MAXARGC)
-		panic("argument list overflow");
-	al->al_argv[(al->al_argc)++] = arg;
-}
-
-concat(al1, al2)
-	struct arglist *al1, *al2;
-{
-	register int i = al2->al_argc;
-	register char **p = &(al1->al_argv[al1->al_argc]);
-	register char **q = &(al2->al_argv[0]);
-
-	if ((al1->al_argc += i) >= MAXARGC)
-		panic("argument list overflow");
-	while (i-- > 0)
-		*p++ = *q++;
-}
-
-/*	The next function is a dirty old one, taking a variable number of
-	arguments.
-	Take care that the last argument is a null-valued pointer!
-*/
-/*VARARGS1*/
-char *
-mkstr(dst, arg)
-	char *dst, *arg;
-{
-	char **vec = (char **) &arg;
-	register char *p;
-	register char *q = dst;
-
-	while (p = *vec++) {
-		while (*q++ = *p++);
-		q--;
-	}
-	return dst;
-}
-
-Roption(str)
-	char *str;	/* of the form "prog=/-arg"	*/
-{
-	char *eq;
-	char *prog, *arg;
-	char bc;
-	char *cindex();
-
-	prog = &str[2];
-	if (eq = cindex(prog, '='))
-		bc = '=';
-	else
-	if (eq = cindex(prog, '-'))
-		bc = '-';
-	else {
-		bad_option(str);
-		return;
-	}
-	*eq++ = '\0';
-	if (arg = eq) {
-		char *opt = 0;
-		struct prog *pp = &ProgParts[0];
-
-		if (bc == '-')
-			opt = mkstr(alloc((unsigned)strlen(arg) + 2),
-								"-", arg, 0);
-		while (pp->p_name) {
-			if (strcmp(prog, pp->p_name) == 0) {
-				if (opt)
-					append(pp->p_flags, opt);
-				else
-					*(pp->p_task) = arg;
-				return;
-			}
-			pp++;
-		}
-	}
-	bad_option(str);
-}
-
-basename(str, dst)
-	char *str;
-	register char *dst;
-{
-	register char *p1 = str;
-	register char *p2 = p1;
-
-	while (*p1)
-		if (*p1++ == '/')
-			p2 = p1;
-	p1--;
-	if (*--p1 == '.') {
-		*p1 = '\0';
-		while (*dst++ = *p2++) {}
-		*p1 = '.';
-	}
-	else
-		while (*dst++ = *p2++) {}
-}
-
-int
-extension(fn)
-	register char *fn;
-{
-	char c;
-
-	while (*fn++) {}
-	fn--;
-	c = *--fn;
-	return (*--fn == '.') ? c : 0;
-}
-
-long
-sizeof_file(nm)
-	char *nm;
-{
-	struct stat stbuf;
-
-	if (stat(nm, &stbuf) == 0)
-		return stbuf.st_size;
-	return -1;
-}
-
-char * sysmsg[]  = {
-	0,
-	"Hangup",
-	"Interrupt",
-	"Quit",
-	"Illegal instruction",
-	"Trace/BPT trap",
-	"IOT trap",
-	"EMT trap",
-	"Floating exception",
-	"Killed",
-	"Bus error",
-	"Memory fault",
-	"Bad system call",
-	"Broken pipe",
-	"Alarm call",
-	"Terminated",
-	"Signal 16"
-};
-
-runvec(vec, outp)
-	struct arglist *vec;
-	char *outp;
-{
-	int status, fd;
-	char *task = vec->al_argv[1];
-
-	vec->al_argv[vec->al_argc] = 0;
-	if (FLAG(v))
-		print_vec(vec);
-	if (exec == 0)
-		return 1;
-	if (fork() == 0) {	/* start up the process */
-		extern int errno;
-		if (outp) {	/* redirect standard output	*/
-			close(1);
-			if ((fd = creat(outp, 0666)) < 0)
-				panic("cannot create %s", outp);
-			if (fd != 1)
-				panic("illegal redirection");
-		}
-		if (debug) report("exec %s", task);
-		execv(task, &(vec->al_argv[1]));
-		/* not an a.out file, let's try it with the SHELL */
-		if (debug) report("try it with %s", SHELL);
-		if (errno == ENOEXEC) {
-			vec->al_argv[0] = SHELL;
-			execv(SHELL, &(vec->al_argv[0]));
-		}
-		/* failed, so ... */
-		panic("cannot execute %s", task);
-		exit(1);
-	}
-	else {
-		int loworder, highorder, sig;
-
-		wait(&status);
-		loworder = status & 0377;
-		highorder = (status >> 8) & 0377;
-		if (loworder == 0) {
-			if (highorder)
-				report("%s: exit status %d", task, highorder);
-			return highorder ? ((RET_CODE = 1), 0) : 1;
-		}
-		else {
-			sig = loworder & 0177;
-			if (sig == 0177)
-				report("%s: stopped by ptrace", task);
-			else
-			if (sysmsg[sig])
-				report("%s: %s%s", task, sysmsg[sig],
-					(loworder & 0200)
-						? " - core dumped"
-						: "");
-			RET_CODE = 1;
-			return 0;
-		}
-	}
-	/*NOTREACHED*/
-}
-
-bad_option(str)
-	char *str;
-{
-	report("bad option %s", str);
-}
-
-/*VARARGS1*/
-report(fmt, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9)
-	char *fmt;
-{
-	fprintf(stderr, "%s: ", ProgCall);
-	fprintf(stderr, fmt, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9);
-	fprintf(stderr, "\n");
-}
-
-/*VARARGS1*/
-panic(fmt, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9)
-	char *fmt;
-{
-	fprintf(stderr, "%s: ", ProgCall);
-	fprintf(stderr, fmt, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9);
-	fprintf(stderr, "\n");
-	exit(1);
-}
-
-set_traps(f)
-	int (*f)();
-{
-	signal(SIGHUP, f);
-	signal(SIGINT, f);
-	signal(SIGQUIT, f);
-	signal(SIGALRM, f);
-	signal(SIGTERM, f);
-}
-
-/*ARGSUSED*/
-trap(sig)
-{
-	set_traps(SIG_IGN);
-	panic("Trapped");
-}
-
-print_vec(vec)
-	struct arglist *vec;
-{
-	register i;
-
-	for (i = 1; i < vec->al_argc; i++)
-		printf("%s ", vec->al_argv[i]);
-	printf("\n");
-}
-
-char *
-cindex(s, c)
-	char *s, c;
-{
-	while (*s)
-		if (*s++ == c)
-			return s - 1;
-	return (char *) 0;
-}

lang/cem/cemcom/code.c

@@ -319,7 +319,7 @@ end_proc(fbytes)
 	if (return_expr_occurred) {
 		if (func_res_label != 0)	{
 			C_lae_dlb(func_res_label, (arith)0);
-			store_block(func_size, func_type->tp_align);
+			store_block(func_type->tp_size, func_type->tp_align);
 			C_lae_dlb(func_res_label, (arith)0);
 			C_ret(pointer_size);
 		}

lang/cem/cemcom/declar.g

@@ -134,6 +134,7 @@ single_type_specifier(register struct decspecs *ds;):
 	%default TYPE_IDENTIFIER	/* this includes INT, CHAR, etc. */
 	{idf2type(dot.tk_idf, &ds->ds_type);}
 |
+	%erroneous
 	IDENTIFIER
 	{
 		error("%s is not a type identifier", dot.tk_idf->id_text);
@@ -143,6 +144,9 @@ single_type_specifier(register struct decspecs *ds;):
 			dot.tk_idf->id_def->df_sc = TYPEDEF;
 		}
 	}
+|
+	%illegal
+	IDENTIFIER
 |
 	struct_or_union_specifier(&ds->ds_type)
 |

lang/cem/cemcom/error.c

@@ -6,7 +6,11 @@
 /*	E R R O R   A N D  D I A G N O S T I C   R O U T I N E S	*/
 
 #include	"lint.h"
+#if __STDC__
+#include	<stdarg.h>
+#else
 #include	<varargs.h>
+#endif
 #include	<system.h>
 #ifndef	LINT
 #include	<em.h>
@@ -56,6 +60,167 @@ extern char loptions[];
 
 static _error();
 
+#if __STDC__
+/*VARARGS*/
+error(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(ERROR, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+expr_error(struct expr *expr, char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (!(expr->ex_flags & EX_ERROR)) {
+			/* to prevent proliferation */
+			_error(ERROR, expr->ex_file, expr->ex_line, fmt, ap);
+			expr->ex_flags |= EX_ERROR;
+		}
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+warning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+expr_warning(struct expr *expr, char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (!(expr->ex_flags & EX_ERROR)) {
+			/* to prevent proliferation */
+			_error(WARNING, expr->ex_file, expr->ex_line, fmt, ap);
+		}
+	}
+	va_end(ap);
+}
+
+#ifdef	LINT
+
+/*VARARGS*/
+def_warning(struct def *def, char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(WARNING, def->df_file, def->df_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+
+/*VARARGS*/
+hwarning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (loptions['h'])
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+/*VARARGS*/
+awarning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		if (loptions['a'])
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
+	}
+	va_end(ap);
+}
+
+#endif	/* LINT */
+
+/*VARARGS*/
+lexerror(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(ERROR, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+}
+
+#ifndef	NOPP
+/*VARARGS*/
+lexwarning(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(WARNING, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+}
+#endif	/* NOPP */
+
+/*VARARGS*/
+crash(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(CRASH, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+
+	C_close();
+#ifdef	DEBUG
+	sys_stop(S_ABORT);
+#else	/* DEBUG */
+	sys_stop(S_EXIT);
+#endif	/* DEBUG */
+	/* NOTREACHED */
+}
+
+/*VARARGS*/
+fatal(char *fmt, ...)
+{
+	va_list ap;
+
+	va_start(ap, fmt);
+	{
+		_error(FATAL, FileName, LineNumber, fmt, ap);
+	}
+	va_end(ap);
+
+	if (C_busy()) C_close();
+	sys_stop(S_EXIT);
+	/*NOTREACHED*/
+}
+#else
 /*VARARGS*/
 error(va_alist)				/* fmt, args */
 	va_dcl
@@ -64,7 +229,8 @@ error(va_alist)				/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(ERROR, dot.tk_file, dot.tk_line, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(ERROR, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -78,10 +244,11 @@ expr_error(va_alist)			/* expr, fmt, args */
 	va_start(ap);
 	{
 		register struct expr *expr = va_arg(ap, struct expr *);
+		char *fmt = va_arg(ap, char *);
 
 		if (!(expr->ex_flags & EX_ERROR)) {
 			/* to prevent proliferation */
-			_error(ERROR, expr->ex_file, expr->ex_line, ap);
+			_error(ERROR, expr->ex_file, expr->ex_line, fmt, ap);
 			expr->ex_flags |= EX_ERROR;
 		}
 	}
@@ -96,7 +263,8 @@ warning(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(WARNING, dot.tk_file, dot.tk_line, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -110,10 +278,11 @@ expr_warning(va_alist)			/* expr, fmt, args */
 	va_start(ap);
 	{
 		struct expr *expr = va_arg(ap, struct expr *);
+		char *fmt = va_arg(ap, char *);
 
 		if (!(expr->ex_flags & EX_ERROR)) {
 			/* to prevent proliferation */
-			_error(WARNING, expr->ex_file, expr->ex_line, ap);
+			_error(WARNING, expr->ex_file, expr->ex_line, fmt, ap);
 		}
 	}
 	va_end(ap);
@@ -130,8 +299,9 @@ def_warning(va_alist)			/* def, fmt, args */
 	va_start(ap);
 	{
 		register struct def *def = va_arg(ap, struct def *);
+		char *fmt = va_arg(ap, char *);
 
-		_error(WARNING, def->df_file, def->df_line, ap);
+		_error(WARNING, def->df_file, def->df_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -145,8 +315,9 @@ hwarning(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
+		char *fmt = va_arg(ap, char *);
 		if (loptions['h'])
-			_error(WARNING, dot.tk_file, dot.tk_line, ap);
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -159,8 +330,9 @@ awarning(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
+		char *fmt = va_arg(ap, char *);
 		if (loptions['a'])
-			_error(WARNING, dot.tk_file, dot.tk_line, ap);
+			_error(WARNING, dot.tk_file, dot.tk_line, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -175,7 +347,8 @@ lexerror(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(ERROR, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(ERROR, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -189,7 +362,8 @@ lexwarning(va_alist)			/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(WARNING, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(WARNING, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 }
@@ -203,7 +377,8 @@ crash(va_alist)				/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(CRASH, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(CRASH, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 
@@ -224,7 +399,8 @@ fatal(va_alist)				/* fmt, args */
 
 	va_start(ap);
 	{
-		_error(FATAL, FileName, LineNumber, ap);
+		char *fmt = va_arg(ap, char *);
+		_error(FATAL, FileName, LineNumber, fmt, ap);
 	}
 	va_end(ap);
 
@@ -232,16 +408,17 @@ fatal(va_alist)				/* fmt, args */
 	sys_stop(S_EXIT);
 	/*NOTREACHED*/
 }
+#endif
 
 static
-_error(class, fn, ln, ap)
+_error(class, fn, ln, fmt, ap)
 	int class;
 	char *fn;
 	unsigned int ln;
+	char *fmt;
 	va_list ap;
 {
 	char *remark;
-	char *fmt = va_arg(ap, char *);
 
 	/* check visibility of message */
 	switch (class)	{

lang/cem/cemcom/expression.g

@@ -23,6 +23,8 @@ extern struct expr *intexpr();
 primary(register struct expr **expp;) :
 	IDENTIFIER
 	{dot2expr(expp);}
+|
+	%illegal TYPE_IDENTIFIER
 |
 	constant(expp)
 |

lang/cem/cemcom/proto.main

@@ -17,7 +17,8 @@ LINTLIBDIR =	$(UTIL_HOME)/modules/lib
 MALLOC =	$(LIBDIR)/malloc.$(SUF)
 
 EMLIB =		$(LIBDIR)/libem_mes.$(LIBSUF) \
-		$(LIBDIR)/libem$(PRODUCE).$(LIBSUF)
+		$(LIBDIR)/libem$(PRODUCE).$(LIBSUF) \
+		$(TARGET_HOME)/lib.bin/em_data.$(LIBSUF)
 
 MODLIB =	$(LIBDIR)/libinput.$(LIBSUF) \
 		$(LIBDIR)/libassert.$(LIBSUF) \

lang/cem/cemcom/proto.make

@@ -12,7 +12,7 @@ SRC_DIR = \
 TABGEN=	$(UTIL_BIN)/tabgen
 LLGEN =	$(UTIL_BIN)/LLgen
 LLGENOPTIONS = \
-	-v
+	-n
 
 SRC_G =	$(SRC_DIR)/program.g $(SRC_DIR)/declar.g \
 	$(SRC_DIR)/expression.g $(SRC_DIR)/statement.g $(SRC_DIR)/ival.g
@@ -20,7 +20,6 @@ GEN_G =	tokenfile.g
 GFILES=	$(GEN_G) $(SRC_G)
 
 SRC_C = \
-	$(SRC_DIR)/Version.c \
 	$(SRC_DIR)/LLlex.c \
 	$(SRC_DIR)/LLmessage.c \
 	$(SRC_DIR)/arith.c \
@@ -65,7 +64,7 @@ SRC_C = \
 	$(SRC_DIR)/stab.c
 
 GEN_C =	tokenfile.c program.c declar.c expression.c statement.c ival.c \
-	symbol2str.c char.c Lpars.c next.c
+	symbol2str.c char.c Lpars.c next.c Lncor.c
 CFILES=	$(SRC_C) $(GEN_C)
 
 SRC_H = \
@@ -194,6 +193,7 @@ clean:
 LLfiles:	$(GFILES)
 		$(LLGEN) $(LLGENOPTIONS) $(GFILES)
 		@touch LLfiles
+		@if [ -f Lncor.c ] ; then : ; else touch Lncor.c ; fi
 
 hfiles:		Parameters $(SRC_DIR)/make.hfiles
 		$(SRC_DIR)/make.hfiles Parameters

lang/cem/cpp.ansi/ch3bin.c

@@ -8,7 +8,7 @@
 #include	"Lpars.h"
 #include	"arith.h"
 
-#define arith_sign (1 << (sizeof(arith)*8-1))
+#define arith_sign (1L << (sizeof(arith)*8-1))
 
 ch3bin(pval, pis_uns, oper, val, is_uns)
 	register arith *pval, val;
@@ -55,7 +55,7 @@ ch3bin(pval, pis_uns, oper, val, is_uns)
 #endif
 		}
 		else {
-			*pval = *pval % val;
+			*pval = *pval / val;
 		}
 		break;
 	case '%':
@@ -89,7 +89,7 @@ ch3bin(pval, pis_uns, oper, val, is_uns)
 #endif
 		}
 		else {
-			*pval = *pval / val;
+			*pval = *pval % val;
 		}
 		break;
 	case '*':

lang/cem/cpp.ansi/domacro.c

@@ -366,7 +366,7 @@ do_define()
 	/* read the replacement text if there is any			*/
 	ch = skipspaces(ch,0);	/* find first character of the text	*/
 	assert(ch != EOI);
-       /* UngetChar() is not right when replacement starts with a '/' */
+       /* UnGetChar() is not right when replacement starts with a '/' */
 	ChPushBack(ch);
 	repl_text = get_text((nformals > 0) ? formals : 0, &length);
 	macro_def(str2idf(str, 0), repl_text, nformals, length, NOFLAG);
@@ -484,7 +484,7 @@ do_undef(argstr)
 			free(str);
 			if (SkipToNewLine()) {
 				if (!options['o'])
-					strict("garbage following #else");
+					strict("garbage following #undef");
 			}
 		}
 	}

lang/cem/cpp.ansi/error.c

@@ -6,7 +6,11 @@
 /*	E R R O R   A N D  D I A G N O S T I C   R O U T I N E S	*/
 
 #include	<system.h>
+#if __STDC__
+#include	<stdarg.h>
+#else
 #include	<varargs.h>
+#endif
 
 #include	"arith.h"
 #include	"errout.h"
@@ -28,6 +32,70 @@ err_hdr(s)
 	else	fprint(ERROUT, s);
 }
 
+#if __STDC__
+/*VARARGS*/
+error(char *fmt, ...)
+{
+	va_list ap;
+
+	err_occurred = 1;
+	err_hdr("");
+	va_start(ap, fmt);
+	doprnt(ERROUT, fmt, ap);
+	fprint(ERROUT, "\n");
+	va_end(ap);
+}
+
+/*VARARGS*/
+warning(char *fmt, ...)
+{
+	va_list ap;
+
+	err_hdr("(warning) ");
+	va_start(ap, fmt);
+	doprnt(ERROUT, fmt, ap);
+	fprint(ERROUT, "\n");
+	va_end(ap);
+}
+
+/*VARARGS*/
+strict(char *fmt, ...)
+{
+	va_list ap;
+
+	err_hdr("(strict) ");
+	va_start(ap, fmt);
+	doprnt(ERROUT, fmt, ap);
+	fprint(ERROUT, "\n");
+	va_end(ap);
+}
+
+/*VARARGS*/
+crash(char *fmt, ...)
+{
+	va_list ap;
+
+	err_hdr("CRASH\007 ");
+	va_start(ap, fmt);
+	doprnt(ERROUT, fmt, ap);
+	fprint(ERROUT, "\n");
+	va_end(ap);
+	sys_stop(S_ABORT);
+}
+
+/*VARARGS*/
+fatal(char *fmt, ...)
+{
+	va_list ap;
+
+	err_hdr("fatal error -- ");
+	va_start(ap, fmt);
+	doprnt(ERROUT, fmt, ap);
+	fprint(ERROUT, "\n");
+	va_end(ap);
+	sys_stop(S_EXIT);
+}
+#else
 /*VARARGS*/
 error(va_alist)
 	va_dcl
@@ -105,3 +173,4 @@ fatal(va_alist)
 	va_end(ap);
 	sys_stop(S_EXIT);
 }
+#endif