|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet 32 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet 32 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 619 (0x26b)
Types: TextFile
Notes: UNIX file
Names: »lint«
└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
└─⟦28c352965⟧ »/a« UNIX Filesystem
└─⟦this⟧ »usr/bin/lint«
: #! /bin/sh
# SHELL: version 1.4 of 8/16/83
# Mesa Unix command source file
#
# @(#)SHELL 1.4 (NSC) 8/16/83
L=/usr/lib/lint/lint T=/usr/tmp/lint.$$ PATH=/bin:/usr/bin O="-C -Dlint"
X= P=unix LL=/usr/lib/lint
trap "rm -f $T; exit" 1 2 15
for A in $*
do
case $A in
-*n*) P= ;;
-*p*) P=port ;;
esac
case $A in
*.ln) cat $A >>$T ;;
-l*) cat $LL/llib$A.ln >>$T ;;
-[IDOU]*) O="$O $A" ;;
-X) LL=/usr/scj/lint L=/usr/scj/lint/lpass ;;
-*) X="$X$A" ;;
*) (/lib/cpp $O $A | ${L}1 $X >>$T)2>&1
esac
done
case $P in
unix) cat $LL/llib-lc.ln >>$T ;;
port) cat $LL/llib-port.ln >>$T ;;
esac
${L}2 $T $X
rm -f $T