/[eiffelstudio]/trunk/eweasel/tests/incr071/operating_environment.e
ViewVC logotype

Contents of /trunk/eweasel/tests/incr071/operating_environment.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 2357 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1 indexing
2
3 description:
4 "The objects available from the operating system";
5
6 status: "See notice at end of class";
7 date: "$Date$";
8 revision: "$Revision$"
9
10
11 class OPERATING_ENVIRONMENT
12
13 feature
14
15 Directory_separator: CHARACTER is
16 -- Character used to separate subdirectories in a path name on this platform.
17 --| To build portable path names, use PATH_NAME and its descendants.
18 once
19 Result := c_dir_separator
20 end
21
22 Current_directory_name_representation: STRING is
23 -- Representation of the current directory
24 once
25 Result := eif_current_dir_representation
26 end
27
28 home_directory_supported: BOOLEAN is
29 -- Is the notion of home directory supported on this platform?
30 external
31 "C | %"eif_path_name.h%""
32 alias
33 "eif_home_dir_supported"
34 end
35
36 root_directory_supported: BOOLEAN is
37 -- Is the notion of root directory supported on this platform?
38 external
39 "C | %"eif_path_name.h%""
40 alias
41 "eif_root_dir_supported"
42 end
43
44 case_sensitive_path_names: BOOLEAN is
45 -- Are path names case sensitive?
46 external
47 "C | %"eif_path_name.h%""
48 alias
49 "eif_case_sensitive_path_names"
50 end
51
52 feature {NONE} -- Implementation
53
54 c_dir_separator: CHARACTER is
55 external
56 "C | %"eif_dir.h%""
57 alias
58 "eif_dir_separator"
59 end
60
61 eif_current_dir_representation: STRING is
62 external
63 "C | %"eif_path_name.h%""
64 end
65
66 end -- class OPERATING_ENVIRONMENT
67
68 --|----------------------------------------------------------------
69 --| EiffelBase: Library of reusable components for Eiffel.
70 --| Copyright (c) 1993-2006 University of Southern California and contributors.
71 --| For ISE customers the original versions are an ISE product
72 --| covered by the ISE Eiffel license and support agreements.
73 --| EiffelBase may now be used by anyone as FREE SOFTWARE to
74 --| develop any product, public-domain or commercial, without
75 --| payment to ISE, under the terms of the ISE Free Eiffel Library
76 --| License (IFELL) at http://eiffel.com/products/base/license.html.
77 --|
78 --| Interactive Software Engineering Inc.
79 --| ISE Building, 2nd floor
80 --| 270 Storke Road, Goleta, CA 93117 USA
81 --| Telephone 805-685-1006, Fax 805-685-6869
82 --| Electronic mail <info@eiffel.com>
83 --| Customer support e-mail <support@eiffel.com>
84 --| For latest info see award-winning pages: http://eiffel.com
85 --|----------------------------------------------------------------
86

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23