summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorMagnus Ahltorp <map@kth.se>2016-05-13 14:51:53 +0200
committerMagnus Ahltorp <map@kth.se>2016-05-13 15:54:19 +0200
commit0625beaa1d3c98298453b6fff8f663085844ea39 (patch)
tree13890dbf8f9b0d1d733311b059d3169d5aaf2926 /test
parent2b669571d0820971ee25fbd6ef1810108c09f80e (diff)
Change endian of permdb index file to big-endianpermdb-index-endian-2
Diffstat (limited to 'test')
-rwxr-xr-xtest/listpermdb.erl8
1 files changed, 4 insertions, 4 deletions
diff --git a/test/listpermdb.erl b/test/listpermdb.erl
index b9b7c91..4000971 100755
--- a/test/listpermdb.erl
+++ b/test/listpermdb.erl
@@ -28,7 +28,7 @@ openfile(Filename) ->
%% Node
%% end.
-printfile(<<?INDEX_FILE_COOKIE:64/native, Rest/binary>>) ->
+printfile(<<?INDEX_FILE_COOKIE:64/big, Rest/binary>>) ->
io:format("index file header~n", []),
printcommit(Rest, index, 8);
printfile(<<?DATA_FILE_COOKIE:64, Blocksize:32, Q:32, Keylength:32, Rest/binary>>) ->
@@ -40,7 +40,7 @@ printfile(<<Unknown:16/binary, _Rest/binary>>) ->
printnode(<<>>) ->
ok;
-printnode(<<Child:64/native, Rest/binary>>) ->
+printnode(<<Child:64/big, Rest/binary>>) ->
case <<Child:64/big>> of
<<0:1, Offset:63>> ->
io:format(" child ~p~n", [Offset]);
@@ -84,7 +84,7 @@ printcommit(Data, FileType, FileOffset) ->
printindex(<<>>, FileOffset) ->
{ok, FileOffset};
-printindex(<<?INDEX_NODE_COOKIE:64/native, Rest/binary>>, FileOffset) ->
+printindex(<<?INDEX_NODE_COOKIE:64/big, Rest/binary>>, FileOffset) ->
FileOffset2 = FileOffset + 8,
Q = 2,
NChildren = 4,
@@ -93,7 +93,7 @@ printindex(<<?INDEX_NODE_COOKIE:64/native, Rest/binary>>, FileOffset) ->
io:format("node ~p~n", [FileOffset]),
printnode(Children),
printindex(Rest2, FileOffset2 + ChildrenLength);
-printindex(<<CommitLength:64/native, CommitChecksum:32/binary, ?INDEX_COMMIT_END_COOKIE:64/native, Rest/binary>>, FileOffset) ->
+printindex(<<CommitLength:64/big, CommitChecksum:32/binary, ?INDEX_COMMIT_END_COOKIE:64/big, Rest/binary>>, FileOffset) ->
{{CommitLength, CommitChecksum, Rest}, FileOffset + 8, FileOffset + 8 + 32 + 8};
printindex(<<Unknown:16/binary, _Rest/binary>>, FileOffset) ->
io:format("unknown byte: ~p at ~p~n", [Unknown, FileOffset]),