diff options
Diffstat (limited to 'ipl/procs/lastname.icn')
-rw-r--r-- | ipl/procs/lastname.icn | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/ipl/procs/lastname.icn b/ipl/procs/lastname.icn new file mode 100644 index 0000000..9e14e87 --- /dev/null +++ b/ipl/procs/lastname.icn @@ -0,0 +1,33 @@ +############################################################################ +# +# File: lastname.icn +# +# Subject: Procedure to produce last name +# +# Author: Ralph E. Griswold +# +# Date: June 21, 2000 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# Produces the last name of a name in conventional form. Obviously, it +# doesn't work for every possibility. +# +############################################################################ + +procedure lastname(s) + local line, i + + line := trim(s) + line ?:= tab(upto(',')) # Get rid of things like " ... , Jr." + line ? { + every i := upto(' ') + tab(\i + 1) + return tab(0) + } + +end |