/* 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