5c1444bc298edb8a26ed298b80a0281e77d1dd51
[occt.git] / src / APIHeaderSection / APIHeaderSection_EditHeader.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
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.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14 #include <APIHeaderSection_EditHeader.ixx>
15 #include <Interface_TypedValue.hxx>
16
17 #include <APIHeaderSection_MakeHeader.hxx>
18 #include <StepData_StepModel.hxx>
19
20 static Standard_Boolean IsTimeStamp
21   (const Handle(TCollection_HAsciiString)& val)
22 {
23   if (val.IsNull()) return Standard_False;
24   if (val->Length() != 19) return Standard_False;
25 //  On y va
26   char dizmois = val->Value(6);
27   char dizjour = val->Value(9);
28   char dizheur = val->Value(12);
29   for (Standard_Integer i = 1; i <= 19; i ++) {
30     char uncar = val->Value(i);
31     switch (i) {
32     case  1 : if (uncar != '1' && uncar != '2') return Standard_False;  break;
33     case  2 :
34     case  3 :
35     case  4 : if (uncar < '0' || uncar > '9') return Standard_False; break;
36     case  5 : if (uncar != '-') return Standard_False;
37     case  6 : if (uncar != '0' && uncar != '1') return Standard_False;  break;
38     case  7 : if (uncar < '0' || uncar > '9') return Standard_False; 
39       if (dizmois == '1' && (uncar < '0' || uncar > '2')) return Standard_False; break;
40     case  8 : if (uncar != '-') return Standard_False;
41     case  9 : if (uncar < '0' || uncar > '3') return Standard_False; break;
42     case 10 : if (uncar < '0' || uncar > '9') return Standard_False;
43       if (dizjour == '3' && (uncar != '0' && uncar != '1')) return Standard_False; break;
44     case 11 : if (uncar != 'T') return Standard_False;
45     case 12 : if (uncar < '0' || uncar > '2') return Standard_False; break;
46     case 13 : if (uncar < '0' || uncar > '9') return Standard_False;
47       if (dizheur == '2' && (uncar < '0' || uncar > '3')) return Standard_False; break;
48     case 14 : if (uncar != ':') return Standard_False;
49     case 15 : if (uncar < '0' || uncar > '5') return Standard_False; break;
50     case 16 : if (uncar < '0' || uncar > '9') return Standard_False; break;
51     case 17 : if (uncar != ':') return Standard_False;
52     case 18 : if (uncar < '0' || uncar > '5') return Standard_False; break;
53     case 19 : if (uncar < '0' || uncar > '9') return Standard_False; break;
54       default : break;
55     }
56   }
57   return Standard_True;
58 }
59
60
61     APIHeaderSection_EditHeader::APIHeaderSection_EditHeader  ()
62     : IFSelect_Editor (10)
63 {
64 //  Definition
65   Handle(Interface_TypedValue) fn_name = new Interface_TypedValue("fn_name");
66   SetValue (1,fn_name,"name");
67   Handle(Interface_TypedValue) fn_time = new Interface_TypedValue("fn_time_stamp");
68   fn_time->SetSatisfies (IsTimeStamp,"IsTimeStamp");
69   SetValue (2,fn_time,"time");
70   Handle(Interface_TypedValue) fn_author = new Interface_TypedValue("fn_author");
71   SetValue (3,fn_author,"author");  // 1 seul (1er de liste)
72   Handle(Interface_TypedValue) fn_org = new Interface_TypedValue("fn_organization");
73   SetValue (4,fn_org,"org");  // 1 seul (1er de liste)
74   Handle(Interface_TypedValue) fn_preproc = new Interface_TypedValue("fn_preprocessor_version");
75   SetValue (5,fn_preproc,"preproc");
76   Handle(Interface_TypedValue) fn_orig = new Interface_TypedValue("fn_originating_system");
77   SetValue (6,fn_orig,"orig");
78   Handle(Interface_TypedValue) fn_autorize = new Interface_TypedValue("fn_authorization");
79   SetValue (7,fn_autorize,"autorize");
80
81   Handle(Interface_TypedValue) fs_schema = new Interface_TypedValue("fs_schema_identifiers");
82   SetValue (8,fs_schema,"schema");  // 1 seul (1er de liste)
83
84   Handle(Interface_TypedValue) fd_descr = new Interface_TypedValue("fd_description");
85   SetValue (9,fd_descr,"descr");  // 1 seul (1er de liste)
86
87   Handle(Interface_TypedValue) fd_level = new Interface_TypedValue("fd_implementation_level");
88   SetValue (10,fd_level,"level");
89
90 }
91
92     TCollection_AsciiString  APIHeaderSection_EditHeader::Label () const
93       {  return TCollection_AsciiString ("Step Header");  }
94
95     Standard_Boolean  APIHeaderSection_EditHeader::Recognize
96   (const Handle(IFSelect_EditForm)& /*form*/) const
97 {  return Standard_True;  }  // ??
98
99     Handle(TCollection_HAsciiString)  APIHeaderSection_EditHeader::StringValue
100   (const Handle(IFSelect_EditForm)& /*form*/, const Standard_Integer num) const
101 {
102 //  Default Values
103   return TypedValue(num)->HStringValue();
104 }
105
106     Standard_Boolean  APIHeaderSection_EditHeader::Load
107   (const Handle(IFSelect_EditForm)& form,
108    const Handle(Standard_Transient)& /*ent*/,
109    const Handle(Interface_InterfaceModel)& model) const
110 {
111   Handle(StepData_StepModel) modl =
112     Handle(StepData_StepModel)::DownCast(model);
113   if (modl.IsNull()) return Standard_False;
114
115   APIHeaderSection_MakeHeader mkh (modl);
116
117   form->LoadValue (1 ,mkh.Name ());
118   form->LoadValue (2 ,mkh.TimeStamp ());
119   form->LoadValue (3 ,mkh.AuthorValue (1));
120   form->LoadValue (4 ,mkh.OrganizationValue (1));
121   form->LoadValue (5 ,mkh.PreprocessorVersion ());
122   form->LoadValue (6 ,mkh.OriginatingSystem ());
123   form->LoadValue (7 ,mkh.Authorisation ());
124
125   form->LoadValue (8 ,mkh.SchemaIdentifiersValue (1));
126
127   form->LoadValue (9 ,mkh.DescriptionValue (1));
128   form->LoadValue (10,mkh.ImplementationLevel ());
129
130   return Standard_True;
131 }
132
133     Standard_Boolean  APIHeaderSection_EditHeader::Apply
134   (const Handle(IFSelect_EditForm)& form,
135    const Handle(Standard_Transient)& /*ent*/,
136    const Handle(Interface_InterfaceModel)& model) const
137 {
138   Handle(StepData_StepModel) modl =
139     Handle(StepData_StepModel)::DownCast(model);
140   if (modl.IsNull()) return Standard_False;
141
142   APIHeaderSection_MakeHeader mkh (modl);
143
144   if (form->IsModified(1))  mkh.SetName (form->EditedValue(1));
145   if (form->IsModified(2))  mkh.SetTimeStamp (form->EditedValue(2));
146   if (form->IsModified(3))  mkh.SetAuthorValue (1,form->EditedValue(3));
147   if (form->IsModified(4))  mkh.SetOrganizationValue (1,form->EditedValue(4));
148   if (form->IsModified(5))  mkh.SetPreprocessorVersion (form->EditedValue(5));
149   if (form->IsModified(6))  mkh.SetOriginatingSystem (form->EditedValue(6));
150   if (form->IsModified(7))  mkh.SetAuthorisation (form->EditedValue(7));
151
152   if (form->IsModified(8))  mkh.SetSchemaIdentifiersValue (1,form->EditedValue(8));
153
154   if (form->IsModified(9))  mkh.SetDescriptionValue (1,form->EditedValue(9));
155   if (form->IsModified(10)) mkh.SetImplementationLevel (form->EditedValue(10));
156
157   mkh.Apply( Handle(StepData_StepModel)::DownCast(model) );
158
159   return Standard_True;
160 }