b311480e |
1 | -- Created on: 1993-01-09 |
2 | -- Created by: CKY / Contract Toubro-Larsen ( Arun MENON ) |
3 | -- Copyright (c) 1993-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
7fd59977 |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
7fd59977 |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
7fd59977 |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | class Name from IGESBasic inherits NameEntity |
18 | |
19 | ---Purpose: defines Name, Type <406> Form <15> |
20 | -- in package IGESBasic |
21 | -- Used to specify a user defined name |
22 | |
23 | uses |
24 | |
25 | HAsciiString from TCollection |
26 | |
27 | is |
28 | |
6e33d3ce |
29 | Create returns Name; |
7fd59977 |
30 | |
31 | -- Specific Methods pertaining to the class |
32 | |
33 | Init (me : mutable; nbPropVal : Integer; aName : HAsciiString); |
34 | ---Purpose : This method is used to set the fields of the class Name |
35 | -- - nbPropVal : Number of property values, always = 1 |
36 | -- - aName : Stores the Name |
37 | |
38 | NbPropertyValues (me) returns Integer ; |
39 | ---Purpose : returns the number of property values, which should be 1 |
40 | |
41 | Value (me) returns HAsciiString from TCollection; |
42 | ---Purpose : returns the user defined Name |
43 | |
44 | fields |
45 | |
46 | -- |
47 | -- Class : IGESBasic_Name |
48 | -- |
49 | -- Purpose : Declaration of variables specific to the definition |
50 | -- of the Class Name. |
51 | -- |
52 | -- Reminder : A Name instance is defined by : |
53 | -- - the number of property values (equal to 1) |
54 | -- - the name |
55 | |
56 | theNbPropertyValues : Integer; |
57 | theName : HAsciiString from TCollection; |
58 | |
59 | end Name; |