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*/