Re: [Oorexx-devel] Update on ooRexx -> Android

[Gilbert B. <gi...@be...>]

Thanks Rick!  I tried to figure out where it was coming from and stopped 
when I realized it wasn't being "determined" by the ooRexx code itself.

Gil

On 11/29/2023 4:48 PM, Rick McGuire wrote:
>
>
> On Wed, Nov 29, 2023 at 4:09 PM Gilbert Barmwater 
> <gi...@be...> wrote:
>
>     Hello Thomas and congratulations! And thanks for using my Chunk
>     function (with modifications🙂).  I found it interesting that
>     .Rexxinfo reports the Platform as Darwin 😮.  This may require
>     some investigation (or explanation as that is not what I would
>     have expected). Well done!
>
>
> That's something set in CmakeLists.txt, and it uses the value returned 
> by CMAKE_SYSTEM_NAME.  I suspect it says Darwin because the build is 
> being done on that platform. A little extra finagling may be necessary.
>
> Rick
>
>
>     Gil B.
>
>     On 11/29/2023 1:49 PM, Thomas Grundmann-Kahr wrote:
>>     Hello Dev's,
>>
>>     I've got some good news to share.
>>     As already mentioned yesterday I tested my ooRexx port on my
>>     Android Device and the tests went well.
>>     I ran 3 scripts on my Android Device and I wanted to share the
>>     output.
>>
>>     First script:
>>
>>     Output:
>>
>>     Script 2 (Output attached in 02_test_output):
>>
>>     Script 3 (Output attached in 03_test_output):
>>
>>     /say "At       :" pp(.DateTime~new)/
>>     /parse source s/
>>     /say "source   :" pp(s)/
>>     /parse version v/
>>     /say "version  :" pp(v)/
>>     /call dumpRexxInfo/
>>     /say "---"/
>>     /
>>     /
>>     /cmd="env | sort"/
>>     /if s~left(1)="W" then cmd="set"  -- are we under windows?/
>>     /
>>     /
>>     /say "cmd      :" pp(cmd)/
>>     /arrOut=.array~new/
>>     /address system cmd with output using (arrOut)   -- *** this may
>>     not work AT FIRST (rxapi, redirection) ***/
>>     /say "--->" pp(cmd) "(collected output)"/
>>     /say arrOut/
>>     /say "<---" pp(cmd) "(end of collected output)"/
>>     /
>>     /
>>     /::routine pp/
>>     /return "["arg(1)"]"/
>>     /
>>     /
>>     /
>>     /
>>     /
>>     /
>>     //* Show information from .RexxInfo about this ooRexx
>>     installation *//
>>     /::routine dumpRexxInfo/
>>     / say '.RexxInfo:'/
>>     / clz=.RexxInfo~class           -- get .RexxInfo's class object/
>>     / instMeths=clz~methods(.nil)   -- query all its instance methods/
>>     / i=0                           -- set counter to 0/
>>     / loop methName over instMeths~allIndexes~sort -- loop over
>>     sorted method names/
>>     /    if methName="COPY" then iterate  -- skip COPY method (would
>>     cause a runtime error)/
>>     /    i+=1                             -- increase counter/
>>     /    value=.rexxInfo~send(methName)   -- send message/
>>     /    if methName="ENDOFLINE" then value='"'value~c2x'"x'   --
>>     make it displayable/
>>     /    value=value~string               -- make sure we get the
>>     string value/
>>     /    if value~pos("9999")>0 | value~pos("0000")>0 then  -- a
>>     large number?/
>>     /       value=chunk(value)            -- format number/
>>     /    say i~right(9)":" left(methName" ",18,'.')":" value/
>>     / end/
>>     /
>>     /
>>     //* Format large numbers in American style; could be used to
>>     format credit card numbers/
>>     / as well (sep=' ' and size=4). Edited to account for a leading
>>     sign./
>>     / Author: Gil Barmwater, cf. his post on 2021-11-13 in the RexxLA
>>     mailing list/
>>     /*//
>>     /::routine chunk public/
>>     /  use arg str, sep=',', size=3/
>>     /
>>     /
>>     /  sign=""                         -- if a sign, remove and
>>     remember it/
>>     /  if pos(str~left(1),"+-")>0 then/
>>     /  do/
>>     /     sign=str~left(1)/
>>     /     str =substr(str,2)/
>>     /  end/
>>     /
>>     /
>>     /  if str~length > size then do/
>>     /      parse value str~length-size'|'str with p '|' +1 front +(p)
>>     back/
>>     /      str = chunk(front, sep, size)||sep||back/
>>     /  end/
>>     /  return sign||str    -- add sign back if any/
>>     /
>>     /
>>     Best regards
>>     Thomas
>>
>>
>>     _______________________________________________
>>     Oorexx-devel mailing list
>>     Oor...@li...
>>     https://lists.sourceforge.net/lists/listinfo/oorexx-devel
>
>     -- 
>     Gil Barmwater
>
>     _______________________________________________
>     Oorexx-devel mailing list
>     Oor...@li...
>     https://lists.sourceforge.net/lists/listinfo/oorexx-devel
>
>
>
> _______________________________________________
> Oorexx-devel mailing list
> Oor...@li...
> https://lists.sourceforge.net/lists/listinfo/oorexx-devel

-- 
Gil Barmwater