ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-12-25 05:20:34 +05:00
Code Issues Packages Projects Releases Wiki Activity

NETGEN_USER_DIR to store ng.opt and ng.ini

Browse Source
This commit is contained in:
Joachim Schoeberl 2009-09-11 19:14:43 +00:00
parent e05ccc3984
commit c493ec49b9
3 changed files with 28 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ng/menustat.tcl
View File

@ -131,7 +131,6 @@ proc AddRecentFile { filename } {
} }
loadinifile; loadinifile;
.ngmenu.file add separator .ngmenu.file add separator

9
ng/ng.tcl
View File

@ -29,6 +29,15 @@ if { [string length $ngdir] == 0 } {
set ngdir "." set ngdir "."
} }
set nguserdir ""
if { [lsearch [array names env] NETGEN_USER_DIR] != -1 } {
set nguserdir $env(NETGEN_USER_DIR)
}
if { [string length $nguserdir] == 0 } {
set nguserdir "."
}
set batchmode [Ng_GetCommandLineParameter batchmode] set batchmode [Ng_GetCommandLineParameter batchmode]

37
ng/variables.tcl
View File

@ -358,7 +358,9 @@ set parallel_netgen 0
set optfilename ng.opt set optfilename [file join $nguserdir ng.opt]
set inifilename [file join $nguserdir ng.ini]
global env global env
if { [llength [array names env NG_OPT]] == 1 } { if { [llength [array names env NG_OPT]] == 1 } {
if { [string length $env(NG_OPT)] > 0 } { if { [string length $env(NG_OPT)] > 0 } {
@ -381,7 +383,7 @@ if { [file exists $optfilename] == 1 } {
proc saveoptions { } { proc saveoptions { } {
uplevel 1 { uplevel 1 {
set file ng.opt set file $optfilename
if {$file != ""} { if {$file != ""} {
set datei [open $file w] set datei [open $file w]
@ -627,25 +629,22 @@ proc saveoptions { } {
# the ini file is saved on demand : # the ini file is saved on demand :
proc saveinifile { } { proc saveinifile { } {
uplevel 1 { global inifilename
if {[catch { set datei [open ng.ini w] } result ]} { if {[catch { set datei [open $inifilename w] } result ]} {
puts "cannot write to ng.ini file" puts "cannot write file $inifilename"
} { } {
for { set i [.ngmenu.file.recent index last] } { $i >= 1 } { incr i -1 } { for { set i [.ngmenu.file.recent index last] } { $i >= 1 } { incr i -1 } {
puts $datei "recentfile \"[.ngmenu.file.recent entrycget $i -label]\"" puts $datei "recentfile \"[.ngmenu.file.recent entrycget $i -label]\""
} }
close $datei close $datei
}
} }
} }
proc savemeshinifile { } { proc savemeshinifile { } {
uplevel 1 { uplevel 1 {
if {[catch { set datei [open ngmesh.ini w] } result ]} { if {[catch { set datei [open ngmesh.ini w] } result ]} {
puts "cannot write to ng.ini file" puts "cannot write to $inifilename file"
} { } {
for { set i [.ngmenu.file.recentmesh index last] } { $i >= 1 } { incr i -1 } { for { set i [.ngmenu.file.recentmesh index last] } { $i >= 1 } { incr i -1 } {
puts $datei "recentfile \"[.ngmenu.file.recentmesh entrycget $i -label]\"" puts $datei "recentfile \"[.ngmenu.file.recentmesh entrycget $i -label]\""
@ -655,9 +654,12 @@ proc savemeshinifile { } {
} }
} }
proc loadinifile { } {
if { [file exists ng.ini] == 1 } {
set datei [open ng.ini r] proc loadinifile { } {
global inifilename
if { [file exists $inifilename] == 1 } {
set datei [open $inifilename r]
while { [gets $datei line] >= 0 } { while { [gets $datei line] >= 0 } {
if {[lindex $line 0] == "recentfile"} { if {[lindex $line 0] == "recentfile"} {
set filename [lindex $line 1] set filename [lindex $line 1]
@ -666,7 +668,6 @@ proc loadinifile { } {
} }
close $datei close $datei
} }
} }