/[eiffelstudio]/trunk/eweasel/tests/lib014/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/lib014/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 76539 - (show annotations)
Thu Jan 1 21:40:59 2009 UTC (11 years ago) by manus
File size: 472 byte(s)
Removed `note' as indexing clause tag since now it is also by default a keyword (compiler now compiles code
  in transitional syntax).

1 indexing
2 description : "System's root class"
3
4 class
5 TEST
6
7 create
8 make
9
10 feature -- Initialization
11
12 make is
13 --
14 local
15 l_pos: INTEGER
16 do
17 create file.make_open_read (filename)
18 file.go (file.count)
19 l_pos := file.position
20 file.recede (10)
21 l_pos := file.position
22 io.put_character (file.item)
23 io.put_new_line
24 file.close
25 end
26
27 feature -- Common
28
29 file: PLAIN_TEXT_FILE
30 -- File
31
32 filename: STRING is "file.txt"
33
34
35 end -- class TEST

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23