pike.git / src / main.c

version» Context lines:

pike.git/src/main.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: main.c,v 1.201 2004/09/16 00:18:35 nilsson Exp $ + || $Id: main.c,v 1.202 2004/09/26 15:18:10 marcus Exp $   */      #include "global.h" - RCSID("$Id: main.c,v 1.201 2004/09/16 00:18:35 nilsson Exp $"); + RCSID("$Id: main.c,v 1.202 2004/09/26 15:18:10 marcus Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "language.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"
pike.git/src/main.c:810:    for(num=0;num<argc;num++)    {    ITEM(a)[num].u.string=make_shared_string(argv[num]);    ITEM(a)[num].type=T_STRING;    }    a->type_field = BIT_STRING;    push_array(a);      #ifdef __amigaos__   #ifdef __amigaos4__ -  if(DOSBase->dl_lib.lib_Version >= 50) { +  if(DOSBase->lib_Version >= 50) {    struct svalue *mark = Pike_sp;    IDOS->ScanVars(&scan_amigaos_environment_hook,    GVF_BINARY_VAR|GVF_DONT_NULL_TERM,    NULL);    f_aggregate(Pike_sp-mark);    } else   #endif    push_array(allocate_array_no_init(0,0));   #else    for(num=0;environ[num];num++);