[Pkg-ocaml-maint-commits] r6106 - in /trunk/packages/ocaml-fileutils/trunk/debian/patches: 00list stat-largefile.dpatch

[gildor at users.alioth.debian.org]

Author: gildor
Date: Sun Dec 21 21:40:59 2008
New Revision: 6106

URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/?sc=1&rev=6106
Log:
Add patch to handle largefile in 'du'

Added:
    trunk/packages/ocaml-fileutils/trunk/debian/patches/stat-largefile.dpatch   (with props)
Modified:
    trunk/packages/ocaml-fileutils/trunk/debian/patches/00list

Modified: trunk/packages/ocaml-fileutils/trunk/debian/patches/00list
URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/packages/ocaml-fileutils/trunk/debian/patches/00list?rev=6106&op=diff
==============================================================================
--- trunk/packages/ocaml-fileutils/trunk/debian/patches/00list (original)
+++ trunk/packages/ocaml-fileutils/trunk/debian/patches/00list Sun Dec 21 21:40:59 2008
@@ -1,1 +1,2 @@
 01_correct_non_opt_build
+stat-largefile

Added: trunk/packages/ocaml-fileutils/trunk/debian/patches/stat-largefile.dpatch
URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/packages/ocaml-fileutils/trunk/debian/patches/stat-largefile.dpatch?rev=6106&op=file
==============================================================================
--- trunk/packages/ocaml-fileutils/trunk/debian/patches/stat-largefile.dpatch (added)
+++ trunk/packages/ocaml-fileutils/trunk/debian/patches/stat-largefile.dpatch Sun Dec 21 21:40:59 2008
@@ -1,0 +1,53 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## stat-largefile.dpatch by Sylvain Le Gall <gildor at debian.org>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: No description.
+
+ at DPATCH@
+diff -urNad ocaml-fileutils-0.3.0~/libfileutils-ocaml/fileUtil.ml ocaml-fileutils-0.3.0/libfileutils-ocaml/fileUtil.ml
+--- ocaml-fileutils-0.3.0~/libfileutils-ocaml/fileUtil.ml	2004-06-28 22:21:32.000000000 +0200
++++ ocaml-fileutils-0.3.0/libfileutils-ocaml/fileUtil.ml	2008-12-21 12:25:40.000000000 +0100
+@@ -520,10 +520,10 @@
+   
+   let stat filename =
+     try
+-      let stats = Unix.stat filename
++      let stats = Unix.LargeFile.stat filename
+       in
+       let kind = 
+-        match stats.Unix.st_kind with
++        match stats.Unix.LargeFile.st_kind with
+           Unix.S_REG -> File 
+         | Unix.S_DIR -> Dir 
+         | Unix.S_CHR -> Dev_char 
+@@ -533,20 +533,20 @@
+         | Unix.S_SOCK -> Socket
+       in
+       let is_link = 
+-        let stats = Unix.lstat filename 
++        let stats = Unix.LargeFile.lstat filename 
+         in
+-        stats.Unix.st_kind = Unix.S_LNK
++        stats.Unix.LargeFile.st_kind = Unix.S_LNK
+       in
+       {
+         kind              = kind;
+         is_link           = is_link;
+-        permission        = permission_of_int stats.Unix.st_perm;
+-        size              = B (float_of_int stats.Unix.st_size);
+-        owner             = stats.Unix.st_uid;
+-        group_owner       = stats.Unix.st_gid;
+-        access_time       = stats.Unix.st_atime;
+-        modification_time = stats.Unix.st_mtime;
+-        creation_time     = stats.Unix.st_ctime;
++        permission        = permission_of_int stats.Unix.LargeFile.st_perm;
++        size              = B (Int64.to_float stats.Unix.LargeFile.st_size);
++        owner             = stats.Unix.LargeFile.st_uid;
++        group_owner       = stats.Unix.LargeFile.st_gid;
++        access_time       = stats.Unix.LargeFile.st_atime;
++        modification_time = stats.Unix.LargeFile.st_mtime;
++        creation_time     = stats.Unix.LargeFile.st_ctime;
+       }
+     with Unix.Unix_error(_) ->
+       raise FileDoesntExist 

Propchange: trunk/packages/ocaml-fileutils/trunk/debian/patches/stat-largefile.dpatch
------------------------------------------------------------------------------
    svn:executable = *