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