Changeset 3066d23 for perlglue.xs
- Timestamp:
- Mar 22, 2007, 11:30:13 AM (17 years ago)
- 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:
- 1cf32e7d
- Parents:
- fbd07e9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
rb6c067a r3066d23 121 121 { 122 122 if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) { 123 croak("Usage: owl::queue_message($message)");123 croak("Usage: BarnOwl::queue_message($message)"); 124 124 } 125 125 … … 136 136 { 137 137 if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) { 138 croak("Usage: owl::add_message($message)");138 croak("Usage: BarnOwl::add_message($message)"); 139 139 } 140 140 … … 142 142 m = owl_perlconfig_hashref2message(msg); 143 143 owl_function_add_message(m); 144 } 145 } 146 147 void log_message(msg) 148 SV *msg 149 PREINIT: 150 owl_message *m; 151 CODE: 152 { 153 if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) { 154 croak("Usage: BarnOwl::log_message($message)"); 155 } 156 157 m = owl_perlconfig_hashref2message(msg); 158 owl_log_message(m); 159 owl_message_free(m); 160 } 161 162 void add_and_log_message(msg) 163 SV *msg 164 PREINIT: 165 owl_message *m; 166 CODE: 167 { 168 if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) { 169 croak("Usage: BarnOwl::add_and_log_message($message)"); 170 } 171 172 m = owl_perlconfig_hashref2message(msg); 173 owl_log_message(m); 174 if (owl_global_is_displayoutgoing(&g)) { 175 owl_function_add_message(m); 176 } else { 177 owl_message_free(m); 144 178 } 145 179 }
Note: See TracChangeset
for help on using the changeset viewer.