v4.0/src/CMD/TREE/TREEMS.INC

   1 ;:util TREE                      ;utility name
   2 ;:class 1                        ;DOS extended errors
   3 ;:class 2                        ;parse errors:
   4 ;1  Too many parameters
   5 ;2  Required parameter missing
   6 ;3  Invalid switch
   7 ;4  Invalid keyword
   8 ;5  Parameter value not in allowed range
   9 ;6  Parameter value not allowed    [parse ret codes 6 and 7]
  10 ;7   (undefined)
  11 ;8  Parameter format not correct
  12 ;9   (undefined)
  13 ;10 Invalid parameter              [no corresponding parse ret code]
  14 ;11 Invalid parameter combination  [no corresponding parse ret code]
  15 ;;
  16 ;:class A                        ;system messages
  17 ;:use 1 COMMON1          ;MSG 1 is always "Incorrect DOS version"
  18 ;
  19 ;:def 2 "Directory PATH listing for Volume %1",CR,LF  ;define message
  20 ;:def 3 "Directory PATH listing",CR,LF
  21 ;:def 4 "No sub-directories exist",CR,LF,LF
  22 ;:use 5 COMMON25         ;"Invalid path"
  23 ;:use 6 COMMON36         ;"Volume Serial Number is %1-%2",CR,LF
  24 ;:def 7 "ÀÄÃ³"            ;"elbo","dash","tee","bar"
  25 ;;       1. NONE OF THE FOUR CAN BE BLANK
  26 ;;       2. EACH OF THE FOUR MUST BE UNIQUE
  27 ;;       3. EACH CHAR MUST BE A SINGLE BYTE (NO DBCS)
  28 ;:end
  29         IF1                        ;AN000;
  30             %OUT    COMPONENT=TREE, MODULE=TREEMS.INC...;AN000;
  31         ENDIF                      ;AN000;
  32 PAD_0   EQU    "0"                 ;AN001;NUMERIC PAD CHARACTER
  33
  34 SUBLIST_PARSE  SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS <SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1,PAD_BLK> ;AN004;
  35         PUBLIC SUBLIST_PARSE       ;AN004;
  36
  37 ;               THE NEXT GROUP ARE ADDITIONAL CLASS "A" MESSAGES
  38 ;               SPECIFICALLY DEFINED FOR THE TREE UTILITY
  39
  40 MSGNUM_VOL     MSG_DESC <2,,SUBLIST_VOL,ONE_SUBS> ;AN000;"Directory PATH listing for Volume %1"
  41         PUBLIC MSGNUM_VOL          ;AN000;
  42
  43         EXTRN FIX_DTA_FILN:BYTE    ;AN000;ASCIIZ OF VOLUME LABEL STRING
  44 SUBLIST_VOL    SUBLIST <,,FIX_DTA_FILN,FILL_SEG,PC_ID_1,SF_BITS <SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1,PAD_BLK> ;AN000;
  45         PUBLIC SUBLIST_VOL         ;AN000;
  46 ; = = = = = = = = = = = = = = = =
  47 MSGNUM_LIST    MSG_DESC <3>        ;AN000;"Directory PATH listing"
  48         PUBLIC MSGNUM_LIST         ;AN000;
  49 ; = = = = = = = = = = = = = = = =
  50 MSGNUM_NOSUB   MSG_DESC <4>        ;AN000;"No sub-directories exist"
  51         PUBLIC MSGNUM_NOSUB        ;AN000;
  52 ; = = = = = = = = = = = = = = = =
  53 MSGNUM_INVPATH MSG_DESC <5,STDERR,SUBLIST_INVPATH,ONE_SUBS> ;AC014;"Invalid path"
  54         PUBLIC MSGNUM_INVPATH      ;AN000;
  55
  56         EXTRN START_PATH:BYTE      ;AN014;
  57 SUBLIST_INVPATH SUBLIST <,,START_PATH,FILL_SEG,PC_ID_0,SF_BITS <SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1,PAD_BLK> ;AN014;
  58         PUBLIC SUBLIST_INVPATH
  59 ; = = = = = = = = = = = = = = = =
  60 MSGNUM_SERNO   MSG_DESC <6,,SUBLIST_6A,TWO_SUBS> ;AN001;"Volume Serial Number is %1-%2",CR,LF
  61         PUBLIC MSGNUM_SERNO        ;AN001;
  62 SUBLIST_6A     SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_RIGHT,,SF_WORD,SF_UN_BH>,DWORD,DWORD,PAD_0> ;AN001;
  63 SUBLIST_6B     SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_2,SF_BITS<SF_RIGHT,,SF_WORD,SF_UN_BH>,DWORD,DWORD,PAD_0> ;AN001;
  64                PUBLIC SUBLIST_6A,SUBLIST_6B ;AN001;
  65 ; = = = = = = = = = = = = = = = =
  66 ;NOTE: THERE IS NO "MSG_DESC" FOR MESSAGE 7, SINCE THIS IS NEVER DISPLAYED
  67 ;AS A MESSAGE, BUT IS REFERENCED ONLY BY SYSGETMSG.
  68 ; = = = = = = = = = = = = = = = =
  69 ;END OF TREEMS.INC