cvs commit: mod_parrot apache.ops

cvsuser     02/05/29 09:20:21

  Modified:    .        apache.ops
  Log:
  Make and pass a key to the vtable function
  
  Revision  Changes    Path
  1.2       +4 -1      mod_parrot/apache.ops
  
  Index: apache.ops
  ===================================================================
  RCS file: /cvs/public/mod_parrot/apache.ops,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- apache.ops	29 May 2002 15:08:29 -0000	1.1
  +++ apache.ops	29 May 2002 16:20:21 -0000	1.2
  @@ -1,7 +1,10 @@
   VERSION = PARROT_VERSION;
   
   op ap_print (in PMC, in STR) {
  -  ($1->vtable->set_string_keyed)(interpreter, $1, NULL, $2);
  +  KEY *key = key_new(interpreter);
  +  key->atom.type = enum_key_string;
  +  key->atom.val.string_val = string_make(interpreter,"print",5,NULL,0,NULL);
  +  ($1->vtable->set_string_keyed)(interpreter, $1, key, $2);
     goto NEXT();
   }