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# Revisions
38#
39# 27-Apr-87 (Leigh Stoller)
40#  Turn on fastcar operations when compiling PSL files.
41##############################################################################
42
43pushd $1
44
45$psys/pslcomp << EOF
46% Put the current directory at the end for automated scripts to protect
47%  against name collisions on 14 character filename machines.
48(setq loaddirectories* '("\$pl/" "\$pnkl/" ""))
49(off usermode)
50
51%% For machines that require the carcdr.sl fix for car/cdr of NIL, make sure
52%% we turn on fastcar to ensure optimized code. Since PSL was written with
53%% the assumption that car/car of NIL was illegal, it is not necessary
54%% to generate code to test for this, slowing down all car/cdr operations
55%% in the process. For user code though, it defaults to off for safety.
56% (setq loaddirectories!* (cons "$pl/cross/" loaddirectories!*))
57%(load macintel64-lap) (load macintel64-cmac)
58(on fastcar)
59(setq *syslisp t)
60%(on pcmac)
61(faslout "\$pnkl/$2")
62(dskin "$1/$2.sl")
63(faslend)
64(exitlisp)
65EOF
66
67@ pslcompstatus = $status
68popd
69@ status = $pslcompstatus
70
71# End of file.
72