Initial revision

diff --git a/distr/Action b/distr/Action
new file mode 100644 (file)
index 0000000..0eddf7f
--- /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 (file)
index 0000000..b342c2f
--- /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 (file)
index 0000000..c0139db
--- /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 (executable)
index 0000000..9835e3d
--- /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 (executable)
index 0000000..2b2779c
--- /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 (file)
index 0000000..c0139db
--- /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 (executable)
index 0000000..c02e952
--- /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 (executable)
index 0000000..5f7a220
--- /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 (executable)
index 0000000..9d5d3c1
--- /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 (executable)
index 0000000..8f40504
--- /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 (executable)
index 0000000..7000cbc
--- /dev/null
+++ b/distr/mkd
@@ -0,0 +1 @@
+mkdir $DESTDIR/$1/$2

diff --git a/distr/mkf b/distr/mkf
new file mode 100755 (executable)
index 0000000..145a2e3
--- /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 (executable)
index 0000000..be169fb
--- /dev/null
+++ b/distr/mks
@@ -0,0 +1 @@
+cp .distr $DESTDIR/$1

diff --git a/distr/mktree b/distr/mktree
new file mode 100644 (file)
index 0000000..df22298
--- /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 (executable)
index 0000000..8350341
--- /dev/null
+++ b/distr/ts
@@ -0,0 +1,2 @@
+DD=`pwd`/ts
+echo OK