commit-gnue
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

gnue geas/examples/python/neil_methods_test.py ...


From: Neil Tiffin
Subject: gnue geas/examples/python/neil_methods_test.py ...
Date: Sun, 24 Feb 2002 12:05:36 -0500

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    02/02/24 12:05:36

Modified files:
        geas/examples/python: neil_methods_test.py 
        geas/src/mac/geas-mac.pbproj: project.pbxproj 
        packages       : drop_all_tables.sql 
        packages/base/currency/classes: currency.gcd 
        packages/base/language/classes: language.gcd 
        packages/base/person/doc: person.sgml 
        packages/finance/ar/classes: invoice.gcd 
        packages/finance/gl/classes: gl.gcd gl_acct.gcd 
        packages/hr/personnel/classes: ps.gcd 
        packages/supply-chain/purchasing/classes: purchasing.gcd 
        packages/test  : gcd_pass_test.gcd 

Log message:
        Update gcds to make up for parsing reserved words, clean up test.py 
programs, add contributer to person.sgml.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/geas/examples/python/neil_methods_test.py.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/geas/src/mac/geas-mac.pbproj/project.pbxproj.diff?cvsroot=OldCVS&tr1=1.7&tr2=1.8&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/drop_all_tables.sql.diff?cvsroot=OldCVS&tr1=1.9&tr2=1.10&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/base/currency/classes/currency.gcd.diff?cvsroot=OldCVS&tr1=1.19&tr2=1.20&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/base/language/classes/language.gcd.diff?cvsroot=OldCVS&tr1=1.16&tr2=1.17&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/base/person/doc/person.sgml.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/finance/ar/classes/invoice.gcd.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/finance/gl/classes/gl.gcd.diff?cvsroot=OldCVS&tr1=1.8&tr2=1.9&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/finance/gl/classes/gl_acct.gcd.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/hr/personnel/classes/ps.gcd.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/supply-chain/purchasing/classes/purchasing.gcd.diff?cvsroot=OldCVS&tr1=1.15&tr2=1.16&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/packages/test/gcd_pass_test.gcd.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text

Patches:
Index: gnue/geas/examples/python/neil_methods_test.py
diff -c gnue/geas/examples/python/neil_methods_test.py:1.11 
gnue/geas/examples/python/neil_methods_test.py:1.12
*** gnue/geas/examples/python/neil_methods_test.py:1.11 Sun Jan  6 17:40:49 2002
--- gnue/geas/examples/python/neil_methods_test.py      Sun Feb 24 12:05:35 2002
***************
*** 3,9 ****
  # a test file: relies on GEAS being run from gnue/geas/src
  # and this from gnue/geas/examples/python
  
! # $Id: neil_methods_test.py,v 1.11 2002/01/06 22:40:49 ntiffin Exp $
  
  import sys, os
  import md5
--- 3,9 ----
  # a test file: relies on GEAS being run from gnue/geas/src
  # and this from gnue/geas/examples/python
  
! # $Id: neil_methods_test.py,v 1.12 2002/02/24 17:05:35 ntiffin Exp $
  
  import sys, os
  import md5
***************
*** 102,108 ****
     return obj_list
     
  def count_instances( classname ):
!    print "Number Instances in class %s is %i." % (classname, 
con.countAllInstances(classname))
     return
  
  print
--- 102,108 ----
     return obj_list
     
  def count_instances( classname ):
!    print "Number instances in class %s is %i." % (classname, 
con.countAllInstances(classname))
     return
  
  print
***************
*** 115,122 ****
  print "loop count = %i" % num_loops
  print
  
  count_instances( "mod1::class1" )
! # first test is create objects
  x = 0
  time_start = time.time()
  while (x < num_loops):
--- 115,123 ----
  print "loop count = %i" % num_loops
  print
  
+ print "Start Test 1 - Create Object: mod1::class1, set field text_fld = joe, 
then delete object."
  count_instances( "mod1::class1" )
! print "Running Test."
  x = 0
  time_start = time.time()
  while (x < num_loops):
***************
*** 129,137 ****
      x = x+1
  time_end = time.time()
  create_and_set_time = (time_end - time_start) / x
! print "time to create object and set one field = ", "%.3f" % 
(create_and_set_time*1000), " milliseconds."
  
  count_instances( "mod1::class1" )
  x = 0
  a = "a"
  b = "b"
--- 130,145 ----
      x = x+1
  time_end = time.time()
  create_and_set_time = (time_end - time_start) / x
! count_instances( "mod1::class1" )
! print "Time to create object and set one field = ", "%.3f" % 
(create_and_set_time*1000), " milliseconds."
! print "End of test 1."
! print
  
+ print "Start Test 2 - Create Object: mod1::class1, set field text_fld = joe,"
+ print "   call cat_a_b method to concatenate two arguments and return the 
result,"
+ print "   then delete the resultant object."
  count_instances( "mod1::class1" )
+ print "Running Test."
  x = 0
  a = "a"
  b = "b"
***************
*** 157,166 ****
  print "time to create object, set one field, and call method = ", "%.3f" % 
(create_and_set_method_time*1000), " milliseconds."
  print "time to call a method only = ", "%.3f" % ((create_and_set_method_time 
- create_and_set_time)*1000), " milliseconds."
  count_instances( "mod1::class1" )
  print
  
  # SELECT count(*) FROM location__post_code;
! print "Check how long it takes to count instances of an object."
  classname = "location::post_code"
  start_time = time.time()
  instances = con.countAllInstances(classname)
--- 165,175 ----
  print "time to create object, set one field, and call method = ", "%.3f" % 
(create_and_set_method_time*1000), " milliseconds."
  print "time to call a method only = ", "%.3f" % ((create_and_set_method_time 
- create_and_set_time)*1000), " milliseconds."
  count_instances( "mod1::class1" )
+ print "End of Test 2."
  print
  
  # SELECT count(*) FROM location__post_code;
! print "Start Test 3 - Check how long it takes to count instances of an 
object."
  classname = "location::post_code"
  start_time = time.time()
  instances = con.countAllInstances(classname)
***************
*** 170,184 ****
  else:
      print "Correctly found %i instances in %s." % (instances, classname)
  print "Time to count instances was %.3f seconds." % (end_time - start_time)
  print
  
! # this test should be the same as executing the following queries
! # SELECT count(*) FROM location__post_code WHERE city LIKE 'M%' AND zip_code 
LIKE '68%';
! # SELECT count(*) FROM location__post_code WHERE city LIKE 'M%' AND zip_code 
LIKE '4%';
! # SELECT count(*) FROM location__post_code WHERE city LIKE 'M%' AND zip_code 
LIKE '5%';
! # SELECT city, zip_code FROM location__post_code WHERE city LIKE 'M%' AND 
zip_code LIKE '68%';
! # SELECT city, zip_code FROM location__post_code WHERE city LIKE 'M%' AND 
zip_code LIKE '4%';
! # SELECT city, zip_code FROM location__post_code WHERE city LIKE 'M%' AND 
zip_code LIKE '5%';
  x = 0
  num_records = 0
  total_time_start = time.time()
--- 179,195 ----
  else:
      print "Correctly found %i instances in %s." % (instances, classname)
  print "Time to count instances was %.3f seconds." % (end_time - start_time)
+ print "End of Test 3."
  print
  
! print "Start Test 4"
! print "this test should be the same as executing the following queries"
! print "SELECT count(*) FROM location__post_code WHERE city LIKE 'M%' AND 
zip_code LIKE '68%';"
! print "SELECT count(*) FROM location__post_code WHERE city LIKE 'M%' AND 
zip_code LIKE '4%';"
! print "SELECT count(*) FROM location__post_code WHERE city LIKE 'M%' AND 
zip_code LIKE '5%';"
! print "SELECT city, zip_code FROM location__post_code WHERE city LIKE 'M%' 
AND zip_code LIKE '68%';"
! print "SELECT city, zip_code FROM location__post_code WHERE city LIKE 'M%' 
AND zip_code LIKE '4%';"
! print "SELECT city, zip_code FROM location__post_code WHERE city LIKE 'M%' 
AND zip_code LIKE '5%';"
  x = 0
  num_records = 0
  total_time_start = time.time()
***************
*** 208,216 ****
  query1_time = (total_time_end - total_time_start) / num_records
  print "time to query zip file = ", "%.3f" % (query1_time), " seconds per 
object returned."
  print "number of objects returned = %i." % num_records
  print
  
! print "Testing lessthan and greaterthan query"
  # SELECT count(*) from location__post_code WHERE zip_code > 20000 and 
zip_code < 31000;
  x = 0
  num_records = 0
--- 219,228 ----
  query1_time = (total_time_end - total_time_start) / num_records
  print "time to query zip file = ", "%.3f" % (query1_time), " seconds per 
object returned."
  print "number of objects returned = %i." % num_records
+ print "End of Test 4."
  print
  
! print "Test 5 - Testing lessthan and greaterthan query"
  # SELECT count(*) from location__post_code WHERE zip_code > 20000 and 
zip_code < 31000;
  x = 0
  num_records = 0
***************
*** 245,249 ****
--- 257,262 ----
  query1_time = (total_time_end - total_time_start) / num_records
  print "time to query post_code table = ", "%.3f" % (query1_time), " seconds 
per object returned."
  print "number of items returned = %i" % num_records
+ print "End of Test 5."
  print
  print "Done", time.asctime(time.gmtime()), "UTC"
Index: gnue/geas/src/mac/geas-mac.pbproj/project.pbxproj
diff -c gnue/geas/src/mac/geas-mac.pbproj/project.pbxproj:1.7 
gnue/geas/src/mac/geas-mac.pbproj/project.pbxproj:1.8
*** gnue/geas/src/mac/geas-mac.pbproj/project.pbxproj:1.7       Sun Dec  9 
10:24:01 2001
--- gnue/geas/src/mac/geas-mac.pbproj/project.pbxproj   Sun Feb 24 12:05:35 2002
***************
*** 1418,1425 ****
                };
                F575A87A0135693401000001 = {
                        isa = PBXFileReference;
!                       name = libIIOP.0.5.8.dylib;
!                       path = /sw/lib/libIIOP.0.5.8.dylib;
                        refType = 0;
                };
                F575A87B0135693401000001 = {
--- 1418,1425 ----
                };
                F575A87A0135693401000001 = {
                        isa = PBXFileReference;
!                       name = libIIOP.0.5.12.dylib;
!                       path = /sw/lib/libIIOP.0.5.12.dylib;
                        refType = 0;
                };
                F575A87B0135693401000001 = {
***************
*** 1430,1437 ****
                };
                F575A87C0135694C01000001 = {
                        isa = PBXFileReference;
!                       name = libORBit.0.5.8.dylib;
!                       path = /sw/lib/libORBit.0.5.8.dylib;
                        refType = 0;
                };
                F575A87D0135694C01000001 = {
--- 1430,1437 ----
                };
                F575A87C0135694C01000001 = {
                        isa = PBXFileReference;
!                       name = libORBit.0.5.12.dylib;
!                       path = /sw/lib/libORBit.0.5.12.dylib;
                        refType = 0;
                };
                F575A87D0135694C01000001 = {
***************
*** 1443,1449 ****
                F575A87E0135697001000001 = {
                        isa = PBXFileReference;
                        name = libORBitCosNaming.0.5.8.dylib;
!                       path = /sw/lib/libORBitCosNaming.0.5.8.dylib;
                        refType = 0;
                };
                F575A87F0135697001000001 = {
--- 1443,1449 ----
                F575A87E0135697001000001 = {
                        isa = PBXFileReference;
                        name = libORBitCosNaming.0.5.8.dylib;
!                       path = /sw/lib/libORBitCosNaming.a;
                        refType = 0;
                };
                F575A87F0135697001000001 = {
***************
*** 1454,1461 ****
                };
                F575A880013569A201000001 = {
                        isa = PBXFileReference;
!                       name = libORBitutil.0.5.8.dylib;
!                       path = /sw/lib/libORBitutil.0.5.8.dylib;
                        refType = 0;
                };
                F575A881013569A201000001 = {
--- 1454,1461 ----
                };
                F575A880013569A201000001 = {
                        isa = PBXFileReference;
!                       name = libORBitutil.0.5.12.dylib;
!                       path = /sw/lib/libORBitutil.0.5.12.dylib;
                        refType = 0;
                };
                F575A881013569A201000001 = {
Index: gnue/packages/base/currency/classes/currency.gcd
diff -c gnue/packages/base/currency/classes/currency.gcd:1.19 
gnue/packages/base/currency/classes/currency.gcd:1.20
*** gnue/packages/base/currency/classes/currency.gcd:1.19       Sun Sep 23 
17:06:33 2001
--- gnue/packages/base/currency/classes/currency.gcd    Sun Feb 24 12:05:35 2002
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.19 $ $Date: 2001/09/23 21:06:33 $ $Author: ntiffin $
  #
  
  # ===========================================================================
--- 22,28 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.20 $ $Date: 2002/02/24 17:05:35 $ $Author: ntiffin $
  #
  
  # ===========================================================================
***************
*** 73,80 ****
      currency::currency  *to;
      float                numerator = 1.0;   # the conversion
      float                denominator = 1.0; # factor = numerator/denominator
!     date                 begin;
!     date                 end;
      
    };
    
--- 73,80 ----
      currency::currency  *to;
      float                numerator = 1.0;   # the conversion
      float                denominator = 1.0; # factor = numerator/denominator
!     date                 date_begin;
!     date                 date_end;
      
    };
    
Index: gnue/packages/base/language/classes/language.gcd
diff -c gnue/packages/base/language/classes/language.gcd:1.16 
gnue/packages/base/language/classes/language.gcd:1.17
*** gnue/packages/base/language/classes/language.gcd:1.16       Sun Aug 26 
23:02:24 2001
--- gnue/packages/base/language/classes/language.gcd    Sun Feb 24 12:05:35 2002
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.16 $ $Date: 2001/08/27 03:02:24 $ $Author: ntiffin $
  #
  
  # ===========================================================================
--- 22,28 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.17 $ $Date: 2002/02/24 17:05:35 $ $Author: ntiffin $
  #
  
  # ===========================================================================
***************
*** 61,68 ****
                                #   extending this class.
                                # base help has these fields = null
      char  company<15>;        # place holder until decided how it works in 
geas.
!     char  user_group<15>;     # if empty this change applies to all groups.
!     char  user<15>;           # if empty this change applies to all users.
  
                                # Help data
      char  help_text<2000>;    # full help text if the user clicks on help.
--- 61,68 ----
                                #   extending this class.
                                # base help has these fields = null
      char  company<15>;        # place holder until decided how it works in 
geas.
!     char  usr_group<15>;     # if empty this change applies to all groups.
!     char  usr<15>;           # if empty this change applies to all users.
  
                                # Help data
      char  help_text<2000>;    # full help text if the user clicks on help.
Index: gnue/packages/base/person/doc/person.sgml
diff -c gnue/packages/base/person/doc/person.sgml:1.5 
gnue/packages/base/person/doc/person.sgml:1.6
*** gnue/packages/base/person/doc/person.sgml:1.5       Sat Feb 23 21:22:25 2002
--- gnue/packages/base/person/doc/person.sgml   Sun Feb 24 12:05:35 2002
***************
*** 3,9 ****
        <sect1>
                <title>Requirements</title> 
                <para>
!                       This chapter is $Revision: 1.5 $ $Date: 2002/02/24 
02:22:25 $. 
                </para>
                <sect2>
                        <title> Business Requirements </title> 
--- 3,9 ----
        <sect1>
                <title>Requirements</title> 
                <para>
!                       This chapter is $Revision: 1.6 $ $Date: 2002/02/24 
17:05:35 $. 
                </para>
                <sect2>
                        <title> Business Requirements </title> 
***************
*** 44,60 ****
  </para>
  <para>
  The information and the user's declaration of consent has to be
! documented.
  </para>
  <para>
  Measures have to be taken to ensure that personal information can be
  locked from normal access on a possible future user request.
  </para>
  <para>
! Anonymous statistical should be split from personal information as
! soon is obtained and be stored separately (then it is no longer
  subject to privacy regulations, because it is not data referring to a
! specific or identifiable person).
                                        </para>
                                </listitem>
                        </itemizedlist>
--- 44,60 ----
  </para>
  <para>
  The information and the user's declaration of consent has to be
! documented (and kept in the database?)
  </para>
  <para>
  Measures have to be taken to ensure that personal information can be
  locked from normal access on a possible future user request.
  </para>
  <para>
! Anonymous statistical information should be split from personal information as
! soon as it is obtained and if stored separately (then it is no longer
  subject to privacy regulations, because it is not data referring to a
! specific or identifiable person).  Contributed by Jens MŸller, address@hidden
                                        </para>
                                </listitem>
                        </itemizedlist>
Index: gnue/packages/drop_all_tables.sql
diff -c gnue/packages/drop_all_tables.sql:1.9 
gnue/packages/drop_all_tables.sql:1.10
*** gnue/packages/drop_all_tables.sql:1.9       Sun Feb 17 18:33:33 2002
--- gnue/packages/drop_all_tables.sql   Sun Feb 24 12:05:35 2002
***************
*** 5,10 ****
--- 5,11 ----
  DROP TABLE ar__credit;
  DROP TABLE ar__detail;
  DROP TABLE ar__header;
+ DROP TABLE ar__sales_tx;
  DROP TABLE base__parameter;
  DROP TABLE base_acct__trans_def;
  DROP TABLE base_item__i_type;
***************
*** 14,20 ****
--- 15,23 ----
  DROP TABLE currency__currency;
  DROP TABLE customer__customer;
  DROP TABLE geas__listholder;
+ DROP TABLE geas__listitem;
  DROP TABLE geas__searchcriteria;
+ DROP TABLE geas__searchfield;
  DROP TABLE geas__transaction;
  DROP TABLE geas__user;
  DROP TABLE gl__account;
***************
*** 98,101 ****
  DROP TABLE vendor__vendor;
  DROP TABLE whse__site;
  DROP TABLE whse__stock_room;
! DROP TABLE whse__storage;
--- 101,104 ----
  DROP TABLE vendor__vendor;
  DROP TABLE whse__site;
  DROP TABLE whse__stock_room;
! DROP TABLE whse__storage;
\ No newline at end of file
Index: gnue/packages/finance/ar/classes/invoice.gcd
diff -c gnue/packages/finance/ar/classes/invoice.gcd:1.14 
gnue/packages/finance/ar/classes/invoice.gcd:1.15
*** gnue/packages/finance/ar/classes/invoice.gcd:1.14   Sun Sep 16 05:27:42 2001
--- gnue/packages/finance/ar/classes/invoice.gcd        Sun Feb 24 12:05:36 2002
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Id: invoice.gcd,v 1.14 2001/09/16 09:27:42 reinhard Exp $
  #
  
  include "../../../base/person/classes/person.gcd"
--- 22,28 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Id: invoice.gcd,v 1.15 2002/02/24 17:05:36 ntiffin Exp $
  #
  
  include "../../../base/person/classes/person.gcd"
***************
*** 92,102 ****
    # -------------------------------------------------------------------------
    class sales_tx
    {
-     date            date   not null;   # date of transaction
      currency::money amount not null;   # amount of transaction
      ar::header     *invoice;             # source of transaction
      ar::adjustment *adj;                 # source of transaction
-     char            user<25> not null; # user creating transaction
      
      date            posted;              # if empty not posted
    };
--- 92,100 ----
Index: gnue/packages/finance/gl/classes/gl.gcd
diff -c gnue/packages/finance/gl/classes/gl.gcd:1.8 
gnue/packages/finance/gl/classes/gl.gcd:1.9
*** gnue/packages/finance/gl/classes/gl.gcd:1.8 Sun Sep 16 05:27:42 2001
--- gnue/packages/finance/gl/classes/gl.gcd     Sun Feb 24 12:05:36 2002
***************
*** 22,28 ****
  #
  # This file is for discussion only.
  #
! # $Id: gl.gcd,v 1.8 2001/09/16 09:27:42 reinhard Exp $
  
  module gl
  {
--- 22,28 ----
  #
  # This file is for discussion only.
  #
! # $Id: gl.gcd,v 1.9 2002/02/24 17:05:36 ntiffin Exp $
  
  module gl
  {
***************
*** 31,38 ****
    # -----------------------------------------------------------
    class period
    {
!     date    start;              # start date of this period
!     date    end;                # end date of this period
      boolean open;               # if true then can post
    };
  
--- 31,38 ----
    # -----------------------------------------------------------
    class period
    {
!     date    period_start;              # start date of this period
!     date    period_end;                # end date of this period
      boolean open;               # if true then can post
    };
  
***************
*** 41,48 ****
    # -----------------------------------------------------------
    class year
    {
!     date         start;         # start date of this year
!     date         end;           # end date of this year
      boolean      open;          # if true then can post
      gl::period []periods;       # all the periods of this year
      # Trigger: when inserting a new record, automagically
--- 41,48 ----
    # -----------------------------------------------------------
    class year
    {
!     date         year_start;         # start date of this year
!     date         year_end;           # end date of this year
      boolean      open;          # if true then can post
      gl::period []periods;       # all the periods of this year
      # Trigger: when inserting a new record, automagically
***************
*** 96,104 ****
      char        number<17>;     # document number
                                  # can be invoice number,
                                  # bank statement number etc.
-     date        date;           # date of transaction
      gl::period *period;         # financial period
-     char        user<20>;       # entered by user
      date        entered;        # entering date
      boolean     complete;       # true if the transaction is
                                  # balanced. only journals where
--- 96,102 ----
***************
*** 114,121 ****
    {
      gl::trans []transactions;   # transactions in this journal
      gl::year   *year;           # financial year
-     char        user<20>;       # posted by user
-     date        created;        # creation date
      date        posted;         # posted date
      # void post();              # method to post the journal
    };
--- 112,117 ----
Index: gnue/packages/finance/gl/classes/gl_acct.gcd
diff -c gnue/packages/finance/gl/classes/gl_acct.gcd:1.14 
gnue/packages/finance/gl/classes/gl_acct.gcd:1.15
*** gnue/packages/finance/gl/classes/gl_acct.gcd:1.14   Fri Sep 14 18:20:57 2001
--- gnue/packages/finance/gl/classes/gl_acct.gcd        Sun Feb 24 12:05:36 2002
***************
*** 24,30 ****
  # Based on concepts and documents from Louis Charbonneau and
  # Stanley A. Klein.
  #
! # $Id: gl_acct.gcd,v 1.14 2001/09/14 22:20:57 ntiffin Exp $
  #
  
  module gl_acct
--- 24,30 ----
  # Based on concepts and documents from Louis Charbonneau and
  # Stanley A. Klein.
  #
! # $Id: gl_acct.gcd,v 1.15 2002/02/24 17:05:36 ntiffin Exp $
  #
  
  module gl_acct
***************
*** 38,44 ****
      bool  fund_segment;  # Fund Segment This segment defines a
                           # balancing subset of the chart of
                           # accounts
!     bool  natural;       # defines this segment define the natural
                           # account code.  May only occur in
                           # one segment.
                           
--- 38,44 ----
      bool  fund_segment;  # Fund Segment This segment defines a
                           # balancing subset of the chart of
                           # accounts
!     bool  all_natural;       # defines this segment define the natural
                           # account code.  May only occur in
                           # one segment.
                           
Index: gnue/packages/hr/personnel/classes/ps.gcd
diff -c gnue/packages/hr/personnel/classes/ps.gcd:1.6 
gnue/packages/hr/personnel/classes/ps.gcd:1.7
*** gnue/packages/hr/personnel/classes/ps.gcd:1.6       Sun Dec 16 08:30:03 2001
--- gnue/packages/hr/personnel/classes/ps.gcd   Sun Feb 24 12:05:36 2002
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.6 $ $Date: 2001/12/16 13:30:03 $ $Author: reinhard $
  #
  
  include "../../../base/currency/classes/currency.gcd"
--- 22,28 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.7 $ $Date: 2002/02/24 17:05:36 $ $Author: ntiffin $
  #
  
  include "../../../base/currency/classes/currency.gcd"
***************
*** 55,61 ****
    class hire
    {
      date       hired;
!     date       left;
      ps::reason leaving;
      
      ps::emp_private *who;
--- 55,61 ----
    class hire
    {
      date       hired;
!     date       date_left;
      ps::reason leaving;
      
      ps::emp_private *who;
***************
*** 154,161 ****
      
      char           name<25>;
      char           job_title<25>;
!     date           started;
!     date           left;
      person::person contact;
      date           verified_date;
      char           verified_name<25>;
--- 154,161 ----
      
      char           name<25>;
      char           job_title<25>;
!     date           date_started;
!     date           date_left;
      person::person contact;
      date           verified_date;
      char           verified_name<25>;
Index: gnue/packages/supply-chain/purchasing/classes/purchasing.gcd
diff -c gnue/packages/supply-chain/purchasing/classes/purchasing.gcd:1.15 
gnue/packages/supply-chain/purchasing/classes/purchasing.gcd:1.16
*** gnue/packages/supply-chain/purchasing/classes/purchasing.gcd:1.15   Sun Dec 
 2 05:56:16 2001
--- gnue/packages/supply-chain/purchasing/classes/purchasing.gcd        Sun Feb 
24 12:05:36 2002
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.15 $ $Date: 2001/12/02 10:56:16 $ $Author: reinhard $
  #
  include "../../../base/units/classes/units.gcd"
  include "../../../supply-chain/vendor/classes/vendor.gcd"
--- 22,28 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.16 $ $Date: 2002/02/24 17:05:36 $ $Author: ntiffin $
  #
  include "../../../base/units/classes/units.gcd"
  include "../../../supply-chain/vendor/classes/vendor.gcd"
***************
*** 75,81 ****
    # -------------------------------------------------------------------------
    class buyer
    {
!     char                group<8>;
      person::employee [] buyers;
    };
      
--- 75,81 ----
    # -------------------------------------------------------------------------
    class buyer
    {
!     char                buyer_group<8>;
      person::employee [] buyers;
    };
      
Index: gnue/packages/test/gcd_pass_test.gcd
diff -c gnue/packages/test/gcd_pass_test.gcd:1.6 
gnue/packages/test/gcd_pass_test.gcd:1.7
*** gnue/packages/test/gcd_pass_test.gcd:1.6    Sun Dec  2 05:56:16 2001
--- gnue/packages/test/gcd_pass_test.gcd        Sun Feb 24 12:05:36 2002
***************
*** 23,29 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.6 $ $Date: 2001/12/02 10:56:16 $ $Author: reinhard $
  #
  
  module mod1
--- 23,29 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.7 $ $Date: 2002/02/24 17:05:36 $ $Author: ntiffin $
  #
  
  module mod1
***************
*** 102,104 ****
--- 102,121 ----
  #   char   extend_char_fld<8>;
  # };
  
+ 
+ 
+ # class to test the use of SQL reserved words in classes.
+ 
+ module mod3
+ {
+       class test_resv_words
+       {
+         text a_good_field;
+         text start;
+         text end;
+         text left;
+         text natural;
+         text group;
+         text user;
+       };
+ };
\ No newline at end of file



reply via email to

[Prev in Thread] Current Thread [Next in Thread]