Commit c8471d0c authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-09-19 23:29:12 by cvscast] Beppe: upgraded version to 0.2.0

Original author: cvscast
Date: 2003-09-19 23:29:12+00:00
parent c3349ce9
0.2.0
* Rewriting to use ocaml 3.07
0.1.1
* Various bug fixes (expat might now work)
* Sequencing operator e1;e2 (equivalent to: let [] = e1 in e2)
......
include Makefile.conf
VERSION = 0.1.1
VERSION = 0.2.0
PACKAGES = pxp-engine pxp-lex-iso88591 wlexing camlp4 num cgi pcre netstring
ifeq ($(PXP_WLEX), true)
......
type Person = FPerson | MPerson
type FPerson = <person gender = "F" >[ Name Children (Tel | Email)?]
type MPerson = <person gender="M">[ Name Children (Tel | Email)?]
type Children = <children>[(ref Person)+]
type Name = <name>[ PCDATA ]
type Tel = <tel kind=?"home"|"work">['0'--'9'+ '-' '0'--'9'+]
type Email = <email>[PCDATA '@' PCDATA]
let x = ref Int 0;;
let fun loop ([] : []) : [] =
......@@ -6,3 +14,14 @@ let fun loop ([] : []) : [] =
if !x << 10 then loop [] else [];;
loop [];;
let newperson ([] -> Person)
_ -> let person = ref Person (newperson []) in
let x = <person gender ="F"> [
<name>"Pippo"
<children> [ (person) ]]
in person := x ; x ;;
let pippo = newperson [];;
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment