/usr/share/cgnstools/tetgen.tcl is in cgns-convert 3.3.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | # tetgen.tcl - Tetgen import/export
set Import(tetfile) ""
proc tetgen_import {w name exe} {
global ProgData Font Import
set cmd [get_executable $exe 1]
if {$cmd == ""} return
set Import(cgnsfile) $ProgData(file,name)
toplevel $w
wm title $w "Tetgen File Import"
wm transient $w .
wm protocol $w WM_DELETE_WINDOW {set Import(done) 0}
import_input $w tetfile Tetgen {.poly .smesh .node}
import_output $w
if {[import_buttons $w tetgen_import_check]} {
lappend cmd $Import(tetfile) $Import(cgnsfile)
import_run "Tetgen Import" $cmd $Import(cgnsfile)
}
}
proc tetgen_import_check {w} {
global Import
if {[string trim $Import(tetfile)] == "" ||
[string trim $Import(cgnsfile)] == ""} {
errormsg "must specify a Tetgen and a CGNS file" $w
return
}
if {![file exists $Import(tetfile)]} {
errormsg "Tetgen input file doesn't exist" $w
return
}
set Import(done) 1
}
|