1c4762a1bSJed Brown static const char help[] = "Tests PetscOptionsPrefix{Push,Pop}\n\n"; 2c4762a1bSJed Brown 3c4762a1bSJed Brown #include <petscsys.h> 4c4762a1bSJed Brown 5c4762a1bSJed Brown int main(int argc, char *argv[]) 6c4762a1bSJed Brown { 7c4762a1bSJed Brown PetscErrorCode ierr; 8c4762a1bSJed Brown PetscInt opts[6] = {0}; 9c4762a1bSJed Brown PetscBool hascl = PETSC_FALSE,hasstr = PETSC_FALSE; 10c4762a1bSJed Brown 11c4762a1bSJed Brown ierr = PetscInitialize(&argc,&argv,0,help);if (ierr) return ierr; 12*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsSetValue(NULL,"-zero","0")); 13*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPush(NULL,"a_")); 14*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsSetValue(NULL,"-one","1")); 15*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPush(NULL,"bb_")); 16*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsSetValue(NULL,"-two","2")); 17*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPop(NULL)); 18*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsSetValue(NULL,"-three","3")); 19*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPush(NULL,"cc_")); 20*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPush(NULL,"ddd_")); 21*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsSetValue(NULL,"-four","4")); 22*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPop(NULL)); 23*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPop(NULL)); 24*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsPrefixPop(NULL)); 25*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsSetValue(NULL,"-five","5")); 26c4762a1bSJed Brown 27*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-zero",&opts[0],0)); 28*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-a_one",&opts[1],0)); 29*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-a_bb_two",&opts[2],0)); 30*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-a_three",&opts[3],0)); 31*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-a_cc_ddd_four",&opts[4],0)); 32*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-five",&opts[5],0)); 33*5f80ce2aSJacob Faibussowitsch CHKERRQ(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 35*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetBool(NULL,0,"-cl",&hascl,0)); 36c4762a1bSJed Brown if (hascl) { 37*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(opts,sizeof(opts))); 38*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-cl_zero",&opts[0],0)); 39*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-cl_a_one",&opts[1],0)); 40*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-cl_a_bb_two",&opts[2],0)); 41*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-cl_a_three",&opts[3],0)); 42*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-cl_a_cc_ddd_four",&opts[4],0)); 43*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-cl_five",&opts[5],0)); 44*5f80ce2aSJacob Faibussowitsch CHKERRQ(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 47*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetBool(NULL,0,"-str",&hasstr,0)); 48c4762a1bSJed Brown if (hasstr) { 49*5f80ce2aSJacob Faibussowitsch CHKERRQ(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")); 50*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(opts,sizeof(opts))); 51*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-str_zero",&opts[0],0)); 52*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-str_a_one",&opts[1],0)); 53*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-str_a_bb_two",&opts[2],0)); 54*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-str_a_three",&opts[3],0)); 55*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-str_a_cc_ddd_four",&opts[4],0)); 56*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,0,"-str_five",&opts[5],0)); 57*5f80ce2aSJacob Faibussowitsch CHKERRQ(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])); 58c4762a1bSJed Brown } 59c4762a1bSJed Brown 60c4762a1bSJed Brown ierr = PetscFinalize(); 61c4762a1bSJed Brown return ierr; 62c4762a1bSJed Brown } 63c4762a1bSJed Brown 64c4762a1bSJed Brown /*TEST 65c4762a1bSJed Brown 66c4762a1bSJed Brown test: 67c4762a1bSJed Brown output_file: output/ex20_1.out 68c4762a1bSJed Brown 69c4762a1bSJed Brown test: 70c4762a1bSJed Brown suffix: 2 71c4762a1bSJed 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 72c4762a1bSJed Brown 73c4762a1bSJed Brown test: 74c4762a1bSJed Brown suffix: 3 75c4762a1bSJed Brown args: -str 76c4762a1bSJed Brown 77c4762a1bSJed Brown TEST*/ 78