From b01fc22a9132f44cfacec42a31447a98d4cd3aab Mon Sep 17 00:00:00 2001
From: mgaertner <mgaertner@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 23 Apr 2011 19:16:30 +0000
Subject: [PATCH] instantfpc: added example to list all parmeters passed to a
 script

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1596 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/instantfpc/examples/writeparameters.pas | 7 +++++++
 applications/instantfpc/instantfpc.lpr               | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100755 applications/instantfpc/examples/writeparameters.pas

diff --git a/applications/instantfpc/examples/writeparameters.pas b/applications/instantfpc/examples/writeparameters.pas
new file mode 100755
index 000000000..f59bad00f
--- /dev/null
+++ b/applications/instantfpc/examples/writeparameters.pas
@@ -0,0 +1,7 @@
+#!/usr/bin/env instantfpc
+var
+  i: Integer;
+begin
+  for i:=0 to ParamCount do writeln(ParamStr(i));
+end.
+
diff --git a/applications/instantfpc/instantfpc.lpr b/applications/instantfpc/instantfpc.lpr
index debb98b20..d12ad35d4 100644
--- a/applications/instantfpc/instantfpc.lpr
+++ b/applications/instantfpc/instantfpc.lpr
@@ -73,7 +73,7 @@ begin
       writeln('instantfpc --get-cache');
       writeln('      Prints cache directory to stdout.');
       writeln;
-      writeln('Normal usage is to add as first line "#!instantfpc" to a source');
+      writeln('Normal usage is to add as first line "#!/usr/bin/instantfpc" to a source');
       Halt(0);
     end else if p='--get-cache' then begin
       CacheDir:=GetCacheDir;