Lines Matching defs:synonym
264 Node *p = Getattr(n, "allegrocl:synonym-of");
267 // Printf(stderr, "getting primary synonym of %x\n", n);
271 p = Getattr(p, "allegrocl:synonym-of");
470 Setattr(new_node, "allegrocl:synonym:is-primary", "1");
472 // a synonym type was found (held in variable 'match')
473 // Printf(stderr, "setting primary synonym of %x to %x\n", new_node, match);
475 Printf(stderr, "Hey-4 * - '%s' is a synonym of iteself!\n", Getattr(new_node, "name"));
476 Setattr(new_node, "allegrocl:synonym-of", match);
509 // mark as a synonym but don't add to linked_type list
511 Setattr(n, "allegrocl:synonym", "1");
516 Setattr(n, "allegrocl:synonym", "1");
517 Setattr(n, "allegrocl:synonym-of", match);
521 // if(n == match) Printf(stderr, "Hey-5 *** setting synonym of %x to %x\n", n, match);
546 Setattr(n, "allegrocl:synonym", "1");
547 Setattr(n, "allegrocl:synonym-of", new_node);
559 Setattr(n, "allegrocl:synonym", "1");
560 Setattr(n, "allegrocl:synonym-of", match);
565 // synonym types have already been added.
567 if (!Getattr(n, "allegrocl:synonym"))
585 Setattr(n, "allegrocl:synonym:is-primary", "1");
586 Delattr(primary, "allegrocl:synonym:is-primary");
588 Printf(stderr, "Hey-7 * setting synonym of %x to %x\n (match = %x)", primary, n, match);
589 Setattr(primary, "allegrocl:synonym-of", n);
1085 if (Getattr(n, "allegrocl:synonym:already-been-stubbed"))
1102 Setattr(n, "allegrocl:synonym:already-been-stubbed", "1");
1109 void emit_synonym(Node *synonym) {
1115 // Printf(stderr,"in emit_synonym for %s(%x)\n", Getattr(synonym,"name"),synonym);
1116 int is_tempInst = !Strcmp(nodeType(synonym), "templateInst");
1119 Node *of = get_primary_synonym_of(synonym);
1122 // Printf(stderr, "*** using real-name '%s'\n", Getattr(synonym,"real-name"));
1123 synonym_type = Getattr(synonym, "real-name");
1125 // Printf(stderr, "*** using name '%s'\n", Getattr(synonym,"name"));
1126 synonym_type = Getattr(synonym, "name");
1129 String *synonym_ns = listify_namespace(Getattr(synonym, "allegrocl:namespace"));
1138 if (CPlusPlus && !Strcmp(nodeType(synonym), "cdecl")) {
1140 strip_namespaces(Getattr(synonym, "real-name")), synonym_ns);
1142 strip_namespaces(Getattr(synonym, "real-name")), synonym_ns);
1150 // Printf(stderr,";; from emit-synonym syn='%s' of_ltype='%s'\n", syn_ltype, of_ltype);
1152 Printf(f_clhead, "(swig-def-synonym-type %s\n %s\n %s)\n", syn_ltype, of_ltype, syn_type);
1173 if (Getattr(n, "allegrocl:synonym-of")) {
1174 // Printf(stderr,"but it's a synonym of something.\n");
1261 Setattr(n, "allegrocl:synonym:already-been-stubbed", "1");
1288 if (Getattr(n, "allegrocl:synonym:is-primary")) {
1296 // Node *primary = Getattr(n,"allegrocl:synonym-of");
1299 // Printf(stderr," emitting synonym... ");
1330 if (Getattr(n, "allegrocl:synonym-of")) {
1331 // Printf(stderr," but it's a synonym of something.\n");
1492 Node *t = Getattr(n, "allegrocl:synonym-of");
1494 Printf(f, " synonym-of %s(%x)\n", Getattr(t, "name"), t);