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