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