1#! /bin/csh -fx
2##############################################################################
3#
4# File: 	PDIST:MAKE-LAP
5# Discription:	Make a fasfile and put it in the $pl 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:	Leigh Stoller
9# Created:      31-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    # cd into the directory where the .sl file is
44
45$psys/pslcomp << EOF
46% For automated scripts, put "" at end to avoid name collisions on machines
47%  with 14 character filenames. Also add ulap for use in porting.
48%%(reload 386-cmac)
49(on verboseload)
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
59%(setq loaddirectories!* (cons "$pl/cross/" loaddirectories!*))
60%(load macintel64-cmac)
61%(load macintel64-lap)
62%(compiletime (remprop 'cons 'opencode))
63%(compiletime (remprop 'ncons 'opencode))
64%(compiletime (remprop 'xcons 'opencode))
65
66(faslout "\$pl/$2")
67(dskin "$1/$2.sl")
68(faslend)
69(exitlisp)
70EOF
71
72@ pslcompstatus = $status
73popd
74@ status = $pslcompstatus
75
76# End of file.
77