Paragraph 1
Paragraph 2
" -re1 = .RegularExpression~new("?*
", "MINIMAL") -re1~match(str) -re2 = .RegularExpression~new("?*
", "MAXIMAL") -re2~match(str) -say "re1 (minimal) matched" str~substr(1, re1~position) -say "re2 (maximal) matched" str~substr(1, re2~position) -EXIT + +/*....v....1....v....2....v....3....v....4....v....5....v....6....v....7....v....8....v....9....v....0 */ +/*drwx------ 2 gmgauthier gmgauthier 4.0K Feb 28 20:58 .a68g/ */ +/*-rw-r--r-- 1 gmgauthier gmgauthier 3.1K Feb 23 22:41 .tmux.conf */ + +dir_str = "drwx------ 2 gmgauthier gmgauthier 4.0K Feb 28 20:58 .a68g/" +filestr = "-rw-r--r-- 1 gmgauthier gmgauthier 3.1K Feb 23 22:41 .tmux.conf" +/* attrs num o g sz mo dy tm filename */ +dir_regex = .RegularExpression~new("?{10} ?{3} ?{10} ?{10} ?{4} [:alpha:]{3} [:digit:]{2} [:digit::punct:]{5} ([:xdigit::punct:]*)", "MINIMAL") +say "String to Match: " filestr +say "Match Result: " dir_regex~match(filestr) +say "Match Location: " dir_regex~Position +say "Match String: " filestr~substr(dir_regex~position+1) +say +nrs = 1, 42, 0, 5436412, "1A", "f43g" +re = .RegularExpression~new("[1-9][0-9]*") +do nr over nrs + say nr "is" re~match(nr)~?("a valid", "an invalid") "number" +end +say +-- allow hexadecimal numbers and a single 0 +re~parse("0|([1-9a-fA-F][:xdigit:]*)") +do nr over nrs + say nr "is" re~match(nr)~?("a valid", "an invalid") "number" +end + +say +text = "It's the year 2025!" +say text +re = .RegularExpression~new("[1-9][0-9]*") +begin = re~pos(text) +if begin > 0 then +do + year = text~substr(begin, re~position - begin + 1) + say "Found the number" year "in this sentence." +end + +Exit ::requires "rxregexp.cls" \ No newline at end of file diff --git a/projects/oorexx/test_getrexxpackage.rex b/projects/oorexx/test_getrexxpackage.rex deleted file mode 100755 index 25f244b..0000000 --- a/projects/oorexx/test_getrexxpackage.rex +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/env rexx -/* test_rexxgetpackage.rex */ -do - pkg = RexxGetPackage("orxncurses") - if pkg \= .nil then say "Package: " pkg - else say "No package returned" - call OrxCurInitscr - call OrxCurEndwin -end -catch error - say "Error:" error~message -exit - -::requires "orxncurses" LIBRARY diff --git a/projects/oorexx/test_init.rex b/projects/oorexx/test_init.rex deleted file mode 100755 index d77ef17..0000000 --- a/projects/oorexx/test_init.rex +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/env rexx -/* test_init.rex - Test library initialization */ - -do - /* Register a simple function */ - call RxFuncAdd "OrxCurVersion", "orxncurses", "OrxCurVersion" - - /* Test it */ - version = OrxCurVersion() - say "Version: " version - - /* Try initializing ncurses */ - call RxFuncAdd "OrxCurInitscr", "orxncurses", "OrxCurInitscr" - call RxFuncAdd "OrxCurEndwin", "orxncurses", "OrxCurEndwin" - call OrxCurInitscr - say "Initscr worked!" - call OrxCurEndwin -end - -catch error - say "Error:" error~message - call OrxCurEndwin -exit diff --git a/projects/oorexx/test_orxncurses.rex b/projects/oorexx/test_orxncurses.rex deleted file mode 100755 index 11a94b6..0000000 --- a/projects/oorexx/test_orxncurses.rex +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/env rexx -/* test_orxncurses.rex - Test library initialization and basic function */ - -/* Call RxFuncAdd "OrxNcurses","orxncurses","OrxNcurses" */ - -do - /* Try to register the package */ - pkg = RexxGetPackage("orxncurses") - if pkg \= .nil then say "Package registered: " pkg - else say "Package registration failed" - - /* Test a simple function */ - version = OrxCurVersion() - say "Orxncurses version: " version - - /* Try initializing ncurses */ - call OrxCurInitscr - say "Initscr succeeded!" - call OrxCurEndwin -end - -catch error - say "Error:" error~message -exit - -/* ::requires "orxncurses" LIBRARY */ \ No newline at end of file diff --git a/projects/oorexx/test_rxfuncadd.rex b/projects/oorexx/test_rxfuncadd.rex deleted file mode 100755 index 8823430..0000000 --- a/projects/oorexx/test_rxfuncadd.rex +++ /dev/null @@ -1,18 +0,0 @@ -#!/usr/bin/env rexx -/* test_rxfuncadd.rex - Test RxFuncAdd with new orxncurses */ - -do - /* Register functions */ - call RxFuncAdd "OrxCurInitscr", "orxncurses", "OrxCurInitscr" - call RxFuncAdd "OrxCurEndwin", "orxncurses", "OrxCurEndwin" - - /* Test initialization */ - call OrxCurInitscr - say "Initscr worked!" - call OrxCurEndwin -end - -catch error - say "Error:" error~message - call OrxCurEndwin -exit