(load (string-append laml-dir "laml.scm"))

(lib-load "xml-in-laml/xml-in-laml.scm")
(lib-load "xml-in-laml/mirrors/xhtml10-frameset-mirror.scm")
(lib-load "xml-in-laml/mirrors/xhtml10-transitional-mirror.scm")

Show source file in small font In frameset-1: Link from html-props to it's cross reference table entry 
(define html-props (list 'xmlns "http://www.w3.org/1999/xhtml")) (set! xml-validate-contents? #t) (set! xml-check-attributes? #t) (set! xml-check-language-overlap? #t) Show source file in small font In frameset-1: Link from fs:html to it's cross reference table entry 4.1. Using more than one mirror
(define fs:html (xhtml10-frameset 'html)) Show source file in small font In frameset-1: Link from fs:head to it's cross reference table entry 
(define fs:head (xhtml10-frameset 'head)) Show source file in small font In frameset-1: Link from fs:title to it's cross reference table entry 
(define fs:title (xhtml10-frameset 'title)) Show source file in small font In frameset-1: Link from fs:body to it's cross reference table entry 
(define fs:body (xhtml10-frameset 'body)) Show source file in small font In frameset-1: Link from fs:p to it's cross reference table entry 
(define fs:p (xhtml10-frameset 'p)) Show source file in small font In frameset-1: Link from fs:em to it's cross reference table entry 
(define fs:em (xhtml10-frameset 'em)) Show source file in small font In frameset-1: Link from fs:noframes to it's cross reference table entry 
(define fs:noframes (xhtml10-frameset 'noframes)) Show source file in small font In frameset-1: Link from frameset-doc to it's cross reference table entry 4.1. Using more than one mirror
; frameset-doc (write-html '(raw prolog) (fs:html html-props (fs:head (fs:title "Third frameset example")) (frameset (frame 'name "fr2" 'src "transitional-1.html") (frame 'name "fr2" 'src "transitional-2.html") 'cols "40%,60%" (fs:noframes (fs:body (fs:p "Frames are" (fs:em "unfortunately") "not available"))) ) )) Show source file in small font In frameset-1: Link from tr:html to it's cross reference table entry 4.1. Using more than one mirror
(define tr:html (xhtml10-transitional 'html)) Show source file in small font In frameset-1: Link from tr:head to it's cross reference table entry 
(define tr:head (xhtml10-transitional 'head)) Show source file in small font In frameset-1: Link from tr:title to it's cross reference table entry 
(define tr:title (xhtml10-transitional 'title)) Show source file in small font In frameset-1: Link from tr:body to it's cross reference table entry 
(define tr:body (xhtml10-transitional 'body)) Show source file in small font In frameset-1: Link from tr:p to it's cross reference table entry 
(define tr:p (xhtml10-transitional 'p)) Show source file in small font In frameset-1: Link from tr:a to it's cross reference table entry 
(define tr:a (xhtml10-transitional 'a)) Show source file in small font In frameset-1: Link from left-doc to it's cross reference table entry 4.1. Using more than one mirror
; left-doc (write-html '(raw prolog) (tr:html html-props (tr:head (tr:title "Left frame")) (tr:body (tr:p "This is the left frame")) ) (in-startup-directory "transitional-1.html") ) Show source file in small font In frameset-1: Link from right-doc to it's cross reference table entry 4.1. Using more than one mirror
; right-doc (write-html '(raw prolog) (tr:html html-props (tr:head (tr:title "Right frame")) (tr:body (tr:p "This is the right frame. ") (tr:p "This example illustrates a possible way to deal with the language overlap. Try process it.") ) ) (in-startup-directory "transitional-2.html") ) (end-laml)