Цитата(sergej.z @ 25.1.2006, 23:07  ) | | Насчёт регов не понял, сорри. |
Это реги, которым удовлетворяют соответствующие лексемы. Я предполагал, что движок подсветки может использовать их напрямую. Ну и вообще, легче написать регэксп, чем пытаться на словах объяснить 
| Цитата(sergej.z @ 25.1.2006, 23:07 ) |
И ещё.. Можешь кусок кода дать для тестов?
|
Без проблем. Вот код, в аттаче то, как он должен выглядеть:
| Код |
(* environment.mli *)
type ('var, 'func) t
exception Unbound_symbol of string
val make_empty : unit -> ('var, 'func) t
val add_scope : ('var, 'func) t -> ('var, 'func) t
val get_var : ('var, 'func) t -> string -> 'var
val set_var : ('var, 'func) t -> string -> 'var -> unit
val get_func : ('var, 'func) t -> string -> 'func
val add_func : ('var, 'func) t -> string -> 'func -> unit
(* environment.ml *)
open Hashtbl
type ('var, 'func) t = {
vars : (string, 'var) Hashtbl.t list;
funcs : (string, 'func) Hashtbl.t }
exception Unbound_symbol of string
let unbound name = raise (Unbound_symbol name)
let make_empty () = { vars = [create 17]; funcs = create 17 }
let add_scope env = { env with vars = create 7 :: env.vars }
let get_var env name =
let rec scan = function
[] -> unbound name
| scope :: tail ->
try find scope name
with Not_found -> scan tail in
scan env.vars
let set_var env = replace (List.hd env.vars)
let get_func env name =
try find env.funcs name
with Not_found -> unbound name
let add_func env = replace env.funcs
(* Some random tests.
(* This is nested comment. *)
*)
let the_string = "Hello\044\x20\"world\"!" (* equivalent to 'Hello, "world"!' *)
let char1 = 'a'
and char2 = '\097'
and char3 = '\xFF'
and char4 = (* This is wrong character! *) '\44'
and char5 = (* This is wrong character also! *) '\xGE'
let array_of_integers = [| 0; 0o1; 0x1; 0b1; 23_17_16 |]
and list_of_reals = [ 2.; 3E1; 2.718_281_828E+00_00; (* This is wrong numbers! *) .123; 4.E_01 ]
and nativeint_int32_int64_tuple = 23n, 0x23l, 0o22L
let poly_variant_tuple = `Foo, `Bar
(* CamlP4 directives — no need to highlight specially. *)
#load "pa_extend.cmo";;
|
Аттач переименовать в ZIP. |
