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

Contents of /FreeELKS/trunk/library/kernel/directory_name.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 91424 - (show annotations)
Tue Oct 26 18:39:32 2004 UTC (15 years, 3 months ago) by manus_eiffel
File size: 1675 byte(s)
Initial revision

1
2 indexing
3
4 description:
5 "Directory name abstraction"
6
7 status: "See notice at end of class"
8 date: "$Date$"
9 revision: "$Revision$"
10
11 class DIRECTORY_NAME
12
13 inherit
14 PATH_NAME
15
16 create
17 make, make_from_string
18
19 create {DIRECTORY_NAME}
20 string_make
21
22 feature
23
24 is_valid: BOOLEAN is
25 -- Is the directory name valid?
26 local
27 any: ANY
28 do
29 any := to_c
30 Result := eif_is_directory_valid ($any)
31 end
32
33 feature {NONE} -- Implementation
34
35 new_string (n: INTEGER): like Current is
36 -- New instance of current with space for at least `n' characters.
37 do
38 create Result.string_make (n)
39 end
40
41 feature {NONE} -- Externals
42
43 eif_is_directory_valid (p: POINTER): BOOLEAN is
44 external
45 "C (EIF_CHARACTER *): EIF_BOOLEAN | %"eif_path_name.h%""
46 end
47
48 indexing
49
50 library: "[
51 EiffelBase: Library of reusable components for Eiffel.
52 ]"
53
54 status: "[
55 Copyright 1986-2001 Interactive Software Engineering (ISE).
56 For ISE customers the original versions are an ISE product
57 covered by the ISE Eiffel license and support agreements.
58 ]"
59
60 license: "[
61 EiffelBase may now be used by anyone as FREE SOFTWARE to
62 develop any product, public-domain or commercial, without
63 payment to ISE, under the terms of the ISE Free Eiffel Library
64 License (IFELL) at http://eiffel.com/products/base/license.html.
65 ]"
66
67 source: "[
68 Interactive Software Engineering Inc.
69 ISE Building
70 360 Storke Road, Goleta, CA 93117 USA
71 Telephone 805-685-1006, Fax 805-685-6869
72 Electronic mail <info@eiffel.com>
73 Customer support http://support.eiffel.com
74 ]"
75
76 info: "[
77 For latest info see award-winning pages: http://eiffel.com
78 ]"
79
80 end -- class DIRECTORY_NAME
81
82
83

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23