head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.36
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.34
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.32
	pkgsrc-2025Q3-base:1.1
	pkgsrc-2025Q2:1.1.0.30
	pkgsrc-2025Q2-base:1.1
	pkgsrc-2025Q1:1.1.0.28
	pkgsrc-2025Q1-base:1.1
	pkgsrc-2024Q4:1.1.0.26
	pkgsrc-2024Q4-base:1.1
	pkgsrc-2024Q3:1.1.0.24
	pkgsrc-2024Q3-base:1.1
	pkgsrc-2024Q2:1.1.0.22
	pkgsrc-2024Q2-base:1.1
	pkgsrc-2024Q1:1.1.0.20
	pkgsrc-2024Q1-base:1.1
	pkgsrc-2023Q4:1.1.0.18
	pkgsrc-2023Q4-base:1.1
	pkgsrc-2023Q3:1.1.0.16
	pkgsrc-2023Q3-base:1.1
	pkgsrc-2023Q2:1.1.0.14
	pkgsrc-2023Q2-base:1.1
	pkgsrc-2023Q1:1.1.0.12
	pkgsrc-2023Q1-base:1.1
	pkgsrc-2022Q4:1.1.0.10
	pkgsrc-2022Q4-base:1.1
	pkgsrc-2022Q3:1.1.0.8
	pkgsrc-2022Q3-base:1.1
	pkgsrc-2022Q2:1.1.0.6
	pkgsrc-2022Q2-base:1.1
	pkgsrc-2022Q1:1.1.0.4
	pkgsrc-2022Q1-base:1.1
	pkgsrc-2021Q4:1.1.0.2
	pkgsrc-2021Q4-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2021.12.26.05.28.23;	author dholland;	state Exp;
branches;
next	;
commitid	UXuQlj10RTbeu7mD;


desc
@@


1.1
log
@graphics/camlimages: make it build again

Hasn't in a long time, so no PKGREVISION bump (it's at 96!)

It is fairly likely that these changes and/or OCaml internal changes
regarding immutable strings have changed the behavior if you abuse
internal interfaces or try to share graphics memory with the library
and scribble on it. Don't do that.

There are probably more data copies as well (meaning "slow") but I've
tried to avoid that as much as possible.
@
text
@$NetBSD$

Update for immutable strings.

--- src/bitmap.mli.orig	2011-06-22 18:04:32.000000000 +0000
+++ src/bitmap.mli
@@@@ -79,7 +79,7 @@@@ module Make(B:Bitdepth) : sig
   val destroy : t -> unit
     (* Destroy bitmaps *)
 
-  val access : t -> int -> int -> string * int
+  val access : t -> int -> int -> Bytes.t * int
 
   val get_strip : t -> int -> int -> int -> string
   val set_strip : t -> int -> int -> int -> string -> unit
@@@@ -100,8 +100,9 @@@@ module Make(B:Bitdepth) : sig
     *)
 
   (* only for one row *)      
-  val get_scanline_ptr : t -> (int -> (string * int) * int) option
+  val get_scanline_ptr : t -> (int -> (Bytes.t * int) * int) option
 
+  val dumpbytes : t -> Bytes.t
   val dump : t -> string
     (* Create a string representation of a bitmap. It may easily raise
        an exception Out_of_memory for large images. *)
@