home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / DEF / formout.def < prev    next >
Text File  |  1995-03-05  |  953b  |  34 lines
  1. (* Copyright (c) xTech 1992,94. All Rights Reserved *)
  2. DEFINITION MODULE FormOut;
  3.  
  4. IMPORT  SYSTEM;
  5.  
  6. CONST (* line separators *)
  7.   default = "0";  (* default line separator will be used *)
  8.   text    = "2";  (* default text file line separator will be used *)
  9.   cr      = 15C;
  10.   lf      = 12C;
  11.   crlf    = "1";  (* CR LF separator *)
  12.  
  13. TYPE write_proc = PROCEDURE (SYSTEM.ADDRESS,ARRAY OF CHAR,INTEGER);
  14. (* "write_proc" arguments:
  15.       parameter (first argument of "format")
  16.         string (without terminating 0C)
  17.         string length
  18. *)
  19.  
  20. PROCEDURE format(parameter: SYSTEM.ADDRESS;
  21.                  write    : write_proc;
  22.          format   : ARRAY OF CHAR;
  23.                  linesep  : CHAR;
  24.          args     : SYSTEM.ADDRESS;
  25.          size     : CARDINAL);
  26.  
  27. PROCEDURE LineSeparator(nl: ARRAY OF CHAR);
  28. (* Sets default line separator *)
  29.  
  30. PROCEDURE TextSeparator(nl: ARRAY OF CHAR);
  31. (* Sets default text file line separator *)
  32.  
  33. END FormOut.
  34.