Mercurial > pidgin

comparison libpurple/plugins/tcl/tcl_ref.c @ 15822:32c366eeeb99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sed -ie 's/gaim/purple/g'
author Sean Egan <seanegan@gmail.com>
date Mon, 19 Mar 2007 07:01:17 +0000
parents 5fe8042783c1
children a910080ccf8b
comparison
equal deleted inserted replaced
15821:84b0f9b23ede 15822:32c366eeeb99
1 /** 1 /**
2 * @file tcl_ref.c Gaim Tcl typed references API 2 * @file tcl_ref.c Purple Tcl typed references API
3 * 3 *
4 * gaim 4 * purple
5 * 5 *
6 * Copyright (C) 2006 Ethan Blanton <eblanton@cs.purdue.edu> 6 * Copyright (C) 2006 Ethan Blanton <eblanton@cs.purdue.edu>
7 * 7 *
8 * This program is free software; you can redistribute it and/or modify 8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by 9 * it under the terms of the GNU General Public License as published by
21 */ 21 */
22 22
23 #include <tcl.h> 23 #include <tcl.h>
24 #include <glib.h> 24 #include <glib.h>
25 25
26 #include "tcl_gaim.h" 26 #include "tcl_purple.h"
27 #include "stringref.h" 27 #include "stringref.h"
28 28
29 /* Instead of all that internal representation mumbo jumbo, use these 29 /* Instead of all that internal representation mumbo jumbo, use these
30 * macros to access the internal representation of a GaimTclRef */ 30 * macros to access the internal representation of a PurpleTclRef */
31 #define OBJ_REF_TYPE(obj) (obj->internalRep.twoPtrValue.ptr1) 31 #define OBJ_REF_TYPE(obj) (obj->internalRep.twoPtrValue.ptr1)
32 #define OBJ_REF_VALUE(obj) (obj->internalRep.twoPtrValue.ptr2) 32 #define OBJ_REF_VALUE(obj) (obj->internalRep.twoPtrValue.ptr2)
33 33
34 static Tcl_FreeInternalRepProc gaim_tcl_ref_free; 34 static Tcl_FreeInternalRepProc purple_tcl_ref_free;
35 static Tcl_DupInternalRepProc gaim_tcl_ref_dup; 35 static Tcl_DupInternalRepProc purple_tcl_ref_dup;
36 static Tcl_UpdateStringProc gaim_tcl_ref_update; 36 static Tcl_UpdateStringProc purple_tcl_ref_update;
37 static Tcl_SetFromAnyProc gaim_tcl_ref_set; 37 static Tcl_SetFromAnyProc purple_tcl_ref_set;
38 38
39 static Tcl_ObjType gaim_tcl_ref = { 39 static Tcl_ObjType purple_tcl_ref = {
40 "GaimTclRef", 40 "PurpleTclRef",
41 gaim_tcl_ref_free, 41 purple_tcl_ref_free,
42 gaim_tcl_ref_dup, 42 purple_tcl_ref_dup,
43 gaim_tcl_ref_update, 43 purple_tcl_ref_update,
44 gaim_tcl_ref_set 44 purple_tcl_ref_set
45 }; 45 };
46 46
47 void gaim_tcl_ref_init() 47 void purple_tcl_ref_init()
48 { 48 {
49 Tcl_RegisterObjType(&gaim_tcl_ref); 49 Tcl_RegisterObjType(&purple_tcl_ref);
50 } 50 }
51 51
52 void *gaim_tcl_ref_get(Tcl_Interp *interp, Tcl_Obj *obj, GaimStringref *type) 52 void *purple_tcl_ref_get(Tcl_Interp *interp, Tcl_Obj *obj, PurpleStringref *type)
53 { 53 {
54 if (obj->typePtr != &gaim_tcl_ref) { 54 if (obj->typePtr != &purple_tcl_ref) {
55 if (Tcl_ConvertToType(interp, obj, &gaim_tcl_ref) != TCL_OK) 55 if (Tcl_ConvertToType(interp, obj, &purple_tcl_ref) != TCL_OK)
56 return NULL; 56 return NULL;
57 } 57 }
58 if (strcmp(gaim_stringref_value(OBJ_REF_TYPE(obj)), 58 if (strcmp(purple_stringref_value(OBJ_REF_TYPE(obj)),
59 gaim_stringref_value(type))) { 59 purple_stringref_value(type))) {
60 if (interp) { 60 if (interp) {
61 Tcl_Obj *error = Tcl_NewStringObj("Bad Gaim reference type: expected ", -1); 61 Tcl_Obj *error = Tcl_NewStringObj("Bad Purple reference type: expected ", -1);
62 Tcl_AppendToObj(error, gaim_stringref_value(type), -1); 62 Tcl_AppendToObj(error, purple_stringref_value(type), -1);
63 Tcl_AppendToObj(error, " but got ", -1); 63 Tcl_AppendToObj(error, " but got ", -1);
64 Tcl_AppendToObj(error, gaim_stringref_value(OBJ_REF_TYPE(obj)), -1); 64 Tcl_AppendToObj(error, purple_stringref_value(OBJ_REF_TYPE(obj)), -1);
65 Tcl_SetObjResult(interp, error); 65 Tcl_SetObjResult(interp, error);
66 } 66 }
67 return NULL; 67 return NULL;
68 } 68 }
69 return OBJ_REF_VALUE(obj); 69 return OBJ_REF_VALUE(obj);
70 } 70 }
71 71
72 Tcl_Obj *gaim_tcl_ref_new(GaimStringref *type, void *value) 72 Tcl_Obj *purple_tcl_ref_new(PurpleStringref *type, void *value)
73 { 73 {
74 Tcl_Obj *obj = Tcl_NewObj(); 74 Tcl_Obj *obj = Tcl_NewObj();
75 obj->typePtr = &gaim_tcl_ref; 75 obj->typePtr = &purple_tcl_ref;
76 OBJ_REF_TYPE(obj) = gaim_stringref_ref(type); 76 OBJ_REF_TYPE(obj) = purple_stringref_ref(type);
77 OBJ_REF_VALUE(obj) = value; 77 OBJ_REF_VALUE(obj) = value;
78 Tcl_InvalidateStringRep(obj); 78 Tcl_InvalidateStringRep(obj);
79 return obj; 79 return obj;
80 } 80 }
81 81
82 static void gaim_tcl_ref_free(Tcl_Obj *obj) 82 static void purple_tcl_ref_free(Tcl_Obj *obj)
83 { 83 {
84 gaim_stringref_unref(OBJ_REF_TYPE(obj)); 84 purple_stringref_unref(OBJ_REF_TYPE(obj));
85 } 85 }
86 86
87 static void gaim_tcl_ref_dup(Tcl_Obj *obj1, Tcl_Obj *obj2) 87 static void purple_tcl_ref_dup(Tcl_Obj *obj1, Tcl_Obj *obj2)
88 { 88 {
89 OBJ_REF_TYPE(obj2) = gaim_stringref_ref(OBJ_REF_TYPE(obj1)); 89 OBJ_REF_TYPE(obj2) = purple_stringref_ref(OBJ_REF_TYPE(obj1));
90 OBJ_REF_VALUE(obj2) = OBJ_REF_VALUE(obj1); 90 OBJ_REF_VALUE(obj2) = OBJ_REF_VALUE(obj1);
91 } 91 }
92 92
93 static void gaim_tcl_ref_update(Tcl_Obj *obj) 93 static void purple_tcl_ref_update(Tcl_Obj *obj)
94 { 94 {
95 /* This is ugly on memory, but we pretty much have to either 95 /* This is ugly on memory, but we pretty much have to either
96 * do this or guesstimate lengths or introduce a varargs 96 * do this or guesstimate lengths or introduce a varargs
97 * function in here ... ugh. */ 97 * function in here ... ugh. */
98 char *bytes = g_strdup_printf("gaim-%s:%p", 98 char *bytes = g_strdup_printf("purple-%s:%p",
99 gaim_stringref_value(OBJ_REF_TYPE(obj)), 99 purple_stringref_value(OBJ_REF_TYPE(obj)),
100 OBJ_REF_VALUE(obj)); 100 OBJ_REF_VALUE(obj));
101 101
102 obj->length = strlen(bytes); 102 obj->length = strlen(bytes);
103 obj->bytes = ckalloc(obj->length + 1); 103 obj->bytes = ckalloc(obj->length + 1);
104 strcpy(obj->bytes, bytes); 104 strcpy(obj->bytes, bytes);
106 } 106 }
107 107
108 /* This isn't as memory-efficient as setting could be, because we 108 /* This isn't as memory-efficient as setting could be, because we
109 * essentially have to synthesize the Stringref here, where we would 109 * essentially have to synthesize the Stringref here, where we would
110 * really rather dup it. Oh, well. */ 110 * really rather dup it. Oh, well. */
111 static int gaim_tcl_ref_set(Tcl_Interp *interp, Tcl_Obj *obj) 111 static int purple_tcl_ref_set(Tcl_Interp *interp, Tcl_Obj *obj)
112 { 112 {
113 char *bytes = Tcl_GetStringFromObj(obj, NULL); 113 char *bytes = Tcl_GetStringFromObj(obj, NULL);
114 char *ptr; 114 char *ptr;
115 GaimStringref *type; 115 PurpleStringref *type;
116 void *value; 116 void *value;
117 117
118 if (strlen(bytes) < 7 118 if (strlen(bytes) < 7
119 || strncmp(bytes, "gaim-", 5) 119 || strncmp(bytes, "purple-", 5)
120 || (ptr = strchr(bytes, ':')) == NULL 120 || (ptr = strchr(bytes, ':')) == NULL
121 || (ptr - bytes) == 5) 121 || (ptr - bytes) == 5)
122 goto badobject; 122 goto badobject;
123 123
124 /* Bad Ethan */ 124 /* Bad Ethan */
125 *ptr = '\0'; 125 *ptr = '\0';
126 type = gaim_stringref_new(bytes + 5); 126 type = purple_stringref_new(bytes + 5);
127 *ptr = ':'; 127 *ptr = ':';
128 ptr++; 128 ptr++;
129 129
130 if (sscanf(ptr, "%p", &value) == 0) { 130 if (sscanf(ptr, "%p", &value) == 0) {
131 gaim_stringref_unref(type); 131 purple_stringref_unref(type);
132 goto badobject; 132 goto badobject;
133 } 133 }
134 134
135 /* At this point we know we have a good object; free the old and 135 /* At this point we know we have a good object; free the old and
136 * install our internal representation. */ 136 * install our internal representation. */
137 if (obj->typePtr != NULL && obj->typePtr->freeIntRepProc != NULL) 137 if (obj->typePtr != NULL && obj->typePtr->freeIntRepProc != NULL)
138 obj->typePtr->freeIntRepProc(obj); 138 obj->typePtr->freeIntRepProc(obj);
139 139
140 obj->typePtr = &gaim_tcl_ref; 140 obj->typePtr = &purple_tcl_ref;
141 OBJ_REF_TYPE(obj) = type; 141 OBJ_REF_TYPE(obj) = type;
142 OBJ_REF_VALUE(obj) = value; 142 OBJ_REF_VALUE(obj) = value;
143 143
144 return TCL_OK; 144 return TCL_OK;
145 145
146 badobject: 146 badobject:
147 if (interp) { 147 if (interp) {
148 Tcl_SetObjResult(interp, 148 Tcl_SetObjResult(interp,
149 Tcl_NewStringObj("invalid GaimTclRef representation", -1)); 149 Tcl_NewStringObj("invalid PurpleTclRef representation", -1));
150 } 150 }
151 return TCL_ERROR; 151 return TCL_ERROR;
152 } 152 }