summaryrefslogblamecommitdiffstats
path: root/xml.c
blob: 6360bd05492c3d0813bf34b5fe5c6037c399c08f (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

















                                                                        
                   


                   
                    
               
 
 

                                           
                                                            

                                                        
                                                              


                                                            





                                                          



                                                            
                                                             




                                                             



                                                            

 


                                                       
 
                              

                             
                                         
                          
                             
 
                    


                                                                 
 

                                                     











                                                                 
 
                             

 
 
               
                                                              
 
                             
 
                
                     
                           

                                                         
                      



                                                          







                                                        
                
                      

         
                                                  
                           
                             


 
              


                                                           
                                                                       





                                                                

                                                      





                                                                   


                                                                       







                                               





















                                            














                                                            
               

                                                                   
 
 

                                                
 
 



                   
 
                  









                         



   
                                  
 
 
                                                     



   
                                  
 
 
                                                       



      
                                       

                                                                 







                                       

                                             
 
                                                  

 
/* $Id$ */
/*
 * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the
 * above copyright notice and this permission notice appear in all
 * copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
 * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
 * AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 * PERFORMANCE OF THIS SOFTWARE.
 */
#include <assert.h>
#include <stdlib.h>
#include <string.h>

#include "private.h"
#include "ml.h"


static	int		xml_alloc(void **);
static	void		xml_free(void *);
static	ssize_t		xml_endtag(struct md_mbuf *, void *,
				const struct md_args *, 
				enum md_ns, int);
static	ssize_t		xml_begintag(struct md_mbuf *, void *,
				const struct md_args *, 
				enum md_ns, int, 
				const int *, const char **);
static	ssize_t		xml_beginstring(struct md_mbuf *, 
				const struct md_args *, 
				const char *, size_t);
static	ssize_t		xml_endstring(struct md_mbuf *, 
				const struct md_args *, 
				const char *, size_t);
static	int		xml_begin(struct md_mbuf *,
	       			const struct md_args *, 
				const struct tm *, 
				const char *, const char *, 
				enum roffmsec, enum roffvol);
static	int		xml_end(struct md_mbuf *,
	       			const struct md_args *, 
				const struct tm *, 
				const char *, const char *, 
				enum roffmsec, enum roffvol);
static	ssize_t 	xml_printtagname(struct md_mbuf *, 
				enum md_ns, int);
static	ssize_t 	xml_printtagargs(struct md_mbuf *, 
				const int *, const char **);


static ssize_t 
xml_printtagargs(struct md_mbuf *mbuf, const int *argc,
		const char **argv)
{
	int		 i, c;
	size_t		 res;

	if (NULL == argc || NULL == argv)
		return(0);
	assert(argc && argv);

	/* LINTED */
	for (res = 0, i = 0; ROFF_ARGMAX != (c = argc[i]); i++) {
		if ( ! ml_nputs(mbuf, " ", 1, &res))
			return(-1);

		/* FIXME: should puke on some, no? */

		if ( ! ml_puts(mbuf, tokargnames[c], &res))
			return(-1);
		if ( ! ml_nputs(mbuf, "=\"", 2, &res))
			return(-1);
		if (argv[i]) {
			if ( ! ml_putstring(mbuf, argv[i], &res))
				return(-1);
		} else if ( ! ml_nputs(mbuf, "true", 4, &res))
			return(-1);
		if ( ! ml_nputs(mbuf, "\"", 1, &res))
			return(-1);
	}

	return((ssize_t)res);
}


static ssize_t 
xml_printtagname(struct md_mbuf *mbuf, enum md_ns ns, int tok)
{
	size_t		 res;

	res = 0;
	switch (ns) {
	case (MD_NS_BLOCK):
		if ( ! ml_nputs(mbuf, "block:", 6, &res))
			return(-1);
		break;
	case (MD_NS_INLINE):
		if ( ! ml_nputs(mbuf, "inline:", 7, &res))
			return(-1);
		break;
	case (MD_NS_BODY):
		if ( ! ml_nputs(mbuf, "body:", 5, &res))
			return(-1);
		break;
	case (MD_NS_HEAD):
		if ( ! ml_nputs(mbuf, "head:", 5, &res))
			return(-1);
		break;
	default:
		break;
	}

	if ( ! ml_puts(mbuf, toknames[tok], &res))
		return(-1);
	return((ssize_t)res);
}


/* ARGSUSED */
static int 
xml_begin(struct md_mbuf *mbuf, const struct md_args *args,
		const struct tm *tm, const char *os, 
		const char *title, enum roffmsec sec, enum roffvol vol)
{

	if ( ! ml_puts(mbuf, "<?xml version=\"1.0\" "
				"encoding=\"UTF-8\"?>\n", NULL))
		return(0);
	return(ml_puts(mbuf, "<mdoc xmlns:block=\"block\" "
				"xmlns:body=\"body\" "
				"xmlns:head=\"head\" "
				"xmlns:inline=\"inline\">", NULL));
}


/* ARGSUSED */
static int 
xml_end(struct md_mbuf *mbuf, const struct md_args *args,
		const struct tm *tm, const char *os, 
		const char *title, enum roffmsec sec, enum roffvol vol)
{

	return(ml_puts(mbuf, "</mdoc>", NULL));
}


/* ARGSUSED */
static ssize_t 
xml_beginstring(struct md_mbuf *mbuf, 
		const struct md_args *args, 
		const char *buf, size_t sz)
{

	return(0);
}


/* ARGSUSED */
static ssize_t 
xml_endstring(struct md_mbuf *mbuf, 
		const struct md_args *args, 
		const char *buf, size_t sz)
{

	return(0);
}


/* ARGSUSED */
static ssize_t 
xml_begintag(struct md_mbuf *mbuf, void *data,
		const struct md_args *args, enum md_ns ns, 
		int tok, const int *argc, const char **argv)
{
	ssize_t		 res, sz;

	if (-1 == (res = xml_printtagname(mbuf, ns, tok)))
		return(-1);
	if (-1 == (sz = xml_printtagargs(mbuf, argc, argv)))
		return(-1);
	return(res + sz);
}


/* ARGSUSED */
static ssize_t 
xml_endtag(struct md_mbuf *mbuf, void *data,
		const struct md_args *args, enum md_ns ns, int tok)
{

	return(xml_printtagname(mbuf, ns, tok));
}


/* ARGSUSED */
int
xml_alloc(void **p)
{

	*p = NULL;
	return(1);
}


/* ARGSUSED */
void
xml_free(void *p)
{

	/* Do nothing. */
}


int
md_line_xml(void *data, char *buf)
{

	return(mlg_line((struct md_mlg *)data, buf));
}


int
md_exit_xml(void *data, int flush)
{

	return(mlg_exit((struct md_mlg *)data, flush));
}


void *
md_init_xml(const struct md_args *args,
		struct md_mbuf *mbuf, const struct md_rbuf *rbuf)
{
	struct ml_cbs	 cbs;

	cbs.ml_alloc = xml_alloc;
	cbs.ml_free = xml_free;
	cbs.ml_begintag = xml_begintag;
	cbs.ml_endtag = xml_endtag;
	cbs.ml_begin = xml_begin;
	cbs.ml_end = xml_end;
	cbs.ml_beginstring = xml_beginstring;
	cbs.ml_endstring = xml_endstring;

	return(mlg_alloc(args, rbuf, mbuf, &cbs));
}