Commit 4d278401 authored by Christophe Geuzaine's avatar Christophe Geuzaine

GroupExists

parent e66b40ab
Pipeline #2040 passed with stage
in 9 minutes and 40 seconds
......@@ -252,6 +252,7 @@ GmshOpen return tGmshOpen;
GmshRead return tGmshRead;
GmshWrite return tGmshWrite;
Group return tGroup;
GroupExists return tGroupExists;
GETDP_MAJOR_VERSION return tGETDP_MAJOR_VERSION;
GETDP_MINOR_VERSION return tGETDP_MINOR_VERSION;
GETDP_PATCH_VERSION return tGETDP_PATCH_VERSION;
......
This diff is collapsed.
This diff is collapsed.
......@@ -243,7 +243,7 @@ struct doubleXstring{
%token tNbrRegions tGetRegion tGetRegions tStringToName tNameToString
%token tFor tEndFor tIf tElseIf tElse tEndIf tMacro tReturn tCall tCallTest
%token tTest tWhile tParse
%token tFlag tExists tFileExists tGetForced tGetForcedStr
%token tFlag tExists tFileExists tGroupExists tGetForced tGetForcedStr
%token tInclude tLevelInclude
%token tConstant tList tListAlt tLinSpace tLogSpace
%token tListFromFile
......@@ -9110,6 +9110,16 @@ OneFExpr :
$$ = !StatusFile(tmp);
Free($3);
}
| tGroupExists LP String__Index RP
{
if(List_ISearchSeq(Problem_S.Group, $3, fcmp_Group_Name) >= 0)
$$ = 1;
else
$$ = 0;
Free($3);
}
;
GetForced_Default :
......
This diff is collapsed.
This diff is collapsed.
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