File: digraphs_c99.c

package info (click to toggle)
frama-c 20161101%2Bsilicon%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 42,324 kB
  • ctags: 35,695
  • sloc: ml: 200,142; ansic: 31,465; makefile: 2,334; sh: 1,643; lisp: 259; python: 85; asm: 26
file content (21 lines) | stat: -rw-r--r-- 443 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
%:define N 5

#define xstr(s) str(s)
%:define str(s) #s

%:define get_first1(a) (a[0])
#define get_first2(a) (a<:0:>)

#define conc(a,b) a ## b
#define conc2(a,b) a %:%: b

int main() <%
  int a<:N:> = <%2,1,0%>; // implicit initialization of remaining elements
  char *s = "a<:"; // digraph inside quotes
  char *b = xstr(get_first1(a));
  char *c = xstr(get_first2(a));
  int d1, d2;
  conc(d, 1) = 7;
  conc2(d, 2) = 9;
  return a<:4:>;
%>