1 files changed, 46 insertions, 0 deletions
diff --git a/ipl/procs/namepfx.icn b/ipl/procs/namepfx.icn
new file mode 100644
index 0000000..43bc9ce
--- /dev/null
+++ b/ipl/procs/namepfx.icn
@@ -0,0 +1,46 @@
+############################################################################
+#
+#	File:     namepfx.icn
+#
+#	Subject:  Procedure to produce prefix portion of name
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     September 2, 1991
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  Produces the "name prefix" from a name in standard form -- omitting
+#  any title, but picking up the first name and any initials.
+#
+#  There are a lot more titles that should be added to this list.
+#
+#  Obviously, it can't always produce the "correct" result.
+#
+############################################################################
+#
+#  Links:  lastname, titleset
+#
+############################################################################
+
+link lastname, titleset
+
+procedure namepfx(s)
+   static titles
+
+   initial titles := titleset()
+
+   s ?:= {				# Get past title
+      while =!titles do tab(many(' '))	# "Professor Doctor ... "
+      tab(0)
+      }
+
+   s ?:= trim(tab(find(lastname(s))))
+
+   return s
+
+end