ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-09-22 09:42:50 +05:00
Code Issues Packages Projects Releases Wiki Activity

DLL_HEADER in onetcl

Browse Source
This commit is contained in:
Matthias Hochsteger 2020-03-02 16:56:46 +00:00
parent d994c589d3
commit 1d652d8206
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ng/ngappinit.cpp
View File

@ -206,7 +206,7 @@ int main(int argc, char ** argv)
cout << "using internal Tcl-script" << endl;
// connect to one string
extern const char * ngscript[];
DLL_HEADER const char * ngscript[];
const char ** hcp = ngscript;
int len = 0;
while (*hcp)

3
ng/onetcl.cpp
View File

@ -1,4 +1,5 @@
const char * ngscript[] = {""
#include <mydefs.hpp>
DLL_HEADER const char * ngscript[] = {""
,"catch {lappend auto_path $env(NETGENDIR) }\n"
,"catch {lappend auto_path $env(NETGENDIR)/../lib }\n"
,"if {[catch {Ng_GetCommandLineParameter batchmode} result ]} {\n"

3
ng/onetcl.py
View File

@ -19,7 +19,8 @@ for f in fnames:
# write a cpp file containing the result of ng.tcl
onetclcpp = open("onetcl.cpp",'w')
onetclcpp.write('const char * ngscript[] = {""'+'\n');
onetclcpp.write('#include <mydefs.hpp>\n');
onetclcpp.write('DLL_HEADER const char * ngscript[] = {""'+'\n');
# make sure to remove comments (and if lines with comments end with '\' also the next line(s) )
skip_next = False # flag to indicate that the next line should be removed