Mercurial > pidgin

comparison src/perl.c @ 591:a26eb4c472d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 601] plugins makefile script works better. perl is getting added to. committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Thu, 03 Aug 2000 02:05:26 +0000
parents 91f877d86ca6
children 7c75d69a1129
comparison
equal deleted inserted replaced
590:91f877d86ca6 591:a26eb4c472d8
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 */