Add ChkPrm.module

src/i-nex/.lang/ChkPrm.pot

@@ -0,0 +1,16 @@
+# /home/michal/Baazar/i-nex/src/i-nex/.src/ChkPrm.module
+# Generated by Gambas compiler
+
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n""POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+

src/i-nex/.src/ChkPrm.module

@@ -0,0 +1,15 @@
+' Gambas module file
+
+Public Function ChkExec(executable As String) As Boolean
+
+  Dim i As Integer
+
+  i = InStr(executable, " ")
+  If i Then executable = Left(executable, i - 1)
+
+  Shell "which " & executable & " >/dev/null 2>&1" Wait
+
+  If Process.LastValue Then Return False
+  Return True
+
+End