pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.28 1998/01/16 22:33:07 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.29 1998/01/25 08:25:13 hubbe Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:205:    for(e--;e>=0;e--) push_type(s[e]);   }      void push_finished_type(struct pike_string *type)   {    int e;    CHECK_TYPE(type);    for(e=type->len-1;e>=0;e--) push_type(type->str[e]);   }    - struct pike_string *pop_unfinished_type(void) + struct pike_string *debug_pop_unfinished_type(void)   {    int len,e;    struct pike_string *s;    len=pop_stack_mark();    s=begin_shared_string(len);    type_stackp-=len;    MEMCPY(s->str, type_stackp, len);    reverse(s->str, len, 1);    s=end_shared_string(s);    CHECK_TYPE(s);    return s;   }    - struct pike_string *pop_type(void) + struct pike_string *debug_pop_type(void)   {    struct pike_string *s;    s=pop_unfinished_type();    type_stack_mark();    return s;   }      static void internal_parse_typeA(char **_s)   {    char buf[80];