diff -ur rubyscript2exe-0.1.11.tar.gz rubyscript2exe-0.1.12.tar.gz

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