int main(int argc, char *argv[])
{
PetscErrorCode ierr;
PetscInt opts[6] = {0};
PetscBool hascl = PETSC_FALSE,hasstr = PETSC_FALSE;
ierr = PetscInitialize(&argc,&argv,0,help);CHKERRQ(ierr);
ierr = PetscOptionsSetValue(NULL,"-zero","0");CHKERRQ(ierr);
ierr = PetscOptionsPrefixPush(NULL,"a_");CHKERRQ(ierr);
ierr = PetscOptionsSetValue(NULL,"-one","1");CHKERRQ(ierr);
ierr = PetscOptionsPrefixPush(NULL,"bb_");CHKERRQ(ierr);
ierr = PetscOptionsSetValue(NULL,"-two","2");CHKERRQ(ierr);
ierr = PetscOptionsPrefixPop(NULL);CHKERRQ(ierr);
ierr = PetscOptionsSetValue(NULL,"-three","3");CHKERRQ(ierr);
ierr = PetscOptionsPrefixPush(NULL,"cc_");CHKERRQ(ierr);
ierr = PetscOptionsPrefixPush(NULL,"ddd_");CHKERRQ(ierr);
ierr = PetscOptionsSetValue(NULL,"-four","4");CHKERRQ(ierr);
ierr = PetscOptionsPrefixPop(NULL);CHKERRQ(ierr);
ierr = PetscOptionsPrefixPop(NULL);CHKERRQ(ierr);
ierr = PetscOptionsPrefixPop(NULL);CHKERRQ(ierr);
ierr = PetscOptionsSetValue(NULL,"-five","5");CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-zero",&opts[0],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-a_one",&opts[1],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-a_bb_two",&opts[2],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-a_three",&opts[3],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-a_cc_ddd_four",&opts[4],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-five",&opts[5],0);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"opts = {%D %D %D %D %D %D}\n",opts[0],opts[1],opts[2],opts[3],opts[4],opts[5]);CHKERRQ(ierr);
ierr = PetscOptionsGetBool(NULL,0,"-cl",&hascl,0);CHKERRQ(ierr);
if (hascl) {
ierr = PetscMemzero(opts,sizeof(opts));CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-cl_zero",&opts[0],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-cl_a_one",&opts[1],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-cl_a_bb_two",&opts[2],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-cl_a_three",&opts[3],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-cl_a_cc_ddd_four",&opts[4],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-cl_five",&opts[5],0);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"cl_opts = {%D %D %D %D %D %D}\n",opts[0],opts[1],opts[2],opts[3],opts[4],opts[5]);CHKERRQ(ierr);
}
ierr = PetscOptionsGetBool(NULL,0,"-str",&hasstr,0);CHKERRQ(ierr);
if (hasstr) {
ierr = PetscOptionsInsertString(NULL,"-prefix_push str_ -zero 100 -prefix_push a_ -one 101 -prefix_push bb_ -two 102 -prefix_pop -three 103 -prefix_push cc_ -prefix_push ddd_ -four 104 -prefix_pop -prefix_pop -prefix_pop -five 105 -prefix_pop");CHKERRQ(ierr);
ierr = PetscMemzero(opts,sizeof(opts));CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-str_zero",&opts[0],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-str_a_one",&opts[1],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-str_a_bb_two",&opts[2],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-str_a_three",&opts[3],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-str_a_cc_ddd_four",&opts[4],0);CHKERRQ(ierr);
ierr = PetscOptionsGetInt(NULL,0,"-str_five",&opts[5],0);CHKERRQ(ierr);
ierr = PetscPrintf(PETSC_COMM_WORLD,"str_opts = {%D %D %D %D %D %D}\n",opts[0],opts[1],opts[2],opts[3],opts[4],opts[5]);CHKERRQ(ierr);
}
ierr = PetscFinalize();CHKERRQ(ierr);
return 0;
}
PetscErrorCode PetscParseLayerYAML(yaml_parser_t *parser,int *lvl)
{
yaml_event_t event;
int storage = VAR; /* mapping cannot start with VAL definition w/o VAR key */
char key[PETSC_MAX_PATH_LEN],option[PETSC_MAX_PATH_LEN],prefix[PETSC_MAX_PATH_LEN];
PetscErrorCode ierr;
PetscFunctionBegin;
ierr = PetscSNPrintf(option,PETSC_MAX_PATH_LEN,"%s"," ");CHKERRQ(ierr);
do {
yaml_parser_parse(parser,&event);
/* Parse value either as a new leaf in the mapping */
/* or as a leaf value (one of them, in case it's a sequence) */
switch (event.type) {
case YAML_SCALAR_EVENT:
if (storage) {
ierr = PetscSNPrintf(option,PETSC_MAX_PATH_LEN,"-%s %s",key,(char*)event.data.scalar.value);CHKERRQ(ierr);
ierr = PetscOptionsInsertString(option);CHKERRQ(ierr);
} else {
ierr = PetscStrncpy(key,(char*)event.data.scalar.value,event.data.scalar.length+1);CHKERRQ(ierr);
}
storage ^= VAL; /* Flip VAR/VAL switch for the next event */
break;
case YAML_SEQUENCE_START_EVENT:
/* Sequence - all the following scalars will be appended to the last_leaf */
storage = SEQ;
SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP ,"Unable to open YAML option file: sequences not supported");
yaml_event_delete(&event);
break;
case YAML_SEQUENCE_END_EVENT:
storage = VAR;
yaml_event_delete(&event);
break;
case YAML_MAPPING_START_EVENT:
ierr = PetscSNPrintf(prefix,PETSC_MAX_PATH_LEN,"%s_",key);CHKERRQ(ierr);
if (*lvl > 0) {
ierr = PetscOptionsPrefixPush(prefix);CHKERRQ(ierr);
}
(*lvl)++;
ierr = PetscParseLayerYAML(parser,lvl);CHKERRQ(ierr);
(*lvl)--;
if (*lvl > 0) {
ierr = PetscOptionsPrefixPop();CHKERRQ(ierr);
}
storage ^= VAL; /* Flip VAR/VAL, w/o touching SEQ */
yaml_event_delete(&event);
break;
default:
break;
}
}
while ((event.type != YAML_MAPPING_END_EVENT) && (event.type != YAML_STREAM_END_EVENT));
PetscFunctionReturn(0);
}
PETSC_EXTERN void PETSC_STDCALL petscoptionsprefixpush_( char prefix[], int *__ierr ) {
*__ierr = PetscOptionsPrefixPush(prefix);
}
