开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
general_4.imp
资源名称：pascal2c.tar.Z　[点击查看]
上传用户：upcnvip
上传日期：2007-01-06
资源大小：474k
文件大小：2k
源码类别：

编译器/解释器

开发平台：

C/C++

general_4.imp：源码内容
  3. {IncludeFrom=general_4 <p2c/general_4.h>}
  6. {*VarStrings=0} {*ExportSymbol=P_%s} {*Export_Symbol=%s}
  9. module general_4;
  10. import    iodeclarations ;
  12. export
  14.    procedure abort_transfer ( var b_info: buf_info_type );
  15.    function  transfer_setup ( device    : type_device; t_tfr     : user_tfr_type;
  16.                               t_dir     : dir_of_tfr ; var b_info: buf_info_type ;
  17.                               t_cnt : integer ): type_isc ;
  18.    procedure transfer   ( device    : type_device; t_tfr     : user_tfr_type;
  19.                           t_dir     : dir_of_tfr ; var b_info: buf_info_type;
  20.                           x_count   : integer ) ;
  21.    procedure transfer_word ( device    : type_device; t_tfr     : user_tfr_type;
  22.                              t_dir     : dir_of_tfr ; var b_info: buf_info_type;
  23.                              x_count   : integer ) ;
  24.    procedure transfer_until ( term      : char ; device    : type_device;
  25.                               t_tfr     : user_tfr_type; t_dir     : dir_of_tfr;
  26.                               var b_info: buf_info_type ) ;
  27.    procedure transfer_end ( device    : type_device; t_tfr     : user_tfr_type;
  28.                             t_dir     : dir_of_tfr; var b_info: buf_info_type ) ;
  29.    procedure iobuffer   ( var b_info: buf_info_type ; t_count   : integer );
  30.    procedure buffer_reset(var b_info: buf_info_type ) ;
  31.    function  buffer_space( var b_info: buf_info_type): integer;
  32.    function  buffer_data( var b_info: buf_info_type): integer;
  33.    procedure readbuffer ( var b_info: buf_info_type; var value : char);
  34.    procedure writebuffer( var b_info: buf_info_type; value     : char);
  35.    procedure readbuffer_string( var b_info: buf_info_type; var str   : string;
  36.                                 str_count : integer);
  37.    procedure writebuffer_string ( var b_info: buf_info_type; str       : io_string);
  38.    function  buffer_busy( var b_info: buf_info_type ): boolean;
  39.    function  isc_busy   ( isc       : type_isc ): boolean;
  40. end.