Changeset b6c067a for perlglue.xs


Ignore:
Timestamp:
Feb 16, 2007, 1:37:44 AM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r0ff2528 rb6c067a  
    246246                owl_function_error("%s", text);
    247247        }
     248
     249void
     250_create_style(name, function, description)
     251     char *name
     252     char *function
     253     char *description
     254     PREINIT:
     255                /* This is to allow us to bootstrap the default style before the
     256                command architecture has been initialized */
     257                owl_style *s;
     258     CODE:
     259        {
     260                s = owl_malloc(sizeof(owl_style));
     261                owl_style_create_perl(s, name, function, description);
     262                owl_global_add_style(&g, s);
     263        }
Note: See TracChangeset for help on using the changeset viewer.