XFILE scripts for building the hello world programs.

build/misc.tcl

@@ -1842,3 +1842,23 @@ expect ":KILL"
 # STINK 121T, used to build Muddle and some old programs
 respond "*" ":midas mudsys;ts stink_sysen2;stink 121t\r"
 expect ":KILL"
+
+# Move hello world xfiles into an archive.
+respond "*" ":cwd hello\r"
+respond "*" ":move dsk:c xfile, ar:\r"
+respond "*" ":move dsk:clu xfile, ar:\r"
+respond "*" ":move dsk:clu xxfile, ar:\r"
+respond "*" ":move dsk:fail xfile, ar:\r"
+respond "*" ":move dsk:fail xxfile, ar:\r"
+respond "*" ":move dsk:fortra xfile, ar:\r"
+respond "*" ":move dsk:fortra xxfile, ar:\r"
+respond "*" ":move dsk:lisp xfile, ar:\r"
+respond "*" ":move dsk:lisp xxfile, ar:\r"
+respond "*" ":move dsk:macro xfile, ar:\r"
+respond "*" ":move dsk:macro xxfile, ar:\r"
+respond "*" ":move dsk:midas xfile, ar:\r"
+respond "*" ":move dsk:muddle xfile, ar:\r"
+respond "*" ":move dsk:muddle xxfile, ar:\r"
+respond "*" ":move dsk:palx xfile, ar:\r"
+respond "*" ":move dsk:palx xxfile, ar:\r"
+respond "*" ":rename dsk:ar >, ar xfiles\r"

doc/hello/-read-.-this-

@@ -1,2 +1,6 @@
 This directory contains "hello world" examples for some of the
 programming languages found in ITS.
+
+The AR XFILES achive has scripts for building programs.  Use the
+:XFILE command to run them.  Some scripts call XXFILE, which sometimes
+wedges.  Type ^^ Q (that's Control-^ and Q) to quit XXFILE.

src/hello/c.xfile

@@ -0,0 +1,3 @@
+:cwd hello
+:cc hello.c
+:stinkr hello

src/hello/clu.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:xxfile tty:_ar:clu xxfile

src/hello/clu.xxfile

@@ -0,0 +1,7 @@
+:cwd hello
+:clu hello
+:sleep 100
+:clu;clusys
+fload("hello bin")
+gc_pure_dump("hello; ts hello")
+ 

src/hello/fail.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:xxfile tty:_ar:fail xxfile

src/hello/fail.xxfile

@@ -0,0 +1,9 @@
+:cwd hello
+:fail
+hello fai
+
+.
+:stink hello
+1L decsys; decbot bin
+.jbsa/ start
+:pdump ts hello

src/hello/fortra.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:xxfile tty:_ar:fortra xxfile

src/hello/fortra.xxfile

@@ -0,0 +1,9 @@
+:cwd hello
+:dec sys:f40
+hello=hello.for
+.
+:dec sys:loader
+hello/g
+45gd
+:pdump ts hello
+.

src/hello/lisp.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:xxfile tty:_ar:lisp xxfile

src/hello/lisp.xxfile

@@ -0,0 +1,5 @@
+:cwd hello
+:complr
+hello lisp
+.
+:lisp hello (dump)

src/hello/macro.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:xxfile tty:_ar:macro xxfile

src/hello/macro.xxfile

@@ -0,0 +1,9 @@
+:cwd hello
+:macro
+hello=hello.mac
+.
+:dec sys:loader
+hello/g
+45gd
+:pdump ts hello
+.

src/hello/midas.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:midas ts hello_hello mid

src/hello/muddle.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:xxfile tty:_ar:muddle xxfile

src/hello/muddle.xxfile

@@ -0,0 +1,14 @@
+:cwd hello
+:pcomp
+<FILE-COMPILE "HELLO MUD" "HELLO NBIN">
+:sleep 100
+P
+<QUIT>
+:mud55
+<FLOAD "HELLO NBIN">
+<SAVE-IT>
+:midas ts hello_mudsys; subsys maker
+hello
+y
+save
+hello

src/hello/palx.xfile

@@ -0,0 +1,2 @@
+:cwd hello
+:xxfile tty:_ar:palx xxfile

src/hello/palx.xxfile

@@ -0,0 +1,8 @@
+:cwd hello
+:palx hello palx
+:pdp11
+;l hello bin
+;g
+
+:sleep 60
+.