0023148: Error in stepstrcmp
[occt.git] / src / DrawResources / OCAFDemo.tcl
1 # Copyright (c) 1999-2012 OPEN CASCADE SAS
2 #
3 # The content of this file is subject to the Open CASCADE Technology Public
4 # License Version 6.5 (the "License"). You may not use the content of this file
5 # except in compliance with the License. Please obtain a copy of the License
6 # at http://www.opencascade.org and read it completely before using this file.
7 #
8 # The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
9 # main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
10 #
11 # The Original Code and all software distributed under the License is
12 # distributed on an "AS IS" basis, without warranty of any kind, and the
13 # Initial Developer hereby disclaims all such warranties, including without
14 # limitation, any warranties of merchantability, fitness for a particular
15 # purpose or non-infringement. Please see the License for the specific terms
16 # and conditions governing the rights and limitations under the License.
17
18 # first , Opening Document write on Unix 
19 puts "First , Opening Document write on Unix "
20 set Data [file join $env(CASROOT) src TCAF]
21
22 set DocName [file join ${Data} FileUnix.std]
23 if [ file exists ${DocName}  ] {
24     
25     Open ${DocName} Unix
26     DumpDocument Unix
27 } else {
28     puts "  ${DocName} does not exist "
29 }
30
31 # first , Opening Document write on WindowsNT
32 puts ""
33 puts "now , Opening Document write on WindowsNT "
34 puts ""
35
36 set DocName [file join ${Data} FileWNT.std]
37 puts "trying to Open : ${DocName}  "
38 if  [ file exists  ${DocName} ] {
39     catch {  Open ${DocName} WNT } filesta
40     if { ${filesta} == "" } { 
41         DumpDocument WNT
42     } else {
43         puts " Problem when trying to read ${DocName}  ==> $filesta "
44     }
45 } else {
46     puts "  ${DocName} does not exist "
47 }
48 puts "List the Document in the Session :"
49 ListDocuments
50
51 puts ""
52 puts "now , We create  new Document "
53 puts ""
54 NewDocument New MDTV-Standard
55 UndoLimit New 5
56 NewCommand New
57
58 Label   New  0:20
59 SetReal New  0:20 .12345
60
61
62 set newName /tmp/New.std
63 if { [info exists env(TEMP)] } {
64     set newName $env(TEMP)/New.std
65 }
66 SaveAs New  ${newName}
67 puts " "
68 puts "List the Document in the Session :"
69 ListDocuments
70 puts " "
71 puts "We close it"
72 Close  New
73 puts "List the Document in the Session :"
74 ListDocuments
75
76 puts "Verify if the new Document is saved : ${newName} "
77 if   [file exists ${newName}] { 
78    puts " ... exists : Yes "
79    puts " ... size   : [file size ${newName}]"
80
81    puts " "
82    puts " We try to read it :"
83    Open ${newName} ReadDoc
84    DumpDocument ReadDoc
85     puts "List the Document in the Session :"
86     ListDocuments
87  
88 }  else {
89    puts " ... exists : No "
90 }
91 puts " "
92 puts " "
93 puts "end "