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