Changeset a695a68 for perlglue.xs


Ignore:
Timestamp:
May 18, 2007, 4:54:51 PM (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:
cd57601
Parents:
ec53338
git-author:
Nelson Elhage <nelhage@mit.edu> (05/18/07 16:54:42)
git-committer:
Nelson Elhage <nelhage@mit.edu> (05/18/07 16:54:51)
Message:
Adding the ability to define new variables from perl.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rf6b319c ra695a68  
    323323                char *rv = NULL;
    324324        CODE:
    325 rv = owl_text_wordwrap(in, cols);
     325                rv = owl_text_wordwrap(in, cols);
    326326                RETVAL = rv;   
    327327        OUTPUT:
     
    329329        CLEANUP:
    330330                if (rv) owl_free(rv);
     331
     332void
     333new_variable_string_internal(name, ival, summ, desc)
     334        char * name
     335        char * ival
     336        char * summ
     337        char * desc
     338        CODE:
     339        owl_variable_dict_newvar_string(owl_global_get_vardict(&g),
     340                                        name,
     341                                        summ,
     342                                        desc,
     343                                        ival);
     344
     345void
     346new_variable_int_internal(name, ival, summ, desc)
     347        char * name
     348        int ival
     349        char * summ
     350        char * desc
     351        CODE:
     352        owl_variable_dict_newvar_int(owl_global_get_vardict(&g),
     353                                     name,
     354                                     summ,
     355                                     desc,
     356                                     ival);
     357
     358void
     359new_variable_bool_internal(name, ival, summ, desc)
     360        char * name
     361        int ival
     362        char * summ
     363        char * desc
     364        CODE:
     365        owl_variable_dict_newvar_bool(owl_global_get_vardict(&g),
     366                                      name,
     367                                      summ,
     368                                      desc,
     369                                      ival);
Note: See TracChangeset for help on using the changeset viewer.