ports/69695: update: net/unison to link under ocaml 3.08

[Janos Mohacsi]

>Number:         69695
>Category:       ports
>Synopsis:       update: net/unison to link under ocaml 3.08
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          update
>Submitter-Id:   current-users
>Arrival-Date:   Wed Jul 28 09:40:26 GMT 2004
>Closed-Date:
>Last-Modified:
>Originator:     Janos Mohacsi
>Release:        FreeBSD 5.2-CURRENT i386
>Organization:
NIIF/HUNGARNET
>Environment:
System: FreeBSD scone.ki.iif.hu 5.2-CURRENT FreeBSD 5.2-CURRENT #0: Mon Jul 26 15:16:09 CEST 2004 root at scone.ki.iif.hu:/usr/obj/usr/src/sys/SCONE i386

>Description:
	The net/unison fails with linker error on the latest FreeBSD versions.
	As reported on bento:
	http://pointyhat.freebsd.org/errorlogs/i386-4-latest/unison-2.9.20_2.log

	The cause of the problem is that ocaml has changed the external
	function naming in ocaml 3.08. 

	If ocaml 3.08 is the default ocaml compiler, unison should be updated
	until a final solution found.

	Probably this patch won't be necessary in new version of the unison.

>How-To-Repeat:
	Try to compile and link unison with ocaml 3.08.
>Fix:

diff -ruN unison.bak/files/patch-ubase_uprintf.ml unison/files/patch-ubase_uprintf.ml
--- unison.bak/files/patch-ubase_uprintf.ml	Thu Jan  1 01:00:00 1970
+++ unison/files/patch-ubase_uprintf.ml	Wed Jul 28 12:48:44 2004
@@ -0,0 +1,16 @@
+
+$FreeBSD$
+
+--- ubase/uprintf.ml.orig	Wed Jul 28 12:41:23 2004
++++ ubase/uprintf.ml	Wed Jul 28 12:41:45 2004
+@@ -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

>Release-Note:
>Audit-Trail:
>Unformatted: