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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 76539 - (hide annotations)
Thu Jan 1 21:40:59 2009 UTC (11 years, 1 month 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 manus 65296 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