mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 10:04:21 +03:00
58 lines
1.7 KiB
OpenEdge ABL
58 lines
1.7 KiB
OpenEdge ABL
|
[InbuildReport::] The Report.
|
||
|
|
|
||
|
|
To produce a report page of HTML for use in the Inform GUI apps, when a resource
|
||
|
|
such as an extension is inspected or installed.
|
||
|
|
|
||
|
|
@h HTML page.
|
||
|
|
|
||
|
|
=
|
||
|
|
filename *inbuild_report_HTML = NULL;
|
||
|
|
|
||
|
|
void InbuildReport::set_filename(filename *F) {
|
||
|
|
inbuild_report_HTML = F;
|
||
|
|
}
|
||
|
|
|
||
|
|
text_stream inbuild_report_file_struct; /* The actual report file */
|
||
|
|
text_stream *inbuild_report_file = NULL; /* As a |text_stream *| */
|
||
|
|
|
||
|
|
text_stream *InbuildReport::begin(text_stream *title, text_stream *subtitle) {
|
||
|
|
if (inbuild_report_HTML == NULL) return NULL;
|
||
|
|
inbuild_report_file = &inbuild_report_file_struct;
|
||
|
|
if (STREAM_OPEN_TO_FILE(inbuild_report_file, inbuild_report_HTML, UTF8_ENC) == FALSE)
|
||
|
|
Errors::fatal("can't open report file");
|
||
|
|
InformPages::header(inbuild_report_file, title, JAVASCRIPT_FOR_STANDARD_PAGES_IRES, NULL);
|
||
|
|
text_stream *OUT = inbuild_report_file;
|
||
|
|
|
||
|
|
HTML::begin_html_table(OUT, NULL, TRUE, 0, 4, 0, 0, 0);
|
||
|
|
HTML::first_html_column(OUT, 0);
|
||
|
|
HTML_TAG_WITH("img",
|
||
|
|
"src='inform:/doc_images/extensions@2x.png' border=0 width=150 height=150");
|
||
|
|
HTML::next_html_column(OUT, 0);
|
||
|
|
|
||
|
|
HTML_OPEN_WITH("div", "class=\"headingpanellayout headingpanelalt\"");
|
||
|
|
HTML_OPEN_WITH("div", "class=\"headingtext\"");
|
||
|
|
HTML::begin_span(OUT, I"headingpaneltextalt");
|
||
|
|
WRITE("%S", title);
|
||
|
|
HTML::end_span(OUT);
|
||
|
|
HTML_CLOSE("div");
|
||
|
|
HTML_OPEN_WITH("div", "class=\"headingrubric\"");
|
||
|
|
HTML::begin_span(OUT, I"headingpanelrubricalt");
|
||
|
|
WRITE("%S", subtitle);
|
||
|
|
HTML::end_span(OUT);
|
||
|
|
HTML_CLOSE("div");
|
||
|
|
HTML_CLOSE("div");
|
||
|
|
|
||
|
|
return OUT;
|
||
|
|
}
|
||
|
|
|
||
|
|
void InbuildReport::end(void) {
|
||
|
|
if (inbuild_report_file) {
|
||
|
|
text_stream *OUT = inbuild_report_file;
|
||
|
|
HTML::end_html_row(OUT);
|
||
|
|
HTML::end_html_table(OUT);
|
||
|
|
HTML_TAG("hr");
|
||
|
|
InformPages::footer(OUT);
|
||
|
|
}
|
||
|
|
inbuild_report_file = NULL;
|
||
|
|
}
|