1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
3 // This file is part of Open CASCADE Technology software library.
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
15 #include <APIHeaderSection_EditHeader.hxx>
16 #include <APIHeaderSection_MakeHeader.hxx>
17 #include <IFSelect_EditForm.hxx>
18 #include <Interface_TypedValue.hxx>
19 #include <Standard_Transient.hxx>
20 #include <Standard_Type.hxx>
21 #include <StepData_StepModel.hxx>
22 #include <TCollection_AsciiString.hxx>
23 #include <TCollection_HAsciiString.hxx>
25 IMPLEMENT_STANDARD_RTTIEXT(APIHeaderSection_EditHeader,IFSelect_Editor)
27 static Standard_Boolean IsTimeStamp
28 (const Handle(TCollection_HAsciiString)& val)
30 if (val.IsNull()) return Standard_False;
31 if (val->Length() != 19) return Standard_False;
33 char dizmois = val->Value(6);
34 char dizjour = val->Value(9);
35 char dizheur = val->Value(12);
36 for (Standard_Integer i = 1; i <= 19; i ++)
38 char uncar = val->Value(i);
40 case 1 : if (uncar != '1' && uncar != '2') return Standard_False;
44 case 4 : if (uncar < '0' || uncar > '9') return Standard_False;
46 case 5 : if (uncar != '-') return Standard_False;
48 case 6 : if (uncar != '0' && uncar != '1') return Standard_False;
50 case 7 : if (uncar < '0' || uncar > '9') return Standard_False;
51 if (dizmois == '1' && (uncar < '0' || uncar > '2')) return Standard_False;
53 case 8 : if (uncar != '-') return Standard_False;
55 case 9 : if (uncar < '0' || uncar > '3') return Standard_False;
57 case 10 : if (uncar < '0' || uncar > '9') return Standard_False;
58 if (dizjour == '3' && (uncar != '0' && uncar != '1')) return Standard_False;
60 case 11 : if (uncar != 'T') return Standard_False;
62 case 12 : if (uncar < '0' || uncar > '2') return Standard_False;
64 case 13 : if (uncar < '0' || uncar > '9') return Standard_False;
65 if (dizheur == '2' && (uncar < '0' || uncar > '3')) return Standard_False;
67 case 14 : if (uncar != ':') return Standard_False;
69 case 15 : if (uncar < '0' || uncar > '5') return Standard_False;
71 case 16 : if (uncar < '0' || uncar > '9') return Standard_False;
73 case 17 : if (uncar != ':') return Standard_False;
75 case 18 : if (uncar < '0' || uncar > '5') return Standard_False;
77 case 19 : if (uncar < '0' || uncar > '9') return Standard_False;
87 APIHeaderSection_EditHeader::APIHeaderSection_EditHeader ()
88 : IFSelect_Editor (10)
91 Handle(Interface_TypedValue) fn_name = new Interface_TypedValue("fn_name");
92 SetValue (1,fn_name,"name");
93 Handle(Interface_TypedValue) fn_time = new Interface_TypedValue("fn_time_stamp");
94 fn_time->SetSatisfies (IsTimeStamp,"IsTimeStamp");
95 SetValue (2,fn_time,"time");
96 Handle(Interface_TypedValue) fn_author = new Interface_TypedValue("fn_author");
97 SetValue (3,fn_author,"author"); // 1 seul (1er de liste)
98 Handle(Interface_TypedValue) fn_org = new Interface_TypedValue("fn_organization");
99 SetValue (4,fn_org,"org"); // 1 seul (1er de liste)
100 Handle(Interface_TypedValue) fn_preproc = new Interface_TypedValue("fn_preprocessor_version");
101 SetValue (5,fn_preproc,"preproc");
102 Handle(Interface_TypedValue) fn_orig = new Interface_TypedValue("fn_originating_system");
103 SetValue (6,fn_orig,"orig");
104 Handle(Interface_TypedValue) fn_autorize = new Interface_TypedValue("fn_authorization");
105 SetValue (7,fn_autorize,"autorize");
107 Handle(Interface_TypedValue) fs_schema = new Interface_TypedValue("fs_schema_identifiers");
108 SetValue (8,fs_schema,"schema"); // 1 seul (1er de liste)
110 Handle(Interface_TypedValue) fd_descr = new Interface_TypedValue("fd_description");
111 SetValue (9,fd_descr,"descr"); // 1 seul (1er de liste)
113 Handle(Interface_TypedValue) fd_level = new Interface_TypedValue("fd_implementation_level");
114 SetValue (10,fd_level,"level");
118 TCollection_AsciiString APIHeaderSection_EditHeader::Label () const
119 { return TCollection_AsciiString ("Step Header"); }
121 Standard_Boolean APIHeaderSection_EditHeader::Recognize
122 (const Handle(IFSelect_EditForm)& /*form*/) const
123 { return Standard_True; } // ??
125 Handle(TCollection_HAsciiString) APIHeaderSection_EditHeader::StringValue
126 (const Handle(IFSelect_EditForm)& /*form*/, const Standard_Integer num) const
129 return TypedValue(num)->HStringValue();
132 Standard_Boolean APIHeaderSection_EditHeader::Load
133 (const Handle(IFSelect_EditForm)& form,
134 const Handle(Standard_Transient)& /*ent*/,
135 const Handle(Interface_InterfaceModel)& model) const
137 Handle(StepData_StepModel) modl =
138 Handle(StepData_StepModel)::DownCast(model);
139 if (modl.IsNull()) return Standard_False;
141 APIHeaderSection_MakeHeader mkh (modl);
143 form->LoadValue (1 ,mkh.Name ());
144 form->LoadValue (2 ,mkh.TimeStamp ());
145 form->LoadValue (3 ,mkh.AuthorValue (1));
146 form->LoadValue (4 ,mkh.OrganizationValue (1));
147 form->LoadValue (5 ,mkh.PreprocessorVersion ());
148 form->LoadValue (6 ,mkh.OriginatingSystem ());
149 form->LoadValue (7 ,mkh.Authorisation ());
151 form->LoadValue (8 ,mkh.SchemaIdentifiersValue (1));
153 form->LoadValue (9 ,mkh.DescriptionValue (1));
154 form->LoadValue (10,mkh.ImplementationLevel ());
156 return Standard_True;
159 Standard_Boolean APIHeaderSection_EditHeader::Apply
160 (const Handle(IFSelect_EditForm)& form,
161 const Handle(Standard_Transient)& /*ent*/,
162 const Handle(Interface_InterfaceModel)& model) const
164 Handle(StepData_StepModel) modl =
165 Handle(StepData_StepModel)::DownCast(model);
166 if (modl.IsNull()) return Standard_False;
168 APIHeaderSection_MakeHeader mkh (modl);
170 if (form->IsModified(1)) mkh.SetName (form->EditedValue(1));
171 if (form->IsModified(2)) mkh.SetTimeStamp (form->EditedValue(2));
172 if (form->IsModified(3)) mkh.SetAuthorValue (1,form->EditedValue(3));
173 if (form->IsModified(4)) mkh.SetOrganizationValue (1,form->EditedValue(4));
174 if (form->IsModified(5)) mkh.SetPreprocessorVersion (form->EditedValue(5));
175 if (form->IsModified(6)) mkh.SetOriginatingSystem (form->EditedValue(6));
176 if (form->IsModified(7)) mkh.SetAuthorisation (form->EditedValue(7));
178 if (form->IsModified(8)) mkh.SetSchemaIdentifiersValue (1,form->EditedValue(8));
180 if (form->IsModified(9)) mkh.SetDescriptionValue (1,form->EditedValue(9));
181 if (form->IsModified(10)) mkh.SetImplementationLevel (form->EditedValue(10));
183 mkh.Apply( Handle(StepData_StepModel)::DownCast(model) );
185 return Standard_True;