diff options
author | 2008-06-16 20:46:11 +0000 | |
---|---|---|
committer | 2008-06-16 20:46:11 +0000 | |
commit | 659001f1690041f27072c9602461741428dfce07 (patch) | |
tree | 592bb5d9468c157d287e548db0d4e5f710bb303b /net-misc/unison/files | |
parent | arm/s390/sh love (diff) | |
download | gentoo-2-659001f1690041f27072c9602461741428dfce07.tar.gz gentoo-2-659001f1690041f27072c9602461741428dfce07.tar.bz2 gentoo-2-659001f1690041f27072c9602461741428dfce07.zip |
remove unused versions
(Portage version: 2.1.5.5)
Diffstat (limited to 'net-misc/unison/files')
-rw-r--r-- | net-misc/unison/files/ocaml-3.08-extnames.patch | 14 | ||||
-rw-r--r-- | net-misc/unison/files/unison-2.12.0-gtk2-bug.patch | 11 | ||||
-rw-r--r-- | net-misc/unison/files/unison-2.17.1-io-error.patch | 66 |
3 files changed, 0 insertions, 91 deletions
diff --git a/net-misc/unison/files/ocaml-3.08-extnames.patch b/net-misc/unison/files/ocaml-3.08-extnames.patch deleted file mode 100644 index e959be2f3991..000000000000 --- a/net-misc/unison/files/ocaml-3.08-extnames.patch +++ /dev/null @@ -1,14 +0,0 @@ -diff -ur unison-2.9.1/ubase/uprintf.ml unison-2.9.1.patched/ubase/uprintf.ml ---- unison-2.9.1/ubase/uprintf.ml 2002-04-11 07:13:23.000000000 +0200 -+++ unison-2.9.1.patched/ubase/uprintf.ml 2004-08-08 14:10:09.784776851 +0200 -@@ -10,8 +10,8 @@ - (* *) - (***********************************************************************) - --external format_int: string -> int -> string = "format_int" --external format_float: string -> float -> string = "format_float" -+external format_int: string -> int -> string = "caml_format_int" -+external format_float: string -> float -> string = "caml_format_float" - - let fprintf outchan doafter format = - let format = (Obj.magic format : string) in diff --git a/net-misc/unison/files/unison-2.12.0-gtk2-bug.patch b/net-misc/unison/files/unison-2.12.0-gtk2-bug.patch deleted file mode 100644 index 637f19adcb28..000000000000 --- a/net-misc/unison/files/unison-2.12.0-gtk2-bug.patch +++ /dev/null @@ -1,11 +0,0 @@ ---- uigtk2.ml.old 2005-03-12 17:17:59.000000000 +0100 -+++ uigtk2.ml 2005-07-13 19:55:34.856959280 +0200 -@@ -1314,7 +1314,7 @@ - mainWindow#scroll_vertical `JUMP (min p 1.) in - - ignore (mainWindow#connect#unselect_row ~callback: -- (fun ~row ~column ~event -> current := None; updateDetails ())); -+ (fun ~row ~column ~event -> current := None)); - ignore (mainWindow#connect#select_row ~callback: - (fun ~row ~column ~event -> current := Some row; updateDetails ())); - diff --git a/net-misc/unison/files/unison-2.17.1-io-error.patch b/net-misc/unison/files/unison-2.17.1-io-error.patch deleted file mode 100644 index eea448534504..000000000000 --- a/net-misc/unison/files/unison-2.17.1-io-error.patch +++ /dev/null @@ -1,66 +0,0 @@ -diff -uNr unison-2.17.1.orig/stasher.ml unison-2.17.1/stasher.ml ---- unison-2.17.1.orig/stasher.ml 2005-08-11 17:26:59.000000000 -0700 -+++ unison-2.17.1/stasher.ml 2006-09-13 12:04:18.000000000 -0700 -@@ -314,23 +314,36 @@ - (Path.toString backPath) - (Fspath.toString backRoot)); - try Os.rename fspath path backRoot backPath -- with -- _ -> -- ((let info = Fileinfo.get true fspath path in -- match info.Fileinfo.typ with -- `SYMLINK -> -- Os.symlink -- backRoot backPath -- (Os.readLink fspath path) -- | _ -> -- Copy.localFile -- fspath path -- backRoot backPath backPath -- `Copy -- info.Fileinfo.desc -- (Osx.ressLength info.Fileinfo.osX.Osx.ressInfo) -- None); -- Os.delete fspath path) -+ with -+ _ -> -+ debug (fun () -> Util.msg "Rename failed -- copying instead\n"); -+ let rec copy p backp = -+ let info = Fileinfo.get true fspath p in -+ match info.Fileinfo.typ with -+ | `SYMLINK -> -+ debug (fun () -> Util.msg " Copying link %s / %s to %s / %s\n" -+ (Fspath.toString fspath) (Path.toString p) -+ (Fspath.toString backRoot) (Path.toString backp)); -+ Os.symlink backRoot backp (Os.readLink fspath p) -+ | `FILE -> -+ debug (fun () -> Util.msg " Copying file %s / %s to %s / %s\n" -+ (Fspath.toString fspath) (Path.toString p) -+ (Fspath.toString backRoot) (Path.toString backp)); -+ Copy.localFile fspath p backRoot backp backp -+ `Copy info.Fileinfo.desc -+ (Osx.ressLength info.Fileinfo.osX.Osx.ressInfo) None -+ | `DIRECTORY -> -+ debug (fun () -> Util.msg " Copying directory %s / %s to %s / %s\n" -+ (Fspath.toString fspath) (Path.toString p) -+ (Fspath.toString backRoot) (Path.toString backp)); -+ Os.createDir backRoot backp info.Fileinfo.desc; -+ let ch = Os.childrenOf fspath p in -+ Safelist.iter (fun n -> copy (Path.child p n) (Path.child backp n)) ch -+ | `ABSENT -> assert false in -+ copy path backPath; -+ debug (fun () -> Util.msg " Finished copying; deleting %s / %s\n" -+ (Fspath.toString fspath) (Path.toString path)); -+ Os.delete fspath path - end else begin - debug ( fun () -> Util.msg - "File %s in %s will not be backed up.\n" -diff -uNr unison-2.17.1.orig/uutil.ml unison-2.17.1/uutil.ml ---- unison-2.17.1.orig/uutil.ml 2005-08-11 17:26:59.000000000 -0700 -+++ unison-2.17.1/uutil.ml 2006-09-13 12:01:33.000000000 -0700 -@@ -123,4 +123,4 @@ - end else if !l > 0 then - notify !l - in -- Util.convertUnixErrorsToTransient "readWrite" (fun () -> read len) -+ Util.convertUnixErrorsToTransient "readWriteBounded" (fun () -> read len) |