0023148: Error in stepstrcmp
[occt.git] / src / DrawResources / OCAFDemo.tcl
CommitLineData
b311480e 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
7fd59977 18# first , Opening Document write on Unix
19puts "First , Opening Document write on Unix "
20set Data [file join $env(CASROOT) src TCAF]
21
22set DocName [file join ${Data} FileUnix.std]
23if [ 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
32puts ""
33puts "now , Opening Document write on WindowsNT "
34puts ""
35
36set DocName [file join ${Data} FileWNT.std]
37puts "trying to Open : ${DocName} "
38if [ 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}
48puts "List the Document in the Session :"
49ListDocuments
50
51puts ""
52puts "now , We create new Document "
53puts ""
54NewDocument New MDTV-Standard
55UndoLimit New 5
56NewCommand New
57
58Label New 0:20
59SetReal New 0:20 .12345
60
61
62set newName /tmp/New.std
63if { [info exists env(TEMP)] } {
64 set newName $env(TEMP)/New.std
65}
66SaveAs New ${newName}
67puts " "
68puts "List the Document in the Session :"
69ListDocuments
70puts " "
71puts "We close it"
72Close New
73puts "List the Document in the Session :"
74ListDocuments
75
76puts "Verify if the new Document is saved : ${newName} "
77if [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}
91puts " "
92puts " "
93puts "end "