← Back to branch summary

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

« back to all changes in this revision

Viewing changes to install/vms/helpmidas.com

  • 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:
install/vms/helpmidas.com
 
1
$ ! @(#)helpmidas.com   19.1 (ESO-IPG) 02/25/03 13:52:26 
 
2
$ set noverify
 
3
$ !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
$ !
 
5
$ ! .COPYRIGHT   (c) 1991 European Southern Observatory
 
6
$ ! .ENVIRONMENT VMS
 
7
$ ! .AUTHOR      Carlos Guirao - [ESO/IPG]
 
8
$ ! .IDENT       ['MIDASHOME'.'MIDVERS'.INSTALL.VMS]HELPMIDAS.COM
 
9
$ ! .COMMENTS    Midas configuration procedure for VMS systems.
 
10
$ ! 
 
11
$ ! .REMARKS
 
12
$ !
 
13
$ ! .DATE        990111   C.Guirao      Creation
 
14
$ !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
15
$ !
 
16
$ set protection=(S:REWD,O:REWD,G:REWD,W:R)/DEFAULT
 
17
$ set noon
 
18
$ !
 
19
$ ! Definitions:
 
20
$ !
 
21
$ echo == "WRITE SYS$OUTPUT"
 
22
$ clear = ""
 
23
$ !
 
24
$ ! Get logical assignments for MIDAS stuff
 
25
$ !
 
26
$ if MIDVERS .nes. "" then goto CHECK_HOME
 
27
$ echo "Error: MIDVERS must be defined previously"
 
28
$ exit
 
29
$ !
 
30
$ CHECK_HOME:
 
31
$ if MIDASHOME .nes. "" then goto START
 
32
$ echo "Error: MIDASHOME must be defined previously"
 
33
$ exit
 
34
$ !
 
35
$ ! Interrupt:
 
36
$ !
 
37
$ !
 
38
$ INTERRUPT:
 
39
$ close input_file
 
40
$ set on
 
41
$ set message/facility -
 
42
        /identification -
 
43
        /severity -
 
44
        /text
 
45
$ exit
 
46
$ !
 
47
$ ! Start here:
 
48
$ !
 
49
$ START:
 
50
$ on control_y then goto INTERRUPT
 
51
$ on control_c then goto INTERRUPT
 
52
$ echo clear
 
53
$ SHOW_MENU:
 
54
$ echo ""
 
55
$ echo "            MIDAS HELP MENU:"
 
56
$ echo "        =======================================
 
57
$ echo "        0 - Configmidas."
 
58
$ echo "        1 - List of MIDAS packages available."
 
59
$ echo "        2 - Select make."
 
60
$ echo "        3 - Select graphic display."
 
61
$ echo "        4 - Select only MIDAS core."
 
62
$ echo "        5 - Select all MIDAS packages."
 
63
$ echo "        6 - Select MIDAS core & packages of your choice."
 
64
$ echo "        7 - Install MIDAS."
 
65
$ echo "        8 - Clean MIDAS."
 
66
$ echo "        q - Quit."
 
67
$ echo ""
 
68
$ inquire SELECT "Select"
 
69
$ !
 
70
$ echo clear
 
71
$ if SELECT .eqs. "0" then goto TYPE_DOC
 
72
$ if SELECT .eqs. "1" then goto TYPE_DOC
 
73
$ if SELECT .eqs. "2" then goto TYPE_DOC
 
74
$ if SELECT .eqs. "3" then goto TYPE_DOC
 
75
$ if SELECT .eqs. "4" then goto TYPE_DOC
 
76
$ if SELECT .eqs. "5" then goto TYPE_DOC
 
77
$ if SELECT .eqs. "6" then goto TYPE_DOC
 
78
$ if SELECT .eqs. "7" then goto TYPE_DOC
 
79
$ if SELECT .eqs. "8" then goto TYPE_DOC
 
80
$ if SELECT .eqs. "Q" then goto FIN
 
81
$ goto SHOW_MENU
 
82
$ !
 
83
$ TYPE_DOC:
 
84
$ if SELECT .eqs. "0" then DOC := "configmidas.doc"
 
85
$ if SELECT .eqs. "1" then DOC := "listmidas.doc"
 
86
$ if SELECT .eqs. "2" then DOC := "selecmake.doc"
 
87
$ if SELECT .eqs. "3" then DOC := "selecdisplay.doc"
 
88
$ if SELECT .eqs. "4" then DOC := "selecmidas.doc"
 
89
$ if SELECT .eqs. "5" then DOC := "selecmidas.doc"
 
90
$ if SELECT .eqs. "6" then DOC := "selecmidas.doc"
 
91
$ if SELECT .eqs. "7" then DOC := "installmidas.doc"
 
92
$ if SELECT .eqs. "8" then DOC := "cleanmidas.doc"
 
93
$ !
 
94
$ type/page 'DOC'
 
95
$ inquire/nopunctuation ANSWER "END OF FILE: Press any key to return... "
 
96
$ echo clear
 
97
$ goto SHOW_MENU
 
98
$ !
 
99
$ FIN:
 
100
$ set on
 
101
$ exit