/usr/share/doc/regina-rexx/examples/regutil.rexx is in regina-rexx 3.6-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | /* test of the regina utilities */
call rxfuncadd 'sysloadfuncs','RexxUtil','sysloadfuncs'
call sysloadfuncs
say 'SysWINVer' SysWinVer()
say 'SysUtilVersion' SysUtilVersion()
call MyPause
say 'SysCls' SysCls()
say 'SysAddRexxMacro' SysAddRexxMacro(x,x)
say 'SysClearRexxMacroSpace' SysClearRexxMacroSpace()
say 'SysDropRexxMacro' SysDropRexxMacro(x)
--say 'SysLoadRexxMacroSpace' SysLoadRexxMacroSpace()
say 'SysQueryRexxMacro' SysQueryRexxMacro(x)
say 'SysReorderRexxMacro' SysReorderRexxMacro(x,2)
say 'SysSaveRexxMacroSpace' SysSaveRexxMacroSpace('tmp.macro')
Call Charout ,'SysCurState'
Call SysCurState 'off'
call MyPause 'cursor should be off'
Call Charout ,'SysCurState'
Call SysCurState 'on'
call MyPause 'cursor should be on'
Say 'Press a key'
say 'SysGetKey' SysGetKey('n')
say 'SysTextScreenRead' SysTextScreenRead(1,1,10)
say 'SysTextScreenSize' SysTextScreenSize()
/*** Demonstrate SysCurPos ***/
call SysCls
say; say 'Demonstrating SysCurPos...'
call SysCurPos '3', '0'
call MyPause 'At 3,0: Press a key'
call SysCurPos '10', '50'
call MyPause 'At 10,20: Press a key'
call SysCurPos '20', '20'
call MyPause 'At 20,20: Press a key'
call SysCurPos '5', '55'
call MyPause 'At 5,65: Press a key'
call SysCurPos '23', '0'
call MyPause
/*
say 'SysCloseEventSem' SysCloseEventSem()
say 'SysCloseMutexSem' SysCloseMutexSem()
say 'SysCreateEventSem' SysCreateEventSem()
say 'SysCreateMutexSem' SysCreateMutexSem()
say 'SysOpenEventSem' SysOpenEventSem()
say 'SysOpenMutexSem' SysOpenMutexSem()
say 'SysPostEventSem' SysPostEventSem()
say 'SysPulseEventSem' SysPulseEventSem()
say 'SysReleaseMutexSem' SysReleaseMutexSem()
say 'SysRequestMutexSem' SysRequestMutexSem()
say 'SysResetEventSem' SysResetEventSem()
say 'SysWaitEventSem' SysWaitEventSem() */
say 'SysBootDrive' SysBootDrive()
say 'SysWINVer' SysWINVer()
say 'SysDriveInfo' SysDriveInfo('C:\')
say 'SysDriveMap' SysDriveMap()
--say 'SysSetPriority' SysSetPriority()
say 'SysSleep' SysSleep(1.1)
say 'SysSwitchSession' SysSwitchSession()
say 'SysSystemDirectory' SysSystemDirectory()
say 'SysVolumeLabel' SysVolumeLabel()
say 'SysFileSystemType' SysFileSystemType('/')
say 'SysGetErrorText' SysGetErrorText(36)
call sysfilesearch 'sysfilesearch','regutil/regfilesys.c','NOODLE.'
do i = 1 to noodle.0
say noodle.i
end
call sysfilesearch 'sysfilesearch','regutil/regfilesys.c','NOODLE.', 'c'
do i = 1 to noodle.0
say noodle.i
end
call sysfilesearch 'sysfilesearch','regutil/regfilesys.c','NOODLE.', 'cn'
do i = 1 to noodle.0
say noodle.i
end
call sysfilesearch 'sysfilesearch','regutil/regfilesys.c','NOODLE.', 'n'
do i = 1 to noodle.0
say noodle.i
end
say 'SysDropFuncs' SysDropFuncs()
Return
MyPause:
parse arg prompt
if prompt='' then
prompt='Press Enter key when ready . . .'
call MySay prompt
Pull .
say
return
MySay:
parse arg string
call charout , string
return
|