Mercurial > pidgin.yaz

comparison plugins/tcl/tcl.c @ 13821:e5e07c996c56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 16254] Work proceeds apace on the Tcl status API, this time with GaimPresence committer: Tailor Script <tailor@pidgin.im>
author Ethan Blanton <elb@pidgin.im>
date Sun, 11 Jun 2006 06:05:09 +0000
parents ad8ddfa756ad
children 140ffd4934a0
comparison
equal deleted inserted replaced
13820:6fd7425133fc 13821:e5e07c996c56
52 52
53 GaimStringref *GaimTclRefAccount; 53 GaimStringref *GaimTclRefAccount;
54 GaimStringref *GaimTclRefConnection; 54 GaimStringref *GaimTclRefConnection;
55 GaimStringref *GaimTclRefConversation; 55 GaimStringref *GaimTclRefConversation;
56 GaimStringref *GaimTclRefPointer; 56 GaimStringref *GaimTclRefPointer;
57 GaimStringref *GaimTclRefPresence;
57 GaimStringref *GaimTclRefStatus; 58 GaimStringref *GaimTclRefStatus;
58 GaimStringref *GaimTclRefStatusAttr; 59 GaimStringref *GaimTclRefStatusAttr;
59 GaimStringref *GaimTclRefStatusType; 60 GaimStringref *GaimTclRefStatusType;
60 61
61 static GHashTable *tcl_plugins = NULL; 62 static GHashTable *tcl_plugins = NULL;
129 Tcl_CreateObjCommand(interp, "::gaim::conversation", tcl_cmd_conversation, (ClientData)NULL, NULL); 130 Tcl_CreateObjCommand(interp, "::gaim::conversation", tcl_cmd_conversation, (ClientData)NULL, NULL);
130 Tcl_CreateObjCommand(interp, "::gaim::core", tcl_cmd_core, (ClientData)NULL, NULL); 131 Tcl_CreateObjCommand(interp, "::gaim::core", tcl_cmd_core, (ClientData)NULL, NULL);
131 Tcl_CreateObjCommand(interp, "::gaim::debug", tcl_cmd_debug, (ClientData)NULL, NULL); 132 Tcl_CreateObjCommand(interp, "::gaim::debug", tcl_cmd_debug, (ClientData)NULL, NULL);
132 Tcl_CreateObjCommand(interp, "::gaim::notify", tcl_cmd_notify, (ClientData)NULL, NULL); 133 Tcl_CreateObjCommand(interp, "::gaim::notify", tcl_cmd_notify, (ClientData)NULL, NULL);
133 Tcl_CreateObjCommand(interp, "::gaim::prefs", tcl_cmd_prefs, (ClientData)NULL, NULL); 134 Tcl_CreateObjCommand(interp, "::gaim::prefs", tcl_cmd_prefs, (ClientData)NULL, NULL);
135 Tcl_CreateObjCommand(interp, "::gaim::presence", tcl_cmd_presence, (ClientData)NULL, NULL);
134 Tcl_CreateObjCommand(interp, "::gaim::send_im", tcl_cmd_send_im, (ClientData)NULL, NULL); 136 Tcl_CreateObjCommand(interp, "::gaim::send_im", tcl_cmd_send_im, (ClientData)NULL, NULL);
135 Tcl_CreateObjCommand(interp, "::gaim::signal", tcl_cmd_signal, (ClientData)NULL, NULL); 137 Tcl_CreateObjCommand(interp, "::gaim::signal", tcl_cmd_signal, (ClientData)NULL, NULL);
136 Tcl_CreateObjCommand(interp, "::gaim::status", tcl_cmd_status_type, (ClientData)NULL, NULL); 138 Tcl_CreateObjCommand(interp, "::gaim::status", tcl_cmd_status_type, (ClientData)NULL, NULL);
137 Tcl_CreateObjCommand(interp, "::gaim::status_attr", tcl_cmd_status_type, (ClientData)NULL, NULL); 139 Tcl_CreateObjCommand(interp, "::gaim::status_attr", tcl_cmd_status_type, (ClientData)NULL, NULL);
138 Tcl_CreateObjCommand(interp, "::gaim::status_type", tcl_cmd_status_type, (ClientData)NULL, NULL); 140 Tcl_CreateObjCommand(interp, "::gaim::status_type", tcl_cmd_status_type, (ClientData)NULL, NULL);
344 346
345 GaimTclRefAccount = gaim_stringref_new("Account"); 347 GaimTclRefAccount = gaim_stringref_new("Account");
346 GaimTclRefConnection = gaim_stringref_new("Connection"); 348 GaimTclRefConnection = gaim_stringref_new("Connection");
347 GaimTclRefConversation = gaim_stringref_new("Conversation"); 349 GaimTclRefConversation = gaim_stringref_new("Conversation");
348 GaimTclRefPointer = gaim_stringref_new("Pointer"); 350 GaimTclRefPointer = gaim_stringref_new("Pointer");
351 GaimTclRefPresence = gaim_stringref_new("Presence");
349 GaimTclRefStatus = gaim_stringref_new("Status"); 352 GaimTclRefStatus = gaim_stringref_new("Status");
350 GaimTclRefStatusAttr = gaim_stringref_new("StatusAttr"); 353 GaimTclRefStatusAttr = gaim_stringref_new("StatusAttr");
351 GaimTclRefStatusType = gaim_stringref_new("StatusType"); 354 GaimTclRefStatusType = gaim_stringref_new("StatusType");
352 355
353 tcl_plugins = g_hash_table_new(g_direct_hash, g_direct_equal); 356 tcl_plugins = g_hash_table_new(g_direct_hash, g_direct_equal);
366 369
367 gaim_stringref_unref(GaimTclRefAccount); 370 gaim_stringref_unref(GaimTclRefAccount);
368 gaim_stringref_unref(GaimTclRefConnection); 371 gaim_stringref_unref(GaimTclRefConnection);
369 gaim_stringref_unref(GaimTclRefConversation); 372 gaim_stringref_unref(GaimTclRefConversation);
370 gaim_stringref_unref(GaimTclRefPointer); 373 gaim_stringref_unref(GaimTclRefPointer);
374 gaim_stringref_unref(GaimTclRefPresence);
371 gaim_stringref_unref(GaimTclRefStatus); 375 gaim_stringref_unref(GaimTclRefStatus);
372 gaim_stringref_unref(GaimTclRefStatusAttr); 376 gaim_stringref_unref(GaimTclRefStatusAttr);
373 gaim_stringref_unref(GaimTclRefStatusType); 377 gaim_stringref_unref(GaimTclRefStatusType);
374 378
375 return TRUE; 379 return TRUE;