gmgauthier/rexx-things
gmgauthier/rexx-things
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updated parsing on dist

Browse Source
This commit is contained in:
Greg Gauthier 2025-03-18 13:22:07 +00:00
parent f43498c9ad
commit e0e6895c75
3 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
projects/oorexx/dist.rex
View File

@ -32,9 +32,9 @@ Call MathLoadFuncs
/* -oldradius = 6366710 */ /* -oldradius = 6366710 */
googleradius = 6378137 /* -- Equatorial earth radius used by Google */ googleradius = 6378137 /* -- Equatorial earth radius used by Google */
Say "Enter 4 values. (FROM) latitude longitude (TO) latitude longitude:" Say "Enter 4 values: FROM(latitude,longitude) TO(latitude,longitude)"
Parse Value Linein() With flat flon tlat tlon Parse Upper Value Linein() With "FROM(" flat "," flon ") TO(" tlat "," tlon ")"
If (tlat<>'' & tlon<>'') Then Say Distance(flat,flon,tlat,tlon) If (tlat<>'' & tlon<>'') Then Say "Distance: "||Distance(flat,flon,tlat,tlon)
Do While Lines()>0 Do While Lines()>0
Parse Value Linein() With tlat tlon . Parse Value Linein() With tlat tlon .
Say Distance(flat,flon,tlat,tlon) Say Distance(flat,flon,tlat,tlon)

6
projects/oorexx/hello.rex Normal file → Executable file
View File

@ -1,8 +1,4 @@
/* Rexx #!/usr/bin/env rexx
call RxFuncAdd 'SysGetPid', 'rxunixsys', 'SysGetPid'
call RxFuncAdd 'SysGethostname', 'rxunixsys', 'SysGethostname'
call RxFuncAdd 'SysUname', 'rxunixsys', 'SysUname'
*/
Address system "pwd" with output stem pwd. Address system "pwd" with output stem pwd.
say pwd.1 say pwd.1

2
projects/oorexx/sayos.rex
View File

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