pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // 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: master.pike.in,v 1.246 2003/05/15 13:55:14 grubba Exp $ + // $Id: master.pike.in,v 1.247 2003/05/17 10:52:47 grubba Exp $      #pike __REAL_VERSION__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:1631:    foreach(syms[1..], string sym)    if(v) v = v[sym];    if(!v)    _error("Could not resolv %s\n", syms*".");    return v;    };       if(sizeof(argv)>1 && sizeof(argv[1]) && argv[1][0]=='-')    {    tmp = main_resolv("Getopt"); -  int NO_ARG = tmp->NO_ARG; -  int MAY_HAVE_ARG = tmp->MAY_HAVE_ARG; -  int HAS_ARG = tmp->HAS_ARG; -  +     if (!tmp)    _error("master.pike: Couldn't resolv Getopt module.\n"    "Is your PIKE_MODULE_PATH environment variable set correctly?\n");    -  +  int NO_ARG = tmp->NO_ARG; +  int MAY_HAVE_ARG = tmp->MAY_HAVE_ARG; +  int HAS_ARG = tmp->HAS_ARG; +     q=tmp->find_all_options(argv,({    ({"compat_version", HAS_ARG, ({"-V", "--compat"}), 0, 0}),    ({"version", NO_ARG, ({"-v", "--version"}), 0, 0}),    ({"help", NO_ARG, ({"-h", "--help"}), 0, 0}),    ({"features", NO_ARG, ({"--features"}), 0, 0}),    ({"info", NO_ARG, ({"--info"}), 0, 0}),    ({"execute", HAS_ARG, ({"-e", "--execute"}), 0, 0}),    ({"debug_without", HAS_ARG, ({"--debug-without"}), 0, 0}),    ({"preprocess", HAS_ARG, ({"-E", "--preprocess"}), 0, 0}),    ({"modpath", HAS_ARG, ({"-M", "--module-path"}), 0, 0}),