pike.git / bin / install.pike

version» Context lines:

pike.git/bin/install.pike:319: Inside #if defined(GENERATE_WIX_UI)
   class BannerText    {    inherit TextLabel;    string id = "Banner";    int x = 9;    int y = 9;    int width = 306;    int height = 33;    int transparent = 1;    string font = "\\VSI_MS_Sans_Serif16.0_1_0"; -  static void create() +  protected void create()    {    text = banner;    }    }       class BannerBmp    {    inherit Control;    constant type = "Bitmap";    string id = "BannerBmp";
pike.git/bin/install.pike:507: Inside #if defined(GENERATE_WIX_UI)
      WixNode gen_xml()    {    WixNode res = WixNode("Dialog", get_attrs());    foreach(controls, Control c) {    res->add_child(c->gen_xml());    }    return res;    }    -  static void create() +  protected void create()    {    // NOTE: __INIT must have finished before the objects are cloned.    controls = ({    BannerBmp(),    BannerText(),    Line(),    CancelButton(),    PrevButton(),    NextButton(),    Line2(),
pike.git/bin/install.pike:571: Inside #if defined(GENERATE_WIX_UI)
   inherit Dialog::PrevButton;    int disabled = 1;    }    class BodyText    {    inherit Dialog::BodyText;    string text = "The installation was interrupted before [ProductName] "    "could be installed. You need to restart the installer to try again.";    }    -  static void create() +  protected void create()    {    ::create();    controls += ({ BodyText() });    }   }      class FatalDialog   {    inherit ExitDialog;    string id = "FatalDialog";
pike.git/bin/install.pike:656: Inside #if defined(GENERATE_WIX_UI)
      mapping(string:string) get_attrs()    {    mapping(string:string) res = ::get_attrs();    res->Sunken = "yes";    res->Property = "TARGETDIR";    return res;    }    }    -  static void create() +  protected void create()    {    ::create();    controls += ({    FolderLabel(),    FolderEdit(),    });    }   }      class ProgressDialog
pike.git/bin/install.pike:686: Inside #if defined(GENERATE_WIX_UI)
   int disabled = 1;    }       mapping(string:string) get_attrs()    {    mapping(string:string) res = ::get_attrs();    res->Modeless = "yes";    return res;    }    -  static void create() +  protected void create()    {    ::create();    controls += ({    ProgressBar(),    });    }   }      class UI   {
pike.git/bin/install.pike:1031:      void install_dir(string from, string to, int dump)   {    from=stripslash(from);    to=stripslash(to);       installed_files++;    mkdirhier(to);    foreach(get_dir(from),string file)    { -  if(file=="CVS") continue; +     if(file=="testsuite.in") continue;    if(file[..1]==".#") continue;    if(file[0]=='#' && file[-1]=='#') continue;    if(file[-1]=='~') continue; -  +  if(has_suffix(file, ".test")) continue;    mixed stat=file_stat(combine_path(from,file));    if (stat) {    if(stat[1]==-2) {    install_dir(combine_path(from,file),combine_path(to,file),dump);    } else if (stat[0] & 0111) {    // Executable    install_file(combine_path(from,file),combine_path(to,file),0755,dump);    } else {    // Not executable    install_file(combine_path(from,file),combine_path(to,file),0644,dump);
pike.git/bin/install.pike:1575:   #"TARFILE=\"$1\"; shift   ARGS=''      INSTALL_SCRIPT='bin/install.pike'      while [ $# != 0 ]   do    case \"$1\" in    -v|\\    --version) echo \""+version()+ - #" Copyright (C) 1994-2013 IDA, Link√∂ping University + #" Copyright (C) 1994-2018 IDA, Link√∂ping University   Pike comes with ABSOLUTELY NO WARRANTY; This is free software and you   are welcome to redistribute it under certain conditions; Read the   files COPYING and COPYRIGHT in the Pike distribution for more details.   \";    rm -f "+tmpname+#".x    exit 0 ;;       -h|\\    --help) echo \"" + helptext + #"\"    rm -f "+tmpname+#".x
pike.git/bin/install.pike:1683:       status("Filtering to root/root ownership", tmpname+".tar");    tarfilter(tmpname+".tar");       status("Creating", tmpname+".tar.gz");       Process.create_process(({"gzip","-9",tmpname+".tar"}))->wait();       status("Creating", export_base_name);    +  // Setting COPYFILE_DISABLE avoids a "._PtmP..." resource file to be added +  // on OS X which otherwise would hinder self-extraction from bootstrapping.    Process.create_process( ({ "tar","cf", export_base_name, -  script, tmpname+".x", tmpname+".tar.gz" })) +  script, tmpname+".x", tmpname+".tar.gz" }), +  ([ "env" : ([ "COPYFILE_DISABLE" : "true" ]) ]) )    ->wait();       status("Filtering to root/root ownership", export_base_name);    tarfilter(export_base_name);       chmod(export_base_name,0755);       status("Cleaning up","");       Process.create_process( ({ "rm","-rf",
pike.git/bin/install.pike:2437:    master_data = replace(master_data, "#undef PIKE_MODULE_RELOC",    "#define PIKE_MODULE_RELOC 1");    if(compare_to_file(master_data, dest)) {    status("Finalizing",dest,"- already finalized");    return;    }    Stdio.write_file(dest,master_data);    status("Finalizing",master,"done");   }    - // Install file while fixing CC= w.r.t. smartlink + // Install file while fixing CC= and CXX= w.r.t. smartlink   void fix_smartlink(string src, string dest, string include_prefix)   {    status("Finalizing",src);    string data=Stdio.read_file(src);    data = map(data/"\n", lambda(string s) {    string cc;    if(2==sscanf(s, "CC=%*s/smartlink %s", cc))    return "CC="+include_prefix+"/smartlink "+cc; -  +  else if(2==sscanf(s, "CXX=%*s/smartlink %s", string cxx)) +  return "CXX="+include_prefix+"/smartlink "+cxx;    else    return s;    })*"\n";    if(compare_to_file(data, dest)) {    status("Finalizing",dest,"- already finalized");    return;    }    Stdio.write_file(fakeroot(dest),data);    status("Finalizing",fakeroot(dest),"done");   }
pike.git/bin/install.pike:2536: Inside #if defined(USE_GTK)
   "--log-file", // --distquiet below might override this.   #ifdef USE_GTK    label1?"--distquiet":   #endif    (verbose ? "--verbose" : "--quiet")});       // Dump 25 modules at a time as to not confuse systems with    // very short memory for application arguments.       int offset = 1; +  dumploop:    foreach(to_dump/25.0, array delta_dump)    {    mixed err = catch {    object p=    Process.create_process(cmd +    ( istty() ?    ({    sprintf("--progress-bar=%d,%d",    offset, sizeof(to_dump))    }) : ({}) ) +    delta_dump, options);    int retcode=p->wait(); -  if (retcode) +  if (retcode) {    error_msg("Dumping of some modules failed (not fatal) (0x%:08x):\n"    "%{ %O\n%}",    retcode, delta_dump); -  +  break dumploop; +  }    };    if (err) {    error_msg ("Failed to spawn module dumper (not fatal):\n"    "%s\n", describe_backtrace(err));    break;    }       offset += sizeof(delta_dump);    }