pike.git/ lib/ master.pike.in

1998-04-15

1998-04-15 14:16:54 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• caa3227e4b772ad1ff7014cfe469447cc268fb1d (37 lines) (+20/-17) ^{[ Show | Annotate ]}
  Branch: 7.9

Now uses Tools.Hilfe.StdinHilfe().

Rev: lib/master.pike.in:1.8

1: - /* $Id: master.pike.in,v 1.7 1998/04/14 18:19:32 hubbe Exp $ + /* $Id: master.pike.in,v 1.8 1998/04/15 14:16:54 grubba Exp $    *    * Master-file for Pike.    *
207:    break;   #if constant(load_module)    case ".so": +  if (fname == "") { +  werror(sprintf("low_find_prog(\"%s\", \"%s\") => load_module(\"\")\n" +  "%s\n", pname, ext, describe_backtrace(backtrace()))); +  }    ret=load_module(fname);   #endif /* load_module */    }
615:    }    }    -  argv=tmp->get_args(argv,1); +  argv = tmp->get_args(argv,1);    }       if(sizeof(argv)==1)    { -  argv=explode_path(argv[0]); -  argv[-1]="hilfe"; -  argv=({ argv*"/" }); -  if(!master_file_stat(argv[0])) -  { -  if(master_file_stat("¤exec_prefix¤/bin/hilfe")) -  argv[0]="¤exec_prefix¤/bin/hilfe"; -  else if(master_file_stat("../bin/hilfe")) -  argv[0]="../bin/hilfe"; -  else -  { -  werror("Couldn't find hilfe.\n"); +  /* Attempt to resolv Tools.Hilfe.StdinHilfe */ +  tmp = resolv("Tools"); +  if (!tmp) { +  werror("Couldn't find Tools.\n");    exit(1);    } -  +  tmp = tmp["Hilfe"]; +  if (!tmp) { +  werror("Couldn't find Hilfe.\n"); +  exit(1);    } -  }else{ +  tmp->StdinHilfe(); +  exit(0); +  } else {    argv=argv[1..];    }