regina/regutil/regutil.rexx

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