pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.316 2008/01/13 18:30:57 grubba Exp $ + || $Id: pike_types.c,v 1.317 2008/03/27 12:31:11 grubba Exp $   */      #include "global.h"   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"
pike.git/src/pike_types.c:1839:    fprintf(stderr, "%d", s->type-'0');    break;       case PIKE_T_NAME:    fprintf(stderr, "{ %s = ", ((struct pike_string *)s->car)->str);    simple_describe_type(s->cdr);    fprintf(stderr, " }");    break;       case PIKE_T_ATTRIBUTE: -  fprintf(stderr, "attribute(%s, ", +  fprintf(stderr, "__attribute__(\"%s\", ",    ((struct pike_string *)s->car)->str);    simple_describe_type(s->cdr);    fprintf(stderr, ")");    break;       case T_SCOPE:    fprintf(stderr, "scope(%"PRINTPTRDIFFT"d, ", CAR_TO_INT(s));    simple_describe_type(s->cdr);    fprintf(stderr, ")");    break;
pike.git/src/pike_types.c:2182:    my_strcat(" = ");    my_describe_type(t->cdr);    my_strcat(" }");    } else {    my_describe_type(t->cdr);    }    break;       case PIKE_T_ATTRIBUTE:    if (!((struct pike_string *)t->car)->size_shift) { -  my_strcat("attribute("); +  my_strcat("__attribute__(\"");    my_binary_strcat(((struct pike_string *)t->car)->str,    ((struct pike_string *)t->car)->len); -  my_strcat(", "); +  my_strcat("\", ");    my_describe_type(t->cdr);    my_strcat(")");    } else {    my_describe_type(t->cdr);    }    break;       case T_FUNCTION:    case T_MANY:    {