diff -ur rubyscript2exe-0.1.11.tar.gz/rubyscript2exe/eee.pas rubyscript2exe-0.1.12.tar.gz/rubyscript2exe/eee.pas --- rubyscript2exe-0.1.11.tar.gz/rubyscript2exe/eee.pas 2004-02-16 22:00:19.000000000 +0100 +++ rubyscript2exe-0.1.12.tar.gz/rubyscript2exe/eee.pas 2004-04-24 22:50:12.000000000 +0200 @@ -37,6 +37,7 @@ i : longint; dir : string[255]; parms : string[255]; + justextract : boolean; procedure recursivedelete(var path: string[255]); @@ -255,14 +256,14 @@ i := pos(s, h.tekst); while (i > 0) do begin h.tekst := copy(h.tekst, 1, i-1) + workdir + copy(h.tekst, i+length(s), 255); - i := pos(s, h.tekst); + i := pos(s, h.tekst); end; s := ´%parms%´; i := pos(s, h.tekst); while (i > 0) do begin h.tekst := copy(h.tekst, 1, i-1) + parms + copy(h.tekst, i+length(s), 255); - i := pos(s, h.tekst); + i := pos(s, h.tekst); end; // writeln(h.klasse, ´ ´, h.tekst); @@ -305,14 +306,66 @@ end; +procedure pakhieruit; + +begin + + randomize; + + workdir := paramstr(0); + workdir := copy(workdir, 1, length(workdir)-4); + + {$I-} + mkdir(workdir); + if (ioresult = 183) then begin + writeln(´Can´´t create ´, workdir, ´.´); + end; + {$I-} + + assign(infile, paramstr(0)); + reset(infile, 1); + blockeat(infile, t.length); + + try + + for teller := 1 to t.number do begin + blockread(infile, h, sizeof(h)); + + writeln(h.klasse, ´ ´, h.tekst); + + if (h.klasse = ´f´) then begin + assign(outfile, workdir + ´\´ + h.tekst); + rewrite(outfile, 1); + + blockcopy(infile, outfile, h.length, true); + + close(outfile); + end; + end; + + finally + + close(infile); + + end; + +end; + + begin tempdir := getenv(´TEMP´); me := ´EEE: Dit is mijn herkennigsstring voor het herkennen van pakin of pakuit mode.´; + justextract := false; + parms := ´´; for teller := 1 to paramcount do begin + if (paramstr(teller) = ´--eee-justextract´) then begin + justextract := true; + end; + if (parms = ´´) then begin parms := ´´´´ + paramstr(teller) + ´´´´; end @@ -333,7 +386,12 @@ pakin; end else begin - pakuit + if (justextract) then begin + pakhieruit; + end + else begin + pakuit; + end; end; end. diff -ur rubyscript2exe-0.1.11.tar.gz/rubyscript2exe/tarrubyscript.rb rubyscript2exe-0.1.12.tar.gz/rubyscript2exe/tarrubyscript.rb --- rubyscript2exe-0.1.11.tar.gz/rubyscript2exe/tarrubyscript.rb 2004-03-26 13:51:29.000000000 +0100 +++ rubyscript2exe-0.1.12.tar.gz/rubyscript2exe/tarrubyscript.rb 2004-04-25 00:39:31.000000000 +0200 @@ -326,11 +326,11 @@ class MakeTar def initialize @archive = File.new($0, "rb").read.gsub(/\r/, "").split(/\n\n/)[-1].split("\n").collect{|s| s[2..-1]}.join("\n").unpack("m").shift - @tarfile = $0.gsub(/\.rb$/, ".tar") + @tarfile = $0.gsub(/\.rbw?$/, "") + ".tar" end def extract - File.open(@tarfile, "wb") {|f| f.write @archive} + File.open(@tarfile, "wb") {|f| f.write @archive} end end Binary files rubyscript2exe-0.1.11.tar.gz/rubyscript2exe/eee.exe and rubyscript2exe-0.1.12.tar.gz/rubyscript2exe/eee.exe differ Binary files rubyscript2exe-0.1.11.tar.gz/rubyscript2exe/eeew.exe and rubyscript2exe-0.1.12.tar.gz/rubyscript2exe/eeew.exe differ