mirror of
https://github.com/ganelson/inform.git
synced 2024-06-29 05:24:57 +03:00
99 lines
3.7 KiB
OpenEdge ABL
99 lines
3.7 KiB
OpenEdge ABL
[CardElement::] Card Element.
|
|
|
|
To write the Library Card element (Cd) in the index.
|
|
|
|
@ The Library Card is part of the Contents index, and is intended as a
|
|
natural way to present bibliographic data to the user. In effect, it's a
|
|
simplified form of the iFiction record, without the XML overhead.
|
|
|
|
Note that the full version number is only listed on the Card if it is more
|
|
than just a major version number (i.e., a non-negative integer): if it is
|
|
something like "6", then it must be exactly the same as the release number,
|
|
and there is no need to list both.
|
|
|
|
=
|
|
void CardElement::render(OUTPUT_STREAM, index_session *session) {
|
|
inter_tree *I = Indexing::get_tree(session);
|
|
inter_package *pack = InterPackage::from_URL(I, I"/main/completion/bibliographic");
|
|
|
|
HTML_OPEN("p");
|
|
IndexUtilities::anchor(OUT, I"LCARD");
|
|
HTML::begin_html_table_bg(OUT, NULL, FALSE, 0, 3, 3, 0, 0, I"bg_images/indexcard.png");
|
|
CardElement::Library_Card_entry(OUT, "Story title", pack, I"^title", I"Untitled");
|
|
CardElement::Library_Card_entry(OUT, "Story author", pack, I"^author", I"Anonymous");
|
|
CardElement::Library_Card_entry(OUT, "Story headline", pack, I"^headline", I"An Interactive Fiction");
|
|
CardElement::Library_Card_entry(OUT, "Story genre", pack, I"^genre", I"Fiction");
|
|
int E = (int) Metadata::read_optional_numeric(pack, I"^episode");
|
|
text_stream *series_name = Metadata::optional_textual(pack, I"^series");
|
|
if (series_name) {
|
|
TEMPORARY_TEXT(episode_text)
|
|
WRITE_TO(episode_text, "%d of %S", E, series_name);
|
|
CardElement::Library_Card_entry(OUT, "Episode", pack, NULL, episode_text);
|
|
DISCARD_TEXT(episode_text)
|
|
}
|
|
CardElement::Library_Card_entry(OUT, "Release number", pack, I"^release", I"1");
|
|
text_stream *version_number = Metadata::optional_textual(pack, I"^version");
|
|
if (version_number) {
|
|
TEMPORARY_TEXT(version_text)
|
|
WRITE_TO(version_text, "%S", version_number);
|
|
if ((Str::includes_character(version_text, '.')) ||
|
|
(Str::includes_character(version_text, '+')) ||
|
|
(Str::includes_character(version_text, '-')))
|
|
CardElement::Library_Card_entry(OUT, "Full version number", pack, NULL, version_text);
|
|
DISCARD_TEXT(version_text)
|
|
}
|
|
CardElement::Library_Card_entry(OUT, "Story creation year", pack, I"^year", I"(This year)");
|
|
CardElement::Library_Card_entry(OUT, "Language of play", pack, I"^language", I"English");
|
|
CardElement::Library_Card_entry(OUT, "IFID number", pack, I"^IFID", NULL);
|
|
CardElement::Library_Card_entry(OUT, "Story description", pack, I"^description", I"None");
|
|
HTML::end_html_table(OUT);
|
|
HTML_CLOSE("p");
|
|
}
|
|
|
|
@ This uses:
|
|
|
|
=
|
|
void CardElement::Library_Card_entry(OUTPUT_STREAM, char *field, inter_package *pack,
|
|
text_stream *key, text_stream *t) {
|
|
HTML::first_html_column_nowrap(OUT, 0, NULL);
|
|
if (Str::eq(key, I"^title")) {
|
|
HTML::begin_span(OUT, I"librarycardtitle");
|
|
} else {
|
|
HTML::begin_span(OUT, I"librarycardother");
|
|
}
|
|
HTML::begin_span(OUT, I"typewritten");
|
|
WRITE("%s", field);
|
|
HTML::end_span(OUT);
|
|
HTML::end_span(OUT);
|
|
HTML::next_html_column(OUT, 0);
|
|
if (Str::eq(key, I"^title")) {
|
|
HTML::begin_span(OUT, I"librarycardtitle");
|
|
} else {
|
|
HTML::begin_span(OUT, I"librarycardother");
|
|
}
|
|
HTML::begin_span(OUT, I"typewritten");
|
|
HTML_OPEN("b");
|
|
CardElement::index_variable(OUT, pack, key, t);
|
|
HTML_CLOSE("b");
|
|
HTML::end_span(OUT);
|
|
HTML::end_span(OUT);
|
|
HTML::end_html_row(OUT);
|
|
}
|
|
|
|
@ And both of those features use:
|
|
|
|
=
|
|
void CardElement::index_variable(OUTPUT_STREAM, inter_package *pack,
|
|
text_stream *key, text_stream *t) {
|
|
if (key) {
|
|
if (Str::eq(key, I"^release")) {
|
|
int R = (int) Metadata::read_optional_numeric(pack, key);
|
|
if (R > 0) { WRITE("%d", R); return; }
|
|
} else {
|
|
text_stream *matter = Metadata::optional_textual(pack, key);
|
|
if (matter) { WRITE("%S", matter); return; }
|
|
}
|
|
}
|
|
WRITE("%S", t);
|
|
}
|