300 lines
11 KiB
Text
300 lines
11 KiB
Text
[Debugging::] Debugging Format.
|
|
|
|
A format which renders as a plain-text serialisation of the Inweb weave tree,
|
|
useful only for testing the weaver.
|
|
|
|
@ \section{Creation.}
|
|
|
|
<<*>>=
|
|
void Debugging::create(void) {
|
|
weave_format *wf = Formats::create_weave_format(I"TestingInweb", I".txt");
|
|
METHOD_ADD(wf, RENDER_FOR_MTID, Debugging::render);
|
|
}
|
|
|
|
@ \section{Methods.}
|
|
For documentation, see "Weave Fornats".
|
|
|
|
<<*>>=
|
|
typedef struct debugging_render_state {
|
|
struct text_stream *OUT;
|
|
struct weave_order *wv;
|
|
} debugging_render_state;
|
|
|
|
void Debugging::render(weave_format *self, text_stream *OUT, heterogeneous_tree *tree) {
|
|
weave_document_node *C = RETRIEVE_POINTER_weave_document_node(tree->root->content);
|
|
debugging_render_state drs;
|
|
drs.OUT = OUT;
|
|
drs.wv = C->wv;
|
|
Trees::traverse_from(tree->root, &Debugging::render_visit, (void *) &drs, 0);
|
|
}
|
|
|
|
int Debugging::render_visit(tree_node *N, void *state, int L) {
|
|
debugging_render_state *drs = (debugging_render_state *) state;
|
|
text_stream *OUT = drs->OUT;
|
|
for (int i=0; i<L; i++) WRITE(" ");
|
|
WRITE("%S", N->type->node_type_name);
|
|
if (N->type == weave_document_node_type) <<Render document>>
|
|
else if (N->type == weave_head_node_type) <<Render head>>
|
|
else if (N->type == weave_body_node_type) <<Render body>>
|
|
else if (N->type == weave_tail_node_type) <<Render tail>>
|
|
else if (N->type == weave_verbatim_node_type) <<Render verbatim>>
|
|
else if (N->type == weave_chapter_header_node_type) <<Render chapter header>>
|
|
else if (N->type == weave_chapter_footer_node_type) <<Render chapter footer>>
|
|
else if (N->type == weave_section_header_node_type) <<Render section header>>
|
|
else if (N->type == weave_section_footer_node_type) <<Render section footer>>
|
|
else if (N->type == weave_section_purpose_node_type) <<Render purpose>>
|
|
else if (N->type == weave_subheading_node_type) <<Render subheading>>
|
|
else if (N->type == weave_bar_node_type) <<Render bar>>
|
|
else if (N->type == weave_pagebreak_node_type) <<Render pagebreak>>
|
|
else if (N->type == weave_linebreak_node_type) <<Render linebreak>>
|
|
else if (N->type == weave_paragraph_heading_node_type) <<Render paragraph heading>>
|
|
else if (N->type == weave_endnote_node_type) <<Render endnote>>
|
|
else if (N->type == weave_figure_node_type) <<Render figure>>
|
|
else if (N->type == weave_audio_node_type) <<Render audio clip>>
|
|
else if (N->type == weave_video_node_type) <<Render video clip>>
|
|
else if (N->type == weave_download_node_type) <<Render download>>
|
|
else if (N->type == weave_material_node_type) <<Render material>>
|
|
else if (N->type == weave_embed_node_type) <<Render embed>>
|
|
else if (N->type == weave_pmac_node_type) <<Render pmac>>
|
|
else if (N->type == weave_vskip_node_type) <<Render vskip>>
|
|
else if (N->type == weave_chapter_node_type) <<Render chapter>>
|
|
else if (N->type == weave_section_node_type) <<Render section>>
|
|
else if (N->type == weave_code_line_node_type) <<Render code line>>
|
|
else if (N->type == weave_function_usage_node_type) <<Render function usage>>
|
|
else if (N->type == weave_commentary_node_type) <<Render commentary>>
|
|
else if (N->type == weave_carousel_slide_node_type) <<Render carousel slide>>
|
|
else if (N->type == weave_toc_node_type) <<Render toc>>
|
|
else if (N->type == weave_toc_line_node_type) <<Render toc line>>
|
|
else if (N->type == weave_chapter_title_page_node_type) <<Render weave_chapter_title_page_node>>
|
|
else if (N->type == weave_defn_node_type) <<Render defn>>
|
|
else if (N->type == weave_source_code_node_type) <<Render source code>>
|
|
else if (N->type == weave_url_node_type) <<Render URL>>
|
|
else if (N->type == weave_footnote_cue_node_type) <<Render footnote cue>>
|
|
else if (N->type == weave_begin_footnote_text_node_type) <<Render footnote text>>
|
|
else if (N->type == weave_display_line_node_type) <<Render display line>>
|
|
else if (N->type == weave_function_defn_node_type) <<Render function defn>>
|
|
else if (N->type == weave_item_node_type) <<Render item>>
|
|
else if (N->type == weave_grammar_index_node_type) <<Render grammar index>>
|
|
else if (N->type == weave_inline_node_type) <<Render inline>>
|
|
else if (N->type == weave_locale_node_type) <<Render locale>>
|
|
else if (N->type == weave_maths_node_type) <<Render maths>>
|
|
else WRITE("Unknown node");
|
|
WRITE("\n");
|
|
return TRUE;
|
|
}
|
|
|
|
<<Render document>>=
|
|
weave_document_node *C = RETRIEVE_POINTER_weave_document_node(N->content);
|
|
WRITE(" weave order %d", C->wv->allocation_id);
|
|
|
|
<<Render head>>=
|
|
weave_head_node *C = RETRIEVE_POINTER_weave_head_node(N->content);
|
|
WRITE(" banner <%S>", C->banner);
|
|
|
|
<<Render body>>=
|
|
;
|
|
|
|
<<Render tail>>=
|
|
weave_tail_node *C = RETRIEVE_POINTER_weave_tail_node(N->content);
|
|
WRITE(" rennab <%S>", C->rennab);
|
|
|
|
<<Render verbatim>>=
|
|
weave_verbatim_node *C = RETRIEVE_POINTER_weave_verbatim_node(N->content);
|
|
Debugging::show_text(OUT, C->content, 80);
|
|
|
|
<<Render section header>>=
|
|
weave_section_header_node *C = RETRIEVE_POINTER_weave_section_header_node(N->content);
|
|
WRITE(" <%S>", C->sect->md->sect_title);
|
|
|
|
<<Render section footer>>=
|
|
weave_section_footer_node *C = RETRIEVE_POINTER_weave_section_footer_node(N->content);
|
|
WRITE(" <%S>", C->sect->md->sect_title);
|
|
|
|
<<Render chapter header>>=
|
|
weave_chapter_header_node *C = RETRIEVE_POINTER_weave_chapter_header_node(N->content);
|
|
WRITE(" <%S>", C->chap->md->ch_title);
|
|
|
|
<<Render chapter footer>>=
|
|
weave_chapter_footer_node *C = RETRIEVE_POINTER_weave_chapter_footer_node(N->content);
|
|
WRITE(" <%S>", C->chap->md->ch_title);
|
|
|
|
<<Render purpose>>=
|
|
weave_section_purpose_node *C = RETRIEVE_POINTER_weave_section_purpose_node(N->content);
|
|
WRITE(" <%S>", C->purpose);
|
|
|
|
<<Render subheading>>=
|
|
weave_subheading_node *C = RETRIEVE_POINTER_weave_subheading_node(N->content);
|
|
WRITE(" <%S>", C->text);
|
|
|
|
<<Render bar>>=
|
|
;
|
|
|
|
<<Render pagebreak>>=
|
|
;
|
|
|
|
<<Render linebreak>>=
|
|
;
|
|
|
|
<<Render paragraph heading>>=
|
|
weave_paragraph_heading_node *C = RETRIEVE_POINTER_weave_paragraph_heading_node(N->content);
|
|
Debugging::show_para(OUT, C->para);
|
|
if (C->no_skip) WRITE(" (no skip)");
|
|
|
|
<<Render endnote>>=
|
|
;
|
|
|
|
<<Render figure>>=
|
|
weave_figure_node *C = RETRIEVE_POINTER_weave_figure_node(N->content);
|
|
WRITE(" <%S> %d by %d", C->figname, C->w, C->h);
|
|
|
|
<<Render audio clip>>=
|
|
weave_audio_node *C = RETRIEVE_POINTER_weave_audio_node(N->content);
|
|
WRITE(" <%S> %d", C->audio_name, C->w);
|
|
|
|
<<Render video clip>>=
|
|
weave_video_node *C = RETRIEVE_POINTER_weave_video_node(N->content);
|
|
WRITE(" <%S> %d", C->video_name, C->w);
|
|
|
|
<<Render download>>=
|
|
weave_download_node *C = RETRIEVE_POINTER_weave_download_node(N->content);
|
|
WRITE(" <%S> %S", C->download_name, C->filetype);
|
|
|
|
<<Render material>>=
|
|
weave_material_node *C = RETRIEVE_POINTER_weave_material_node(N->content);
|
|
WRITE(" ");
|
|
Debugging::show_mat(OUT, C->material_type);
|
|
if (C->material_type == CODE_MATERIAL) WRITE(": %S", C->styling->language_name);
|
|
if (C->plainly) WRITE(" (plainly)");
|
|
|
|
<<Render embed>>=
|
|
weave_embed_node *C = RETRIEVE_POINTER_weave_embed_node(N->content);
|
|
WRITE(" service <%S> ID <%S> %d by %d", C->service, C->ID, C->w, C->h);
|
|
|
|
<<Render pmac>>=
|
|
weave_pmac_node *C = RETRIEVE_POINTER_weave_pmac_node(N->content);
|
|
WRITE(" <%S>", C->pmac->macro_name);
|
|
if (C->defn) WRITE(" (definition)");
|
|
|
|
<<Render vskip>>=
|
|
weave_vskip_node *C = RETRIEVE_POINTER_weave_vskip_node(N->content);
|
|
if (C->in_comment) WRITE(" (in comment)");
|
|
|
|
<<Render chapter>>=
|
|
weave_chapter_node *C = RETRIEVE_POINTER_weave_chapter_node(N->content);
|
|
WRITE(" <%S>", C->chap->md->ch_title);
|
|
|
|
<<Render section>>=
|
|
weave_section_node *C = RETRIEVE_POINTER_weave_section_node(N->content);
|
|
WRITE(" <%S>", C->sect->md->sect_title);
|
|
|
|
<<Render code line>>=
|
|
;
|
|
|
|
<<Render function usage>>=
|
|
weave_function_usage_node *C = RETRIEVE_POINTER_weave_function_usage_node(N->content);
|
|
WRITE(" <%S>", C->fn->function_name);
|
|
|
|
<<Render commentary>>=
|
|
weave_commentary_node *C = RETRIEVE_POINTER_weave_commentary_node(N->content);
|
|
Debugging::show_text(OUT, C->text, 80);
|
|
if (C->in_code) WRITE(" (code)");
|
|
|
|
<<Render carousel slide>>=
|
|
weave_carousel_slide_node *C = RETRIEVE_POINTER_weave_carousel_slide_node(N->content);
|
|
WRITE(" caption <%S>", C->caption);
|
|
|
|
<<Render toc>>=
|
|
weave_toc_node *C = RETRIEVE_POINTER_weave_toc_node(N->content);
|
|
WRITE(" - <%S>", C->text1);
|
|
|
|
<<Render toc line>>=
|
|
weave_toc_line_node *C = RETRIEVE_POINTER_weave_toc_line_node(N->content);
|
|
WRITE(" - <%S, %S>", C->text1, C->text2);
|
|
if (C->para) Debugging::show_para(OUT, C->para);
|
|
|
|
<<Render weave_chapter_title_page_node>>=
|
|
weave_chapter_title_page_node *C = RETRIEVE_POINTER_weave_chapter_title_page_node(N->content);
|
|
WRITE(" - something %d", C->allocation_id);
|
|
|
|
<<Render defn>>=
|
|
weave_defn_node *C = RETRIEVE_POINTER_weave_defn_node(N->content);
|
|
WRITE(" <%S>", C->keyword);
|
|
|
|
<<Render source code>>=
|
|
weave_source_code_node *C = RETRIEVE_POINTER_weave_source_code_node(N->content);
|
|
WRITE(" <%S>\n", C->matter);
|
|
for (int i=0; i<L; i++) WRITE(" ");
|
|
WRITE(" ");
|
|
WRITE(" _%S_", C->colouring);
|
|
|
|
<<Render URL>>=
|
|
weave_url_node *C = RETRIEVE_POINTER_weave_url_node(N->content);
|
|
WRITE(" content <%S> url <%S>", C->content, C->url);
|
|
|
|
<<Render footnote cue>>=
|
|
weave_footnote_cue_node *C = RETRIEVE_POINTER_weave_footnote_cue_node(N->content);
|
|
WRITE(" [%S]", C->cue_text);
|
|
|
|
<<Render footnote text>>=
|
|
weave_begin_footnote_text_node *C = RETRIEVE_POINTER_weave_begin_footnote_text_node(N->content);
|
|
WRITE(" [%S]", C->cue_text);
|
|
|
|
<<Render display line>>=
|
|
weave_display_line_node *C = RETRIEVE_POINTER_weave_display_line_node(N->content);
|
|
WRITE(" <%S>", C->text);
|
|
|
|
<<Render function defn>>=
|
|
weave_function_defn_node *C = RETRIEVE_POINTER_weave_function_defn_node(N->content);
|
|
WRITE(" <%S>", C->fn->function_name);
|
|
|
|
<<Render item>>=
|
|
weave_item_node *C = RETRIEVE_POINTER_weave_item_node(N->content);
|
|
WRITE(" depth %d label <%S>", C->depth, C->label);
|
|
|
|
<<Render grammar index>>=
|
|
;
|
|
|
|
<<Render inline>>=
|
|
;
|
|
|
|
<<Render locale>>=
|
|
weave_locale_node *C = RETRIEVE_POINTER_weave_locale_node(N->content);
|
|
Debugging::show_para(OUT, C->par1);
|
|
if (C->par2) {
|
|
WRITE(" to ");
|
|
Debugging::show_para(OUT, C->par2);
|
|
}
|
|
|
|
<<Render maths>>=
|
|
weave_maths_node *C = RETRIEVE_POINTER_weave_maths_node(N->content);
|
|
WRITE(" <%S>", C->content);
|
|
if (C->displayed) WRITE(" (displayed)");
|
|
|
|
<<*>>=
|
|
void Debugging::show_text(text_stream *OUT, text_stream *text, int limit) {
|
|
WRITE(" <");
|
|
for (int i=0; (i<limit) && (i<Str::len(text)); i++)
|
|
if (Str::get_at(text, i) == '\n')
|
|
WRITE("\\n");
|
|
else
|
|
PUT(Str::get_at(text, i));
|
|
WRITE(">");
|
|
if (Str::len(text) > limit) WRITE(" ... continues to %d chars", Str::len(text));
|
|
}
|
|
|
|
void Debugging::show_para(text_stream *OUT, paragraph *P) {
|
|
WRITE(" P%S", P->paragraph_number);
|
|
if (Str::len(P->heading_text) > 0) WRITE("'%S'", P->heading_text);
|
|
}
|
|
|
|
void Debugging::show_mat(text_stream *OUT, int m) {
|
|
switch (m) {
|
|
case COMMENTARY_MATERIAL: WRITE("discussion"); break;
|
|
case MACRO_MATERIAL: WRITE("paragraph macro"); break;
|
|
case DEFINITION_MATERIAL: WRITE("definition"); break;
|
|
case CODE_MATERIAL: WRITE("code"); break;
|
|
case ENDNOTES_MATERIAL: WRITE("endnotes"); break;
|
|
case FOOTNOTES_MATERIAL: WRITE("footnotes"); break;
|
|
default: WRITE("unknown"); break;
|
|
}
|
|
}
|