pike.git / src / builtin_functions.c

version» Context lines:

pike.git/src/builtin_functions.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: builtin_functions.c,v 1.625 2007/03/03 18:13:06 grubba Exp $ + || $Id: builtin_functions.c,v 1.626 2007/03/03 18:15:34 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"
pike.git/src/builtin_functions.c:2199:    }   #endif /* PIKE_DEBUG */    out = low_end_shared_string(out);   #ifdef PIKE_DEBUG    check_string (out);   #endif    pop_n_elems(args);    push_string(out);   }    - /*! @decl string __parse_pike_type(string t) + /*! @decl string(8) __parse_pike_type(string(8) t)    */   static void f_parse_pike_type( INT32 args )   {    struct pike_type *t;       if( !args || Pike_sp[-1].type != T_STRING ||    Pike_sp[-1].u.string->size_shift )    Pike_error( "__parse_pike_type requires a 8bit string as its first argument\n" );    t = parse_type( (char *)STR0(Pike_sp[-1].u.string) );    pop_stack();
pike.git/src/builtin_functions.c:8969:    tArr(tVar(0)))),0,fix_values_type,0);      /* function(mixed:int) */    ADD_EFUN2("zero_type",f_zero_type,tFunc(tMix,tInt01),0,0,generate_zero_type);      /* function(string,string:array) */    ADD_EFUN("array_sscanf",f_sscanf,tFunc(tStr tStr,tArray),0);       /* Some Wide-string stuff */    - /* function(string:string) */ + /* function(string:string(8)) */    ADD_EFUN("string_to_unicode", f_string_to_unicode, -  tFunc(tStr,tStr), OPT_TRY_OPTIMIZE); +  tFunc(tStr,tStr8), OPT_TRY_OPTIMIZE);      /* function(string(8):string) */    ADD_EFUN("unicode_to_string", f_unicode_to_string,    tFunc(tStr8,tStr), OPT_TRY_OPTIMIZE);      /* function(string,int|void:string(8)) */    ADD_EFUN("string_to_utf8", f_string_to_utf8,    tFunc(tStr tOr(tInt,tVoid),tStr8), OPT_TRY_OPTIMIZE);      /* function(string(8),int|void:string) */    ADD_EFUN("utf8_to_string", f_utf8_to_string,    tFunc(tStr8 tOr(tInt,tVoid),tStr), OPT_TRY_OPTIMIZE);          ADD_EFUN("__parse_pike_type", f_parse_pike_type, -  tFunc(tStr,tStr),OPT_TRY_OPTIMIZE); +  tFunc(tStr8,tStr8),OPT_TRY_OPTIMIZE);      #ifdef HAVE_LOCALTIME      /* function(int:mapping(string:int)) */    ADD_EFUN("localtime",f_localtime,    tFunc(tInt,tMap(tStr,tInt)),OPT_EXTERNAL_DEPEND);   #endif   #ifdef HAVE_GMTIME      /* function(int:mapping(string:int)) */