latest things

projects/oorexx/address-test.rex

@@ -12,7 +12,7 @@ Do i = 1 to dir.0
 End
 dirjson1 = .json~new()~toJSON(dirlist1)
 
-say dirjson1~e
+say dirjson1
 
 Say " "
 call SysFileTree .environment~pwd||"/", file., 'BL'

projects/oorexx/csv-file-test.rex

@@ -31,9 +31,8 @@ Do while csv~chars > 0
 End
 /*======================*/
 csv~close
+Parse Value Linein() with smerg
 
 Exit
 
 ::requires 'csvStream.cls'
-
-

projects/oorexx/experiment.rex

@@ -1,17 +0,0 @@
-#!/usr/bin/env rexx
-/*************************************************************************/
-   
-    call RxFuncAdd "OrxCurInitscr", "orxncurses", "OrxCurInitscr"
-    call RxFuncAdd "OrxCurEndwin", "orxncurses", "OrxCurEndwin"
-
-scr = .Window~new()
-scr~clear()
-scr~beep()
-scr~addstr('I said ATTENTION!')
-scr~flash()
-
-
-exit
-
-/***************** REQUIRES **********************************************/    
-::requires "orxncurses" LIBRARY;

projects/oorexx/headered.csv

@@ -2,3 +2,90 @@
 "red","stop"
 "green","go"
 "yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"
+"red","stop"
+"green","go"
+"yellow","decelerate"

projects/oorexx/minimal_ncurses.rex

@@ -1,16 +0,0 @@
-#!/usr/bin/env rexx
-/* minimal_ncurses.rex - Draw a box using raw ncurses functions */
-
-do
-    call initscr
-    call noecho
-    call cbreak
-    win = newwin(10, 20, 5, 10)
-    call box win, 0, 0
-    call wrefresh win
-    call getch
-    call endwin
-end
-Exit
-
-::requires "ncurses.cls"

projects/oorexx/ncurses_test.rex

@@ -1,5 +1,4 @@
 #!/usr/bin/env rexx
-/* test_50cls.rex */
 
 scr = .window~new()
 scr~start_color()

projects/oorexx/regex-test.rex

@@ -1,10 +1,40 @@
-str = "<p>Paragraph 1</p><p>Paragraph 2</p>"
+
-re1 = .RegularExpression~new("<p>?*</p>", "MINIMAL")
+/*....v....1....v....2....v....3....v....4....v....5....v....6....v....7....v....8....v....9....v....0 */
-re1~match(str)
+/*drwx------   2 gmgauthier gmgauthier 4.0K Feb 28 20:58 .a68g/                                        */
-re2 = .RegularExpression~new("<p>?*</p>", "MAXIMAL")
+/*-rw-r--r--   1 gmgauthier gmgauthier 3.1K Feb 23 22:41 .tmux.conf                                    */
-re2~match(str)
+
-say "re1 (minimal) matched" str~substr(1, re1~position)
+dir_str = "drwx------   2 gmgauthier gmgauthier 4.0K Feb 28 20:58 .a68g/"
-say "re2 (maximal) matched" str~substr(1, re2~position)
+filestr = "-rw-r--r--   1 gmgauthier gmgauthier 3.1K Feb 23 22:41 .tmux.conf"
-EXIT
+/*                                  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"

projects/oorexx/test_getrexxpackage.rex

@@ -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

projects/oorexx/test_init.rex

@@ -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

projects/oorexx/test_orxncurses.rex

@@ -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 */

projects/oorexx/test_rxfuncadd.rex

@@ -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