blob: 7cdce1e02ddc9c423ea39d17dcc410b0c168adef (
plain)
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
|
##ifdef CAMLTK
let cCAMLtoTKscrollValue = function
ScrollPage v1 ->
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"pages"]
| ScrollUnit v1 ->
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"units"]
| MoveTo v1 ->
TkTokenList [TkToken"moveto"; TkToken (Printf.sprintf "%g" v1)]
;;
(* str l -> scrllv -> str l *)
let cTKtoCAMLscrollValue = function
"scroll"::n::("pages"|"page")::l ->
ScrollPage (int_of_string n), l
| "scroll"::n::"units"::l ->
ScrollUnit (int_of_string n), l
| "moveto"::f::l ->
MoveTo (float_of_string f), l
| l -> raise (Invalid_argument (String.concat " " ("TKtoCAMLscrollValue"::l)))
;;
##else
let cCAMLtoTKscrollValue : scrollValue -> tkArgs = function
| `Page v1 ->
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"pages"]
| `Unit v1 ->
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"units"]
| `Moveto v1 ->
TkTokenList [TkToken"moveto"; TkToken (Printf.sprintf "%g" v1)]
;;
(* str l -> scrllv -> str l *)
let cTKtoCAMLscrollValue = function
| "scroll" :: n :: ("pages"|"page") :: l ->
`Page (int_of_string n), l
| "scroll" :: n :: "units" :: l ->
`Unit (int_of_string n), l
| "moveto" :: f :: l ->
`Moveto (float_of_string f), l
| l -> raise (Invalid_argument (String.concat " " ("TKtoCAMLscrollValue"::l)))
;;
##endif
|
