latest things
This commit is contained in:
parent
e0e6895c75
commit
4020c31930
@ -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'
|
||||
|
||||
@ -31,9 +31,8 @@ Do while csv~chars > 0
|
||||
End
|
||||
/*======================*/
|
||||
csv~close
|
||||
Parse Value Linein() with smerg
|
||||
|
||||
Exit
|
||||
|
||||
::requires 'csvStream.cls'
|
||||
|
||||
|
||||
|
||||
@ -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;
|
||||
@ -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"
|
||||
|
||||
|
@ -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"
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env rexx
|
||||
/* test_50cls.rex */
|
||||
|
||||
scr = .window~new()
|
||||
scr~start_color()
|
||||
|
||||
@ -1,10 +1,40 @@
|
||||
str = "<p>Paragraph 1</p><p>Paragraph 2</p>"
|
||||
re1 = .RegularExpression~new("<p>?*</p>", "MINIMAL")
|
||||
re1~match(str)
|
||||
re2 = .RegularExpression~new("<p>?*</p>", "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"
|
||||
@ -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
|
||||
@ -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
|
||||
@ -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 */
|
||||
@ -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
|
||||
Loading…
Reference in New Issue
Block a user