pike.git / lib / modules / Pike.pmod / module.pmod

version» Context lines:

pike.git/lib/modules/Pike.pmod/module.pmod:1:   #pike __REAL_VERSION__   #pragma strict_types      // Pike core things that don't belong anywhere else.   // - // $Id: module.pmod,v 1.18 2008/06/06 18:01:40 grubba Exp $ + // $Id: module.pmod,v 1.19 2008/06/28 16:36:56 nilsson Exp $      constant WEAK_INDICES = __builtin.PIKE_WEAK_INDICES;   constant WEAK_VALUES = __builtin.PIKE_WEAK_VALUES;   constant WEAK = WEAK_INDICES|WEAK_VALUES;   //! Flags for use together with @[set_weak_flag] and @[get_weak_flag].   //! See @[set_weak_flag] for details.      constant INDEX_FROM_BEG = __builtin.INDEX_FROM_BEG;   constant INDEX_FROM_END = __builtin.INDEX_FROM_END;   constant OPEN_BOUND = __builtin.OPEN_BOUND;
pike.git/lib/modules/Pike.pmod/module.pmod:57:   // Type-checking:   constant low_check_call = predef::__low_check_call;   constant get_return_type = predef::__get_return_type;   constant get_first_arg_type = predef::__get_first_arg_type;      program Encoder = [program] master()->Encoder;   program Decoder = [program] master()->Decoder;   program Codec = [program] master()->Codec;      #if 0 - static constant TYPE = typeof(typeof([mixed]0)); + protected constant TYPE = typeof(typeof([mixed]0));      TYPE check_call(TYPE fun_type, TYPE ... arg_types)   {    array(TYPE) conts = allocate(sizeof(arg_types) + 1);    conts[0] = fun_type;    foreach(arg_types; int i; TYPE arg_type) {    if (!(conts[i+1] = low_check_call(conts[i], arg_type,    (i == (sizeof(arg_types)-1))?2:0))) {    werror("Error: Bad argument %d to function, got %O, expected %O.\n",    i+1, arg_type, get_first_arg_type(conts[i]));
pike.git/lib/modules/Pike.pmod/module.pmod:88: Inside #if 0
   }    return 0;    }    TYPE ret = get_return_type(conts[-1]);    if (!ret) {    werror("Error: Too few arguments.\n");    }    return ret;   }   #endif /* 0 */ +