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