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           detach 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_.detach. The syntax of the command line to perform
12           this task would be:
13 
14           mtape_$mtape_cv_apd mtape_.detach.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_.detach;
27 
28 Default_linear_form:          "-no_display -rewind";
29 
30 Option:                       comment;
31   Option_name:                -comment, -com;
32   First_argument:             comment;
33  Argument:                    comment;
34    Presence:                  required;
35    Validate:                  "nless [length &r1] 65";
36    Validate_explanation:      "The comment text may not exceed 64 characters",
37                               " in length.";
38 
39 Option:                       display;
40   Option_name:                -display, -ds;
41   Antonym:                    -no_display, -nds;
42  Argument:                    flag;
43    Default_value:             "true";
44    Antonym_value:             "false";
45 
46 Option:                       rewind;
47   Option_name:                -rewind, -rew;
48   Antonym:                    -unload, -unld;
49  Argument:                    flag;
50    Default_value:             "true";
51    Antonym_value:             "false";
52 
53 End;