1 /* ***********************************************************
2 * *
3 * Copyright, C Honeywell Information Systems Inc., 1983 *
4 * *
5 *********************************************************** */
6
7 /* This is the argument processing definition source language for the
8 attach description of the mtape_ I/O module. This may be
9 compiled with the mtape_$mtape_cv_apd command and the binary result
10 will be stored in the specified value segment data space with the
11 name of mtape_.attach. The syntax of the command line to perform
12 this task would be:
13
14 mtape_$mtape_cv_apd mtape_.attach.mapd -target <value_seg_path>
15
16 where <value_seg_path> is the pathname of the desired value segment
17 which will be created if it does not exist. If no "-target" control
18 arg is given, then the binary definition is stored in the users
19 default value segment home_dir>user name.value.
20
21 Modification history:
22
23 Created by J. A. Bush 03/31/83
24 */
25
26 Program_name: mtape_.attach;
27
28 Default_linear_form: "-density 1600 -device 1 -default_volume_type ansi",
29 " -track 9 -wait_time 10 -error -label -no_display",
30 " -no_ring -no_system -no_wait";
31
32 Initial_implied_option: volume;
33
34 Option: comment;
35 Option_name: -comment, -com;
36 First_argument: comment;
37 Argument: comment;
38 Presence: required;
39 Validate: "nless length &r1 65";
40 Validate_explanation: "The comment text must not exceed 64 characters",
41 " in length.";
42
43 Option: default_volume_type;
44 Option_name: -default_volume_type, -dvt;
45 First_argument: default_volume_type;
46 Argument: default_volume_type;
47 Presence: required;
48 Validate: "nless length &r1 22";
49 Validate_explanation: "The default_volume_type specification must not",
50 " exceed 21 characters in length.";
51
52 Option: density;
53 Option_name: -density, -den;
54 First_argument: density;
55 Argument: density;
56 Presence: required;
57 Validate: "or nequal 200 556 800 1600 6250 &r1";
58 Validate_explanation: "Valid density values are 200, 556, 800, 1600",
59 " and 6250 only.";
60
61 Option: device;
62 Option_name: -device, -dv;
63 First_argument: device;
64 Argument: device;
65 Presence: required;
66 Validate: "and ngreater &r1 0 nless &r1 64";
67 Validate_explanation: "From 1 to 63 devices only may be specified.";
68
69 Option: display;
70 Option_name: -display, -ds;
71 Antonym: -no_display, -nds;
72 Argument: flag;
73 Default_value: "true";
74 Antonym_value: "false";
75
76 Option: error;
77 Option_name: -error, -err;
78 Antonym: -no_error, -nerr;
79 Argument: flag;
80 Default_value: "true";
81 Antonym_value: "false";
82
83 Option: label;
84 Option_name: -label, -lbl;
85 Antonym: -no_labels, -no_label, -nlbl;
86 Argument: flag;
87 Default_value: "true";
88 Antonym_value: "false";
89
90 Option: ring;
91 Option_name: -ring, -rg;
92 Antonym: -no_ring, -nrg;
93 Argument: flag;
94 Default_value: "true";
95 Antonym_value: "false";
96
97 Option: speed;
98 Option_name: -speed, -ips;
99 First_argument: speed;
100 Argument: speed;
101 Presence: required;
102 Validate: "or equal 75 125 200 75125 75200 75125200"
103 " 75200125 12575 125200 12575200 12520075"
104 " 20075 200125 20075125 20012575 &r1";
105 Validate_explanation: "Acceptable speed values are 75, 125 and 200. If",
106 " more than 1 speed is to be specified,",
107 " additional speeds must be indicated in a comma",
108 " seperated list e.g. ""-speed 125200"".";
109
110 Option: system;
111 Option_name: -system, -sys;
112 Antonym: -no_system, -nsys;
113 Argument: flag;
114 Default_value: "true";
115 Antonym_value: "false";
116
117 Option: track;
118 Option_name: -track, -tk;
119 First_argument: track;
120 Argument: track;
121 Presence: required;
122 Validate: "or nequal 7 9 &r1";
123 Validate_explanation: "Values for the ""-track"" option may be either",
124 " 7 or 9 only.";
125
126 Option: volume;
127 Option_name: -volume, -vol;
128 Unexclude: volume;
129 First_argument: volume;
130 Argument: volume;
131 Presence: required;
132 Force_literal: ;
133 Next_argument: NONE;
134 Validate: "nless length &r1 33";
135 Validate_explanation: "Volume name specifications must not exceed 32",
136 " characters in length.";
137
138 Option: volume_type;
139 Option_name: -volume_type, -vt;
140 First_argument: volume_type;
141 Argument: volume_type;
142 Presence: required;
143 Validate: "nless length &r1 22";
144 Validate_explanation: "The volume_type specification must not",
145 " exceed 21 characters in length.";
146
147 Option: wait;
148 Option_name: -wait, -wt;
149 Antonym: -no_wait, -nwt;
150 Argument: flag;
151 Default_value: "true";
152 Antonym_value: "false";
153
154 Option: wait_time;
155 Option_name: -wait_time, -wtm;
156 First_argument: wait_time;
157 Argument: wait_time;
158 Presence: required;
159 Validate: "and ngreater &r1 0 nless &r1 1441";
160 Validate_explanation: "The wait_time value must be in the range of",
161 " 1 to 1440 minutes 24 hours.";
162
163 End;
164
165
166