From 2a5773826293e18937c114342628ea34b5ad2741 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Fri, 8 Mar 2024 07:32:11 +0100
Subject: [PATCH] Add support for XGP user in INQUIR database.

The INQUPD program is run in "normal" mode, such that it processes
files in the INQUIR directory with FN1 = .UPD1., and we provide such a
file with the XGP user defined.  We can, of course add other users
that we wish to be "pre-loaded" in the INQUIR database.
---
 build/basics.tcl    |  7 +++++++
 src/inquir/_upd1_.1 | 24 ++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 src/inquir/_upd1_.1

diff --git a/build/basics.tcl b/build/basics.tcl
index 8c676c912..9b06eed3d 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -270,6 +270,13 @@ expect ":KILL"
 # create inquir;lsr1 1
 respond "*" ":move .temp.;lsr1 empty,inquir;lsr1 1\r"
 
+# Now create INQUIR updates in new database
+#   note: this reads the file inquir;.upd1. > and loads entries into the LSR database
+respond "*" "inqupd\033j"
+respond "*" "\033linquir;inqupd bin\r"
+respond "*" "\033g"
+expect ":KILL"
+
 # pword/panda
 respond "*" ":midas sysbin;panda bin_sysen1;pword\r"
 respond "Is this to be a PANDA?" "yes\r"
diff --git a/src/inquir/_upd1_.1 b/src/inquir/_upd1_.1
new file mode 100644
index 000000000..16038528d
--- /dev/null
+++ b/src/inquir/_upd1_.1
@@ -0,0 +1,24 @@
+BEGIN:
+SUNAME:	XGP
+UNAME:	XGP
+NAME:	Xerox Graphics Printer
+NICK:	XGPSPL
+SOCIA:	
+MITAD:	
+MITTE:	
+HOMAD:	Xerox Corporation
+HOMTE:	
+SUPER:	XQUEUE
+PROJE:	XGP controlling dragon
+FILDI:	.XGPR.
+AUTHO:	ITS
+GROUP:	O
+RELAT:	P
+BIRTH:	April 1
+REMAR:	Pick up your output, please.
+NETAD:	AI
+ALTER:	
+MACHI:	AI, ML, MD, DM
+END:
+
+