static void drawMenuCommand (ButtonEditor me, Praat_Command cmd, long i) { static MelderString text { 0 }; bool isAdded = cmd -> uniqueID != 0 || cmd -> script != nullptr; bool isHidden = cmd -> hidden; bool isToggled = cmd -> toggled; const char32 *clickText = isHidden ? (isToggled ? (isAdded ? U"REMOVED" : U"HIDDEN") : U"hidden") : (isToggled ? U"SHOWN" : (isAdded ? (cmd -> uniqueID ? U"ADDED" : U"START-UP") : U"shown")); MelderString_empty (& text); if (cmd -> unhidable) { MelderString_append (& text, U"#unhidable "); } else { MelderString_append (& text, U"@@m", i, U"|", clickText, U"@ "); } MelderString_append (& text, cmd -> window, U": "); if (cmd -> menu) { MelderString_append (& text, cmd -> menu, U": "); } if (cmd -> title) { if (cmd -> executable) { MelderString_append (& text, U"@@p", i, U"|", cmd -> title, U"@"); } else { MelderString_append (& text, cmd -> title); } } else { MelderString_append (& text, U"---------"); } if (cmd -> after) { MelderString_append (& text, U", %%%%after \"", cmd -> after, U"\"%%"); } if (cmd -> script) { MelderString_append (& text, U", script \"", Melder_peekExpandBackslashes (cmd -> script), U"\""); } HyperPage_any (me, text.string, my p_font, my p_fontSize, cmd -> callback ? 0 : Graphics_ITALIC, 0.0, cmd -> depth * 0.3, 0.4, 0.0, 0.0, 0); }
static void drawAction (ButtonEditor me, Praat_Command cmd, long i) { static MelderString text { 0 }; bool isAdded = cmd -> uniqueID != 0 || cmd -> script != nullptr; bool isHidden = cmd -> hidden, isToggled = cmd -> toggled; const char32 *clickText = isHidden ? (isToggled ? (isAdded ? U"REMOVED" : U"HIDDEN") : U"hidden") : (isToggled ? U"SHOWN" : (isAdded ? (cmd -> uniqueID ? U"ADDED" : U"START-UP") : U"shown")); int n1 = cmd -> n1; MelderString_empty (& text); if (cmd -> class4) { MelderString_append (& text, U"#unhidable "); } else { MelderString_append (& text, U"@@a", i, U"|", clickText, U"@ "); } MelderString_append (& text, cmd -> class1 -> className); if (n1) { MelderString_append (& text, U" (", n1, U")"); } if (cmd -> class2) { int n2 = cmd -> n2; MelderString_append (& text, U" & ", cmd -> class2 -> className); if (n2) { MelderString_append (& text, U" (", n2, U")"); } } if (cmd -> class3) { int n3 = cmd -> n3; MelderString_append (& text, U" & ", cmd -> class3 -> className); if (n3) { MelderString_append (& text, U" (", n3, U")"); } } if (cmd -> class4) { int n4 = cmd -> n4; MelderString_append (& text, U" & ", cmd -> class4 -> className); if (n4) { MelderString_append (& text, U" (", n4, U")"); } } MelderString_append (& text, U": "); if (cmd -> title) { if (cmd -> executable) { MelderString_append (& text, U"@@e", i, U"|", cmd -> title, U"@"); } else { MelderString_append (& text, cmd -> title); } } else { MelderString_append (& text, U"---------"); } if (cmd -> after) { MelderString_append (& text, U", %%%%after \"", cmd -> after, U"\"%%"); } if (cmd -> script) { MelderString_append (& text, U", script \"", Melder_peekExpandBackslashes (cmd -> script), U"\""); } HyperPage_any (me, text.string, my p_font, my p_fontSize, cmd -> callback ? 0 : Graphics_ITALIC, 0.0, cmd -> depth * 0.3, 0.4, 0.0, 0.0, 0); }
void structManual :: v_draw () { ManPages manPages = (ManPages) our data; ManPage page; ManPage_Paragraph paragraph; #if motif Graphics_clearWs (our graphics.get()); #endif if (our path == SEARCH_PAGE) { HyperPage_pageTitle (this, U"Best matches"); HyperPage_intro (this, U"The best matches to your query seem to be:"); for (int i = 1; i <= our numberOfMatches; i ++) { char32 link [300]; page = manPages -> pages.at [matches [i]]; Melder_sprint (link,300, U"• @@", page -> title); HyperPage_listItem (this, link); } return; } page = manPages -> pages.at [path]; if (! our paragraphs) return; HyperPage_pageTitle (this, page -> title); for (paragraph = & page -> paragraphs [0]; paragraph -> type != 0; paragraph ++) { switch (paragraph -> type) { case kManPage_type_INTRO: HyperPage_intro (this, paragraph -> text); break; case kManPage_type_ENTRY: HyperPage_entry (this, paragraph -> text); break; case kManPage_type_NORMAL: HyperPage_paragraph (this, paragraph -> text); break; case kManPage_type_LIST_ITEM: HyperPage_listItem (this, paragraph -> text); break; case kManPage_type_TAG: HyperPage_listTag (this, paragraph -> text); break; case kManPage_type_DEFINITION: HyperPage_definition (this, paragraph -> text); break; case kManPage_type_CODE: HyperPage_code (this, paragraph -> text); break; case kManPage_type_PROTOTYPE: HyperPage_prototype (this, paragraph -> text); break; case kManPage_type_FORMULA: HyperPage_formula (this, paragraph -> text); break; case kManPage_type_PICTURE: HyperPage_picture (this, paragraph -> width, paragraph -> height, paragraph -> draw); break; case kManPage_type_SCRIPT: HyperPage_script (this, paragraph -> width, paragraph -> height, paragraph -> text); break; case kManPage_type_LIST_ITEM1: HyperPage_listItem1 (this, paragraph -> text); break; case kManPage_type_LIST_ITEM2: HyperPage_listItem2 (this, paragraph -> text); break; case kManPage_type_LIST_ITEM3: HyperPage_listItem3 (this, paragraph -> text); break; case kManPage_type_TAG1: HyperPage_listTag1 (this, paragraph -> text); break; case kManPage_type_TAG2: HyperPage_listTag2 (this, paragraph -> text); break; case kManPage_type_TAG3: HyperPage_listTag3 (this, paragraph -> text); break; case kManPage_type_DEFINITION1: HyperPage_definition1 (this, paragraph -> text); break; case kManPage_type_DEFINITION2: HyperPage_definition2 (this, paragraph -> text); break; case kManPage_type_DEFINITION3: HyperPage_definition3 (this, paragraph -> text); break; case kManPage_type_CODE1: HyperPage_code1 (this, paragraph -> text); break; case kManPage_type_CODE2: HyperPage_code2 (this, paragraph -> text); break; case kManPage_type_CODE3: HyperPage_code3 (this, paragraph -> text); break; case kManPage_type_CODE4: HyperPage_code4 (this, paragraph -> text); break; case kManPage_type_CODE5: HyperPage_code5 (this, paragraph -> text); break; default: break; } } if (ManPages_uniqueLinksHither (manPages, our path)) { long ilink, jlink, lastParagraph = 0; bool goAhead = true; while (page -> paragraphs [lastParagraph]. type != 0) lastParagraph ++; if (lastParagraph > 0) { const char32 *text = page -> paragraphs [lastParagraph - 1]. text; if (! text || text [0] == U'\0' || text [str32len (text) - 1] != U':') { if (our printing && our suppressLinksHither) goAhead = false; else HyperPage_entry (this, U"Links to this page"); } } if (goAhead) for (ilink = 1; ilink <= page -> nlinksHither; ilink ++) { long link = page -> linksHither [ilink]; bool alreadyShown = false; for (jlink = 1; jlink <= page -> nlinksThither; jlink ++) if (page -> linksThither [jlink] == link) alreadyShown = true; if (! alreadyShown) { const char32 *title = manPages -> pages.at [page -> linksHither [ilink]] -> title; char32 linkText [304]; Melder_sprint (linkText, 304, U"@@", title, U"@"); HyperPage_listItem (this, linkText); } } } if (! our printing && page -> date) { char32 signature [100]; long date = page -> date; int imonth = date % 10000 / 100; if (imonth < 0 || imonth > 12) imonth = 0; Melder_sprint (signature,100, U"© ", str32equ (page -> author, U"ppgb") ? U"Paul Boersma" : str32equ (page -> author, U"djmw") ? U"David Weenink" : page -> author, U", ", date % 100, U" ", month [imonth], U" ", date / 10000); HyperPage_any (this, U"", our p_font, our p_fontSize, 0, 0.0, 0.0, 0.0, 0.1, 0.1, HyperPage_ADD_BORDER); HyperPage_any (this, signature, our p_font, our p_fontSize, Graphics_ITALIC, 0.0, 0.03, 0.0, 0.1, 0.0, 0); } }
int HyperPage_prototype (I, const wchar_t *text) { iam (HyperPage); return HyperPage_any (me, text, my font, my fontSize, 0, 0.0, 0.03, 0.5, 0.0, 0.0, 0); }
int HyperPage_code5 (I, const wchar_t *text) { iam (HyperPage); return HyperPage_any (me, text, kGraphics_font_COURIER, my fontSize * 0.86, 0, 0.0, 1.8, 0.5, 0.0, 0.0, 0); }
int HyperPage_definition3 (I, const wchar_t *text) { iam (HyperPage); return HyperPage_any (me, text, my font, my fontSize, 0, 0.0, 1.93, 0.0, 0.03, 0.03, 0); }
int HyperPage_listTag3 (I, const wchar_t *text) { iam (HyperPage); return HyperPage_any (me, text, my font, my fontSize, 0, 0.2, 1.44, 0.0, 0.03, 0.03, 0); }
int HyperPage_listItem3 (I, const wchar_t *text) { iam (HyperPage); return HyperPage_any (me, text, my font, my fontSize, 0, 0.0, 1.11, 0.2, 0.0, 0.0, 0); }
int HyperPage_paragraph (I, const wchar_t *text) { iam (HyperPage); return HyperPage_any (me, text, my font, my fontSize, 0, 0.0, 0.03, 0.0, 0.1, 0.1, 0); }
int HyperPage_entry (I, const wchar_t *title) { iam (HyperPage); return HyperPage_any (me, title, my font, my fontSize * 1.4, Graphics_BOLD, 0.5, 0.0, 0.0, 0.25/1.4, 0.1/1.4, HyperPage_USE_ENTRY_HINT); }
int HyperPage_pageTitle (I, const wchar_t *title) { iam (HyperPage); return HyperPage_any (me, title, my font, my fontSize * 2, 0, 2.0, 0.0, 0.0, my printing ? 0.4/2 : 0.2/2, 0.3/2, HyperPage_ADD_BORDER); }
void structManual :: v_draw () { ManPages manPages = (ManPages) data; ManPage page; ManPage_Paragraph paragraph; #if motif Graphics_clearWs (g); #endif if (path == SEARCH_PAGE) { HyperPage_pageTitle (this, L"Best matches"); HyperPage_intro (this, L"The best matches to your query seem to be:"); for (int i = 1; i <= numberOfMatches; i ++) { wchar link [300]; page = (ManPage) manPages -> pages -> item [matches [i]]; swprintf (link, 300, L"\\bu @@%ls", page -> title); HyperPage_listItem (this, link); } return; } page = (ManPage) manPages -> pages -> item [path]; if (! paragraphs) return; HyperPage_pageTitle (this, page -> title); for (paragraph = & page -> paragraphs [0]; paragraph -> type != 0; paragraph ++) { switch (paragraph -> type) { case kManPage_type_INTRO: HyperPage_intro (this, paragraph -> text); break; case kManPage_type_ENTRY: HyperPage_entry (this, paragraph -> text); break; case kManPage_type_NORMAL: HyperPage_paragraph (this, paragraph -> text); break; case kManPage_type_LIST_ITEM: HyperPage_listItem (this, paragraph -> text); break; case kManPage_type_TAG: HyperPage_listTag (this, paragraph -> text); break; case kManPage_type_DEFINITION: HyperPage_definition (this, paragraph -> text); break; case kManPage_type_CODE: HyperPage_code (this, paragraph -> text); break; case kManPage_type_PROTOTYPE: HyperPage_prototype (this, paragraph -> text); break; case kManPage_type_FORMULA: HyperPage_formula (this, paragraph -> text); break; case kManPage_type_PICTURE: HyperPage_picture (this, paragraph -> width, paragraph -> height, paragraph -> draw); break; case kManPage_type_SCRIPT: HyperPage_script (this, paragraph -> width, paragraph -> height, paragraph -> text); break; case kManPage_type_LIST_ITEM1: HyperPage_listItem1 (this, paragraph -> text); break; case kManPage_type_LIST_ITEM2: HyperPage_listItem2 (this, paragraph -> text); break; case kManPage_type_LIST_ITEM3: HyperPage_listItem3 (this, paragraph -> text); break; case kManPage_type_TAG1: HyperPage_listTag1 (this, paragraph -> text); break; case kManPage_type_TAG2: HyperPage_listTag2 (this, paragraph -> text); break; case kManPage_type_TAG3: HyperPage_listTag3 (this, paragraph -> text); break; case kManPage_type_DEFINITION1: HyperPage_definition1 (this, paragraph -> text); break; case kManPage_type_DEFINITION2: HyperPage_definition2 (this, paragraph -> text); break; case kManPage_type_DEFINITION3: HyperPage_definition3 (this, paragraph -> text); break; case kManPage_type_CODE1: HyperPage_code1 (this, paragraph -> text); break; case kManPage_type_CODE2: HyperPage_code2 (this, paragraph -> text); break; case kManPage_type_CODE3: HyperPage_code3 (this, paragraph -> text); break; case kManPage_type_CODE4: HyperPage_code4 (this, paragraph -> text); break; case kManPage_type_CODE5: HyperPage_code5 (this, paragraph -> text); break; default: break; } } if (ManPages_uniqueLinksHither (manPages, path)) { long ilink, jlink, lastParagraph = 0; int goAhead = TRUE; while (page -> paragraphs [lastParagraph]. type != 0) lastParagraph ++; if (lastParagraph > 0) { const wchar *text = page -> paragraphs [lastParagraph - 1]. text; if (text == NULL || text [0] == '\0' || text [wcslen (text) - 1] != ':') { if (printing && suppressLinksHither) goAhead = FALSE; else HyperPage_entry (this, L"Links to this page"); } } if (goAhead) for (ilink = 1; ilink <= page -> nlinksHither; ilink ++) { long link = page -> linksHither [ilink]; int alreadyShown = FALSE; for (jlink = 1; jlink <= page -> nlinksThither; jlink ++) if (page -> linksThither [jlink] == link) alreadyShown = TRUE; if (! alreadyShown) { const wchar *title = ((ManPage) manPages -> pages -> item [page -> linksHither [ilink]]) -> title; wchar linkText [304]; swprintf (linkText, 304, L"@@%ls@", title); HyperPage_listItem (this, linkText); } } } if (! printing && page -> date) { wchar signature [100]; long date = page -> date; int imonth = date % 10000 / 100; if (imonth < 0 || imonth > 12) imonth = 0; swprintf (signature, 100, L"\\co %ls, %ld %ls %ld", wcsequ (page -> author, L"ppgb") ? L"Paul Boersma" : wcsequ (page -> author, L"djmw") ? L"David Weenink" : page -> author, date % 100, month [imonth], date / 10000); HyperPage_any (this, L"", font, fontSize, 0, 0.0, 0.0, 0.0, 0.1, 0.1, HyperPage_ADD_BORDER); HyperPage_any (this, signature, font, fontSize, Graphics_ITALIC, 0.0, 0.03, 0.0, 0.1, 0.0, 0); } }