# Demonstrating a combination of features of the g2 preprocessor.
set g2_trace_ftions 1

class Owner {
   role_regular -assign no -copy no
   role_stream

protected:
   guard char* name= John
}

class Animal {
   role_regular -assign no -copy no
   role_stream

   f :pvc void talk(num)

protected:
   guard char* name= "Fido"
   guard Owner* owner= 0
}

array set sounds { Cat miowwwwwww Dog woofffffff Snake hisssssss }
foreach animal [array names sounds] {
   class $animal : Animal {
      role_regular -assign no -copy no
      role_stream
      add $animal:STREAM STREAM {@
         Animal::stream(o_stream, indent+3);
      @}

      f :vc void talk(num) {@
         for(int i= 0; i<num; i++)
            printf("$(sounds($animal))...\n");
      @}
   }
}

f int main() {@
   Dog dog;
   Cat cat;
   Snake snake;

   cat.set_name("Felix");
   snake.set_name("Ka");

   Owner o1, o2;
   o2.set_name("Jenna");
   dog.set_owner(&o1);
   cat.set_owner(&o2);

   cout << "dog= " << dog << endl;
   dog.talk(3);
   cout << "cat= " << cat << endl;
   cat.talk(2);
   cout << "snake= " << snake << endl;
   snake.talk(1);
   cout << "owner 1 = " << o1 << endl;
   cout << "owner 2 = " << o2 << endl;

   return 0;
@}

c_hdr animals animals.h {
   sys_inc stdio stdlib iostream
   ref Owner:H Animal:H Dog:H Cat:H Snake:H
}

c_src animals animals.cc {
   my_inc animals
   ref Owner:CC Animal:CC main:CC Dog:CC Cat:CC Snake:CC
}