diff options
Diffstat (limited to 'test/listpermdb.erl')
-rwxr-xr-x | test/listpermdb.erl | 8 |
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]), |