.gitignore

@@ -1,4 +1,2 @@
 __pycache__/
 *.rdbx
-.idea/
-

projects/oorexx/1plus1.rex

@@ -0,0 +1,2 @@
+Say '1'+'1'
+Say "2" * 2

projects/oorexx/address-test.rex

@@ -1,67 +1,7 @@
-#!/usr/bin/env rexx
-
 /* Rexx */
-Address system "pwd" with output stem pwd.
-.environment~pwd = pwd.1
 
-Address system "ls -lAh "||.environment~pwd With output stem dir.
+Address "zsh" "ls -lA" With output stem dir.
-dirlist1 = .array~new()
+
 Do i = 1 to dir.0
-    if dir.i~StartsWith("total") then nop
+    say dir.i
-    Else call add_to_array1(dir.i)
-End
-dirjson1 = .json~new()~toJSON(dirlist1)
-
-say dirjson1~e
-
-Say " "
-call SysFileTree .environment~pwd||"/", file., 'BL'
-dirlist2 = .array~new()
-do i = 1 to file.0
- call add_to_array2(file.i)
 end
-dirjson2 = .json~new()~toJSON(dirlist2)
-Say dirjson2
-
-Exit
-
-add_to_array1: PROCEDURE expose dirlist1
-    parse arg attrs filecnt . . filesz . . . filenm
-    dirlist1~append(.directory~new())
-
-    dirlist1[dirlist1~last]['name'] = filenm
-
-    if attrs~startsWith("d") then dirlist1[dirlist1~last]['type'] = 'dir'
-    else dirlist1[dirlist1~last]['type'] = 'file'
-
-    if attrs~startsWith("d") then NOP
-    else dirlist1[dirlist1~last]['bytes'] = filesz
-Return dirlist1
-
-add_to_array2: PROCEDURE expose dirlist2
-    /*  3/16/25   2:29p         558  -rwxrwxr-x  /home/gmgauthier/Projects/rexx-things/projects/oorexx/params.rex */
-    parse arg . . filesz attrs filepath
-
-    filenm = parse_filename(filepath)
-
-    dirlist2~append(.directory~new())
-    dirlist2[dirlist2~last]['name'] = filenm
-
-    if attrs~startsWith("d") then dirlist2[dirlist2~last]['type'] = 'dir'
-    else dirlist2[dirlist2~last]['type'] = 'file'
-
-    if attrs~startsWith("d") then NOP
-    else dirlist2[dirlist2~last]['bytes'] = filesz
-Return dirlist2
-
-parse_filename: procedure
-  parse arg filepath
-
-  /* Parse the filepath to get just the filename */
-  parse var filepath . '/' filename
-  do while pos('/', filename) > 0
-    parse var filename . '/' filename
-  end
-return filename
-
-::requires 'json.cls'

projects/oorexx/csv-file-test.rex

@@ -1,39 +0,0 @@
-#!/usr/bin/env rexx
-/* Rexx */
-
-csv = .csvStream~new('headered.csv', .true)
-csv~open
-
-/* Stream class defaults to both ie:readWrite */
-myTable = .table~new
-myTable~put('red','colour')
-myTable~put('stop','action')
-
-csv~CSVLineout(myTable)
-myTable~put('green','colour')
-myTable~put('go','action')
-
-csv~CSVLineout(mytable)
-myTable~put('yellow', 'colour')
-myTable~put('decelerate', 'action')
-
-csv~CSVLineout(myTable)
-csv~close
-
-/* Read it back */
-Csv~open('read')
-Do while csv~chars > 0
-    Csv~csvLineIn
-    Say 'new record'
-    Do field over csv~values
-        Say field':' csv~values~at(field) /* colour: green */
-    End
-End
-/*======================*/
-csv~close
-
-Exit
-
-::requires 'csvStream.cls'
-
-

projects/oorexx/functions.rex

@@ -1,4 +0,0 @@
-tabs:
-    parse arg count
-    tab = X2C("09")
-return copies(tab, count)

projects/oorexx/headered.csv

@@ -1,4 +0,0 @@
-"colour","action"
-"red","stop"
-"green","go"
-"yellow","decelerate"

projects/oorexx/hello.rex

@@ -3,10 +3,6 @@ call RxFuncAdd 'SysGetPid', 'rxunixsys', 'SysGetPid'
 call RxFuncAdd 'SysGethostname', 'rxunixsys', 'SysGethostname'
 call RxFuncAdd 'SysUname', 'rxunixsys', 'SysUname'
 */
-
-Address system "pwd" with output stem pwd.
-say pwd.1
-
 If RxFuncQuery("SockDropFuncs") then
     Do
         rc = RxFuncAdd("SockLoadFuncs","rxsock","SockLoadFuncs")

projects/oorexx/jabberwocky.txt

@@ -1,38 +0,0 @@
-Jabberwocky
-
-'Twas brillig, and the slithy toves
-Did gyre and gimble in the wabe:
-All mimsy were the borogoves,
-And the mome raths outgrabe.
-
-'Beware the Jabberwock, my son!
-The jaws that bite, the claws that catch!
-Beware the Jubjub bird, and shun
-The frumious Bandersnatch!'
-
-He took his vorpal sword in hand:
-Long time the manxome foe he sought --
-So rested he by the Tumtum tree,
-And stood a while in thought.
-
-And, as in uffish thought he stood,
-The Jabberwock, with eyes of flame,
-Came whiffling through the tulgey wood,
-And burbled as it came!
-
-One two! One two! And through and through
-The vorpal blade went snicker-snack!
-He left it dead, and with its head
-He went galumphing back.
-
-'And hast thou slain the Jabberwock?
-Come to my arms, my beamish boy!
-Oh frabjous day! Callooh! Callay!'
-He chortled in his joy.
-
-'Twas brillig, and the slithy toves
-Did gyre and gimble in the wabe:
-All mimsy were the borogoves,
-And the mome raths outgrabe.
-
-Lewis Carroll

projects/oorexx/one-plus1.rex

@@ -1,5 +0,0 @@
-/* Rexx */
-
-Say '1'+ "1" + 1 + d2c(49)
-
-Say "8.4" / (3.1 - '2') * (D2C(57) + D2C(53))

projects/oorexx/params.rex

@@ -1,14 +1,9 @@
 #!/usr/bin/env rexx
 
-
 /* Rexx */
 Address system
 parse arg parms
 
-Address system "pwd" with output stem pwd.
-say pwd.1
-
-
 call parse_argv
 
 say "Instruction: " || instr
@@ -22,7 +17,7 @@ parse_argv: procedure expose parms instr parm
   return
 
 HELP:
-  /* "clear" */
+  "clear"
   say "********************************************************"
   say "*      YOUR STRINGS WERE EMPTY. HOW DARE YOU.          *"
   say "********************************************************"

projects/oorexx/regex-test.rex

@@ -1,10 +0,0 @@
-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
-
-::requires "rxregexp.cls"

projects/oorexx/sayos.rex

@@ -1,5 +0,0 @@
-#!/usr/bin/env rexx
-
-parse source os
-
-say os

projects/oorexx/text-attrs.rex

@@ -1,9 +1,11 @@
 #!/usr/bin/env rexx
 
+::requires "ncurses.cls"
+
 lf = .window~ASCII_LF~d2c()
 bs = .window~ASCII_BS~d2c()
 
-text = .array~of('One', 'Two', 'Three', 'Four', 'Five')
+text = .array~of('Do', 'you', 'find', 'this', 'silly?')
 
 scr = .window~new()
 do a = 1 to text~items()
@@ -22,6 +24,3 @@ scr~endwin
 
 Exit
 
-::requires "ncurses.cls"
-
-

projects/oorexx/tso-emu.rex

@@ -1,11 +0,0 @@
-#!/usr/bin/env rexx
-
-address hostemu 'execio * diskr "jabberwocky.txt" (finis stem jby.'
-
-Do x = 1 to jby.0
-    Say jby.x
-End
-
-Exit
-
-::requires "hostemu" LIBRARY

projects/oorexx/wx.rex

@@ -1,4 +1,4 @@
 #!/usr/bin/env rexx
-Parse Arg loc
+parse arg loc
-If loc = "" Then loc="Cowley,UK"
+if loc = "" then loc="Cowley,UK"
 Address system "ansiweather -l "||loc||" -u imperial -s true -i false -a true"