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