home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / xpmfb.zip / startx2.cmd < prev    next >
OS/2 REXX Batch file  |  1998-04-11  |  3KB  |  103 lines
  1. /* OS/2 REXX */
  2. /* $XFree86: xc/programs/xinit/startx.cmd,v 3.3 1996/10/17 15:23:47 dawes Exp $
  3.  *
  4.  * This is just a sample implementation of a slightly less primitive
  5.  * interface than xinit.  It looks for user xinitrc.cmd and xservrc.cmd
  6.  * files, then system xinitrc.cmd and xservrc.cmd files, else lets xinit choose
  7.  * its default.  The system xinitrc should probably do things like check
  8.  * for Xresources files and merge them in, startup up a window manager,
  9.  * and pop a clock and serveral xterms.
  10.  *
  11.  * Site administrators are STRONGLY urged to write nicer versions.
  12.  */
  13. '@rem echo off'
  14. ADDRESS CMD
  15. env = 'OS2ENVIRONMENT'
  16. x11root = VALUE('X11ROOT',,env)
  17. IF x11root = '' THEN DO
  18.         SAY "The environment variable X11ROOT is not set. XFree86/OS2 won't run without it."
  19.         EXIT
  20. END
  21.  
  22. home = VALUE('HOME',,env)
  23. IF home = '' THEN home = x11root
  24. os_shell = VALUE('X11SHELL',,env)
  25. IF os_shell = '' THEN os_shell = VALUE('SHELL',,env)
  26. IF os_shell = '' THEN os_shell = VALUE('OS2_SHELL',,env)
  27. IF os_shell = '' THEN DO
  28.         SAY "There is no command interpreter in OS2_SHELL ???"
  29.         EXIT
  30. END
  31.  
  32. userclientrc = home'\xinitrc.cmd'
  33. userserverrc = home'\xservrc.cmd'
  34. sysclientrc  = x11root'\XFree86\lib\X11\xinit\xinitrc.cmd'
  35. sysserverrc  = x11root'\XFree86\lib\X11\xinit\xservrc.cmd'
  36. clientargs   = ''
  37. serverargs   = ''
  38.  
  39. IF exists(userclientrc) THEN
  40.         clientargs = userclientrc
  41. ELSE
  42. IF exists(sysclientrc) THEN
  43.         clientargs = sysclientrc
  44.  
  45. IF exists(userserverrc) THEN
  46.         serverargs = userserverrc
  47. ELSE
  48. IF exists(sysserverrc) THEN
  49.         serverargs = sysserverrc
  50.  
  51. whoseargs = "client"
  52. PARSE ARG all
  53.  
  54. DO i=1 TO WORDS(all)
  55.         cur = WORD(all,i)
  56.         IF \(FILESPEC('DRIVE',cur) = '') THEN DO
  57.                 IF whoseargs = "client" THEN
  58.                         clientargs = cur
  59.                 ELSE
  60.                         serverargs = cur
  61.         END
  62.         ELSE
  63.         IF cur = "--" THEN
  64.                 whoseargs = "server"
  65.         ELSE
  66.         IF whoseargs = "client" THEN
  67.                 clientargs = clientargs' 'cur
  68.         ELSE
  69.                 serverargs = serverargs' 'cur
  70. END
  71.  
  72. CALL RxFuncAdd 'SysSleep', 'RexxUtil', 'SysSleep'
  73. IF RC \= 0 THEN DO
  74.         SAY 'Your OS/2 Rexx does not have RexxUtil.SysSleep, does it?'
  75.         EXIT 2
  76. END
  77.  
  78. IF serverargs = '' THEN DO
  79.         serverargs = 'xpmfb.exe -direct -screen 640x420x8'
  80. END
  81.  
  82. 'start /PM /MIN CMD.EXE /C 'serverargs    /* Start the server */
  83. IF RC <> 0 THEN DO
  84.         SAY 'Could not start 'serverargs
  85.         EXIT 2
  86. END
  87.  
  88. CALL SysSleep(5)             /* Let the server set up */
  89.  
  90. 'start /MIN /N CMD.EXE /C 'clientargs    /* Start the clients */
  91.  
  92. /* Uncomment and edit the following line to fix the keyboard */
  93. /* See README.OS2 to know what the `keymap' file must contain */
  94. /*'xmodmap keymap'*/
  95.  
  96. RETURN
  97.  
  98. exists:
  99.         IF STREAM(arg(1), 'C', 'QUERY EXISTS') = '' THEN
  100.                 RETURN 0
  101.         ELSE
  102.                 RETURN 1
  103.