Roxen.git/ server/ base_server/ roxen.pike

1997-04-12

1997-04-12 15:25:22 by Per Hedbor <ph@opera.com>

• dd479157c50a47e29e3f550a4e8f7cb860c3d44a (33 lines) (+19/-14) ^{[ Show | Annotate ]}
  Branch: 5.2

New database for persistent.pike

Rev: server/base_server/PerGdbm.pmod:1.1
Rev: server/base_server/http.pike:1.8
Rev: server/base_server/persistent.pike:1.21
Rev: server/base_server/roxen.pike:1.51
Rev: server/base_server/roxenloader.pike:1.16

1: - string cvs_version = "$Id: roxen.pike,v 1.50 1997/04/09 06:56:59 grubba Exp $"; + string cvs_version = "$Id: roxen.pike,v 1.51 1997/04/12 15:25:21 per Exp $";   #define IN_ROXEN   #ifdef THREADS   #include <fifo.h>
1706:    {    case "pike":    case "lpc": - // if(catch{ +  if(catch{    if((open(path+file,"r")->read(4))=="#!NO")    { - // perror("Nomodule: "+path+file+"\n"); + #ifdef MODULE_DEBUG +  perror("no module\n"); + #endif    continue;    } - // }) - // break; +  }) +  break;       case "mod":    case "so":
1767:    allmodules=([]);    foreach(QUERY(ModuleDirs), path)    { -  _master->set_inhibit_compile_errors(""); -  catch(scan_module_dir( path )); +  array err; + // _master->set_inhibit_compile_errors(""); +  err = catch(scan_module_dir( path )); +  if(err) +  perror("Error while scanning module dir: %O\n", describe_backtrace(err));    } -  if(strlen(_master->errors)) -  { -  nwrite("While rescanning module list:\n" + _master->errors, 1); -  _master->set_inhibit_compile_errors(0); + // if(strlen(_master->errors)) + // { + // nwrite("While rescanning module list:\n" + _master->errors, 1); + // _master->set_inhibit_compile_errors(0); + // } + // _master->set_inhibit_compile_errors(0);   }    -  _master->set_inhibit_compile_errors(0); - } -  +    // =================================================   // Parse options to Roxen. This function is quite generic, see the   // main() function for more info about how it is used.