File: begin

package info (click to toggle)
opencascade 7.6.3%2Bdfsg1-7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 289,852 kB
  • sloc: cpp: 1,229,388; tcl: 15,963; cs: 5,173; java: 1,557; sh: 1,211; ansic: 821; xml: 737; makefile: 28; javascript: 22
file content (13 lines) | stat: -rw-r--r-- 331 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
proc CheckIsFeatureRemoved {theFeature types} {
  savehistory rf_hist
  upvar $theFeature TheFeature
  compound TheFeature TheFeatureC
  foreach t $types {
    foreach s [explode TheFeatureC $t] {
      set log [isdeleted rf_hist $s]
      if {$log != "Deleted."} {
        puts "Error: Feature is not removed"
      }
    }
  }
}