home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Small Eiffel 0.4.8 / lib_std / bit_n_ref.e < prev    next >
Encoding:
Text File  |  1997-04-13  |  725 b   |  33 lines  |  [TEXT/ttxt]
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. class BIT_N_REF
  5. --
  6. -- For implementation of class BIT_N (see BIT_N first).
  7. -- Note : creation of BIT_N_REF object is done automatically 
  8. -- by the compiler when assignment is done from BIT_N to a valid
  9. -- reference class (BIT_N_REF or ANY for example). Do not use the
  10. -- the standard Eiffel allocator : !!
  11. --
  12. inherit 
  13.    ANY 
  14.       redefine print_on 
  15.       end;
  16.  
  17. feature {NONE}
  18.  
  19.    bit_n: BIT_N is
  20.       external "CSE"
  21.       end;
  22.  
  23. feature
  24.  
  25.    print_on(file: STD_FILE_WRITE) is
  26.       do
  27.      tagged_out_memory.clear;
  28.      bit_n.fill_tagged_out_memory;
  29.      file.put_string(tagged_out_memory);
  30.       end;
  31.  
  32. end
  33.