html-attr-vals.sml

来自「这是我们参加06年全国开源软件的竞赛作品」· SML 代码 · 共 21 行

(* html-attr-vals.sml
 *
 * COPYRIGHT (c) 1996 AT&T Research.
 *
 * This structure is necessary since the attrs type is used in the parser,
 * and there is no way to get it into the parser's signature.
 *)

structure HTMLAttrVals =
  struct

  (* support for building elements that have attributes *)
    datatype attr_val
      = NAME of string          (* [a-zA-Z.-]+ *)
      | STRING of string        (* a string enclosed in "" or '' *)
      | IMPLICIT

    type attrs = (string * attr_val) list

  end;