Changeset 864ed35 for perlglue.xs

Timestamp:

Apr 29, 2008, 1:21:13 AM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

b67ab6b

Parents:

120291c

Message:

Initial step of moving styles from the current mishmash of different
options to a unified object interface.
No backwards-compatibility support yet.

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -256 +256 @@
 
 void
-_create_style(name, function, description)
+_create_style(name, object)
      char *name
-     char *function
-     char *description
+     SV  *object
      PREINIT:
                 /* This is to allow us to bootstrap the default style before the
@@ -267 +266 @@
         {
                 s = owl_malloc(sizeof(owl_style));
-                owl_style_create_perl(s, name, function, description);
+                owl_style_create_perl(s, name, object);
                 owl_global_add_style(&g, s);
         }