1#!/bin/sh
2#
3# CDDL HEADER START
4#
5# The contents of this file are subject to the terms of the
6# Common Development and Distribution License (the "License").
7# You may not use this file except in compliance with the License.
8#
9# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10# or http://www.opensolaris.org/os/licensing.
11# See the License for the specific language governing permissions
12# and limitations under the License.
13#
14# When distributing Covered Code, include this CDDL HEADER in each
15# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16# If applicable, add the following below this CDDL HEADER, with the
17# fields enclosed by brackets "[]" replaced with your own identifying
18# information: Portions Copyright [yyyy] [name of copyright owner]
19#
20# CDDL HEADER END
21#
22#
23# Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24# Use is subject to license terms.
25#
26# ident	"%Z%%M%	%I%	%E% SMI"
27#
28# Creates "tokenized" FCode programs from Forth source code.
29#
30# Usage:  tokenize xxx.fth
31#
32# xxx.fth is the name of the source file, which must end in ".fth"
33# The output file will be named xxx.fcode .  It will have an a.out header
34# so that it can be downloaded to a PROM burner with "pburn"
35
36#
37# Get tokenizer.exe and forth_preload.so.1
38# from same directory that this command is in.
39#
40mypath=`dirname $0`
41
42infile=/tmp/$$
43echo 'fcode-version1' > $infile
44cat $1 >> $infile
45echo 'end0' >> $infile
46outfile=`basename $1 .fth`.fcode
47(
48	unset LD_PRELOAD_32 LD_PRELOAD_64
49	unset LD_BIND_NOW_32 LD_BIND_NOW_64
50	set -x
51	LD_PRELOAD=${mypath}/forth_preload.so.1 LD_BIND_NOW=1 \
52	${mypath}/forth ${mypath}/tokenize.exe \
53	-s "aout-header? off silent? on tokenize $infile $outfile" < /dev/null
54)
55rm $infile
56