0024057: Eliminate compiler warning C4100 in MSVC++ with warning level 4
[occt.git] / src / IGESAppli / IGESAppli_DrilledHole.cdl
CommitLineData
b311480e 1-- Created on: 1993-01-11
2-- Created by: CKY / Contract Toubro-Larsen ( Arun MENON )
3-- Copyright (c) 1993-1999 Matra Datavision
4-- Copyright (c) 1999-2012 OPEN CASCADE SAS
7fd59977 5--
b311480e 6-- The content of this file is subject to the Open CASCADE Technology Public
7-- License Version 6.5 (the "License"). You may not use the content of this file
8-- except in compliance with the License. Please obtain a copy of the License
9-- at http://www.opencascade.org and read it completely before using this file.
7fd59977 10--
b311480e 11-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
7fd59977 13--
b311480e 14-- The Original Code and all software distributed under the License is
15-- distributed on an "AS IS" basis, without warranty of any kind, and the
16-- Initial Developer hereby disclaims all such warranties, including without
17-- limitation, any warranties of merchantability, fitness for a particular
18-- purpose or non-infringement. Please see the License for the specific terms
19-- and conditions governing the rights and limitations under the License.
20
7fd59977 21
22class DrilledHole from IGESAppli inherits IGESEntity
23
24 ---Purpose: defines DrilledHole, Type <406> Form <6>
25 -- in package IGESAppli
26 -- Identifies an entity representing a drilled hole
27 -- through a printed circuit board.
28
29uses Integer, Real -- no one specific type
30
31
32is
33
34 Create returns mutable DrilledHole;
35
36 -- Specific Methods pertaining to the class
37
38 Init (me : mutable;
39 nbPropVal : Integer;
40 aSize : Real;
41 anotherSize : Real;
42 aPlating : Integer;
43 aLayer : Integer;
44 anotherLayer : Integer);
45 ---Purpose : This method is used to set the fields of the class
46 -- DrilledHole
47 -- - nbPropVal : Number of property values = 5
48 -- - aSize : Drill diameter size
49 -- - anotherSize : Finish diameter size
50 -- - aPlating : Plating indication flag
51 -- False = not plating
52 -- True = is plating
53 -- - aLayer : Lower numbered layer
54 -- - anotherLayer : Higher numbered layer
55
56 NbPropertyValues (me) returns Integer;
57 ---Purpose : is always 5
58
59 DrillDiaSize (me) returns Real;
60 ---Purpose : returns the drill diameter size
61
62 FinishDiaSize (me) returns Real;
63 ---Purpose : returns the finish diameter size
64
65 IsPlating (me) returns Boolean;
66 ---Purpose : Returns Plating Status :
67 -- False = not plating / True = is plating
68
69 NbLowerLayer (me) returns Integer;
70 ---Purpose : returns the lower numbered layer
71
72 NbHigherLayer (me) returns Integer;
73 ---Purpose : returns the higher numbered layer
74
75fields
76
77--
78-- Class : IGESAppli_DrilledHole
79--
80-- Purpose : Declaration of variables specific to the definition
81-- of the Class DrilledHole.
82--
83-- Reminder : A DrilledHole instance is defined by :
84-- - Number of property values (equal to 5)
85-- - Drill diameter size
86-- - Finish diameter size
87-- - Plating indication flag
88-- - Lower numbered layer
89-- - Higher numbered layer
90
91 theNbPropertyValues : Integer;
92 theDrillDiaSize : Real;
93 theFinishDiaSize : Real;
94 thePlatingFlag : Integer;
95 theNbLowerLayer : Integer;
96 theNbHigherLayer : Integer;
97
98end DrilledHole;