factor/basis/html/templates/chloe/syntax/syntax.factor

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: html.templates.chloe.syntax
USING: accessors kernel sequences combinators kernel namespaces
classes.tuple assocs splitting words arrays memoize parser lexer
io io.files io.encodings.utf8 io.streams.string
unicode.case mirrors fry math urls
multiline xml xml.data xml.writer xml.syntax
html.components
html.templates ;

SYMBOL: tags

tags [ H{ } clone ] initialize

: define-chloe-tag ( name quot -- ) swap tags get set-at ;

SYNTAX: CHLOE:
    scan parse-definition define-chloe-tag ;

CONSTANT: chloe-ns "http://factorcode.org/chloe/1.0"

: chloe-name? ( name -- ? )
    url>> chloe-ns = ;

XML-NS: chloe-name http://factorcode.org/chloe/1.0

: required-attr ( tag name -- value )
    [ nip ] [ chloe-name attr ] 2bi
    [ ] [ " attribute is required" append throw ] ?if ;

: optional-attr ( tag name -- value )
    chloe-name attr ;