Writers
Light-weight text output file writers. 
  |   | type Writer |   |  
  | Light-weight text output file writer.
File access.
Behaviour. |   |  
 
  |   | type Writer_Access |   |  
  | Type for class-wide instance variables. |   |  
 
Internal initialization and finalization
  |   | procedure Initialize |   |  
  | Initialize a newly created writer instance. |   |  
| 
 |  
 
  |   | procedure Initialize |   |  
  | Initialize a newly created writer instance with a file to write. |   |  
| 
 |  
 
  |   | procedure Finalize |   |  
  | Close the output file. |   |  
| 
 |  
 
Creating writers
  |   | function Current_Output |   |  
  | Create a writer for current output (stdout). |   |  
| 
 |  
 
  |   | function Create |   |  
  | Create a writer for file output. |   |  
| 
 |  
 
  |   | procedure Close |   |  
  | Close a writer's output file. |   |  
| Param  | Type  | Description |  
| in out This  | Writer_Access  |  
  |  
 
 |  
 
Error handling
  |   | procedure Unknown_Tag_Error |   |  
  | Writing this tagged object is not implemented. Print an error
message and raise Program_Error. |   |  
| 
 |  
 
Wrappers for file output
  |   | procedure Put |   |  
  | Output a character to the file. |   |  
| 
 |  
 
  |   | procedure Put |   |  
  | Output a string to the file. |   |  
| 
 |  
 
  |   | procedure Put_Line |   |  
  | Output a string to the file, followed by a newline. |   |  
| 
 |  
 
  |   | procedure New_Line |   |  
  | Output a newline to the file. |   |  
| 
 |  
 
Writing
  |   | procedure Write_Whitespace |   |  
  | Write whitespace. |   |  
| 
 |  
 
  |   | procedure Write_Word |   |  
  | Write a word. |   |  
| 
 |  
 
  |   | procedure Write_String |   |  
  | Write a string plus quotes. |   |  
| 
 |  
 
 |