home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 420.lha / RexxutilLibraryB_v33.159 / util.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1990-10-02  |  2.2 KB  |  90 lines
  1. /* Simple test for rexxutil.library 33.23 (BETA)
  2.  *
  3.  * rexxutil.library is an ARexx function host that adds clipboard access,
  4.  * environment variables, and other misc. utility to the ARexx language.
  5.  *
  6.  * Written by David N. Junod
  7.  */
  8.  
  9. /* Load the ARexx utility library */
  10. IF ~SHOW('L','rexxutil.library') THEN
  11.    CALL ADDLIB('rexxutil.library',0,-30)
  12.  
  13.    DoReads = 1
  14.    DoWrites = 1
  15.    ClipUnit = 2
  16.    PrimaryClip = 0
  17.  
  18.    SAY '--------------------------------------------'
  19.  
  20.    SAY 'Query the status of the clipboard'
  21.    CALL QueryClip(clipstat.,STEM,PrimaryClip)
  22.  
  23.    SAY 'Contents Type:' clipstat.form
  24.    SAY '      Clip ID:' clipstat.clipid
  25.  
  26.    SAY '--------------------------------------------'
  27.    /* Access the clipboard with a simple variable */
  28.  
  29.    IF DoReads
  30.    THEN DO
  31.     SAY 'Read Clipboard' ClipUnit 'into a simple variable'
  32.     clip = ReadClip(,VAR,,ClipUnit)
  33.     IF clip = ""    THEN SAY "Clipboard empty"
  34.             ELSE SAY clip
  35.     END
  36.  
  37.    IF DoWrites
  38.    THEN DO
  39.     SAY 'Write "simple test"'
  40.     CALL WriteClip("Simple test...",VAR,,ClipUnit,"ARexx","util.rexx")
  41.     END
  42.  
  43.    SAY '--------------------------------------------'
  44.  
  45.    IF DoReads
  46.    THEN DO
  47.     SAY 'Read Clipboard' PrimaryClip 'into a simple variable'
  48.     clip = ReadClip(,,,PrimaryClip)
  49.     IF clip = ""    THEN SAY "Clipboard empty"
  50.             ELSE SAY clip
  51.     END
  52.  
  53.    IF DoWrites
  54.    THEN DO
  55.     SAY 'Write that same simple variable back into the clipboard'
  56.     CALL WriteClip(clip,VAR,,PrimaryClip,"ARexx","util.rexx")
  57.     END
  58.  
  59.    SAY '--------------------------------------------'
  60.  
  61.    IF DoReads
  62.    THEN DO
  63.     SAY 'Read Clipboard into a stem variable'
  64.     CALL ReadClip(clipstem.,STEM,,PrimaryClip)
  65.  
  66.     SAY 'Contents Type:' clipstem.form
  67.     SAY '       Author:' clipstem.auth
  68.     SAY '      Project:' clipstem.name
  69.     SAY '       ClipID:' clipstem.clipid
  70.     SAY '        Lines:' clipstem.0
  71.     SAY ' # Characters:' clipstem.characters
  72.  
  73.     /* clipstem.0 contains the number of lines read in */
  74.     DO i = 1 TO clipstem.0
  75.         SAY clipstem.i
  76.         clipstem.i = REVERSE(clipstem.i)
  77.         END
  78.     END
  79.  
  80.    SAY '--------------------------------------------'
  81.  
  82.    IF DoWrites
  83.    THEN DO
  84.     SAY 'Write the stem variable back in with each line reversed'
  85.     CALL WriteClip(clipstem.,STEM,,PrimaryClip,"ARexx","util.rexx")
  86.     SAY '       ClipID: 'clipstem.clipid
  87.     END
  88.  
  89.    SAY '--------------------------------------------'
  90.