Actual source code: ex20.c

  1: static const char help[] = "Tests PetscOptionsPrefix{Push,Pop}\n\n";

  3: #include <petscsys.h>

  5: int main(int argc, char *argv[])
  6: {
  7:   PetscInt       opts[6] = {0};
  8:   PetscBool      hascl   = PETSC_FALSE,hasstr = PETSC_FALSE;

 10:   PetscInitialize(&argc,&argv,0,help);
 11:   PetscOptionsSetValue(NULL,"-zero","0");
 12:   PetscOptionsPrefixPush(NULL,"a_");
 13:   PetscOptionsSetValue(NULL,"-one","1");
 14:   PetscOptionsPrefixPush(NULL,"bb_");
 15:   PetscOptionsSetValue(NULL,"-two","2");
 16:   PetscOptionsPrefixPop(NULL);
 17:   PetscOptionsSetValue(NULL,"-three","3");
 18:   PetscOptionsPrefixPush(NULL,"cc_");
 19:   PetscOptionsPrefixPush(NULL,"ddd_");
 20:   PetscOptionsSetValue(NULL,"-four","4");
 21:   PetscOptionsPrefixPop(NULL);
 22:   PetscOptionsPrefixPop(NULL);
 23:   PetscOptionsPrefixPop(NULL);
 24:   PetscOptionsSetValue(NULL,"-five","5");

 26:   PetscOptionsGetInt(NULL,0,"-zero",&opts[0],0);
 27:   PetscOptionsGetInt(NULL,0,"-a_one",&opts[1],0);
 28:   PetscOptionsGetInt(NULL,0,"-a_bb_two",&opts[2],0);
 29:   PetscOptionsGetInt(NULL,0,"-a_three",&opts[3],0);
 30:   PetscOptionsGetInt(NULL,0,"-a_cc_ddd_four",&opts[4],0);
 31:   PetscOptionsGetInt(NULL,0,"-five",&opts[5],0);
 32:   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:   PetscOptionsGetBool(NULL,0,"-cl",&hascl,0);
 35:   if (hascl) {
 36:     PetscMemzero(opts,sizeof(opts));
 37:     PetscOptionsGetInt(NULL,0,"-cl_zero",&opts[0],0);
 38:     PetscOptionsGetInt(NULL,0,"-cl_a_one",&opts[1],0);
 39:     PetscOptionsGetInt(NULL,0,"-cl_a_bb_two",&opts[2],0);
 40:     PetscOptionsGetInt(NULL,0,"-cl_a_three",&opts[3],0);
 41:     PetscOptionsGetInt(NULL,0,"-cl_a_cc_ddd_four",&opts[4],0);
 42:     PetscOptionsGetInt(NULL,0,"-cl_five",&opts[5],0);
 43:     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]);
 44:   }

 46:   PetscOptionsGetBool(NULL,0,"-str",&hasstr,0);
 47:   if (hasstr) {
 48:     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");
 49:     PetscMemzero(opts,sizeof(opts));
 50:     PetscOptionsGetInt(NULL,0,"-str_zero",&opts[0],0);
 51:     PetscOptionsGetInt(NULL,0,"-str_a_one",&opts[1],0);
 52:     PetscOptionsGetInt(NULL,0,"-str_a_bb_two",&opts[2],0);
 53:     PetscOptionsGetInt(NULL,0,"-str_a_three",&opts[3],0);
 54:     PetscOptionsGetInt(NULL,0,"-str_a_cc_ddd_four",&opts[4],0);
 55:     PetscOptionsGetInt(NULL,0,"-str_five",&opts[5],0);
 56:     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]);
 57:   }

 59:   PetscFinalize();
 60:   return 0;
 61: }

 63: /*TEST

 65:    test:
 66:       output_file: output/ex20_1.out

 68:    test:
 69:       suffix: 2
 70:       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:    test:
 73:       suffix: 3
 74:       args: -str

 76: TEST*/