usr/src/tools/tokenize/tokenize.sh

   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 #
  40 mypath=`dirname $0`
  41
  42 infile=/tmp/$$
  43 echo 'fcode-version1' > $infile
  44 cat $1 >> $infile
  45 echo 'end0' >> $infile
  46 outfile=`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 )
  55 rm $infile