Changeset c3acb0b for perlconfig.c
- Timestamp:
- Dec 23, 2003, 4:38:44 PM (21 years ago)
- Branches:
- master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- ba9f236
- Parents:
- 8b16467
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
rb0430a6 rc3acb0b 15 15 extern XS(boot_owl); 16 16 17 static void owl_perl_xs_init(pTHX) { 17 static void owl_perl_xs_init(pTHX) 18 { 18 19 char *file = __FILE__; 19 20 dXSUB_SYS; … … 23 24 } 24 25 25 SV *owl_perlconfig_message2hashref(owl_message *m) { /*noproto*/ 26 SV *owl_perlconfig_message2hashref(owl_message *m) /*noproto*/ 27 { 26 28 HV *h; 27 29 SV *hr; … … 84 86 85 87 86 SV *owl_perlconfig_curmessage2hashref(void) { /*noproto*/ 88 SV *owl_perlconfig_curmessage2hashref(void) /*noproto*/ 89 { 87 90 int curmsg; 88 91 owl_view *v; … … 98 101 /* Calls in a scalar context, passing it a hash reference. 99 102 If return value is non-null, caller must free. */ 100 char *owl_perlconfig_call_with_message(char *subname, owl_message *m) { 103 char *owl_perlconfig_call_with_message(char *subname, owl_message *m) 104 { 101 105 dSP ; 102 106 int count, len; … … 146 150 } 147 151 148 char *owl_perlconfig_readconfig(char *file) { 152 char *owl_perlconfig_readconfig(char *file) 153 { 149 154 int ret; 150 155 PerlInterpreter *p; … … 233 238 234 239 /* returns 0 on success */ 235 int owl_perlconfig_get_hashkeys(char *hashname, owl_list *l) { 240 int owl_perlconfig_get_hashkeys(char *hashname, owl_list *l) 241 { 236 242 HV *hv; 237 243 HE *he; … … 253 259 254 260 /* caller is responsible for freeing returned string */ 255 char *owl_perlconfig_execute(char *line) { 261 char *owl_perlconfig_execute(char *line) 262 { 256 263 STRLEN len; 257 264 SV *response; … … 281 288 } 282 289 283 char *owl_perlconfig_getmsg(owl_message *m, int mode, char *subname) { 290 char *owl_perlconfig_getmsg(owl_message *m, int mode, char *subname) 291 { 284 292 /* if mode==1 we are doing message formatting. The returned 285 293 * formatted message needs to be freed by the caller.
Note: See TracChangeset
for help on using the changeset viewer.