1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Pierre Weis, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 2001 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* only by permission. *)
(* *)
(***********************************************************************)
type tampon = { mutable value : int; mutable nbits : int };;
let tampon = { value = 0; nbits = 0 };;
let initialise () = tampon.value <- 0; tampon.nbits <- 0;;
let crire_bit sortie bit =
tampon.value <- tampon.value lor (bit lsl tampon.nbits);
tampon.nbits <- tampon.nbits + 1;
if tampon.nbits >= 8 then begin
output_char sortie (char_of_int tampon.value);
tampon.value <- 0;
tampon.nbits <- 0
end;;
let finir sortie =
if tampon.nbits > 0 then
output_char sortie (char_of_int tampon.value);;
let lire_bit entre =
if tampon.nbits <= 0 then begin
tampon.value <- int_of_char(input_char entre);
tampon.nbits <- 8
end;
let res = tampon.value land 1 in
tampon.value <- tampon.value lsr 1;
tampon.nbits <- tampon.nbits - 1;
res;;
|
