File: xmlpage.c

package info (click to toggle)
libtext-markdown-discount-perl 0.18-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 1,524 kB
  • sloc: ansic: 5,765; pascal: 1,027; sh: 208; makefile: 196; perl: 184
file content (43 lines) | stat: -rw-r--r-- 1,161 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
/*
 * xmlpage -- write a skeletal xhtml page
 *
 * Copyright (C) 2007 David L Parsons.
 * The redistribution terms are provided in the COPYRIGHT file that must
 * be distributed with this source code.
 */
#include <stdio.h>
#include <stdlib.h>
#include <markdown.h>


int
mkd_xhtmlpage(Document *p, mkd_flag_t flags, FILE *out)
{
    char *title;
    extern char *mkd_doc_title(Document *);
    
    if ( mkd_compile(p, flags) ) {
	DO_OR_DIE( fprintf(out, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
				"<!DOCTYPE html "
				" PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\""
				" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n"
				"<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">\n") );

	DO_OR_DIE( fprintf(out, "<head>\n") );
	DO_OR_DIE( fprintf(out, "<title>") );
	if ( title = mkd_doc_title(p) ) {
	    DO_OR_DIE( fprintf(out, "%s", title) );
	}
	DO_OR_DIE( fprintf(out, "</title>\n") );
	DO_OR_DIE( mkd_generatecss(p, out) );
	DO_OR_DIE( fprintf(out, "</head>\n"
				"<body>\n") );
	
	DO_OR_DIE( mkd_generatehtml(p, out) );
	DO_OR_DIE( fprintf(out, "</body>\n"
				"</html>\n") );

	return 0;
    }
    return EOF;
}