← Back to branch summary

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

« back to all changes in this revision

Viewing changes to install/vms/listmidas.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/listmidas.com
 
1
$ ! @(#)listmidas.com   19.1 (ESO-IPG) 02/25/03 13:52:27 
 
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]LISTMIDAS.COM
 
9
$ ! .COMMENTS    Midas configuration procedure for VMS systems.
 
10
$ ! 
 
11
$ ! .REMARKS
 
12
$ !
 
13
$ ! .DATE        990111   C.Guirao      Creation
 
14
$ !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
15
$ !
 
16
$ set noon
 
17
$ set protection=(S:REWD,O:REWD,G:REWD,W:R)/DEFAULT
 
18
$ !
 
19
$ ! Definitions:
 
20
$ !
 
21
$ clear = ""
 
22
$ echo == "WRITE SYS$OUTPUT"
 
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
$ close dir_file
 
37
$ goto CHECK_SELECT
 
38
$ !
 
39
$ ! Start here:
 
40
$ !
 
41
$ START:
 
42
$ on control_y then goto exit
 
43
$ on control_c then goto INTERRUPT
 
44
$ set message/nofacility -
 
45
        /noidentification -
 
46
        /noseverity -
 
47
        /notext
 
48
$ SHOW_LIST:
 
49
$ echo clear
 
50
$ echo "        LIST OF AVAILABLE PACKAGES FOR MIDAS:"
 
51
$ echo ""
 
52
$ echo "        NAME            CATEGORY"
 
53
$ echo "        =========================="
 
54
$
 
55
$ GROUP := "APPLIC"
 
56
$ gosub LIST_DIRS
 
57
$ GROUP := "STDRED"
 
58
$ gosub LIST_DIRS
 
59
$ GROUP := "CONTRIB"
 
60
$ gosub LIST_DIRS
 
61
$ echo ""
 
62
$ !
 
63
$ CHECK_SELECT:
 
64
$ echo "Type <Q> to quit or <L> to list again."
 
65
$ REPEAT:
 
66
$ inquire SELECT "Select NAME"
 
67
$ if SELECT .eqs. "Q" then goto FIN
 
68
$ if SELECT .eqs. "L" then goto SHOW_LIST
 
69
$ !
 
70
$ GROUP := "APPLIC"
 
71
$ if f$search("[''MIDASHOME'.''MIDVERS'.''GROUP']''SELECT'.DIR") -
 
72
    .nes. "" then got CHECK_DESCRIPTOR
 
73
$ GROUP := "STDRED"
 
74
$ if f$search("[''MIDASHOME'.''MIDVERS'.''GROUP']''SELECT'.DIR") -
 
75
    .nes. "" then got CHECK_DESCRIPTOR
 
76
$ GROUP := "CONTRIB"
 
77
$ if f$search("[''MIDASHOME'.''MIDVERS'.''GROUP']''SELECT'.DIR") -
 
78
    .nes. "" then got CHECK_DESCRIPTOR
 
79
$ ERROR0 = SELECT +  ": No such package with that name."
 
80
$ echo ERROR0
 
81
$ goto REPEAT
 
82
$ !
 
83
$ CHECK_DESCRIPTOR:
 
84
$ if f$search("[''MIDASHOME'.''MIDVERS'.''GROUP'.''SELECT']DESCRIPTION") -
 
85
    .nes. "" then goto CAT_DESCRIPTOR
 
86
$ ERROR1 = "DESCRIPTION file from <" + SELECT + "> not available."
 
87
$ echo ERROR1
 
88
$ goto REPEAT
 
89
$ CAT_DESCRIPTOR:
 
90
$ type/page ['MIDASHOME'.'MIDVERS'.'GROUP'.'SELECT']DESCRIPTION.
 
91
$ goto CHECK_SELECT
 
92
$ !
 
93
$ FIN:
 
94
$ purge GROUP.LIS
 
95
$ set on
 
96
$ set message/facility -
 
97
        /identification -
 
98
        /severity -
 
99
        /text
 
100
$ exit
 
101
$ !
 
102
$ !--------------------------------------------------------------------------
 
103
$ ! .NAME        LIST_DIRS
 
104
$ ! .TYPE        DCL subroutine
 
105
$ ! .COMMENTS    Identifies MIDAS packages under ['MIDASHOME'.'MIDVERS'.'GROUP']
 
106
$ !              That means, those directories containing a [.LIBSRC], [.SRC] 
 
107
$ !              or [.PROC] subdirectory.
 
108
$ ! .REMARKS
 
109
$ ! .DATE        990111   C.Guirao      Creation
 
110
$ !--------------------------------------------------------------------------
 
111
$ LIST_DIRS:
 
112
$ directory/size/output=GROUP ['MIDASHOME'.'MIDVERS'.'GROUP']*.DIR
 
113
$ open/read dir_file GROUP.LIS
 
114
$ !
 
115
$ BEGIN:
 
116
$ read/end_of_file=EOF_GROUP dir_file RECORD
 
117
$ !
 
118
$ ! skip in GROUP.LIS all those lines with no ";" character
 
119
$ !
 
120
$ nn = 'f$locate(";",RECORD)'
 
121
$ if nn .eq. f$length(RECORD) then goto BEGIN
 
122
$ nn = 'f$locate(".",RECORD)'
 
123
$ DIR_INPUT := 'f$extract(0,nn,RECORD)'
 
124
$ if f$search("[''MIDASHOME'.''MIDVERS'.''GROUP'.''DIR_INPUT'.*]MAKEFILE.COM") -
 
125
    .nes. "" then goto ECHO_DIR
 
126
$ goto BEGIN
 
127
$ ECHO_DIR:
 
128
$ DIR_OUT = "   " + DIR_INPUT + "       " + GROUP
 
129
$ if f$search("[''MIDASHOME'.''MIDVERS'.''GROUP'.''DIR_INPUT']DESCRIPTION") -
 
130
    .eqs. "" then DIR_OUT = DIR_OUT + " (DESCRIPTION file not available)"
 
131
$ echo DIR_OUT
 
132
$ goto BEGIN
 
133
$ !
 
134
$ EOF_GROUP:
 
135
$ close dir_file
 
136
$ return 
 
137
$ !--------------------------------------------------------------------------