pike.git / src / program.c

version» Context lines:

pike.git/src/program.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: program.c,v 1.653 2008/02/27 23:59:23 grubba Exp $ + || $Id: program.c,v 1.654 2008/03/20 15:34:37 grubba Exp $   */      #include "global.h"   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"
pike.git/src/program.c:4453:    pop_stack();    }   }      int call_handle_inherit(struct pike_string *s)   {    int args;       reference_shared_string(s);    push_string(s); +  if (!TEST_COMPAT(7,6)) { +  /* In Pike 7.7 and later filenames belonging to Pike are assumed +  * to be encoded according to UTF-8. +  */ +  f_string_to_utf8(1); +  }    ref_push_string(lex.current_file);    if (error_handler && error_handler->prog) {    ref_push_object(error_handler);    args = 3;    }    else args = 2;       if (safe_apply_handler("handle_inherit", error_handler, compat_handler,    args, BIT_PROGRAM|BIT_FUNCTION|BIT_ZERO))    if (Pike_sp[-1].type != T_INT)