Changeset b6c067a for perlglue.xs

Timestamp:

Feb 16, 2007, 1:37:44 AM (17 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:

6e6ded7

Parents:

3f21b8e

git-author:

Nelson Elhage <nelhage@mit.edu> (02/15/07 23:16:22)

git-committer:

Nelson Elhage <nelhage@mit.edu> (02/16/07 01:37:44)

Message:

Moving the default style into perl, and reorganizing things so we can
bootstrap the style into place in time.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -246 +246 @@
                 owl_function_error("%s", text);
         }
+
+void
+_create_style(name, function, description)
+     char *name
+     char *function
+     char *description
+     PREINIT:
+                /* This is to allow us to bootstrap the default style before the
+                command architecture has been initialized */
+                owl_style *s;
+     CODE:
+        {
+                s = owl_malloc(sizeof(owl_style));
+                owl_style_create_perl(s, name, function, description);
+                owl_global_add_style(&g, s);
+        }