mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2025-01-17 15:27:36 +00:00
Code Issues Releases Activity

Make FICL_TRACE default.

Browse Source 
Add freebsd.fr, for FreeBSD specific forth source. Add $ and %, to
replace the lost @ and - functionality of include. $ has the opposite
behavior of @ though, since the default behavior was inverted.
This commit is contained in:
Daniel C. Sobral 1999-02-04 17:13:49 +00:00
parent 47749087ac
commit 98c5378cdc
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=43615
2 changed files with 39 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sys/boot/ficl/Makefile
View File

@ -1,4 +1,4 @@
# $Id: Makefile,v 1.6 1998/11/05 08:39:42 jkh Exp $
# $Id: Makefile,v 1.7 1999/01/18 19:05:26 msmith Exp $
#
LIB= ficl
NOPROFILE= yes
@ -9,12 +9,12 @@ SRCS= ${BASE_SRCS} softcore.c
CLEANFILES= softcore.c testmain
# Standard softwords
SOFTWORDS= softcore.fr jhlocal.fr marker.fr
SOFTWORDS= softcore.fr jhlocal.fr marker.fr freebsd.fr
# Optional OO extension softwords
#SOFTWORDS+= oo.fr classes.fr
.PATH: ${.CURDIR}/softwords
CFLAGS+= -I${.CURDIR}
CFLAGS+= -I${.CURDIR} -DFICL_TRACE
softcore.c: ${SOFTWORDS} softcore.awk
(cd ${.CURDIR}/softwords; cat ${SOFTWORDS} | awk -f softcore.awk) > ${.TARGET}

36
sys/boot/ficl/softwords/freebsd.fr Normal file
View File

@ -0,0 +1,36 @@
\ ** Copyright (c) 1998 Daniel C. Sobral <dcs@freebsd.org>
\ ** All rights reserved.
\ **
\ ** Redistribution and use in source and binary forms, with or without
\ ** modification, are permitted provided that the following conditions
\ ** are met:
\ ** 1. Redistributions of source code must retain the above copyright
\ ** notice, this list of conditions and the following disclaimer.
\ ** 2. Redistributions in binary form must reproduce the above copyright
\ ** notice, this list of conditions and the following disclaimer in the
\ ** documentation and/or other materials provided with the distribution.
\ **
\ ** THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ** ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ ** IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ** ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ ** FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ ** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ ** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ ** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ ** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ ** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ ** SUCH DAMAGE.
\ **
\ ** $Id: freebsd.fr,v 1.1 1999/02/04 16:19:22 root Exp root $
\ Words for use in scripts:
\ % ignore errors here
\ $ echo this line
: tib> source >in @ tuck over >in ! - >r + r> ;
: % tib> ['] evaluate catch drop ;
: $ tib> 2dup type ['] evaluate catch throw ;
\ ** E N D F R E E B S D . F R