← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to prim/proc/testX.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/proc/testX.prg
 
1
! @(#)testX.prg 19.1 (ESO-DMD) 02/25/03 14:09:06
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! procedure testX.prg to test the Xserver setup
 
5
! K. Banse      980629, 021120
 
6
! 
 
7
!  execute via @ testX switch [Xtest_param]
 
8
!        with switch = 0, to run Xtest.exe 
 
9
!                    = 1, to run Xcommand `xdpyinfo'
 
10
!
 
11
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
12
!
 
13
define/param p1 0 n "Enter switch (0/1) for Xtest.exe or xdpyinfo:"
 
14
! 
 
15
if {p1} .eq. 0 then
 
16
   if aux_mode(1) .le. 1 then                   !VMS
 
17
      RUN MID_DISK:[&MIDASHOME.&MIDVERS.SYSTEM.IDISERV.SRC]XTEST.EXE
 
18
   else                                         !Unix
 
19
      $ $MIDASHOME/$MIDVERS/system/idiserv/src/Xtest.exe 
 
20
   endif
 
21
else
 
22
   $xdpyinfo > testX.dat
 
23
   $more testX.dat
 
24
   write/out
 
25
   write/out >>> "this info is also stored in the ASCII file `testX.dat'" <<<
 
26
endif