blob: 6e792267737aa158c32ce64d6d63be5c8b5e1c15 (
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
|
-- File: Units_UnitSentence.cdl
-- Created: Mon Jun 22 17:59:59 1992
-- Author: Gilles DEBARBOUILLE
-- <gde@phobox>
---Copyright: Matra Datavision 1992
private class UnitSentence from Units
---Purpose: This class describes all the facilities to
-- manipulate and compute units contained in a string
-- expression.
inherits
Sentence from Units
uses
QuantitiesSequence from Units
--raises
is
Create(astring : CString)
---Level: Internal
---Purpose: Creates and returns a UnitSentence. The string
-- <astring> describes in natural language the unit or
-- the composed unit to be analysed.
returns UnitSentence from Units;
Create(astring : CString ; aquantitiessequence : QuantitiesSequence from Units)
---Level: Internal
---Purpose: Creates and returns a UnitSentence. The string
-- <astring> describes in natural language the unit to be
-- analysed. The sequence of physical quantities
-- <asequenceofquantities> describes the available
-- dictionary of units you want to use.
returns UnitSentence from Units;
Analyse(me : in out)
---Level: Internal
---Purpose: Analyzes the sequence of tokens created by the
-- constructor to find the true significance of each
-- token.
is static;
SetUnits(me : in out ; aquantitiessequence : QuantitiesSequence from Units)
---Level: Internal
---Purpose: For each token which represents a unit, finds in the
-- sequence of physical quantities all the
-- characteristics of the unit found.
is static;
--fields
end UnitSentence;
|
