[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
gnue/gnue-config/base/company/classes company.gcd
From: |
Neil Tiffin |
Subject: |
gnue/gnue-config/base/company/classes company.gcd |
Date: |
Mon, 14 May 2001 07:54:34 -0700 |
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);
};
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- gnue/gnue-config/base/company/classes company.gcd,
Neil Tiffin <=