added ability to set path for output files of the converter

Author: GSoftwareDevelopment

smm-conv/src/inc/parseParams.inc

@@ -73,7 +73,8 @@ begin
 	if paramCount<1 then
 		showInstruction();
 	sourceFN:=paramStr(1);
-	outFN:=paramStr(2);
+	outFN:=extractFileName(paramStr(2));
+	outPath:=extractFilePath(paramStr(2));
 	currentParam:=3;
 	while currentParam<=paramCount do
 	begin

smm-conv/src/inc/save_asm.inc

@@ -129,17 +129,25 @@ var
 		if (addr<>0) then
 		begin
 			temp_org:=org; org:=addr;
-			assign(f,subFn+'.asm');
+			o:=concat(outPath,subFn,'.asm');
+			assign(f,o);
+			write(o);
 			rewrite(f);
-			writeLn(fres,resLabel,' rcasm ''',subFn,'.asm'';');
+			writeLn(fres,resLabel,' rcasm ''',outPath+subFn,'.asm'';');
 			result:='RESOURCE.RESOURCE.RCASM??.RESOURCE._SFX_API.'+resLabel;
 		end
 		else
 		begin
-			assign(f,fn);
-			append(f);
+			o:=concat(outPath,fn);
+			assign(f,o);
+			if not fileExists(o) then
+				rewrite(f)
+			else
+				append(f);
+			write(o);
 			result:='';
 		end;
+		writeLn();
 		write(f,';	org $',hexstr(org,4));
 		writeLn(f,'	; ',stringOfChar('-',40));
 		writeLn(f);
@@ -208,18 +216,34 @@ var
 begin
 	temp_org:=0; oorg:=org;
 	NOTE_TABLE_ADDR:=NOTE_TABLE_PAGE shl 8;
+	if not directoryExists(outPath) then
+	begin
+		write('Creating directory `'+outPath+'`...');
+		if createDir(outPath) then
+			writeLn('OK')
+		else
+		begin
+			haltError('Fail');
+		end;
+	end;
+	if fileExists(outPath+fn) then
+	begin
+		deleteFile(outPath+fn);
+	end;
 
 	if length(confFN)<>0 then
 	begin
-		assign(fconf,confFN);
+		writeLn(outPath+confFN);
+		assign(fconf,outPath+confFN);
 		rewrite(fconf);
 	end
 	else
 		fconf:=stdout;
 
 	if length(resFN)<>0 then
 	begin
-		assign(fres,resFN);
+		writeLn(outPath+resFn);
+		assign(fres,outPath+resFN);
 		rewrite(fres);
 	end
 	else
@@ -306,7 +330,7 @@ begin
 
 	if (org<>oorg) then
 	begin
-		writeLn(fres,'SFX_ORG rcasm ''',fn,''';');
+		writeLn(fres,'SFX_ORG rcasm ''',outPath+fn,''';');
 	end;
 
 	if length(resFN)<>0 then

smm-conv/src/smm-conv.pas

@@ -1,5 +1,5 @@
 uses SysUtils;
-{$I-}
+// {$I-}
 
 type
 	TTag = array[0..4] of byte;
@@ -63,6 +63,7 @@
 
 	sourceFN:string = '';
 	outFN:string = '';
+	outPath:string = '';
 	confFN:string = '';
 	resFN:string = '';