-(** Wrapper around Perl [Template] class (Template Toolkit).
- *
- * Author: Dave Benjamin <dave@3dex.com>.
+(** Wrapper around Perl [Template] class (Template Toolkit). *)
+(* Copyright (C) 2003 Dave Benjamin <dave@3dex.com>.
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public
+ License as published by the Free Software Foundation; either
+ version 2 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this library; see the file COPYING. If not, write to
+ the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.
+
+ $Id: pl_Template.ml,v 1.3 2008-03-01 13:02:21 rich Exp $
*)
open Perl
struct
- type variant =
+ type t =
| Null
| String of string
| Int of int
| Float of float
| Bool of bool
- | Array of variant list
- | Hash of (string * variant) list;;
+ | Array of t list
+ | Hash of (string * t) list;;
end
may (fun v ->
args := sv_of_string "END_TAG" :: sv_of_string v :: !args) end_tag;
may (fun v ->
- args := sv_of_string "TAG_STYLE" :: sv_of_string v :: !args) end_tag;
+ args := sv_of_string "TAG_STYLE" :: sv_of_string v :: !args) tag_style;
may (fun v ->
args := sv_of_string "PRE_CHOMP" :: sv_of_bool v :: !args) pre_chomp;
may (fun v ->