UFIND - find users on all machines.

README.md

@@ -227,6 +227,7 @@ A list of [known ITS machines](doc/machines.md).
    - TTLOC, Advertises physical location of logged in users.
    - TTY, displays TTYs with UNAME/JNAME/CORE and other info.
    - TYPE8, type 8-bit file.
+   - UFIND, find users.
    - UNTALK, split-screen comm-link program.
    - UPTIME, Chaosnet uptime server.
    - USQ, unsqueeze/uncram a file.

build/build.tcl

@@ -398,6 +398,9 @@ type ":vk\r"
 respond "*" ":midas sys2;ts talk_gren;untalk\r"
 expect ":KILL"
 
+respond "*" ":midas sys3;ts ufind_syseng;ufind\r"
+expect ":KILL"
+
 respond "*" ":midas sysbin;_sysen2;find\r"
 expect ":KILL"
 respond "*" ":link sys;ts find,sysbin;find bin\r"

src/syseng/ufind.41

@@ -0,0 +1,46 @@
+; -*- Midas -*-
+
+title UFIND to check for user on all machines
+
+char=1
+jclptr=2
+valptr=3
+
+jcllen==10.
+jclbuf:	block jcllen
+
+;;; make this a multiple of 5, please!
+valbeg: ascii /:kill
+:charfs REAGAN NAME   /
+
+valcon: block jcllen+1
+
+go:	.break 12,[..rjcl,,jclbuf]
+	skipn jclbuf
+lost:	 .value [ascii /: Usage is :UFIND <username>KILL
+/]
+	move jclptr,[440700,,jclbuf]
+loop:	ildb char,jclptr
+	caie char,40
+	 cain char,^I
+	  jrst loop
+	caie char,^C
+	 cain char,^_
+	  jrst lost
+	cain char,^M
+	 jrst lost
+	move valptr,[440700,,valcon]
+coplop:	idpb char,valptr
+	ildb char,jclptr
+	caie char,^C
+	 cain char,^_
+	  jrst copdon
+	caie char,^M
+	 jrst coplop
+copdon:	movei char,^M
+	idpb char,valptr
+	movei char,^V		;turn on typeout!
+	idpb char,valptr
+	.value valbeg
+
+end go