home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / grs / g / p1 < prev    next >
Encoding:
Text File  |  1991-04-10  |  2.0 KB  |  70 lines
  1. instanceof class person;
  2.  
  3. assume string name; integer age in
  4.    person := class.new(
  5.                 "person",
  6.                 [
  7.                    {
  8.                       null function hello()
  9.                       {
  10.                          write("\nWavey Davey says HELLO ",name,"!\n");
  11.                       };
  12.                    },
  13.                    {
  14.                       null function pset( string s; integer i )
  15.                       {
  16.                          write("\n\n\npset( ",s,",",i," )\n");
  17.                          name := s;
  18.                          age := i;
  19.                          write("name = ",name,", age = ",age,"\n\n\n");
  20.                       };
  21.                    },
  22.                    {
  23.                       null function show()
  24.                       {
  25.                          write("\n",name," is ",age," years old\n");
  26.                       };
  27.                    }
  28.                 ],
  29.                 [
  30.                    {
  31.                       string name;
  32.                       integer age;
  33.                    }
  34.                 ]
  35.                 );
  36.  
  37. instanceof class course;
  38.  
  39. assume integer length; string name in
  40.    course := class.new(
  41.                 "course",
  42.                 [
  43.                    {
  44.                       null function set( string s; integer i )
  45.                       {
  46.                          name := s;
  47.                          length := i;
  48.                       };
  49.                    },
  50.                    {
  51.                       null function show()
  52.                       {
  53.                          write("\nCourse ",name," lasts ",length," years\n");
  54.                       };
  55.                    },
  56.                    {
  57.                       integer function get_length()
  58.                       {
  59.                          return(length);
  60.                       };
  61.                    }
  62.                 ],
  63.                 [
  64.                    {
  65.                       integer length;
  66.                       string name;
  67.                    }
  68.                 ]
  69.                 );
  70.