home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / exml.lha / exml / compiler_specific / ise / character_array.e next >
Text File  |  1999-04-13  |  1KB  |  41 lines
  1. class
  2.     CHARACTER_ARRAY
  3. inherit
  4.     CHARACTER_ARRAY_ABS
  5. creation
  6.     make_from_c
  7. feature {NONE} -- Initialisation
  8.     make_from_c (content_ptr: POINTER; len: INTEGER) is
  9.         local
  10.             ptr: POINTER
  11.         do
  12.             make_area (len)
  13.             ptr := mem_cpy ($area, content_ptr, len)
  14.             lower := 1;
  15.             upper := len;
  16.  
  17.         end
  18. feature {NONE} -- Externals
  19.  
  20.     mem_cpy (dest, src: POINTER; c: INTEGER): POINTER is
  21.             -- copies 'c' bytes from 'src' to 'dest'
  22.         external
  23.             "C [macro <memory.h>] (EIF_POINTER, EIF_POINTER, EIF_INTEGER): EIF_POINTER"
  24.         alias
  25.             "memcpy"
  26.         end
  27. end
  28. --|-------------------------------------------------------------------------
  29. --| eXML, Eiffel XML Parser Toolkit
  30. --| Copyright (C) 1999  Andreas Leitner
  31. --| See the file forum.txt included in this package for licensing info.
  32. --|
  33. --| Comments, Questions, Additions to this library? please contact:
  34. --|
  35. --| Andreas Leitner
  36. --| Arndtgasse 1/3/5
  37. --| 8010 Graz
  38. --| Austria
  39. --| email: andreas.leitner@teleweb.at
  40. --| web: http://exml.dhs.org
  41. --|-------------------------------------------------------------------------