gnue/packages base/acct/classes/base_acct.gcd s...

[Reinhard Mueller]

CVSROOT:        /cvsroot/gnue
Module name:    gnue
Changes by:     Reinhard Mueller <address@hidden>       01/12/02 05:56:16

Modified files:
        packages/base/acct/classes: base_acct.gcd 
        packages/supply-chain/purchasing/classes: purchasing.gcd 
        packages/supply-chain/vendor/classes: vendor.gcd 
        packages/test  : gcd_pass_test.gcd 

Log message:
        Minor temporary changes to make all class definitions work with both 
the old and the new parser.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue/packages/base/acct/classes/base_acct.gcd.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue/packages/supply-chain/purchasing/classes/purchasing.gcd.diff?tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue/packages/supply-chain/vendor/classes/vendor.gcd.diff?tr1=1.18&tr2=1.19&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue/packages/test/gcd_pass_test.gcd.diff?tr1=1.5&tr2=1.6&r1=text&r2=text

Patches:
Index: gnue/packages/base/acct/classes/base_acct.gcd
diff -c gnue/packages/base/acct/classes/base_acct.gcd:1.3 
gnue/packages/base/acct/classes/base_acct.gcd:1.4
*** gnue/packages/base/acct/classes/base_acct.gcd:1.3   Sun Aug 26 23:02:24 2001
--- gnue/packages/base/acct/classes/base_acct.gcd       Sun Dec  2 05:56:16 2001
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.3 $ $Date: 2001/08/27 03:02:24 $ $Author: ntiffin $
  #
  
  include "../../../base/currency/classes/currency.gcd"
--- 22,28 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.4 $ $Date: 2001/12/02 10:56:16 $ $Author: reinhard $
  #
  
  include "../../../base/currency/classes/currency.gcd"
***************
*** 35,48 ****
    # -------------------------------------------------------------------------
    class trans_def
    {
!     char    name<25>     not null;  # long name
!     char    abbrv<8>     not null;  # abbreviation used in place of code
!                                     # for lookup by the subsystems.
!     int16   code         not null;  # code using in transaction file to save
!                                     # space
!     char    account<15>  not null;  # General Ledger account number
!     char    debit_credit not null;  # C = credit, D = debit
!     boolean active = "T" not null;  # is this transaction code usable
    };
    
    # -------------------------------------------------------------------------
--- 35,48 ----
    # -------------------------------------------------------------------------
    class trans_def
    {
!     char    name<25>      not null;  # long name
!     char    abbrv<8>      not null;  # abbreviation used in place of code
!                                      # for lookup by the subsystems.
!     int16   code          not null;  # code using in transaction file to save
!                                      # space
!     char    account<15>   not null;  # General Ledger account number
!     char    debit_credit  not null;  # C = credit, D = debit
!     boolean active = true not null;  # is this transaction code usable
    };
    
    # -------------------------------------------------------------------------
Index: gnue/packages/supply-chain/purchasing/classes/purchasing.gcd
diff -c gnue/packages/supply-chain/purchasing/classes/purchasing.gcd:1.14 
gnue/packages/supply-chain/purchasing/classes/purchasing.gcd:1.15
*** gnue/packages/supply-chain/purchasing/classes/purchasing.gcd:1.14   Sat Sep 
22 16:17:23 2001
--- gnue/packages/supply-chain/purchasing/classes/purchasing.gcd        Sun Dec 
 2 05:56:16 2001
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.14 $ $Date: 2001/09/22 20:17:23 $ $Author: ntiffin $
  #
  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.15 $ $Date: 2001/12/02 10:56:16 $ $Author: reinhard $
  #
  include "../../../base/units/classes/units.gcd"
  include "../../../supply-chain/vendor/classes/vendor.gcd"
***************
*** 33,45 ****
    # -------------------------------------------------------------------------
    # Add purchasing info to vendor object.
    # -------------------------------------------------------------------------
!   EXTEND vendor::vendor
!   {
!     text    notes;
!         
!    # help en notes  "These notes will show up in the purchasing form"
!    #                "with an option to print on the purchase order.";
!   };
      
    # -------------------------------------------------------------------------
    # Recommended Vendor
--- 33,45 ----
    # -------------------------------------------------------------------------
    # Add purchasing info to vendor object.
    # -------------------------------------------------------------------------
! # EXTEND vendor::vendor
! # {
! #   text    notes;
! #       
! #  # help en notes  "These notes will show up in the purchasing form"
! #  #                "with an option to print on the purchase order.";
! # };
      
    # -------------------------------------------------------------------------
    # Recommended Vendor
Index: gnue/packages/supply-chain/vendor/classes/vendor.gcd
diff -c gnue/packages/supply-chain/vendor/classes/vendor.gcd:1.18 
gnue/packages/supply-chain/vendor/classes/vendor.gcd:1.19
*** gnue/packages/supply-chain/vendor/classes/vendor.gcd:1.18   Fri Sep 14 
18:20:58 2001
--- gnue/packages/supply-chain/vendor/classes/vendor.gcd        Sun Dec  2 
05:56:16 2001
***************
*** 22,28 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.18 $ $Date: 2001/09/14 22:20:58 $ $Author: ntiffin $
  #
  
  include "../../../base/org/classes/org.gcd"
--- 22,28 ----
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.19 $ $Date: 2001/12/02 10:56:16 $ $Author: reinhard $
  #
  
  include "../../../base/org/classes/org.gcd"
***************
*** 73,76 ****
      date            last_receipt;
    };
  
! };
\ No newline at end of file
--- 73,76 ----
      date            last_receipt;
    };
  
! };
Index: gnue/packages/test/gcd_pass_test.gcd
diff -c gnue/packages/test/gcd_pass_test.gcd:1.5 
gnue/packages/test/gcd_pass_test.gcd:1.6
*** gnue/packages/test/gcd_pass_test.gcd:1.5    Thu Nov 15 15:07:22 2001
--- gnue/packages/test/gcd_pass_test.gcd        Sun Dec  2 05:56:16 2001
***************
*** 23,29 ****
  #
  # This file originally written by Neil Tiffin (address@hidden).
  #
! # $Revision: 1.5 $ $Date: 2001/11/15 20:07:22 $ $Author: reinhard $
  #
  
  module mod1
--- 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
***************
*** 74,86 ****
    class c
      {
        char       code<8>;
!       reference ref_fld WHERE mod1::class1.char_8_fld = code;
      };
  
!   extend class1
!     {
!       list list_fld WHERE mod1::c.code = char_8_fld;
!     };
  
    class class3
      {
--- 74,86 ----
    class c
      {
        char       code<8>;
! #     reference ref_fld WHERE mod1::class1.char_8_fld = code;
      };
  
! # extend class1
! #   {
! #     list list_fld WHERE mod1::c.code = char_8_fld;
! #   };
  
    class class3
      {
***************
*** 89,104 ****
     };
  };
  
! module mod2
! {
!   class class1 : mod1::class1
!   {
!     char        dummy<8>;
!   };
! };
! 
! extend mod1::class1
! {
!   char   extend_char_fld<8>;
! };
  
--- 89,104 ----
     };
  };
  
! # module mod2
! # {
! #   class class1 : mod1::class1
! #   {
! #     char        dummy<8>;
! #   };
! # };
! # 
! # extend mod1::class1
! # {
! #   char   extend_char_fld<8>;
! # };