From 11b263652c9c78da812ddd2af58c7d8014a9351f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sun, 9 Jan 2000 16:54:55 -0800
Subject: [PATCH] graphical installation with GTK + binary installation
generation on NT
Rev: bin/install.pike:1.39
---
bin/install.pike | 565 +++++++++++++++++++++++++++++++++++++----------
1 file changed, 448 insertions(+), 117 deletions(-)
diff --git a/bin/install.pike b/bin/install.pike
index ca555265a2..72e2667970 100644
--- a/bin/install.pike
+++ b/bin/install.pike
@@ -1,5 +1,7 @@
#!/usr/local/bin/pike
+#define USE_GTK
+
int last_len;
int redump_all;
string pike;
@@ -10,14 +12,6 @@ int export;
#define MASTER_COOKIE "(#*&)@(*&$Master Cookie:"
-void fail(string fmt, mixed ... args)
-{
- if(last_len) write("\n");
- Stdio.perror(sprintf(fmt,@args));
- werror("**Installation failed.\n");
- exit(1);
-}
-
int istty_cache;
int istty()
{
@@ -33,13 +27,69 @@ int istty()
#endif
}
-void status(string doing, string file, string|void msg)
+
+void status1(string fmt, mixed ... args)
+{
+ status_clear();
+#if defined(USE_GTK) && constant(GTK.parse_rc)
+ if(label1)
+ {
+ label7->set_text(sprintf(fmt,@args)-"\n");
+ GTK.flush();
+ return;
+ }
+#endif
+
+ write("%s\n",sprintf(fmt,@args));
+}
+
+
+void fail(string fmt, mixed ... args)
{
+#if defined(USE_GTK) && constant(GTK.parse_rc)
+ if(label1)
+ {
+ status1(fmt,@args);
+ hbuttonbox1->add(button1=GTK.Button("Exit")->show());
+ button1->signal_connect("pressed",do_exit,0);
+
+ label6->set_text("Click Exit to exit installation program.");
+
+ // UGLY!!! -Hubbe
+ while(1) { sleep(0.1); GTK.flush(); }
+ }
+#endif
+
+
+ if(last_len) write("\n");
+ Stdio.perror(sprintf(fmt,@args));
+ werror("**Installation failed.\n");
+ exit(1);
+}
+
+
+void status(string doing, void|string file, string|void msg)
+{
+ if(!file) file="";
+#if defined(USE_GTK) && constant(GTK.parse_rc)
+ if(label1)
+ {
+ last_len=1;
+ label1->set_text(doing || "");
+ label2->set_text(dirname(file) || "");
+ label5->set_text(basename(file) || "");
+ label6->set_text(msg || "");
+ GTK.flush();
+ return;
+ }
+#endif
+
+
if(!istty()) return;
file=replace(file,"\n","\\n");
- if(strlen(file)>50)
- file="..."+file[strlen(file)-48..];
+ if(strlen(file)>49)
+ file="..."+file[strlen(file)-47..];
if(msg) file+=" "+msg;
if(doing) file=doing+" "+file;
@@ -50,13 +100,22 @@ void status(string doing, string file, string|void msg)
write(s);
}
+void status_clear()
+{
+ if(last_len)
+ {
+ status(0,"");
+ status(0,"");
+ }
+}
+
int mkdirhier(string dir)
{
int tomove;
if(export) return 1;
- if(dir=="") return 1;
- status("creating",dir);
+ if(dir=="" || (strlen(dir)==2 && dir[-1]==':')) return 1;
+ status("creating",dir+"/");
mixed s=file_stat(dir);
if(s)
{
@@ -69,6 +128,7 @@ int mkdirhier(string dir)
fail("mv(%s,%s)",dir,dir+".tmp");
tomove=1;
}else{
+ // FIXME: ask user if he wants to override
werror("Warning: Directory '%s' already exists as a file.\n",dir);
if(!mv(dir,dir+".old"))
fail("mv(%s,%s)",dir,dir+".old");
@@ -179,6 +239,7 @@ void install_dir(string from, string to,int dump)
to=stripslash(to);
mkdirhier(to);
+// werror("\nFOO (from=%s, cwd=%s)\n",from,getcwd());
foreach(get_dir(from),string file)
{
if(file=="CVS") continue;
@@ -216,33 +277,6 @@ void install_header_files(string from, string to)
}
}
-void dumpmodules(string dir)
-{
- dir=stripslash(dir);
-
- foreach(get_dir(dir),string file)
- {
- string f=combine_path(dir,file);
- mixed stat=file_stat(f);
- if(stat[1]==-2)
- {
- dumpmodules(f);
- }else{
- switch(reverse(file)[..4])
- {
- case "domp.":
- case "ekip.":
- mixed stat2=file_stat(f+".o");
-
- if(stat2 && stat2[3]>=stat[3])
- continue;
-
- Process.create_process( ({pike,combine_path(vars->SRCDIR,"dumpmodule.pike"),f}) )->wait();
- }
- }
- }
-}
-
mapping vars=([]);
string export_base_name;
@@ -272,8 +306,101 @@ Variables:
pike_name=<path> Create a symlink to pike here (<prefix>/bin/pike).
";
+string translate(string filename, mapping translator)
+{
+ return translator[filename] ||
+ combine_path(translate(dirname(filename),translator),basename(filename));
+};
+
+
void do_export()
{
+#ifdef __NT__
+ status("Creating",export_base_name+".burk");
+ Stdio.File p=Stdio.File(export_base_name+".burk","wc");
+ string msg="Loading installation script, please wait...";
+ p->write("w%4c%s",strlen(msg),msg);
+
+#define TRANSLATE(X,Y) combine_path(".",X) : Y
+ string tmpdir="~piketmp";
+
+ mapping translator = ([
+ TRANSLATE(vars->LIBDIR_SRC,tmpdir+"/lib"),
+ TRANSLATE(vars->SRCDIR,tmpdir+"/src"),
+ TRANSLATE(vars->TMP_BINDIR,tmpdir+"/bin"),
+ TRANSLATE(vars->MANDIR_SRC,tmpdir+"/man"),
+ TRANSLATE(vars->TMP_LIBDIR,tmpdir+"/build/lib"),
+ "":tmpdir+"/build",
+ ]);
+
+
+ array(string) translated_names = Array.map(to_export, translate, translator);
+ array(string) dirs=Array.uniq(Array.map(translated_names, dirname));
+ while(1)
+ {
+ array(string) d2=Array.map(dirs, dirname) - dirs;
+ if(!sizeof(d2)) break;
+ dirs+=Array.uniq(d2);
+ }
+ dirs-=({""});
+ sort(dirs);
+
+ foreach(dirs, string dir) p->write("d%4c%s",strlen(dir),dir);
+ foreach(Array.transpose( ({ to_export, translated_names }) ), [ string file, string file_name ])
+ {
+ status("Adding",file);
+ string f=Stdio.read_file(file);
+ p->write("f%4c%s%4c",strlen(file_name),file_name,strlen(f));
+ p->write(f);
+ }
+
+ /* FIXME, support $INSTALL_SCRIPT (or similar) */
+
+#define TRVAR(X) translate(combine_path(vars->X,"."), translator)
+
+ array(string) env=({
+ "PIKE_MODULE_PATH="+TRVAR(TMP_LIBDIR)+"/modules:"+TRVAR(LIBDIR_SRC)+"/modules",
+ "PIKE_PROGRAM_PATH=",
+ "PIKE_INCLUDE_PATH="+TRVAR(LIBDIR_SRC)+"/include",
+ });
+
+
+ foreach(env, string e)
+ p->write("e%4c%s",strlen(e),e);
+
+#define RELAY(X) " " #X "=" + TRVAR(X)+
+
+ string cmd=
+ replace(translate("pike.exe", translator),"/","\\")+
+ " -m"+translate("master.pike", translator)+
+ " "+translate( combine_path(vars->TMP_BINDIR,"install.pike"), translator)+
+ RELAY(TMP_LIBDIR)
+ RELAY(LIBDIR_SRC)
+ RELAY(SRCDIR)
+ RELAY(TMP_BINDIR)
+ RELAY(MANDIR_SRC)
+ " TMP_BUILDDIR="+translate("", translator)
+ ;
+
+ p->write("s%4c%s",strlen(cmd),cmd);
+
+ array(string) to_delete=translated_names + ({translate("pike.tmp",translator)});
+ to_delete=Array.uniq(to_delete);
+ to_delete+=reverse(dirs);
+ /* Generate cleanup */
+ foreach(to_delete, string del)
+ p->write("D%4c%s",strlen(del),del);
+
+ p->write("q\0\0\0\0");
+ p->close("rw");
+
+ if(last_len)
+ {
+ status(0,"");
+ status(0,"");
+ }
+
+#else
export=0;
cd("..");
@@ -294,7 +421,7 @@ do
case \"$1\" in
-v|\\
--version) echo \""+version()+
-#" Copyright (C) 1994-1997 Fredrik H�binette
+#" Copyright (C) 1994-2000 Fredrik H�binette and Idonex AB
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 DISCLAIMER in the Pike distribution for more details.
@@ -318,10 +445,12 @@ done
"tar xf \"$TARFILE\" "+tmpname+".tar.gz\n"
"gzip -dc "+tmpname+".tar.gz | tar xf -\n"
"rm -rf "+tmpname+".tar.gz\n"
+ "PIKE_MODULE_PATH=pike/build/lib/modules:pike/lib/modules\n"
+ "PIKE_PROGRAM_PATH=\n"
+ "PIKE_INCLUDE_PATH=pike/lib/include\n"
+ "export PIKE_MODULE_PATH PIKE_INCLUDE_PATH PIKE_PROGRAM_PATH\n"
"( cd "+export_base_name+".dir\n"
- " eval \"build/pike -DNOT_INSTALLED -mbuild/master.pike "
- "-Mbuild/lib/modules "
- "-Mlib/modules "
+ " eval \"build/pike -mbuild/master.pike "
"\"$INSTALL_SCRIPT\" \\\n"
" TMP_LIBDIR=\"build/lib\"\\\n"
" LIBDIR_SRC=\"lib\"\\\n"
@@ -380,11 +509,8 @@ done
}) ) ->wait();
- if(last_len)
- {
- status(0,"");
- status(0,"");
- }
+#endif
+ status1("Export done");
exit(0);
}
@@ -519,49 +645,186 @@ class ReadInteractive
}
}
-int main(int argc, string *argv)
+
+#if defined(USE_GTK) && constant(GTK.parse_rc)
+object window1;
+object vbox1;
+object label4;
+object frame1;
+object hbox1;
+object pixmap1;
+object vbox2;
+object label3;
+object table1;
+object entry1;
+object entry2;
+object label1;
+object label2;
+object button4;
+object button5;
+object hbuttonbox1;
+object button1;
+object button2;
+object label5;
+object label6;
+object label7;
+object vbox3;
+
+#define PS pack_start
+#define AT attach
+
+void do_abort()
{
- int traditional;
- string prefix;
- string exec_prefix;
- string lib_prefix;
- string include_prefix;
- string man_prefix;
- string lnk;
- string old_exec_prefix;
- object interactive;
+ // FIXME
+ werror("Installation aborted.\n");
+ exit(1);
+}
+void update_entry2()
+{
+ entry2->set_text( combine_path( entry1 -> get_text(), "bin/pike") );
+}
- string install_type="--interactive";
+void set_filename(array ob, object button)
+{
+ object selector=ob[0];
+ object entry=ob[1];
+ entry->set_text(selector->get_filename());
+ if(entry == entry1)
+ update_entry2();
+ destruct(selector);
+}
- foreach(Getopt.find_all_options(argv,aggregate(
- ({"help",Getopt.NO_ARG,({"-h","--help"})}),
- ({"--interactive",Getopt.NO_ARG,({"-i","--interactive"})}),
- ({"--new-style",Getopt.NO_ARG,({"--new-style"})}),
- ({"--export",Getopt.NO_ARG,({"--export"})}),
- ({"--traditional",Getopt.NO_ARG,({"--traditional"})}),
- )),array opt)
- {
- switch(opt[0])
- {
- case "help":
- werror(helptext);
- exit(0);
+void selectfile(object entry, object button)
+{
+ object selector;
+ selector=GTK.FileSelection("Pike installation prefix");
+ selector->set_filename(entry->get_text());
+ selector->ok_button()->signal_connect("clicked",set_filename, ({selector, entry}) );
+ selector->cancel_button()->signal_connect("clicked",destruct,selector);
+ selector->show();
+}
- default:
- install_type=opt[0];
- }
- }
+void do_exit()
+{
+ exit(0);
+}
- argv=Getopt.get_args(argv);
-
+void cancel()
+{
+ werror("See you another time!\n");
+ exit(0);
+}
- foreach(argv[1..], string foo)
- if(sscanf(foo,"%s=%s",string var, string value)==2)
- vars[var]=value;
+void proceed()
+{
+ pre_install(({}));
+ label6->set_text("Click Ok to exit installation program.");
+ hbuttonbox1->add(button1=GTK.Button("Ok")->show());
+ button1->signal_connect("pressed",do_exit,0);
+}
- prefix=vars->prefix || "/usr/local";
+int next()
+{
+ vars->prefix = entry1->get_text();
+ vars->pike_name = entry2->get_text();
+ install_type="--new_style";
+
+ destruct(table1);
+
+ vbox2->PS(vbox3=GTK.Vbox(0,0)->show(),1,1,0);
+
+ vbox3->PS(label7=GTK.Label("---head---")->show(),0,0,0);
+ vbox3->PS(label1=GTK.Label("---action---")->show(),0,0,0);
+ vbox3->PS(label2=GTK.Label("----dir-----")->show(),0,0,0);
+ vbox3->PS(label5=GTK.Label("----file----")->show(),0,0,0);
+ vbox3->PS(label6=GTK.Label("----msg----")->show(),0,0,0);
+ destruct(button1);
+ destruct(button2);
+ call_out(proceed, 0);
+ return 1;
+}
+
+void begin_wizard(string *argv)
+{
+ // FIXME:
+ // We should display the GPL licence and make the user
+ // click 'agree' first
+ //
+ GTK.setup_gtk(argv);
+ window1=GTK.Window(GTK.WINDOW_TOPLEVEL)
+ ->set_title(version()+" installer")
+ ->add(vbox1=GTK.Vbox(0,0)
+ ->PS(label4=GTK.Label(version()+" installer")
+ ->set_justify(GTK.JUSTIFY_CENTER),0,0,10)
+ ->PS(frame1=GTK.Frame()
+ ->set_shadow_type(GTK.SHADOW_IN)
+ ->set_border_width(11)
+ ->add(hbox1=GTK.Hbox(0,0)
+ ->PS(pixmap1=GTK.Pixmap(GDK.Pixmap(Image.GIF.decode(Stdio.read_bytes("/home/hubbe/gfx/pike/Welcome.GIF")))),0,0,0)
+ ->PS(vbox2=GTK.Vbox(0,0),1,1,0)
+ ),1,1,0)
+ ->PS(hbuttonbox1=GTK.HbuttonBox()
+ ->set_border_width(15)
+ ->add(button1=GTK.Button("Cancel"))
+ ->add(button2=GTK.Button("Install Pike >>"))
+ ,0,1,0));
+
+
+ vbox2->PS(label3=GTK.Label("Welcome to the interactive "+version()+" installer.")
+ ->set_justify(GTK.JUSTIFY_CENTER),1,1,0)
+ ->PS(table1=GTK.Table(3,2,0)
+ ->set_border_width(19)
+ ->AT(entry1=GTK.Entry(),
+ 1,2,0,1,GTK.Fill | GTK.Expand,0,0,0)
+ ->AT(entry2=GTK.Entry(),
+ 1,2,1,2,GTK.Fill | GTK.Expand,0,0,0)
+ ->AT(label1=GTK.Label("Install prefix: ")
+ ->set_justify(GTK.JUSTIFY_RIGHT),
+ 0,1,0,1,GTK.Expand,0,0,0)
+ ->AT(label2=GTK.Label("Pike binary name: ")
+ ->set_justify(GTK.JUSTIFY_RIGHT),
+ 0,1,1,2,GTK.Expand,0,0,0)
+ ->AT(button4=GTK.Button("Browse"),
+ 2,3,1,2,0,0,0,0)
+ ->AT(button5=GTK.Button("Browse"),
+ 2,3,0,1,0,0,0,0),0,0,0);
+
+ vbox2->show_all();
+
+ entry1->set_text(prefix);
+ entry2->set_text(vars->pike_name ||
+ combine_path(vars->exec_prefix||combine_path(prefix, "bin"),"pike"));
+
+ entry1->signal_connect("focus_out_event",update_entry2,0);
+ button1->signal_connect("pressed",cancel,0);
+ button2->signal_connect("pressed",next,0);
+ button4->signal_connect("pressed",selectfile,entry2);
+ button5->signal_connect("pressed",selectfile,entry1);
+
+ window1->show_all();
+}
+#endif
+
+
+int traditional;
+string prefix;
+string exec_prefix;
+string lib_prefix;
+string include_prefix;
+string man_prefix;
+string lnk;
+string old_exec_prefix;
+object interactive;
+string install_type="--interactive";
+
+
+int pre_install(string *argv)
+{
+
+ prefix=vars->prefix || "/usr/local";
+
if(!vars->TMP_BINDIR)
vars->TMP_BINDIR=combine_path(vars->SRCDIR,"../bin");
@@ -579,6 +842,19 @@ int main(int argc, string *argv)
break;
case "--interactive":
+
+#if constant(GTK.parse_rc) && defined(USE_GTK)
+// catch {
+ begin_wizard(argv);
+ return -1;
+// };
+#endif
+
+ // FIXME:
+ // The following introduction is not quite true on NT
+ // and other platforms where Readline falls back on
+ // 'dummy' mode.
+
write("\n"
" Welcome to the interactive "+version()+
" installation script.\n"
@@ -595,15 +871,19 @@ int main(int argc, string *argv)
do {
write("\n");
- if(!vars->prefix)
- prefix=interactive->edit_directory(prefix,"Install prefix: ");
+// werror("PREFIX: %O\n",prefix);
+// if(!vars->prefix)
+ prefix=interactive->edit_directory(prefix,"Install prefix: ");
prefix = make_absolute_path(prefix);
if(!vars->pike_name)
+ {
bin_path=interactive->edit_filename
(combine_path(vars->exec_prefix ||
combine_path(prefix, "bin"),
"pike"), "Pike binary name: ");
+ }
+
bin_path = make_absolute_path(bin_path);
write("\n");
@@ -649,7 +929,9 @@ int main(int argc, string *argv)
export_base_name=ver;
#endif
+ status1("Building export %s\n",export_base_name);
+#ifndef __NT__
mkdirhier(export_base_name+".dir");
mklink(vars->LIBDIR_SRC,export_base_name+".dir/lib");
@@ -657,7 +939,7 @@ int main(int argc, string *argv)
mklink(getcwd(),export_base_name+".dir/build");
mklink(vars->TMP_BINDIR,export_base_name+".dir/bin");
mklink(vars->MANDIR_SRC,export_base_name+".dir/man");
-
+
cd(export_base_name+".dir");
vars->TMP_LIBDIR="build/lib";
@@ -667,6 +949,8 @@ int main(int argc, string *argv)
vars->MANDIR_SRC="man";
vars->TMP_BUILDDIR="build";
+#endif
+
export=1;
to_export+=({ combine_path(vars->TMP_BINDIR,"install.pike") });
@@ -688,30 +972,46 @@ int main(int argc, string *argv)
break;
}
+ do_install();
+ return 0;
+}
+
+// Create a master.pike with the correct lib_prefix
+void make_master(string dest, string master, string lib_prefix)
+{
+ status("Finalizing",master);
+ string master_data=Stdio.read_file(master);
+ master_data=replace(master_data,"�lib_prefix�",replace(lib_prefix,"\\","\\\\"));
+ Stdio.write_file(combine_path(vars->TMP_LIBDIR,"master.pike"),master_data);
+ status("Finalizing",master,"done");
+}
+
+void do_install()
+{
pike=combine_path(exec_prefix,"pike");
+ if(!export)
+ {
+ status1("Installing Pike in %s...\n",prefix);
+ }
mixed err=catch {
+
+ string pike_bin_file=combine_path(vars->TMP_BUILDDIR,"pike");
+ if(Stdio.file_size(pike_bin_file) < 10000 &&
+ file_stat(pike_bin_file+".exe"))
+ {
+ pike_bin_file+=".exe";
+ pike+=".exe";
+ }
+
if(export)
{
- to_export+=({combine_path(vars->TMP_BUILDDIR,"pike")});
+ to_export+=({pike_bin_file});
}else{
- write("\nInstalling Pike in %s...\n\n",prefix);
-
- string pike_bin_file=combine_path(vars->TMP_BUILDDIR,"pike");
status("Finalizing",pike_bin_file);
string pike_bin=Stdio.read_file(pike_bin_file);
int pos=search(pike_bin,MASTER_COOKIE);
- if(pos<=0 && strlen(pike_bin) < 10000 &&
- file_stat(combine_path(vars->TMP_BUILDDIR,"pike.exe")))
- {
- pike_bin_file=combine_path(vars->TMP_BUILDDIR,"pike.exe");
- status("Finalizing",pike_bin_file);
- pike_bin=Stdio.read_file(pike_bin_file);
- pos=search(pike_bin,MASTER_COOKIE);
- pike+=".exe";
- }
-
if(pos>=0)
{
status("Finalizing",pike_bin_file,"...");
@@ -722,7 +1022,7 @@ int main(int argc, string *argv)
f->close();
status("Finalizing",pike_bin_file,"done");
}else{
- write("Warning! Failed to finalize master location!\n");
+ werror("Warning! Failed to finalize master location!\n");
}
if(install_file(pike_bin_file,pike)) redump_all=1;
}
@@ -734,16 +1034,13 @@ int main(int argc, string *argv)
{
to_export+=({master,
combine_path(vars->TMP_BUILDDIR,"master.pike"),
+ combine_path(vars->SRCDIR,"COPYING"),
combine_path(vars->SRCDIR,"dumpmaster.pike"),
combine_path(vars->SRCDIR,"dumpmodule.pike")
});
}else{
-// werror("Making master with libdir=%s\n",lib_prefix);
- status("Finalizing",master);
- string master_data=Stdio.read_file(master);
- master_data=replace(master_data,"�lib_prefix�",replace(lib_prefix,"\\","\\\\"));
- Stdio.write_file(combine_path(vars->TMP_LIBDIR,"master.pike"),master_data);
- status("Finalizing",master,"done");
+ make_master(combine_path(vars->TMP_LIBDIR,"master.pike"), master,
+ lib_prefix);
}
install_dir(vars->TMP_LIBDIR,lib_prefix,1);
@@ -759,15 +1056,14 @@ int main(int argc, string *argv)
if(file_stat(vars->MANDIR_SRC))
{
+// trace(9);
+// _debug(5);
install_dir(vars->MANDIR_SRC,combine_path(man_prefix,"man1"),0);
}
};
- if(last_len)
- {
- status(0,"");
- status(0,"");
- }
+
+ status_clear();
if(err) throw(err);
@@ -784,18 +1080,23 @@ int main(int argc, string *argv)
Process.create_process( ({pike,"-m",combine_path(vars->SRCDIR,"dumpmaster.pike"),master}))->wait();
}
-// dumpmodules(combine_path(vars->lib_prefix,"modules"));
if(sizeof(to_dump))
{
+ status("Dumping modules, please wait... ");
foreach(to_dump, string mod) rm(mod+".o");
Process.create_process( ({pike,
combine_path(vars->SRCDIR,"dumpmodule.pike"),
- "--quiet"}) + to_dump)->wait();
+#if defined(USE_GTK) && constant(GTK.parse_rc)
+ label1?"--distquiet":
+#endif
+ "--quiet"
+ }) + to_dump)->wait();
}
#if constant(symlink)
if(lnk)
{
+ status("creating",lnk);
mixed s=file_stat(lnk,1);
if(s)
{
@@ -810,10 +1111,40 @@ int main(int argc, string *argv)
}
mkdirhier(dirname(lnk));
symlink(pike,lnk);
+ status("creating",lnk,"done");
}
#endif
}
- write("\nDone\n");
-
- return 0;
+ status1("Installation completed successfully.");
+}
+
+int main(int argc, string *argv)
+{
+ foreach(Getopt.find_all_options(argv,aggregate(
+ ({"help",Getopt.NO_ARG,({"-h","--help"})}),
+ ({"--interactive",Getopt.NO_ARG,({"-i","--interactive"})}),
+ ({"--new-style",Getopt.NO_ARG,({"--new-style"})}),
+ ({"--export",Getopt.NO_ARG,({"--export"})}),
+ ({"--traditional",Getopt.NO_ARG,({"--traditional"})}),
+ )),array opt)
+ {
+ switch(opt[0])
+ {
+ case "help":
+ werror(helptext);
+ exit(0);
+
+ default:
+ install_type=opt[0];
+ }
+ }
+
+ argv=Getopt.get_args(argv);
+
+
+ foreach(argv[1..], string foo)
+ if(sscanf(foo,"%s=%s",string var, string value)==2)
+ vars[var]=value;
+
+ return pre_install(argv);
}
--
GitLab