WIP - updating pascal wrapper with its own cci handler

pas/main.pas

@@ -2,11 +2,17 @@ program main;
 
 {$mode objfpc}{$H+}
 
-uses HCL, sysutils;
+uses HCL, SysUtils;
 
 var
 	x: HCL.Interp = nil;
 begin
+	(* System.ParamCount() returns only the number of argumetns except System.ParamStr(0). It is the upper bound to System.ParamStr(). *)
+	if System.ParamCount() <> 1 then begin
+		writeln (System.Stderr, SysUtils.Format('Usage: %s <filename>', [SysUtils.ExtractFileName(System.ParamStr(0))]));
+		System.Halt(-1);
+	end;
+
 	try
 		x := HCL.Interp.Create(100);
 		x.Ignite(0);
@@ -15,17 +21,20 @@ begin
 		//x.AttachCCIO();
 		//x.AttachUDIO();
 
+		(*
 		x.Compile(pwidechar('(printf "hello 동키콩\n")'));
 		x.Compile('(printf "hello 동키콩월드\n") ');
 		x.Compile('(동가리오 := 20)');
 		x.Compile('(printf "%d %d\n" 동가리오 (+ 동가리오 동가리오))');
 
 		x.Compile(pwidechar('(printf "%d %d\n" 동가리오 (동가리오 * 동가리오))'#10'printf "hello, world\n";;;'#10));
+		*)
 
+		x.CompileFile(pansichar(ansistring(System.ParamStr(1))));
 		x.Execute(); // check if exception...
 	except
 		on e: Exception do
-			writeln ('exception:', e.Message);
+			writeln ('exception: ', e.Message);
 		else
 			writeln ('unknonw exception');
 	end;