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 75,125 75,200 75,125,200",
103                               " 75,200,125 125,75 125,200 125,75,200 125,200,75",
104                               " 200,75 200,125 200,75,125 200,125,75) &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 125,200"").";
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