/usr/share/cgnstools/patran.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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | array set Import {
patfile ""
distloads 0
}
proc patran_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 "Patran Neutral File Import"
wm transient $w .
wm protocol $w WM_DELETE_WINDOW {set Import(done) 0}
import_input $w patfile Patran {.pat .neu .txt}
import_output $w 1
FrameCreate $w.opts -text "Options" -font $Font(bold)
pack $w.opts -side top -padx 5 -pady 2 -fill x
set opts [FrameGet $w.opts]
checkbutton $opts.dl -text "Include Distributed Loads" \
-variable Import(distloads) -onvalue 1 -offvalue 0
pack $opts.dl -side left
frame $opts.dup
pack $opts.dup -side right
import_dup_check $opts.dup
if {[import_buttons $w patran_check]} {
if {$Import(distloads)} {
lappend cmd -l
}
if {$Import(dupcheck,flag)} {
lappend cmd -$Import(dupcheck)
if {$Import(duptol) != ""} {
lappend cmd -t$Import(duptol)
}
}
if {$Import(basename) != ""} {
lappend cmd -B$Import(basename)
}
lappend cmd $Import(patfile) $Import(cgnsfile)
import_run "Patran Import" $cmd $Import(cgnsfile)
}
}
proc patran_check {w} {
global Import
if {[string trim $Import(patfile)] == "" ||
[string trim $Import(cgnsfile)] == ""} {
errormsg "must specify a Patran and a CGNS file" $w
return
}
if {![file exists $Import(patfile)]} {
errormsg "Patran Neutral file doesn't exist" $w
return
}
set Import(done) 1
}
|