gnue/gnue-config/base/person/classes person.gcd

[Neil Tiffin]

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    01/05/16 18:13:22

Modified files:
        gnue-config/base/person/classes: person.gcd 

Log message:
        Revise person names per discussion on email list and IRC.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/person/classes/person.gcd.diff?cvsroot=OldCVS&tr1=1.12&tr2=1.13&r1=text&r2=text

Patches:
Index: gnue/gnue-config/base/person/classes/person.gcd
diff -u gnue/gnue-config/base/person/classes/person.gcd:1.12 
gnue/gnue-config/base/person/classes/person.gcd:1.13
--- gnue/gnue-config/base/person/classes/person.gcd:1.12        Tue May 15 
10:18:17 2001
+++ gnue/gnue-config/base/person/classes/person.gcd     Wed May 16 18:13:22 2001
@@ -22,7 +22,7 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.12 $ $Date: 2001/05/15 17:18:17 $ $Author: ntiffin $
+# $Revision: 1.13 $ $Date: 2001/05/17 01:13:22 $ $Author: ntiffin $
 #
 
 include "../../../base/location/classes/address.gcd"
@@ -44,9 +44,9 @@
   # list of characters that follow the name
   # and are acceptable for this installation.
   # ----------------------------------------------
-  class name_postfix
+  class name_suffix
   {
-    char    postfix<8>;  # Jr. III Sr. etc.
+    char    suffix<8>;  # Jr. III Sr. etc.
   };
   
   # ----------------------------------------------
@@ -80,19 +80,18 @@
   type person
   {
     char    name_prefix<8>;     # Mr. Ms Dr.
-    char    given_name<25>;     # first name
-    char    other_name<25>;     # middle name(s) or initials
-    char    surname<25>;        # last name or family name
-    char    name_postfix<8>;    # Jr.  Sr.  III
+    char    name_first<25>;     # given or first name
+    char    name_middle<25>;    # other name(s), not surname or first
+    char    name_last<25>;      # surname or family name
+    char    name_suffix<8>;     # Jr.  Sr.  III
+    char    name_informal<25>   # nickname
     
     char    work_title<25>;     # president, vice president
-    location::address []address;          # home, work address
-    person::comm    []comm;             # email, phone, fax, web
     
-               # name_prefix + given_names + other_name
-               #       + surname + name_postfix
-   #text get_full_name();   # Mr. Frank N. Furter Sr.
-               # name_prefix + surname
+    location::address [] address;     # home, work address
+    person::comm    []   comm;        # email, phone, fax, web
+    
+    #text get_full_name();   # Mr. Frank N. Furter Sr.
     #text get_polite_name(); # Mr. Furter
   };