-- (C) Copyright International Business Machines Corporation 23 January 
-- 1990.  All Rights Reserved. 
--  
-- See the file USERAGREEMENT distributed with this software for full 
-- terms and conditions of use. 
-- SCCS Info: @(#)putfile.d	1.2 1/11/92

putFile: using (unix, predefined)
  
  definitions

    putFile: callmessage (
	name: charstring,
	file: charstring
      )
    constant (name, file)
    exit { full }
    exception CantWrite { full };

    putFileQ: inport of putFile { full };
    putFileFunc: outport of putFileQ;


    putFileInit: callmessage (
	fopen: fopenFn,
	putFile: putFileFunc
      )
    constant (fopen)
    exit { full };

    putFileInitQ: inport of putFileInit
       { init(fopen) };
    putFileInitFunc: outport of putFileInitQ;

  end definitions
