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

change in loading ngsolve

Browse Source
This commit is contained in:
Joachim Schoeberl 2009-05-09 10:22:16 +00:00
parent 306035adee
commit 51d4a12781
4 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libsrc/include/nginterface.h
View File

@ -443,6 +443,14 @@ extern "C" {
*/ */
DLL_HEADER int Ng_GetElementClosureNodes (int dim, int elementnr, int nodeset, int * nodes); DLL_HEADER int Ng_GetElementClosureNodes (int dim, int elementnr, int nodeset, int * nodes);
struct Ng_Tcl_Interp;
typedef int (Ng_Tcl_CmdProc) (Ng_Tcl_Interp *interp, int argc, const char *argv[]);
DLL_HEADER void Ng_Tcl_CreateCommand (Ng_Tcl_Interp * interp,
const char * cmdName, Ng_Tcl_CmdProc * proc);
void Ng_Tcl_SetResult (Ng_Tcl_Interp * interp, const char * result);
} }

5
ng/menustat.tcl
View File

@ -1,4 +1,3 @@
# netgen menus: # netgen menus:
menu .ngmenu -tearoff 0 -relief raised -bd 2 menu .ngmenu -tearoff 0 -relief raised -bd 2
@ -787,7 +786,6 @@ menu .ngmenu.special
# -command { stldoctordialog; } # -command { stldoctordialog; }
##################################################### #####################################################
# # # #
# Menu Help # # Menu Help #
@ -821,7 +819,6 @@ tk_messageBox -message "This is NETGEN \n mainly written by \n Joachim Sch<63>erl
##################################################### #####################################################
# # # #
# Button bar # # Button bar #
@ -880,8 +877,6 @@ tixOptionMenu .bubar.modesel \
set viewvals { geometry specpoints mesh solution} set viewvals { geometry specpoints mesh solution}
if { $userlevel == 3} { if { $userlevel == 3} {
set viewvals { geometry mesh specpoints surfmeshing modelview solution} set viewvals { geometry mesh specpoints surfmeshing modelview solution}

27
ng/ng.tcl
View File

@ -67,6 +67,7 @@ if { $batchmode != "defined" } {
catch { catch {
source ${ngdir}/dialog.tcl source ${ngdir}/dialog.tcl
} }
catch { catch {
source ${ngdir}/drawing.tcl source ${ngdir}/drawing.tcl
} }
@ -271,30 +272,32 @@ if { [file exists startup.tcl] } {
################################################## ##################################################
catch { source ${ngdir}/trafo/trafo.tcl } # catch { source ${ngdir}/trafo/trafo.tcl }
catch { source ${ngdir}/trafoapp/smallmodels.tcl } # catch { source ${ngdir}/trafoapp/smallmodels.tcl }
catch { # catch {
source ${ngdir}/ngshell.tcl # source ${ngdir}/ngshell.tcl
source ${ngdir}/ngtesting.tcl # source ${ngdir}/ngtesting.tcl
} # }
# source ngusers/ebg/elasticity/ebgelast.tcl # source ngusers/ebg/elasticity/ebgelast.tcl
catch { source ${ngdir}/ngsolve.tcl }
if { [catch { load libngsolve[info sharedlibextension] ngsolve } result ] } {
# if { [catch { load libngsolve[info sharedlibextension] ngsolve } result ] } {
# puts "cannot load ngsolve" # puts "cannot load ngsolve"
# puts "error: $result" # puts "error: $result"
} { # } {
catch { source ${ngdir}/ngsolve.tcl } # catch { source ${ngdir}/ngsolve.tcl }
} # }
if { [catch { source ${ngdir}/demoapp.tcl } result ] } { # if { [catch { source ${ngdir}/demoapp.tcl } result ] } {
# puts "cannot load demoapp" # puts "cannot load demoapp"
# puts "error: $result" # puts "error: $result"
} # }

1
ng/ngpkg.cpp
View File

@ -249,6 +249,7 @@ namespace netgen
#ifndef SMALLLIB #ifndef SMALLLIB
// Destination for messages, errors, ... // Destination for messages, errors, ...
void Ng_PrintDest(const char * s) void Ng_PrintDest(const char * s)