42 lines
1.1 KiB
Rexx
42 lines
1.1 KiB
Rexx
/* Rexx
|
|
call RxFuncAdd 'SysGetPid', 'rxunixsys', 'SysGetPid'
|
|
call RxFuncAdd 'SysGethostname', 'rxunixsys', 'SysGethostname'
|
|
call RxFuncAdd 'SysUname', 'rxunixsys', 'SysUname'
|
|
*/
|
|
If RxFuncQuery("SockDropFuncs") then
|
|
Do
|
|
rc = RxFuncAdd("SockLoadFuncs","rxsock","SockLoadFuncs")
|
|
rc = SockLoadFuncs()
|
|
End
|
|
|
|
Say 'Hello, World!'
|
|
Say "This PID : " || SysGetPid()
|
|
Say "Parent PID : " || SysGetppid()
|
|
Say "Hostname : " || SysGethostname()
|
|
Say "Platform : " || SysUname() || "." || SysUname("m")
|
|
Say "Kernel : " || SysUname("r")
|
|
Say "RxSock : " || SockVersion()
|
|
Say "OrxNcurses : " || .window~orxncurses_version
|
|
say .ooSQLite~version('F')
|
|
|
|
Say "The Square Root of 194 is: " || RxCalcSqrt(194,2)
|
|
|
|
srcConn = .ooSQLiteConnection~new("contacts.rdbx")
|
|
srcConn~busyTimeout(3000)
|
|
bu = .ooSQLiteBackup~new(srcConn, ":memory:", .true)
|
|
if bu~initCode <> bu~OK then
|
|
do
|
|
say 'Error opening backup object:' bu~lastErrCode bu~lastErrMsg
|
|
srcConn~close
|
|
return 99
|
|
end
|
|
|
|
exit
|
|
|
|
/*** import ***/
|
|
::requires 'ooSQLite.cls'
|
|
::requires 'ncurses.cls'
|
|
::requires 'rxmath' LIBRARY
|
|
::requires "rxunixsys" LIBRARY
|
|
|