X-Git-Url: https://git.sesse.net/?p=rdpsrv;a=blobdiff_plain;f=Xserver%2Fconfig%2Futil%2Fos2inst.cmd;fp=Xserver%2Fconfig%2Futil%2Fos2inst.cmd;h=1a8d1ae5a87fd56ff476552d12b51b7d364fd2ea;hp=0000000000000000000000000000000000000000;hb=b6e6afccf37f4ad0515ef2a698f714fdf1bf23b3;hpb=e3340a110a3b01756b8e67531395a33b40a17d37

diff --git a/Xserver/config/util/os2inst.cmd b/Xserver/config/util/os2inst.cmd
new file mode 100644
index 0000000..1a8d1ae
--- /dev/null
+++ b/Xserver/config/util/os2inst.cmd
@@ -0,0 +1,50 @@
+/* OS/2 REXX SCRIPT */
+
+/* $XFree86: xc/config/util/os2inst.cmd,v 3.1 1996/02/19 12:16:52 dawes Exp $
+ *
+ * This is a wrapper for the install command. As any utility, 
+ * install could have been lifted from the BSD sources, but I just wanted
+ * to play with Rexx a bit :-)  (hv)
+ * Note the similarity to the Unix shell scripts
+ */
+
+dst=""
+src=""
+
+'@ECHO OFF'
+PARSE ARG all
+DO i=1 TO WORDS(all)
+	w = WORD(all,i)
+	SELECT
+	WHEN w = "-c" THEN NOP
+	WHEN w = "-m" THEN
+		i = i + 1
+		/* ignore mode */
+	WHEN w = "-o" THEN
+		i = i + 1
+		/* ignore owner */
+	WHEN w = "-g" THEN
+		i = i + 1
+		/* ignore group */
+	WHEN w = "-s" THEN NOP
+	OTHERWISE
+		IF src = "" THEN
+			src = w
+		ELSE
+			dst = w
+	END
+END
+
+IF src = "" THEN DO
+	SAY "os2inst:  no input file specified"
+	EXIT 1
+END
+
+IF dst = "" THEN DO
+	SAY "os2inst:  no destination specified"
+	EXIT 1
+END
+
+ADDRESS CMD 'copy' src dst '> nul'
+
+EXIT