RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-datawalls-data-hanging-as-warning
Last change
on this file since a72ed95 was
1ca095a,
checked in by Olly Betts <olly@…>, 11 years ago
|
- .gitignore,src/gen_img2aven: Commit script to generate img2aven.h.
|
-
Property mode set to
100755
|
File size:
773 bytes
|
Line | |
---|
1 | #!/usr/bin/perl -w |
---|
2 | use strict; |
---|
3 | |
---|
4 | sub img_SFLAG_SURFACE() { 0x01 } |
---|
5 | sub img_SFLAG_UNDERGROUND { 0x02 } |
---|
6 | sub img_SFLAG_ENTRANCE { 0x04 } |
---|
7 | sub img_SFLAG_EXPORTED { 0x08 } |
---|
8 | sub img_SFLAG_FIXED { 0x10 } |
---|
9 | sub img_SFLAG_ANON { 0x20 } |
---|
10 | sub img_SFLAG_WALL { 0x40 } |
---|
11 | |
---|
12 | my @tab; |
---|
13 | for (0 .. 0x7f) { |
---|
14 | my @f; |
---|
15 | push @f, "LFLAG_SURFACE" if ($_ & img_SFLAG_SURFACE); |
---|
16 | push @f, "LFLAG_UNDERGROUND" if ($_ & img_SFLAG_UNDERGROUND); |
---|
17 | push @f, "LFLAG_ENTRANCE" if ($_ & img_SFLAG_ENTRANCE); |
---|
18 | push @f, "LFLAG_EXPORTED" if ($_ & img_SFLAG_EXPORTED); |
---|
19 | push @f, "LFLAG_FIXED" if ($_ & img_SFLAG_FIXED); |
---|
20 | push @f, "LFLAG_NOT_ANON" unless ($_ & img_SFLAG_ANON); |
---|
21 | push @f, "LFLAG_NOT_WALL" unless ($_ & img_SFLAG_WALL); |
---|
22 | push @f, "0" if @f == 0; |
---|
23 | print "\t".join("|", @f).",\n"; |
---|
24 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.