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

[Neil Tiffin]

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    01/05/24 07:01:26

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

Log message:
        More revisions to play better with GEAS.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/person/classes/person.gcd.diff?cvsroot=OldCVS&tr1=1.15&tr2=1.16&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/supply-chain/item/classes/item.gcd.diff?cvsroot=OldCVS&tr1=1.10&tr2=1.11&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.15 
gnue/gnue-config/base/person/classes/person.gcd:1.16
--- gnue/gnue-config/base/person/classes/person.gcd:1.15        Sun May 20 
19:01:16 2001
+++ gnue/gnue-config/base/person/classes/person.gcd     Thu May 24 07:01:26 2001
@@ -22,12 +22,13 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.15 $ $Date: 2001/05/21 02:01:16 $ $Author: ntiffin $
+# $Revision: 1.16 $ $Date: 2001/05/24 14:01:26 $ $Author: ntiffin $
 #
 
 include "../../../base/location/classes/address.gcd"
 
-module person {
+module person
+{
 
   # ----------------------------------------------
   # list of personal titles placed before name
@@ -73,6 +74,14 @@
     char         address<70>;
     char         remark<70>;
   };
+  
+  # ----------------------------------------------
+  # class to instantiate address type
+  # ----------------------------------------------
+  class address
+  {
+    location::address address;
+  };
 
   # ----------------------------------------------
   # person - 
@@ -88,7 +97,7 @@
     
     char    work_title<25>;     # president, vice president
     
-    location::address [] address;     # home, work address
+    person::address [] address;     # home, work address
     person::comm    []   comm;        # email, phone, fax, web
     
     #text get_full_name();   # Mr. Frank N. Furter Sr.
Index: gnue/gnue-config/supply-chain/item/classes/item.gcd
diff -u gnue/gnue-config/supply-chain/item/classes/item.gcd:1.10 
gnue/gnue-config/supply-chain/item/classes/item.gcd:1.11
--- gnue/gnue-config/supply-chain/item/classes/item.gcd:1.10    Sun May 20 
16:16:06 2001
+++ gnue/gnue-config/supply-chain/item/classes/item.gcd Thu May 24 07:01:26 2001
@@ -22,7 +22,7 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.10 $ $Date: 2001/05/20 23:16:06 $ $Author: ntiffin $
+# $Revision: 1.11 $ $Date: 2001/05/24 14:01:26 $ $Author: ntiffin $
 #
 
 module inventory {
@@ -44,7 +44,7 @@
   # -------------------------------------------------------------------------
   # stock_quantity -
   # -------------------------------------------------------------------------
-  type stock_quantity
+  class stock_quantity
   {
     unit::quantity    quantity;           # various types of quantities
     char              quantity_type<20>;  # on-hand, scrap, on order etc.