From 9703e9878715fd4be6e0651241841e29d03d5fda Mon Sep 17 00:00:00 2001
From: mgaertner <mgaertner@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 27 Mar 2011 16:42:50 +0000
Subject: [PATCH] instantfpc: example for working directory

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

diff --git a/applications/instantfpc/examples/getworkingdirectory.pas b/applications/instantfpc/examples/getworkingdirectory.pas
new file mode 100755
index 000000000..29d6fe7b5
--- /dev/null
+++ b/applications/instantfpc/examples/getworkingdirectory.pas
@@ -0,0 +1,7 @@
+#!/usr/bin/env instantfpc
+uses
+  SysUtils;
+begin
+  writeln(GetCurrentDir);
+end.
+