source:
CIVL/examples/languageFeatures/initialValues.cvl@
d510d452
| Last change on this file since d510d452 was d643196, checked in by , 11 years ago | |
|---|---|
|
|
| File size: 407 bytes | |
| Rev | Line | |
|---|---|---|
| [8dbb964] | 1 | #include<stdio.h> |
| 2 | #include<civlc.cvh> | |
| 3 | #include<bundle.cvh> | |
| 4 | ||
| [ed25e58] | 5 | typedef enum INIT {zero, one} Init; |
| [0d65e23] | 6 | typedef union{ |
| 7 | int a; | |
| 8 | float b; | |
| 9 | } MyUnion; | |
| [ed25e58] | 10 | |
| [8dbb964] | 11 | $domain dom0; |
| 12 | $domain(2) dom2; | |
| 13 | $bundle bun; | |
| [ed25e58] | 14 | Init enumVar; |
| 15 | int * ptr; | |
| [0d65e23] | 16 | MyUnion myunion; |
| [8dbb964] | 17 | int main() { |
| 18 | int a; | |
| 19 | ||
| [d643196] | 20 | $elaborate_domain(dom0); |
| 21 | $elaborate_domain(dom2); | |
| [ed25e58] | 22 | a = enumVar; |
| [0d65e23] | 23 | a = myunion.a; |
| [ed25e58] | 24 | ptr = &a; |
| [8dbb964] | 25 | $bundle_unpack(bun, &a); |
| 26 | return 0; | |
| 27 | } |
Note:
See TracBrowser
for help on using the repository browser.
