From ca5599714b3050a46afa1852e00452309ba81901 Mon Sep 17 00:00:00 2001 From: em Date: Sun, 14 Apr 1985 23:26:24 +0000 Subject: [PATCH] Initial revision --- distr/Action | 15 +++++++++++++++ distr/Action1 | 6 ++++++ distr/Exceptions | 42 ++++++++++++++++++++++++++++++++++++++++++ distr/dwalk | 25 +++++++++++++++++++++++++ distr/echod | 1 + distr/f.attf | 42 ++++++++++++++++++++++++++++++++++++++++++ distr/listall | 10 ++++++++++ distr/listall.d | 2 ++ distr/listdirs | 10 ++++++++++ distr/mka | 9 +++++++++ distr/mkd | 1 + distr/mkf | 23 +++++++++++++++++++++++ distr/mks | 1 + distr/mktree | 15 +++++++++++++++ distr/ts | 2 ++ 15 files changed, 204 insertions(+) create mode 100644 distr/Action create mode 100644 distr/Action1 create mode 100644 distr/Exceptions create mode 100755 distr/dwalk create mode 100755 distr/echod create mode 100644 distr/f.attf create mode 100755 distr/listall create mode 100755 distr/listall.d create mode 100755 distr/listdirs create mode 100755 distr/mka create mode 100755 distr/mkd create mode 100755 distr/mkf create mode 100755 distr/mks create mode 100644 distr/mktree create mode 100755 distr/ts diff --git a/distr/Action b/distr/Action new file mode 100644 index 000000000..0eddf7fe4 --- /dev/null +++ b/distr/Action @@ -0,0 +1,15 @@ +name "Installation manual" +dir doc +end +name "EM documentation" +dir doc/em.doc +end +name "Pascal bootstrap files" +dir lang/pc/pem +end +name "LLgen bootstrap files" +dir util/LLgen +end +name "MSC6500 vend_library" +dir mach/6500/libem +end diff --git a/distr/Action1 b/distr/Action1 new file mode 100644 index 000000000..b342c2ffb --- /dev/null +++ b/distr/Action1 @@ -0,0 +1,6 @@ +name "vax2/cg bootstrap files" +dir mach/vax2/cg +end +name "vax4/cg bootstrap files" +dir mach/vax4/cg +end diff --git a/distr/Exceptions b/distr/Exceptions new file mode 100644 index 000000000..c0139dbb7 --- /dev/null +++ b/distr/Exceptions @@ -0,0 +1,42 @@ +-- ./bin/em.pascal no RCS file +-- ./doc/em.doc/doc.pr no RCS file +-- ./doc/install.pr no RCS file +-- ./h/em_mnem.h no RCS file +-- ./h/em_pseu.h no RCS file +-- ./h/em_spec.h no RCS file +-- ./lang/basic/src/y.tab.c no RCS file +-- ./lang/basic/src/y.tab.h no RCS file +-- ./lang/pc/pem/pem22.m no RCS file +-- ./lang/pc/pem/pem24.m no RCS file +-- ./lib/LLgen/incl no RCS file +-- ./lib/LLgen/rec no RCS file +-- ./lib/ix/head_em no RCS file +-- ./lib/ix/head_i no RCS file +-- ./lib/ix/tail_em no RCS file +-- ./lib/ix/tail_em.vend no RCS file +-- ./lib/ix/tail_mon no RCS file +-- ./mach/6500/libem/tail_em.ve.s.a no RCS file +-- ./mach/vax2/cg/tables1.c no RCS file +-- ./mach/vax2/cg/tables1.h no RCS file +-- ./mach/vax4/cg/tables1.c no RCS file +-- ./mach/vax4/cg/tables1.h no RCS file +-- ./mach/z80/int/libpc/pc_tail.c.a no RCS file +-- ./mkun/pubmac no distr2 yet +-- ./mkun/tmac.q no distr2 yet +-- ./mkun/tmac.q1 no distr2 yet +-- ./mkun/tmac.q2 no distr2 yet +-- ./mkun/tmac.q3 no distr2 yet +-- ./mkun/tmac.q4 no distr2 yet +-- ./mkun/tmac.q5 no distr2 yet +-- ./mkun/tmac.q6 no distr2 yet +-- ./mkun/tmac.q7 no distr2 yet +-- ./mkun/tmac.q8 no distr2 yet +-- ./util/LLgen/src/parser no RCS file +-- ./util/LLgen/src/LLgen.c no RCS file +-- ./util/LLgen/src/Lpars.c no RCS file +-- ./util/LLgen/src/Lpars.h no RCS file +-- ./util/LLgen/src/tokens.c no RCS file +-- ./util/data/em_flag.c no RCS file +-- ./util/data/em_mnem.c no RCS file +-- ./util/data/em_pseu.c no RCS file +-- ./util/data/em_ptyp.c no RCS file diff --git a/distr/dwalk b/distr/dwalk new file mode 100755 index 000000000..9835e3df5 --- /dev/null +++ b/distr/dwalk @@ -0,0 +1,25 @@ +: ${CDIR=.} +if test ! -r .distr +then + echo ++ no .distr in $CDIR + exit 0 +fi +${DS-:} $CDIR +for i in `cat .distr` +do + if test -d $i + then + ( if cd $i + then + ${DD-:} $CDIR $i + CDIR=$CDIR/$i + export CDIR + exec /usr/em/distr/dwalk + else + echo ++ Could not access $CDIR/$i + fi + ) + else + ${DF-:} $CDIR $i + fi +done diff --git a/distr/echod b/distr/echod new file mode 100755 index 000000000..2b2779cee --- /dev/null +++ b/distr/echod @@ -0,0 +1 @@ +echo $1/$2 diff --git a/distr/f.attf b/distr/f.attf new file mode 100644 index 000000000..c0139dbb7 --- /dev/null +++ b/distr/f.attf @@ -0,0 +1,42 @@ +-- ./bin/em.pascal no RCS file +-- ./doc/em.doc/doc.pr no RCS file +-- ./doc/install.pr no RCS file +-- ./h/em_mnem.h no RCS file +-- ./h/em_pseu.h no RCS file +-- ./h/em_spec.h no RCS file +-- ./lang/basic/src/y.tab.c no RCS file +-- ./lang/basic/src/y.tab.h no RCS file +-- ./lang/pc/pem/pem22.m no RCS file +-- ./lang/pc/pem/pem24.m no RCS file +-- ./lib/LLgen/incl no RCS file +-- ./lib/LLgen/rec no RCS file +-- ./lib/ix/head_em no RCS file +-- ./lib/ix/head_i no RCS file +-- ./lib/ix/tail_em no RCS file +-- ./lib/ix/tail_em.vend no RCS file +-- ./lib/ix/tail_mon no RCS file +-- ./mach/6500/libem/tail_em.ve.s.a no RCS file +-- ./mach/vax2/cg/tables1.c no RCS file +-- ./mach/vax2/cg/tables1.h no RCS file +-- ./mach/vax4/cg/tables1.c no RCS file +-- ./mach/vax4/cg/tables1.h no RCS file +-- ./mach/z80/int/libpc/pc_tail.c.a no RCS file +-- ./mkun/pubmac no distr2 yet +-- ./mkun/tmac.q no distr2 yet +-- ./mkun/tmac.q1 no distr2 yet +-- ./mkun/tmac.q2 no distr2 yet +-- ./mkun/tmac.q3 no distr2 yet +-- ./mkun/tmac.q4 no distr2 yet +-- ./mkun/tmac.q5 no distr2 yet +-- ./mkun/tmac.q6 no distr2 yet +-- ./mkun/tmac.q7 no distr2 yet +-- ./mkun/tmac.q8 no distr2 yet +-- ./util/LLgen/src/parser no RCS file +-- ./util/LLgen/src/LLgen.c no RCS file +-- ./util/LLgen/src/Lpars.c no RCS file +-- ./util/LLgen/src/Lpars.h no RCS file +-- ./util/LLgen/src/tokens.c no RCS file +-- ./util/data/em_flag.c no RCS file +-- ./util/data/em_mnem.c no RCS file +-- ./util/data/em_pseu.c no RCS file +-- ./util/data/em_ptyp.c no RCS file diff --git a/distr/listall b/distr/listall new file mode 100755 index 000000000..c02e9526c --- /dev/null +++ b/distr/listall @@ -0,0 +1,10 @@ +case $# in +0) DIR=. ;; +1) DIR=$1 ;; +*) echo $0 [directory] ; exit 1 ;; +esac +DD=`pwd`/listall.d +DW=`pwd`/dwalk +export DD +cd $DIR +$DW diff --git a/distr/listall.d b/distr/listall.d new file mode 100755 index 000000000..5f7a22085 --- /dev/null +++ b/distr/listall.d @@ -0,0 +1,2 @@ +echo "<$1/$2>" +ls -bCdx `cat .distr` diff --git a/distr/listdirs b/distr/listdirs new file mode 100755 index 000000000..9d5d3c1f1 --- /dev/null +++ b/distr/listdirs @@ -0,0 +1,10 @@ +case $# in +0) DIR=. ;; +1) DIR=$1 ;; +*) echo $0 [directory] ; exit 1 ;; +esac +DD=`pwd`/echod +DW=`pwd`/dwalk +export DD +cd $DIR +$DW diff --git a/distr/mka b/distr/mka new file mode 100755 index 000000000..8f4050482 --- /dev/null +++ b/distr/mka @@ -0,0 +1,9 @@ +set -e +for i in `tail +2 $DESTDIR/$1/LIST` +do + ${DF-false} $1 $i +done +cd $DESTDIR/$1 +arch cr `cat LIST` +: I do not remove the files constituating the library, because +: they might be present in .distr diff --git a/distr/mkd b/distr/mkd new file mode 100755 index 000000000..7000cbcd9 --- /dev/null +++ b/distr/mkd @@ -0,0 +1 @@ +mkdir $DESTDIR/$1/$2 diff --git a/distr/mkf b/distr/mkf new file mode 100755 index 000000000..145a2e328 --- /dev/null +++ b/distr/mkf @@ -0,0 +1,23 @@ +if co -q -rdistr2 $DESTDIR/$1/$2 >/dev/null 2>&1 +then + chmod +w $DESTDIR/$1/$2 +elif co -q $DESTDIR/$1/$2 >/dev/null 2>&1 +then + chmod +w $DESTDIR/$1/$2 + echo -- $1/$2 no distr2 yet +elif grep LIST .distr >/dev/null 2>&1 && + (test "$2" = "`head -1 $DESTDIR/$1/LIST`") >/dev/null 2>&1 && + ${DA-false} "$1" "$2" +then +: Fetched library contents one by one and put them together +elif cp $2 $DESTDIR/$1/$2 >/dev/null 2>&1 +then + echo -- $1/$2 no RCS file +else + echo ++ $1/$2 not present +fi +case $2 in +LIST) if (test -r $DESTDIR/$1/`head -1 $DESTDIR/$1/LIST`) >/dev/null 2>&1 + then echo ++ LIST files must be in .distr before their libraries!!! + fi ;; +esac diff --git a/distr/mks b/distr/mks new file mode 100755 index 000000000..be169fb6f --- /dev/null +++ b/distr/mks @@ -0,0 +1 @@ +cp .distr $DESTDIR/$1 diff --git a/distr/mktree b/distr/mktree new file mode 100644 index 000000000..df22298a0 --- /dev/null +++ b/distr/mktree @@ -0,0 +1,15 @@ +case $# in +1) ;; +*) echo $0 directory ; exit 1 ;; +esac +DDIR=/usr/em/distr +case $1 in +/*) DESTDIR=$1 ;; +*) DESTDIR=`pwd`/$1 ;; +esac +DS=$DDIR/mks +DD=$DDIR/mkd +DF=$DDIR/mkf +DA=$DDIR/mka +export DESTDIR DS DD DF DA +$DDIR/dwalk diff --git a/distr/ts b/distr/ts new file mode 100755 index 000000000..8350341b2 --- /dev/null +++ b/distr/ts @@ -0,0 +1,2 @@ +DD=`pwd`/ts +echo OK -- 2.34.1