git.sesse.net Git - rdpsrv/blob - Xserver/config/util/os2inst.cmd

   1 /* OS/2 REXX SCRIPT */
   2
   3 /* $XFree86: xc/config/util/os2inst.cmd,v 3.1 1996/02/19 12:16:52 dawes Exp $
   4  *
   5  * This is a wrapper for the install command. As any utility,
   6  * install could have been lifted from the BSD sources, but I just wanted
   7  * to play with Rexx a bit :-)  (hv)
   8  * Note the similarity to the Unix shell scripts
   9  */
  10
  11 dst=""
  12 src=""
  13
  14 '@ECHO OFF'
  15 PARSE ARG all
  16 DO i=1 TO WORDS(all)
  17         w = WORD(all,i)
  18         SELECT
  19         WHEN w = "-c" THEN NOP
  20         WHEN w = "-m" THEN
  21                 i = i + 1
  22                 /* ignore mode */
  23         WHEN w = "-o" THEN
  24                 i = i + 1
  25                 /* ignore owner */
  26         WHEN w = "-g" THEN
  27                 i = i + 1
  28                 /* ignore group */
  29         WHEN w = "-s" THEN NOP
  30         OTHERWISE
  31                 IF src = "" THEN
  32                         src = w
  33                 ELSE
  34                         dst = w
  35         END
  36 END
  37
  38 IF src = "" THEN DO
  39         SAY "os2inst:  no input file specified"
  40         EXIT 1
  41 END
  42
  43 IF dst = "" THEN DO
  44         SAY "os2inst:  no destination specified"
  45         EXIT 1
  46 END
  47
  48 ADDRESS CMD 'copy' src dst '> nul'
  49
  50 EXIT