cvs commit: mod_parrot/eg demo2.pasm

cvsuser     02/07/05 14:43:21

  Modified:    .        mod_parrot.diff
               eg       demo2.pasm
  Log:
  Change to use Dan's new find_type op
  
  Revision  Changes    Path
  1.8       +29 -31    mod_parrot/mod_parrot.diff
  
  Index: mod_parrot.diff
  ===================================================================
  RCS file: /cvs/public/mod_parrot/mod_parrot.diff,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -w -r1.7 -r1.8
  --- mod_parrot.diff	21 Jun 2002 01:06:44 -0000	1.7
  +++ mod_parrot.diff	5 Jul 2002 21:42:46 -0000	1.8
  @@ -1,44 +1,42 @@
  -Index: assemble.pl
  -===================================================================
  -RCS file: /cvs/public/parrot/assemble.pl,v
  -retrieving revision 1.64
  -diff -u -r1.64 assemble.pl
  ---- assemble.pl	7 Jun 2002 23:18:56 -0000	1.64
  -+++ assemble.pl	7 Jun 2002 23:56:07 -0000
  -@@ -134,6 +134,7 @@
  -   $self->{constants}{IntQueue} = 8;
  -   $self->{constants}{ParrotSub} = 9;
  -   $self->{constants}{ParrotCoroutine} = 10;
  -+  $self->{constants}{Apache} = 13;
  -   $self;
  - }
  - 
   Index: global_setup.c
   ===================================================================
   RCS file: /cvs/public/parrot/global_setup.c,v
  -retrieving revision 1.26
  -diff -u -r1.26 global_setup.c
  ---- global_setup.c	7 Jun 2002 23:18:56 -0000	1.26
  -+++ global_setup.c	7 Jun 2002 23:56:07 -0000
  -@@ -31,6 +31,7 @@
  +retrieving revision 1.28
  +diff -u -p -r1.28 global_setup.c
  +--- global_setup.c	4 Jul 2002 18:32:38 -0000	1.28
  ++++ global_setup.c	5 Jul 2002 21:37:39 -0000
  +@@ -32,6 +32,7 @@ init_world(void)
        Parrot_IntQueue_class_init(enum_class_IntQueue);
  -     Parrot_ParrotSub_class_init(enum_class_ParrotSub);
  -     Parrot_ParrotCoroutine_class_init(enum_class_ParrotCoroutine);
  +     Parrot_Sub_class_init(enum_class_Sub);
  +     Parrot_Coroutine_class_init(enum_class_Coroutine);
   +    Parrot_Apache_class_init(enum_class_Apache);
    
        /* Now register the names of the PMCs */
  -     /*
  + 
  +@@ -112,6 +113,12 @@ init_world(void)
  +     key->atom.type = enum_key_string;
  +     Parrot_base_classname_hash->vtable->set_integer_keyed(NULL,
  +                                                           Parrot_base_classname_hash, key, enum_class_Coroutine);
  ++
  ++    key->atom.val.string_val = (STRING*)
  ++        Parrot_base_vtables[enum_class_Apache].name(NULL, NULL);
  ++    key->atom.type = enum_key_string;
  ++    Parrot_base_classname_hash->vtable->set_integer_keyed(NULL,
  ++                                                          Parrot_base_classname_hash, key, enum_class_Apache);
  + 
  + }
  + 
   Index: include/parrot/pmc.h
   ===================================================================
   RCS file: /cvs/public/parrot/include/parrot/pmc.h,v
  -retrieving revision 1.30
  -diff -u -r1.30 pmc.h
  ---- include/parrot/pmc.h	7 Jun 2002 23:24:33 -0000	1.30
  -+++ include/parrot/pmc.h	7 Jun 2002 23:56:07 -0000
  -@@ -27,6 +27,7 @@
  -     enum_class_ParrotCoroutine,
  -     enum_class_ParrotClosure,
  -     enum_class_ParrotContinuation,
  +retrieving revision 1.31
  +diff -u -p -r1.31 pmc.h
  +--- include/parrot/pmc.h	4 Jul 2002 18:31:20 -0000	1.31
  ++++ include/parrot/pmc.h	5 Jul 2002 21:37:39 -0000
  +@@ -27,6 +27,7 @@ enum {
  +     enum_class_Coroutine,
  +     enum_class_Closure,
  +     enum_class_Continuation,
   +    enum_class_Apache,
        enum_class_max = 100
    };
  
  
  
  1.5       +2 -1      mod_parrot/eg/demo2.pasm
  
  Index: demo2.pasm
  ===================================================================
  RCS file: /cvs/public/mod_parrot/eg/demo2.pasm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- demo2.pasm	8 Jun 2002 03:55:03 -0000	1.4
  +++ demo2.pasm	5 Jul 2002 21:43:21 -0000	1.5
  @@ -1,4 +1,5 @@
  -        new P0,.Apache
  +        find_type I0, "Apache"
  +        new P0,I0
          	get_args S0,P0
           concat S0, "you passed me ", S0
           ap_print P0,S0