!************************************************************************* ! * ! © 2000 BY * ! COMPAQ COMPUTER CORPORATION * ! © 2000 BY * ! ELECTRONIC DATA SYSTEMS LIMITED * ! * ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! OTHER PERSON. NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY * ! TRANSFERRED. * ! * ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY COMPAQ COMPUTER * ! CORPORATION OR EDS. * ! * ! NEITHER COMPAQ NOR EDS ASSUME ANY RESPONSIBILITY FOR THE USE OR * ! RELIABILITY OF THIS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY * ! COMPAQ. * ! * !************************************************************************* MODULE LSE$PATTERNS IDENT "4.7-3" ! ! LSE$EXAMPLES:LSE$PATTERNS.TPU ! ! This file is provided for use with the TPU pattern style that can ! be used with search and substitute commands and dialogs. ! ! The patterns provided are those that are provided for the ! Compaq Digital Test Manager used defined filters feature. ! For LSE the variable names used by DTM are prefixed by an underscore ! character. ! ! ! "_null" which matches the null string. It can be used to specify ! optional pattern elements. For example, the pattern "'A' + ('B'|_null)" ! matches the strings "A" and "AB" ! _null := ""; ! ! Upper and lower case letters, including the shorthand "_uc" and "_lc" to ! match single upper or lower case letters. ! ! NOTE: These patterns require that searches are set to be case sensitive ! (using the SET SEARCH command) otherwise they will match both upper and ! lower case letters. ! _upper_case_letters := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; _upper_case_letter := any(_upper_case_letters); _uc := any(_upper_case_letters); _lower_case_letters := "abcdefghijklmnopqrstuvwxyz"; _lower_case_letter := any(_lower_case_letters); _lc := any(_lower_case_letters); ! ! "_letter" and the shorthand "_l" which match a single letter ! and "_word", which matches any sequence of letters. ! _letters := _upper_case_letters + _lower_case_letters; _letter := any(_letters); _l := any(_letters); _word := span(_letters); ! ! "_digit" and the shorthand "_d" which match a single digit ! and "_number", which matches any sequence of digits. ! _digits := "0123456789"; _digit := any(_digits); _d := any(_digits); _number := span(_digits); ! ! "_identifier" which matches a string starting with a letter and ! followed by any combination of letters, digits, underscores ! and dollars. This would match most OpenVMS symbols and logical names. ! This pattern can be redefined to meet other requirements. ! _identifier := _letter + span(_letters + _digits + '_' + '$'); ! "_space" and the shorthand "_s" match a single space, "_spaces" matches ! a sequence of spaces, "_tab" the tab character, "_white_space" and the ! shorthand "_ws" match any sequence of spaces and tabs and ! "_optional_white_space" and the shorthand "_ows" match white space ! or nothing. ! _space := ' '; _s := ' '; _spaces := span(_space); _tab := ascii(9); _white_space := span(_space+_tab); _ws := span(_space+_tab); _optional_white_space := (span(_space+_tab)|_null); _ows := (span(_space+_tab)|_null); _lf := ascii(10); ENDMODULE