general_2.imp
上传用户:upcnvip
上传日期:2007-01-06
资源大小:474k
文件大小:1k
源码类别:

编译器/解释器

开发平台:

C/C++

  1. {IncludeFrom=general_2 <p2c/general_2.h>}
  2. {*VarStrings=0} {*ExportSymbol=P_%s} {*Export_Symbol=%s}
  3. MODULE GENERAL_2;
  4. IMPORT    iodeclarations;  
  5. EXPORT
  6.    PROCEDURE readnumber ( device : type_device ; VAR num: REAL ) ;
  7.    PROCEDURE writenumber ( device : type_device ; value  : REAL ) ;
  8.    PROCEDURE readstring ( device : type_device ; VAR str: STRING ) ;
  9.    PROCEDURE readstring_until ( term   : CHAR ; device : type_device ;
  10.                                 VAR str: STRING );
  11.    PROCEDURE writestring ( device : type_device ; str    : io_STRING ) ;
  12.    PROCEDURE readnumberln ( device : type_device ; VAR num: REAL );
  13.    PROCEDURE writenumberln ( device : type_device ; value  : REAL );
  14.    PROCEDURE writestringln ( device : type_device ; str    : io_STRING );
  15.    PROCEDURE readuntil  ( term   : CHAR ; device : type_device );
  16.    PROCEDURE skipfor    ( count  : INTEGER ; device : type_device );
  17. END.