blob: c4eaf9d4a059c98001318b06036dcc2b669aa9de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
--Copyright: Matra Datavision 1992,1993
-- File: OSD_Environment.cdl
-- Created: Tue 18 1992
-- Author: Stephan GARNAUD (ARM)
-- <sga@sparc4>
class Environment from OSD
---Purpose: Management of system environment variables
-- An environment variable is composed of a variable name
-- and its value.
--
-- To be portable among various systems, environment variables
-- are local to a process.
uses Protection, Error, AsciiString from TCollection
raises ConstructionError, NullObject, OSDError
is
Create returns Environment;
---Purpose: Creates the object Environment.
---Level: Public
Create (Name : AsciiString) returns Environment
---Purpose: Creates an Environment variable initialized with value
-- set to an empty AsciiString.
---Level: Public
raises ConstructionError;
Create (Name, Value : AsciiString) returns Environment
---Purpose: Creates an Environment variable initialized with Value.
raises ConstructionError, NullObject;
-- ConstructionError is raised when invalid character is encountered.
---Level: Public
SetValue (me : in out; Value : AsciiString)
---Purpose: Changes environment variable value.
-- Raises ConstructionError either if the string contains
-- characters not in range of ' '...'~' or if the string
-- contains the character '$' which is forbiden.
---Level: Public
raises ConstructionError is static;
Value (me : in out) returns AsciiString is static ;
---Purpose: Gets the value of an environment variable
---Level: Public
SetName (me : in out; name : AsciiString)
---Purpose: Changes environment variable name.
-- Raises ConstructionError either if the string contains
-- characters not in range of ' '...'~' or if the string
-- contains the character '$' which is forbiden.
---Level: Public
raises ConstructionError is static;
Name (me ) returns AsciiString is static;
---Purpose: Gets the name of <me>.
---Level: Public
Build (me : in out) is static ;
---Purpose: Sets the value of an environment variable
-- into system (physically).
---Level: Public
Remove(me : in out) is static ;
---Purpose: Removes (physically) an environment variable
---Level: Public
Failed (me) returns Boolean is static ;
---Purpose: Returns TRUE if an error occurs
---Level: Public
Reset (me : in out) is static ;
---Purpose: Resets error counter to zero
---Level: Public
Perror (me : in out)
---Purpose: Raises OSD_Error
---Level: Public
raises OSDError is static ;
Error (me) returns Integer is static ;
---Purpose: Returns error number if 'Failed' is TRUE.
---Level: Publi
fields
myName : AsciiString; --- Name of the variable
myValue : AsciiString;
myError : Error;
end Environment from OSD;
|
