comparison: src/perl.c
src/perl.c
- changeset 591
- 809e18bb0862
- parent 590
- a0fbe38abfef
- child 592
- 9cd04eefc8ca
equal
deleted
inserted
replaced
| 590:a0fbe38abfef | 591:809e18bb0862 |
|---|---|
| 64 static GList *perl_list = NULL; | 64 static GList *perl_list = NULL; |
| 65 static GList *perl_timeout_handlers = NULL; | 65 static GList *perl_timeout_handlers = NULL; |
| 66 static PerlInterpreter *my_perl = NULL; | 66 static PerlInterpreter *my_perl = NULL; |
| 67 | 67 |
| 68 /* dealing with gaim */ | 68 /* dealing with gaim */ |
| 69 XS(XS_AIM_register); | 69 XS(XS_AIM_register); /* set up hooks for script */ |
| 70 XS(XS_AIM_get_info); | 70 XS(XS_AIM_get_info); /* version, last to attempt signon, protocol */ |
| 71 XS(XS_AIM_print); /* lemme figure this one out... */ | 71 XS(XS_AIM_print); /* lemme figure this one out... */ |
| 72 | 72 |
| 73 /* list stuff */ | 73 /* list stuff */ |
| 74 XS(XS_AIM_buddy_list); | 74 XS(XS_AIM_buddy_list); /* all buddies */ |
| 75 XS(XS_AIM_online_list); | 75 XS(XS_AIM_online_list); /* online buddies */ |
| 76 XS(XS_AIM_deny_list); /* also returns permit list */ | 76 XS(XS_AIM_deny_list); /* also returns permit list */ |
| 77 | 77 |
| 78 /* server stuff */ | 78 /* server stuff */ |
| 79 XS(XS_AIM_command); | 79 XS(XS_AIM_command); /* send command to server */ |
| 80 XS(XS_AIM_user_info); /* given name, return struct buddy members */ | 80 XS(XS_AIM_user_info); /* given name, return struct buddy members */ |
| 81 | 81 |
| 82 /* handler commands */ | 82 /* handler commands */ |
| 83 XS(XS_AIM_add_message_handler); | 83 XS(XS_AIM_add_message_handler); /* when people talk */ |
| 84 XS(XS_AIM_add_command_handler); | 84 XS(XS_AIM_add_command_handler); /* when servers talk */ |
| 85 XS(XS_AIM_add_timeout_handler); | 85 XS(XS_AIM_add_timeout_handler); /* figure it out */ |
| 86 | 86 |
| 87 /* cool stuff */ | |
| 88 XS(XS_AIM_print_to_conv); /* send message to someone */ | |
| 87 | 89 |
| 88 void xs_init() | 90 void xs_init() |
| 89 { | 91 { |
| 90 char *file = __FILE__; | 92 char *file = __FILE__; |
| 91 newXS ("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); | 93 newXS ("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); |
| 238 XST_mPV(0, VERSION); | 240 XST_mPV(0, VERSION); |
| 239 break; | 241 break; |
| 240 case 1: | 242 case 1: |
| 241 XST_mPV(0, current_user->username); | 243 XST_mPV(0, current_user->username); |
| 242 break; | 244 break; |
| 245 case 2: | |
| 246 if (!blist) | |
| 247 XST_mPV(0, "Offline"); | |
| 248 else if (!USE_OSCAR) | |
| 249 XST_mPV(0, "TOC"); | |
| 250 else | |
| 251 XST_mPV(0, "Oscar"); | |
| 252 break; | |
| 243 /* FIXME */ | 253 /* FIXME */ |
| 244 default: | 254 default: |
| 245 XST_mPV(0, "Error2"); | 255 XST_mPV(0, "Error2"); |
| 246 } | 256 } |
| 247 | 257 |
| 378 perl_timeout_handlers = g_list_append(perl_timeout_handlers, handler); | 388 perl_timeout_handlers = g_list_append(perl_timeout_handlers, handler); |
| 379 handler->iotag = gtk_timeout_add(timeout, (GtkFunction)perl_timeout, handler); | 389 handler->iotag = gtk_timeout_add(timeout, (GtkFunction)perl_timeout, handler); |
| 380 XSRETURN_EMPTY; | 390 XSRETURN_EMPTY; |
| 381 } | 391 } |
| 382 | 392 |
| 393 XS (XS_AIM_print_to_conv) | |
| 394 { | |
| 395 /* FIXME */ | |
| 396 } | |
| 397 | |
| 383 #endif /* USE_PERL */ | 398 #endif /* USE_PERL */ |
