File: additive.tc

package info (click to toggle)
tcng 10b-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 3,636 kB
  • ctags: 2,515
  • sloc: ansic: 19,040; pascal: 4,640; yacc: 2,619; sh: 1,914; perl: 1,546; lex: 772; makefile: 756
file content (13 lines) | stat: -rw-r--r-- 295 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
/*
 * Additive headers, for tests/additive
 */

field h1 = raw;
field h1_len1 = h1[0];                  /* length 1, in longs */
field h1_len2 = (h1[1] & 0xf0) >> 4;    /* length 2, in shorts */
field h2 = h1[(h1_len1 << 2)+(h1_len2 << 1)];
field h2_x = h2[0];

prio {
    class if h2_x == 7;
}