Commit 2dd181b5 authored by Christophe Geuzaine's avatar Christophe Geuzaine

- added support for StrPrefix and StrRelative in parser

- added support for RenameFile, DeleteFile, CreateDir, GmshRead & co at parse time
parent e059ce17
......@@ -423,6 +423,8 @@ StoreMinXinRegister return tStoreMinXinRegister;
StoreMinYinRegister return tStoreMinYinRegister;
StoreMinZinRegister return tStoreMinZinRegister;
Str return tStr;
StrPrefix return tStrPrefix;
StrRelative return tStrRelative;
StrCat return tStrCat;
StrChoice return tStrChoice;
StrCmp return tStrCmp;
......
This source diff could not be displayed because it is too large. You can view the blob instead.
This diff is collapsed.
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
// This script allows to interactively setup 2D and 3D electrostatic models:
//
// 1) Create a geometry with Gmsh, or load an existing geometry (".geo" file)
// with `File->Open'
// in Gmsh with `File->Open'
// 2) Merge this file ("Interactive_Electrostatics.pro") with `File->Merge'
// 3) You will be prompted to setup your materials, sources and boundary
// conditions for each physical group, interactively
......@@ -29,8 +29,7 @@ DefineConstant[
modelPath = GetString["Gmsh/Model absolute path"],
modelName = GetString["Gmsh/Model name"],
export = !StrCmp[OnelabAction, "compute"],
// FIXME: code StrPrefix[] to simplify this:
exportFile = StrCat[modelPath, StrSub[modelName, 0, StrLen[modelName]-4], ".pro"],
exportFile = StrCat[modelPath, StrPrefix[modelName], ".pro"],
R_ = {"EleSta_v", Name "GetDP/1ResolutionChoices", Visible 0},
C_ = {"-solve -pos -bin", Name "GetDP/9ComputeCommand", Visible 0},
P_ = {"EleSta_v", Name "GetDP/2PostOperationChoices", Visible 0}
......@@ -41,8 +40,7 @@ surPath = "Parameters/Boundary conditions/Physical group: ";
volPath = "Parameters/Materials and sources/Physical group: ";
If(export && FileExists[exportFile])
// FIXME code RenameFile[] at parse time + related functions
// RenameFile[exportFile, StrCat[exportFile, "_", Date]];
RenameFile[exportFile, StrCat[exportFile, "_", Date["%F-%R"]]];
EndIf
// interactive definition of groups
......
......@@ -28,8 +28,7 @@ DefineConstant[
modelPath = GetString["Gmsh/Model absolute path"],
modelName = GetString["Gmsh/Model name"],
export = !StrCmp[OnelabAction, "compute"],
// FIXME: code StrPrefix[] to simplify this:
exportFile = StrCat[modelPath, StrSub[modelName, 0, StrLen[modelName]-4], ".pro"],
exportFile = StrCat[modelPath, StrPrefix[modelName], ".pro"],
R_ = {"Analysis", Name "GetDP/1ResolutionChoices", Visible 0},
C_ = {"-solve -bin", Name "GetDP/9ComputeCommand", Visible 0},
P_ = {"", Name "GetDP/2PostOperationChoices", Visible 0}
......@@ -40,8 +39,7 @@ surPath = "Parameters/Boundary conditions/Physical group: ";
volPath = "Parameters/Materials and sources/Physical group: ";
If(export && FileExists[exportFile])
// FIXME code RenameFile[] at parse time + related functions
// RenameFile[exportFile, StrCat[exportFile, "_", Date]];
RenameFile[exportFile, StrCat[exportFile, "_", Date["%F-%R"]]];
EndIf
// interactive definition of groups
......
// This file defines material properties. You can add your
DefineConstant[
mu0 = 4*Pi*1e-7,
eps0 = 8.854187818e-12
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment