/[svn]/web/site.cd
ViewVC logotype

Diff of /web/site.cd

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1601 by abate, Tue Jul 10 19:06:03 2007 UTC revision 1602 by abate, Tue Jul 10 19:06:25 2007 UTC
# Line 1  Line 1 
1  (* This CDuce script produces CDuce web site. *)  (* This CDuce script produces CDuce web site. *)
2    
3    (* The types *)
4    
5    include "siteTypes.cd";;
6    
7  (** Command line **)  (** Command line **)
8    
9  let (input,outdir) =  let (input,outdir) =
# Line 7  Line 11 
11    | [ s ("-o" o | /(o := "www")) ] -> (s,o)    | [ s ("-o" o | /(o := "www")) ] -> (s,o)
12    | _ -> raise "Please use --arg to specify an input file on the command line"    | _ -> raise "Please use --arg to specify an input file on the command line"
13    
 (** Output types **)  
   
 using H = "xhtml"  
   
 (** Input types **)  
   
 type Site = <site>[ <title>String Footer? Page ]  
 type Footer = <footer>[ Item* ]  
 type Page =  <page name=Latin1 url=?String new=?"" leftbar=?("true"|"false")>[ <title>String <banner>[InlineText*]? Item* ]  
 type External = <external href=String title=String name=String>[]  
   
 type Item =  
    <box ({title=String; link=String; short=?String} | {})>Content  
  | <meta>Content  
  | <left>Content  
  | <footnotes>[]  
  | Page  
  | External  
   
 type Author = <author presenter=?("yes"|"no")>String  
 type Paper =  
   <paper file=?String old=?"">[  
      <title>String Author+ <comment>[InlineText*] <abstract>Content ]  
   
 type Slides =  
   <slides file=String>[ <title>String Author+ <comment>[InlineText*] ]  
   
 type Link =  
   <link url=String title=String>[ InlineText* ]  
   
 type Content =  
    [ ( <p style=?String>[InlineText*]  
      | <ul>[<li>Content *]  
      | <ol style=?String>[<li>Content *]  
      | <section title=String>Content  
      | <sample highlight=?"true"|"false">String  
      | <xmlsample highlight=?"true"|"false">String  
      | <sessionsample highlight=?"true"|"false">String  
      | H.table  
      | Paper | Slides | Link  
      | <boxes-toc short=?"" sections=?"">[]  
      | <pages-toc sections=?"">[]  
      | <site-toc>[]  
      | <local-links href=String>[]  
      | <two-columns>[ <left>Content <right>Content ]  
      | <note title=?String> Content  
      | <footnotes>[]  
      | <xhtml>H.Flow  
      | <demo label=?String prefix=?String>String  
      | InlineText  
      )* ]  
   
 type InlineText =  
      Char  
    | <(`b|`i|`tt|`em) style=?String>[InlineText*]  
    | <code>String  
    | <local href=String>String  
    | <footnote nocount=?"true">[InlineText*]  
    | H.a | H.img | H.br |H.script  
    | <thumbnail href=String width=?IntStr height=?IntStr>[]  
    | <thumbnails href=String width=?IntStr height=?IntStr>[ PCDATA ]  
   
 type IntStr = ['0'--'9'+]  
14    
15  (** Generic purpose functions **)  (** Generic purpose functions **)
16    
Legend:
Removed from v.1601  
changed lines
  Added in v.1602
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5