File: istring.ml

package info (click to toggle)
camlpdf 0.5-1
  • links: PTS, VCS
  • area: non-free
  • in suites: squeeze, wheezy
  • size: 1,516 kB
  • ctags: 2,689
  • sloc: ml: 18,229; ansic: 139; makefile: 139
file content (24 lines) | stat: -rw-r--r-- 397 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
(* Strings as int arrays *)
type t = int array

let create n =
  Array.make n 0

let sub (s : t) start len =
  Array.sub s start len

let length (s : t) =
  Array.length s

let blit (src : t) srcoff dst dstoff len =
  Array.blit src srcoff dst dstoff len

let get s i =
  char_of_int (Array.get s i)

let set s i c =
  Array.set s i (int_of_char c)

let make l c =
  Array.make l (int_of_char c)