version 1.15, 2011/07/21 12:30:44 |
version 1.19, 2011/07/21 15:21:13 |
|
|
#endif |
#endif |
|
|
#include <assert.h> |
#include <assert.h> |
|
#include <limits.h> |
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
#include <string.h> |
#include <string.h> |
|
|
#define EQN_NEST_MAX 128 /* maximum nesting of defines */ |
#define EQN_NEST_MAX 128 /* maximum nesting of defines */ |
#define EQN_MSG(t, x) mandoc_msg((t), (x)->parse, (x)->eqn.ln, (x)->eqn.pos, NULL) |
#define EQN_MSG(t, x) mandoc_msg((t), (x)->parse, (x)->eqn.ln, (x)->eqn.pos, NULL) |
|
|
struct eqnpart { |
struct eqnstr { |
const char *name; |
const char *name; |
size_t sz; |
size_t sz; |
|
}; |
|
|
|
struct eqnpart { |
|
struct eqnstr str; |
int (*fp)(struct eqn_node *); |
int (*fp)(struct eqn_node *); |
}; |
}; |
|
|
Line 58 static int eqn_box(struct eqn_node *, |
|
Line 63 static int eqn_box(struct eqn_node *, |
|
struct eqn_box *, struct eqn_box **); |
struct eqn_box *, struct eqn_box **); |
|
|
static const struct eqnpart eqnparts[EQN__MAX] = { |
static const struct eqnpart eqnparts[EQN__MAX] = { |
{ "define", 6, eqn_do_define }, /* EQN_DEFINE */ |
{ { "define", 6 }, eqn_do_define }, /* EQN_DEFINE */ |
{ "set", 3, eqn_do_set }, /* EQN_SET */ |
{ { "set", 3 }, eqn_do_set }, /* EQN_SET */ |
{ "undef", 5, eqn_do_undef }, /* EQN_UNDEF */ |
{ { "undef", 5 }, eqn_do_undef }, /* EQN_UNDEF */ |
}; |
}; |
|
|
|
static const struct eqnstr eqnmarks[EQNMARK__MAX] = { |
|
{ "", 0 }, /* EQNMARK_NONE */ |
|
{ "dot", 3 }, /* EQNMARK_DOT */ |
|
{ "dotdot", 6 }, /* EQNMARK_DOTDOT */ |
|
{ "hat", 3 }, /* EQNMARK_HAT */ |
|
{ "tilde", 5 }, /* EQNMARK_TILDE */ |
|
{ "vec", 3 }, /* EQNMARK_VEC */ |
|
{ "dyad", 4 }, /* EQNMARK_DYAD */ |
|
{ "bar", 3 }, /* EQNMARK_BAR */ |
|
{ "under", 5 }, /* EQNMARK_UNDER */ |
|
}; |
|
|
|
static const struct eqnstr eqnfonts[EQNFONT__MAX] = { |
|
{ "", 0 }, |
|
{ "roman", 5 }, |
|
{ "bold", 4 }, |
|
{ "italic", 6 }, |
|
}; |
|
|
|
static const struct eqnstr eqnposs[EQNPOS__MAX] = { |
|
{ "", 0 }, |
|
{ "over", 4 }, |
|
{ "sup", 3 }, |
|
{ "sub", 3 }, |
|
{ "to", 2 }, |
|
{ "from", 4 }, |
|
{ "above", 5 }, |
|
}; |
|
|
/* ARGSUSED */ |
/* ARGSUSED */ |
enum rofferr |
enum rofferr |
eqn_read(struct eqn_node **epp, int ln, |
eqn_read(struct eqn_node **epp, int ln, |
Line 139 eqn_end(struct eqn_node *ep) |
|
Line 173 eqn_end(struct eqn_node *ep) |
|
* Otherwise, return the equation. |
* Otherwise, return the equation. |
*/ |
*/ |
|
|
if ((c = eqn_box(ep, root, &last)) > 0) { |
if (0 == (c = eqn_box(ep, root, &last))) { |
|
if (last != root) { |
|
EQN_MSG(MANDOCERR_EQNSCOPE, ep); |
|
c = 0; |
|
} |
|
} else if (c > 0) |
EQN_MSG(MANDOCERR_EQNNSCOPE, ep); |
EQN_MSG(MANDOCERR_EQNNSCOPE, ep); |
c = 0; |
|
} else if (0 == c && last != root) |
|
EQN_MSG(MANDOCERR_EQNSCOPE, ep); |
|
|
|
return(1 == c ? ROFF_EQN : ROFF_IGN); |
return(0 == c ? ROFF_EQN : ROFF_IGN); |
} |
} |
|
|
static int |
static int |
Line 153 eqn_box(struct eqn_node *ep, struct eqn_box *last, str |
|
Line 189 eqn_box(struct eqn_node *ep, struct eqn_box *last, str |
|
{ |
{ |
size_t sz; |
size_t sz; |
const char *start; |
const char *start; |
int c, i, nextc; |
int c, i, nextc, size; |
|
enum eqn_fontt font; |
struct eqn_box *bp; |
struct eqn_box *bp; |
|
|
/* |
/* |
Line 164 eqn_box(struct eqn_node *ep, struct eqn_box *last, str |
|
Line 201 eqn_box(struct eqn_node *ep, struct eqn_box *last, str |
|
|
|
*sv = last; |
*sv = last; |
nextc = 1; |
nextc = 1; |
|
font = EQNFONT_NONE; |
|
size = EQN_DEFSIZE; |
again: |
again: |
if (NULL == (start = eqn_nexttok(ep, &sz))) |
if (NULL == (start = eqn_nexttok(ep, &sz))) |
return(0); |
return(0); |
|
|
|
for (i = 0; i < (int)EQNFONT__MAX; i++) { |
|
if (eqnfonts[i].sz != sz) |
|
continue; |
|
if (strncmp(eqnfonts[i].name, start, sz)) |
|
continue; |
|
font = (enum eqn_fontt)i; |
|
goto again; |
|
} |
|
|
|
for (i = 0; i < (int)EQNFONT__MAX; i++) { |
|
if (eqnposs[i].sz != sz) |
|
continue; |
|
if (strncmp(eqnposs[i].name, start, sz)) |
|
continue; |
|
last->pos = (enum eqn_post)i; |
|
goto again; |
|
} |
|
|
for (i = 0; i < (int)EQN__MAX; i++) { |
for (i = 0; i < (int)EQN__MAX; i++) { |
if (eqnparts[i].sz != sz) |
if (eqnparts[i].str.sz != sz) |
continue; |
continue; |
if (strncmp(eqnparts[i].name, start, sz)) |
if (strncmp(eqnparts[i].str.name, start, sz)) |
continue; |
continue; |
if ( ! (*eqnparts[i].fp)(ep)) |
if ( ! (*eqnparts[i].fp)(ep)) |
return(-1); |
return(-1); |
|
|
goto again; |
goto again; |
} |
} |
|
|
/* Exit this [hopefully] subexpression. */ |
for (i = 0; i < (int)EQNMARK__MAX; i++) { |
|
if (eqnmarks[i].sz != sz) |
|
continue; |
|
if (strncmp(eqnmarks[i].name, start, sz)) |
|
continue; |
|
last->mark = (enum eqn_markt)i; |
|
goto again; |
|
} |
|
|
|
if (sz == 4 && 0 == strncmp("size", start, 1)) { |
|
if (NULL == (start = eqn_nexttok(ep, &sz))) |
|
return(0); |
|
size = mandoc_strntoi(start, sz, 10); |
|
goto again; |
|
} |
|
|
if (sz == 1 && 0 == strncmp("}", start, 1)) |
if (sz == 1 && 0 == strncmp("}", start, 1)) |
return(1); |
return(1); |
|
|
bp = mandoc_calloc(1, sizeof(struct eqn_box)); |
bp = mandoc_calloc(1, sizeof(struct eqn_box)); |
|
bp->font = font; |
|
bp->size = size; |
|
|
|
font = EQNFONT_NONE; |
|
size = EQN_DEFSIZE; |
|
|
if (nextc) |
if (nextc) |
last->child = bp; |
last->child = bp; |
else |
else |