home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / obero / oberon-a / source / amigautil / rexxutil.mod < prev    next >
Text File  |  1994-08-08  |  2KB  |  71 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile: RexxUtil.mod $
  4.   Description: Rexx Variable Interface
  5.      Requires: The object file rexxvars.o must be explicitly linked with
  6.                the program.
  7.  
  8.    Created by: fjc (Frank Copeland)
  9.     $Revision: 3.2 $
  10.       $Author: fjc $
  11.         $Date: 1994/08/08 16:10:59 $
  12.  
  13.   Copyright © 1994, Frank Copeland.
  14.   This file is part of the Oberon-A Interface.
  15.   See Oberon-A.doc for conditions of use and distribution.
  16.  
  17. *************************************************************************)
  18.  
  19. MODULE RexxUtil;
  20.  
  21. (*
  22. ** $C- CaseChk       $I- IndexChk  $L+ LongAdr   $N- NilChk
  23. ** $P- PortableCode  $R- RangeChk  $S- StackChk  $T- TypeChk
  24. ** $V- OvflChk       $Z- ZeroVars
  25. *)
  26.  
  27. IMPORT
  28.   SYS := SYSTEM,
  29.   e   := Exec,
  30.   rx  := Rexx;
  31.  
  32. (*------------------------------------*)
  33. PROCEDURE CheckRexxMsg * ["CheckRexxMsg"]
  34.   ( rexxmsg [8] : rx.RexxMsgPtr )
  35.   : BOOLEAN;
  36.  
  37.  
  38. (*------------------------------------*)
  39. (* Secondary result is returned in register A1 *)
  40. PROCEDURE GetRexxVar0 ["GetRexxVar"]
  41.   ( rexxmsg    [8] : rx.RexxMsgPtr;
  42.     name       [9] : ARRAY OF CHAR )
  43.   : LONGINT;
  44.  
  45. (*------------------------------------*)
  46. PROCEDURE GetRexxVar *
  47.   ( rexxmsg    : rx.RexxMsgPtr;
  48.     name       : ARRAY OF CHAR;
  49.     VAR result : e.STRPTR )
  50.   : LONGINT;
  51.  
  52.   VAR temp : LONGINT;
  53.  
  54. (* $r- No RETURN check *)
  55. (* $D- Don't copy open arrays *)
  56. BEGIN
  57.   temp := GetRexxVar0 (rexxmsg, name);
  58.   SYS.GETREG (9, result);
  59.   RETURN temp
  60. END GetRexxVar;
  61.  
  62. (*------------------------------------*)
  63. PROCEDURE SetRexxVar * ["SetRexxVar"]
  64.   ( rexxmsg [8] : rx.RexxMsgPtr;
  65.     name    [9] : ARRAY OF CHAR;
  66.     value   [0] : ARRAY OF CHAR;
  67.     length  [1] : LONGINT )
  68.   : LONGINT;
  69.  
  70. END RexxUtil.
  71.