X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator.ml;h=8f1f935f741db543c9d7212afd5b80dd33906c68;hb=2419bda3b4b47687c787a2937238fee932ad66e5;hp=9722312b6423f8a1fad18f4d1f366a036bd967f5;hpb=d0e382c601cbba8bba6df4258f91c3414ee82766;p=hivex.git diff --git a/generator/generator.ml b/generator/generator.ml index 9722312..8f1f935 100755 --- a/generator/generator.ml +++ b/generator/generator.ml @@ -1,6 +1,6 @@ #!/usr/bin/env ocaml (* hivex - * Copyright (C) 2009-2010 Red Hat Inc. + * Copyright (C) 2009-2011 Red Hat Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -701,6 +701,13 @@ typedef struct hive_h hive_h; typedef size_t hive_node_h; typedef size_t hive_value_h; +#include +#ifdef ENOKEY +# define HIVEX_NO_KEY ENOKEY +#else +# define HIVEX_NO_KEY ENOENT +#endif + /* Pre-defined types. */ enum hive_type { "; @@ -1273,7 +1280,7 @@ exhaustive): Corrupt or unsupported Registry file format. -=item ENOKEY +=item HIVEX_NO_KEY Missing root key. @@ -2181,10 +2188,7 @@ and generate_perl_xs () = #include #include - -#ifndef PRId64 -#define PRId64 \"lld\" -#endif +#include static SV * my_newSVll(long long val) { @@ -2198,10 +2202,6 @@ my_newSVll(long long val) { #endif } -#ifndef PRIu64 -#define PRIu64 \"llu\" -#endif - #if 0 static SV * my_newSVull(unsigned long long val) {