1##! /bin/csh -fx
2###############################################################################
3#
4# File:         PDIST:MAKE-PNK-LAP
5# Discription:	Make a fasfile and put it in the $pnkl directory. The first
6#		argument is the directory where the source file is located.
7#		The second argument is the name of the file with no extension.
8# Author:       Harold Carr and Leigh Stoller.
9# Created:      08-Oct-86
10# Mode:         Text
11#
12# (c) Copyright 1982, University of Utah
13# %
14# % Redistribution and use in source and binary forms, with or without
15# % modification, are permitted provided that the following conditions are met:
16# %
17# %    * Redistributions of source code must retain the relevant copyright
18# %      notice, this list of conditions and the following disclaimer.
19# %    * Redistributions in binary form must reproduce the above copyright
20# %      notice, this list of conditions and the following disclaimer in the
21# %      documentation and/or other materials provided with the distribution.
22# %
23# % THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
24# % AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
25# % THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
26# % PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNERS OR
27# % CONTRIBUTORS
28# % BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
29# % CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
30# % SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
31# % INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
32# % CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
33# % ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
34# % POSSIBILITY OF SUCH DAMAGE.
35#
36
37###############################################################################
38# Revisions
39#
40# 27-Apr-87 (Leigh Stoller)
41#  Turn on fastcar operations when compiling PSL files.
42##############################################################################
43
44pushd $1
45
46$psys/pslcomp << EOF
47% Put the current directory at the end for automated scripts to protect
48%  against name collisions on 14 character filename machines.
49(setq loaddirectories* '("\$pl/" "\$pnkl/" ""))
50(off usermode)
51
52%% For machines that require the carcdr.sl fix for car/cdr of NIL, make sure
53%% we turn on fastcar to ensure optimized code. Since PSL was written with
54%% the assumption that car/car of NIL was illegal, it is not necessary
55%% to generate code to test for this, slowing down all car/cdr operations
56%% in the process. For user code though, it defaults to off for safety.
57(on fastcar)
58(setq *syslisp t)
59%(on pcmac)
60(faslout "\$pnkl/$2")
61(dskin "$1/$2.sl")
62(faslend)
63(exitlisp)
64EOF
65
66#@ pslcompstatus = $status
67popd
68#@ status = $pslcompstatus
69
70# End of file.
71