/[eiffelstudio]/FreeELKS/trunk/library/kernel/stream.e
ViewVC logotype

Diff of /FreeELKS/trunk/library/kernel/stream.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 91476 by ericb, Sun Feb 26 21:58:36 2006 UTC revision 91477 by ericb, Sun Jan 14 09:47:13 2007 UTC
# Line 6  indexing Line 6  indexing
6          date: "$Date$"          date: "$Date$"
7          revision: "$Revision$"          revision: "$Revision$"
8    
9  class  class
10          STREAM          STREAM
11    
12  inherit  inherit
# Line 44  feature -- Access Line 44  feature -- Access
44                  do                  do
45                          Result := c_buffer (internal_buffer_access)                          Result := c_buffer (internal_buffer_access)
46                  end                  end
47            
48          buffer: POINTER is          buffer: POINTER is
49                          -- C buffer correspond to the Eiffel STREAM                          -- C buffer correspond to the Eiffel STREAM
50                  obsolete                  obsolete
# Line 144  feature {NONE} -- Implementation Line 144  feature {NONE} -- Implementation
144                  alias                  alias
145                          "return (*(EIF_POINTER *) $a_buf);"                          "return (*(EIF_POINTER *) $a_buf);"
146                  end                  end
147                            
148          c_stream_basic_store (stream_buffer: POINTER; stream_buffer_size: INTEGER; object: POINTER; c_real_size: POINTER): INTEGER is          c_stream_basic_store (stream_buffer: POINTER; stream_buffer_size: INTEGER; object: POINTER; c_real_size: POINTER): INTEGER is
149                          -- Store object structure reachable form current object                          -- Store object structure reachable form current object
150                          -- Return new size of `internal_buffer_access'.                          -- Return new size of `internal_buffer_access'.
# Line 178  feature {NONE} -- Implementation Line 178  feature {NONE} -- Implementation
178                  external                  external
179                          "C signature (EIF_POINTER *, EIF_INTEGER, EIF_INTEGER, EIF_INTEGER *): EIF_REFERENCE use %"eif_retrieve.h%""                          "C signature (EIF_POINTER *, EIF_INTEGER, EIF_INTEGER, EIF_INTEGER *): EIF_REFERENCE use %"eif_retrieve.h%""
180                  alias                  alias
181                          "stream_eretrieve"                                "stream_eretrieve"
182                  end                  end
183            
184          c_malloc (size: INTEGER): POINTER is          c_malloc (size: INTEGER): POINTER is
185                  external                  external
186                          "C use %"eif_store.h%""                          "C use %"eif_store.h%""
# Line 248  feature -- Output Line 248  feature -- Output
248                  require else                  require else
249                          stream_exists: exists                          stream_exists: exists
250                  do                  do
251                          put_character ('%N')                                      put_character ('%N')
252                  end                  end
253    
254          put_string, putstring (s: STRING) is          put_string, putstring (s: STRING) is
# Line 270  feature -- Output Line 270  feature -- Output
270                          -- Write `i' to medium.                          -- Write `i' to medium.
271                  do                  do
272                  end                  end
273                    
274          put_integer_8 (i: INTEGER_8) is          put_integer_8 (i: INTEGER_8) is
275                          -- Write `i' to medium.                          -- Write `i' to medium.
276                  do                  do
277                  end                              end
278            
279          put_integer_16 (i: INTEGER_16) is          put_integer_16 (i: INTEGER_16) is
280                          -- Write `i' to medium.                          -- Write `i' to medium.
281                  do                  do
282                  end                      end
283    
284          put_integer_64 (i: INTEGER_64) is          put_integer_64 (i: INTEGER_64) is
285                          -- Write `i' to medium.                          -- Write `i' to medium.
286                  do                  do
287                  end                      end
288                    
289          put_natural_8 (i: NATURAL_8) is                                  put_natural_8 (i: NATURAL_8) is
290                          -- Write `i' to medium.                          -- Write `i' to medium.
291                  do                  do
292                  end                      end
293                    
294          put_natural_16 (i: NATURAL_16) is                                        put_natural_16 (i: NATURAL_16) is
295                          -- Write `i' to medium.                          -- Write `i' to medium.
296                  do                  do
297                  end                      end
298            
299          put_natural, put_natural_32 (i: NATURAL_32) is                                    put_natural, put_natural_32 (i: NATURAL_32) is
300                          -- Write `i' to medium.                          -- Write `i' to medium.
301                  do                  do
302                  end                      end
303    
304          put_natural_64 (i: NATURAL_64) is                                        put_natural_64 (i: NATURAL_64) is
305                          -- Write `i' to medium.                          -- Write `i' to medium.
306                  do                  do
307                  end                      end
308                    
309          put_boolean, putbool (b: BOOLEAN) is          put_boolean, putbool (b: BOOLEAN) is
310                          -- Write `b' to medium.                          -- Write `b' to medium.
311                  do                  do
# Line 347  feature -- Input Line 347  feature -- Input
347                          -- Make result available in `last_integer'.                          -- Make result available in `last_integer'.
348                  do                  do
349                  end                  end
350                    
351          read_integer_8 is          read_integer_8 is
352                          -- Read a new integer.                          -- Read a new integer.
353                          -- Make result available in `last_integer_8'.                          -- Make result available in `last_integer_8'.
354                  do                  do
355                  end                  end
356                    
357          read_integer_16 is          read_integer_16 is
358                          -- Read a new integer.                          -- Read a new integer.
359                          -- Make result available in `last_integer_16'.                          -- Make result available in `last_integer_16'.
360                  do                  do
361                  end                  end
362                    
363          read_integer_64 is          read_integer_64 is
364                          -- Read a new integer.                          -- Read a new integer.
365                          -- Make result available in `last_integer_64'.                          -- Make result available in `last_integer_64'.
366                  do                  do
367                  end                  end
368                    
369          read_natural_8 is          read_natural_8 is
370                          -- Read a new natural.                          -- Read a new natural.
371                          -- Make result available in `last_natural_8'.                          -- Make result available in `last_natural_8'.
372                  do                  do
373                  end                              end
374                    
375          read_natural_16 is          read_natural_16 is
376                          -- Read a new natural.                          -- Read a new natural.
377                          -- Make result available in `last_natural_16'.                          -- Make result available in `last_natural_16'.
378                  do                  do
379                  end                                      end
380    
381          read_natural, read_natural_32 is          read_natural, read_natural_32 is
382                          -- Read a new natural.                          -- Read a new natural.
383                          -- Make result available in `last_natural'.                          -- Make result available in `last_natural'.
384                  do                  do
385                  end                      end
386                    
387          read_natural_64 is          read_natural_64 is
388                          -- Read a new natural.                          -- Read a new natural.
389                          -- Make result available in `last_natural_64'.                          -- Make result available in `last_natural_64'.
390                  do                  do
391                  end                                                      end
392    
393          read_stream, readstream (nb_char: INTEGER) is          read_stream, readstream (nb_char: INTEGER) is
394                          -- Read a string of at most `nb_char' bound characters                          -- Read a string of at most `nb_char' bound characters

Legend:
Removed from v.91476  
changed lines
  Added in v.91477

  ViewVC Help
Powered by ViewVC 1.1.23