1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
$!
$! @(#)startviewer.com 6.2 99/12/27
$!
$! Image viewer startup procedure. See the INSTALL.VMS file for details.
$! OpenVMS versions: 6.0 and later, tested with 7.1 on VAX(tm) machines
$!
$! xmcd - Motif(tm) CD Audio Player
$! cda - Command-line CD Audio Player
$! libdi - CD Audio Player Device Interface Library
$!
$! Copyright (C) 1993-2000 Ti Kan
$! E-mail: ti@amb.org
$! Contributing author: Michael Monscheuer
$! E-mail: monscheuer@t-online.de
$!
$! This program is free software; you can redistribute it and/or modify
$! it under the terms of the GNU General Public License as published by
$! the Free Software Foundation; either version 2 of the License, or
$! (at your option) any later version.
$!
$! This program is distributed in the hope that it will be useful,
$! but WITHOUT ANY WARRANTY; without even the implied warranty of
$! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
$! GNU General Public License for more details.
$!
$! You should have received a copy of the GNU General Public License
$! along with this program; if not, write to the Free Software
$! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
$!
$!
$ IF F$MODE() .NES. "OTHER"
$ THEN
$ DEFINE SYS$OUTPUT NLA0:
$ SHOW DISPLAY/SYMBOL
$ DEASSIGN SYS$OUTPUT
$ OPEN/WRITE 0 SYS$LOGIN:XMCD_VIEWER.PAR
$ WRITE 0 "''P1'"
$ WRITE 0 "''DECW$DISPLAY_NODE'"
$ WRITE 0 "''DECW$DISPLAY_TRANSPORT'"
$ CLOSE 0
$ SET MESSAGE/NOTEXT/NOFACILITY/NOIDENTIFICATION/NOSEVERITY
$ RUN/DETACHED SYS$SYSTEM:LOGINOUT-
/INPUT='F$ENVI("PROCEDURE")'/AUTHORIZE-
/OUTPUT=NLA0:/ERROR=NLA0:/PRIO=4
$!
$! Report success to xmcd
$!
$ IF $SEVERITY .EQ. 1 THEN EXIT %X10000000
$ EXIT
$ ENDIF
$!
$ SET DEFAULT SYS$LOGIN
$ OPEN/READ 0 XMCD_VIEWER.PAR
$ READ 0 PIXFIL
$ READ 0 NODE
$ READ 0 TRANS
$ CLOSE 0
$ DELETE/NOCONFIRM XMCD_VIEWER.PAR;*
$ SET DISPLAY/CREATE/NODE='NODE'/TRANSPORT='TRANS'/EXECUTIVE
$!
$! Replace the directory in the next line with the directory your copy
$! of XV is resident in.
$!
$ XV :== $KIDDY$DKA0:[XV-3_10A]XV
$ XV 'PIXFIL'COVER.GIF -fixed -ge 300x300+24-590
$
|
