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