rtype.h

eC++编译器源码

/*RPC06-95 Added context argument*/
#pragma RType
#include <SYSTEM.h>
#include <RTuple.h>
#include <RInterpret.h>
  const unsigned int READ=0, 
        WRITE=1, 
        LOAD=2, 
        CHECK=3, 
        CONVERT=4, 
        OPERATOR=5, 
        UPDATE=6,
        DELETE=7, /*only supported by Chunk types*/ 
        STORE=8; 
  typedef unsigned int prDecl(ADDRESS context, unsigned int createWidth);
  typedef void prInvoke(unsigned int method, pStack operandsResult);
  typedef boolean prInout(ADDRESS context, unsigned int operator, pTuple tuple, 
     unsigned int fieldOffset, unsigned int fieldWidth, WORD &stringInOut[]);
  void Register(char name[], char moduleName[], unsigned int id,
    prDecl decl, prInvoke invoke, prInout inout);
  unsigned int Id(char name[]); /*0=not defined*/
  void Name(unsigned int id, char &out[]);
  void Module(unsigned int id, char &out[]);
  unsigned int Declare(unsigned int id, ADDRESS context, unsigned int requestedWidth); /*returns width in bytes*/
  void Invoke(unsigned int id, unsigned int method, pStack ps); /*method codes from RInterpret*/
  /* for the next two, the methods supported are READ/WRITE*/
  boolean Inout(unsigned int id, ADDRESS context, unsigned int method, 
    pTuple p, unsigned int index, unsigned int width, WORD &val[]);
  void Format(unsigned int id, unsigned int method, 
    char &format[], unsigned int &printWidth);
  /* a width of zero indicates to use the field width*/