package gapi-ocaml
A simple OCaml client for Google Services
Install
Dune Dependency
Authors
Maintainers
Sources
v0.4.6.tar.gz
sha256=b84b680528a5e050014103a8e7a60a5d43efd5fefc3f838310bd46769775ab48
md5=8ee26acf1f6c6f5e24c7b57fa070a0a2
doc/src/gapi-ocaml.netstring-local/netmappings.ml.html
Source file netmappings.ml
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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
(* $Id$ * ---------------------------------------------------------------------- * *) type from_uni_list = U_nil | U_single of (int*int) | U_double of (int*int * int*int) | U_array of int array ;; let to_unicode = Hashtbl.create 50;; let from_unicode = Hashtbl.create 50;; let omtp = !Netsys_oothr.provider let mutex = omtp # create_mutex() let lock () = mutex#lock();; let unlock () = mutex#unlock();; let get_to_unicode enc_name : int array = lock(); try let table = try Hashtbl.find to_unicode enc_name with Not_found -> let t_str = Netdb.read_db ("cmapf." ^ enc_name) in let t = Marshal.from_string t_str 0 in Hashtbl.add to_unicode enc_name t; t in unlock(); table with error -> unlock(); raise error ;; let get_from_unicode enc_name : from_uni_list array = lock(); try let table = try Hashtbl.find from_unicode enc_name with Not_found -> let t_str = Netdb.read_db ("cmapr." ^ enc_name) in let t = Marshal.from_string t_str 0 in Hashtbl.add from_unicode enc_name t; t in unlock(); table with error -> unlock(); raise error ;;
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>