1c4762a1bSJed Brown static const char help[] = "Tests PetscOptionsPrefix{Push,Pop}\n\n"; 2c4762a1bSJed Brown 3c4762a1bSJed Brown #include <petscsys.h> 4c4762a1bSJed Brown 5*d71ae5a4SJacob Faibussowitsch int main(int argc, char *argv[]) 6*d71ae5a4SJacob Faibussowitsch { 7c4762a1bSJed Brown PetscInt opts[6] = {0}; 8c4762a1bSJed Brown PetscBool hascl = PETSC_FALSE, hasstr = PETSC_FALSE; 9c4762a1bSJed Brown 10327415f7SBarry Smith PetscFunctionBeginUser; 119566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, 0, help)); 129566063dSJacob Faibussowitsch PetscCall(PetscOptionsSetValue(NULL, "-zero", "0")); 139566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPush(NULL, "a_")); 149566063dSJacob Faibussowitsch PetscCall(PetscOptionsSetValue(NULL, "-one", "1")); 159566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPush(NULL, "bb_")); 169566063dSJacob Faibussowitsch PetscCall(PetscOptionsSetValue(NULL, "-two", "2")); 179566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPop(NULL)); 189566063dSJacob Faibussowitsch PetscCall(PetscOptionsSetValue(NULL, "-three", "3")); 199566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPush(NULL, "cc_")); 209566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPush(NULL, "ddd_")); 219566063dSJacob Faibussowitsch PetscCall(PetscOptionsSetValue(NULL, "-four", "4")); 229566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPop(NULL)); 239566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPop(NULL)); 249566063dSJacob Faibussowitsch PetscCall(PetscOptionsPrefixPop(NULL)); 259566063dSJacob Faibussowitsch PetscCall(PetscOptionsSetValue(NULL, "-five", "5")); 26c4762a1bSJed Brown 279566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-zero", &opts[0], 0)); 289566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-a_one", &opts[1], 0)); 299566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-a_bb_two", &opts[2], 0)); 309566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-a_three", &opts[3], 0)); 319566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-a_cc_ddd_four", &opts[4], 0)); 329566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-five", &opts[5], 0)); 339566063dSJacob Faibussowitsch PetscCall(PetscPrintf(PETSC_COMM_WORLD, "opts = {%" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT "}\n", opts[0], opts[1], opts[2], opts[3], opts[4], opts[5])); 34c4762a1bSJed Brown 359566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetBool(NULL, 0, "-cl", &hascl, 0)); 36c4762a1bSJed Brown if (hascl) { 379566063dSJacob Faibussowitsch PetscCall(PetscMemzero(opts, sizeof(opts))); 389566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-cl_zero", &opts[0], 0)); 399566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-cl_a_one", &opts[1], 0)); 409566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-cl_a_bb_two", &opts[2], 0)); 419566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-cl_a_three", &opts[3], 0)); 429566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-cl_a_cc_ddd_four", &opts[4], 0)); 439566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-cl_five", &opts[5], 0)); 449566063dSJacob Faibussowitsch PetscCall(PetscPrintf(PETSC_COMM_WORLD, "cl_opts = {%" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT "}\n", opts[0], opts[1], opts[2], opts[3], opts[4], opts[5])); 45c4762a1bSJed Brown } 46c4762a1bSJed Brown 479566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetBool(NULL, 0, "-str", &hasstr, 0)); 48c4762a1bSJed Brown if (hasstr) { 499371c9d4SSatish Balay PetscCall( 509371c9d4SSatish Balay 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")); 519566063dSJacob Faibussowitsch PetscCall(PetscMemzero(opts, sizeof(opts))); 529566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-str_zero", &opts[0], 0)); 539566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-str_a_one", &opts[1], 0)); 549566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-str_a_bb_two", &opts[2], 0)); 559566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-str_a_three", &opts[3], 0)); 569566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-str_a_cc_ddd_four", &opts[4], 0)); 579566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, 0, "-str_five", &opts[5], 0)); 589566063dSJacob Faibussowitsch PetscCall(PetscPrintf(PETSC_COMM_WORLD, "str_opts = {%" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT "}\n", opts[0], opts[1], opts[2], opts[3], opts[4], opts[5])); 59c4762a1bSJed Brown } 60c4762a1bSJed Brown 619566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 62b122ec5aSJacob Faibussowitsch return 0; 63c4762a1bSJed Brown } 64c4762a1bSJed Brown 65c4762a1bSJed Brown /*TEST 66c4762a1bSJed Brown 67c4762a1bSJed Brown test: 68c4762a1bSJed Brown output_file: output/ex20_1.out 69c4762a1bSJed Brown 70c4762a1bSJed Brown test: 71c4762a1bSJed Brown suffix: 2 72c4762a1bSJed Brown args: -cl -prefix_push cl_ -zero 10 -prefix_push a_ -one 11 -prefix_push bb_ -two 12 -prefix_pop -three 13 -prefix_push cc_ -prefix_push ddd_ -four 14 -prefix_pop -prefix_pop -prefix_pop -five 15 -prefix_pop 73c4762a1bSJed Brown 74c4762a1bSJed Brown test: 75c4762a1bSJed Brown suffix: 3 76c4762a1bSJed Brown args: -str 77c4762a1bSJed Brown 78c4762a1bSJed Brown TEST*/ 79