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

[Neil Tiffin]

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

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

Log message:
        Update company to add helper class for address.

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

Patches:
Index: gnue/gnue-config/base/company/classes/company.gcd
diff -u gnue/gnue-config/base/company/classes/company.gcd:1.1 
gnue/gnue-config/base/company/classes/company.gcd:1.2
--- gnue/gnue-config/base/company/classes/company.gcd:1.1       Mon May 14 
07:16:57 2001
+++ gnue/gnue-config/base/company/classes/company.gcd   Mon May 14 07:54:34 2001
@@ -22,7 +22,7 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.1 $ $Date: 2001/05/14 14:16:57 $ $Author: ntiffin $
+# $Revision: 1.2 $ $Date: 2001/05/14 14:54:34 $ $Author: ntiffin $
 #
 include "../../../base/person/classes/person.gcd"
 include "../../../base/location/classes/address.gcd"
@@ -30,24 +30,32 @@
 module company
 {
   # -------------------------------------------------------------------------
-  # 
+  # base class for instantiating person type as a general contact
   # -------------------------------------------------------------------------
-  class company_contact
+  class contact
   {
     person::person  person;
     char            code<8>;  # type of contact   
   };
 
+  # -------------------------------------------------------------------------
+  # base class for instantiating address type as a company address
+  # -------------------------------------------------------------------------
+  class address
+  {
+    location::address  address;
+  };
 
   # -------------------------------------------------------------------------
-  # 
+  # base class for vendor and customer classes
   # -------------------------------------------------------------------------
   class company
   {
-    char                        companyname<80>;       # NOT NULL
-    location::address []        address;
-    company::company_contact [] contact;
-        
+    char                   companyname<80>; # NOT NULL
+    company::address []    address;
+    company::contact []    contact;
+    char                   keyword<100>;    # keyword for searching
+    
     INDEX (companyname);
   };