source: CIVL/examples/compare/provesa/ADFirstAidKit/adBufferCtest.c

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 2.6 KB
Line 
1#include <stdio.h>
2#include "adBuffer.h"
3#include "adStack.h"
4
5int main(int argc, char *argv[]) {
6 double x, Y[10], px, PY[10] ;
7 int a, B[20], pa, PB[20] ;
8 int pc1, pc2, pc3, pc4 ;
9 int i ;
10
11 x = -1.0 ;
12 for (i=0 ; i<10 ; ++i)
13 Y[i] = i*1.1 ;
14 a = -1 ;
15 for (i=0 ; i<20 ; ++i)
16 B[i] = i ;
17
18 pushreal8(x) ;
19 pushreal8array(Y,10) ;
20 pushcontrol1b(1) ;
21 pushcontrol3b(4) ;
22 pushcontrol1b(0) ;
23 pushcontrol5b(14) ;
24
25 showallstacks() ;
26
27 pushinteger4(a) ;
28 pushinteger4array(B,20) ;
29
30 showallstacks() ;
31
32 popinteger4array(PB,20) ;
33
34 showallstacks() ;
35
36 lookinteger4(&pa) ;
37 printf("l -1:%i\n",pa) ;
38 lookcontrol5b(&pc1) ;
39 printf("l 14?:%i\n",pc1) ;
40 lookcontrol1b(&pc1) ;
41 printf("l 0?:%i\n",pc1) ;
42 pushcontrol5b( 7) ;
43 pushcontrol5b(29) ;
44 pushcontrol5b(23) ;
45 pushcontrol5b(24) ;
46 pushcontrol5b(25) ;
47 pushcontrol5b(26) ;
48 pushcontrol5b(27) ;
49
50 showallstacks() ;
51
52 pushcontrol5b(28) ;
53 pushcontrol5b(21) ;
54 pushcontrol5b(22) ;
55 pushcontrol5b(23) ;
56 pushcontrol5b(24) ;
57 pushcontrol5b(25) ;
58 pushcontrol5b(26) ;
59 pushcontrol5b(27) ;
60 pushcontrol5b(28) ;
61 pushcontrol5b(29) ;
62
63 printallbuffers() ;
64
65 popcontrol5b(&pc3) ;
66 printf("29?:%i\n",pc3) ;
67 popcontrol5b(&pc3) ;
68 printf("28?:%i\n",pc3) ;
69 popcontrol5b(&pc3) ;
70 printf("27?:%i\n",pc3) ;
71 popcontrol5b(&pc3) ;
72 printf("26?:%i\n",pc3) ;
73 popcontrol5b(&pc3) ;
74 printf("25?:%i\n",pc3) ;
75 popcontrol5b(&pc3) ;
76 printf("24?:%i\n",pc3) ;
77 popcontrol5b(&pc3) ;
78 printf("23?:%i\n",pc3) ;
79 popcontrol5b(&pc3) ;
80 printf("22?:%i\n",pc3) ;
81 popcontrol5b(&pc3) ;
82 printf("21?:%i\n",pc3) ;
83
84 showallstacks() ;
85
86 lookcontrol5b(&pc1) ;
87 printf("L 28?:%i\n",pc1) ;
88 popcontrol5b(&pc1) ;
89 printf("28?:%i\n",pc1) ;
90
91 showallstacks() ;
92
93 popcontrol5b(&pc1) ;
94 printf("27?:%i\n",pc1) ;
95 popcontrol5b(&pc1) ;
96 printf("26?:%i\n",pc1) ;
97 popcontrol5b(&pc1) ;
98 printf("25?:%i\n",pc1) ;
99 popcontrol5b(&pc1) ;
100 printf("24?:%i\n",pc1) ;
101 popcontrol5b(&pc1) ;
102 printf("23?:%i\n",pc1) ;
103 popcontrol5b(&pc1) ;
104 printf("29?:%i\n",pc1) ;
105 popcontrol5b(&pc1) ;
106 printf(" 7?:%i\n",pc1) ;
107 popinteger4(&pa) ;
108 printf("-1:%i\n",pa) ;
109
110 showallstacks() ;
111
112 lookcontrol5b(&pc1) ;
113 printf("L 14?:%i\n",pc1) ;
114 lookcontrol1b(&pc1) ;
115 printf("L 0?:%i\n",pc1) ;
116 lookcontrol3b(&pc1) ;
117 printf("L 4?:%i\n",pc1) ;
118
119 showallstacks() ;
120
121 popcontrol5b(&pc1) ;
122 printf("14?:%i\n",pc1) ;
123 popcontrol1b(&pc1) ;
124 printf(" 0?:%i\n",pc1) ;
125 popcontrol3b(&pc1) ;
126 printf(" 4?:%i\n",pc1) ;
127 popcontrol1b(&pc1) ;
128 printf(" 1?:%i\n",pc1) ;
129 popreal8array(PY,10) ;
130 //printf("y:%f\n",PY) ;
131 popreal8(&px) ;
132 printf("-1.0:%f\n",px) ;
133
134 showallstacks() ;
135}
Note: See TracBrowser for help on using the repository browser.