diff options
author | albert-github <albert.tests@gmail.com> | 2018-02-22 18:40:07 (GMT) |
---|---|---|
committer | albert-github <albert.tests@gmail.com> | 2018-02-22 18:40:07 (GMT) |
commit | 05bec28930831888b6dfb610307a04da2d345924 (patch) | |
tree | 9ed476367e95f3ac919745646d19f7be06c66e12 /src | |
parent | b6f01ff09b17e5c2288f2418ef0a8f074456c357 (diff) | |
download | Doxygen-05bec28930831888b6dfb610307a04da2d345924.zip Doxygen-05bec28930831888b6dfb610307a04da2d345924.tar.gz Doxygen-05bec28930831888b6dfb610307a04da2d345924.tar.bz2 |
Bug 793702 - Examples of TCL files fail to display
- placed handling of example at the right place
- removed ^Z symbol
Diffstat (limited to 'src')
-rw-r--r-- | src/tclscanner.l | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/tclscanner.l b/src/tclscanner.l index 791ecc4..56d2e3d 100644 --- a/src/tclscanner.l +++ b/src/tclscanner.l @@ -703,6 +703,7 @@ static void tcl_codify(const char *s,const char *str) } else { + if (*(p-2)==0x1A) *(p-2) = '\0'; // remove ^Z tcl.code->codify(sp); done=TRUE; } @@ -3024,11 +3025,6 @@ void TclLanguageScanner::parseCode(CodeOutputInterface & codeOutIntf, } tcl_inf("%s (%d,%d) %d %d\n",myStr.ascii(),startLine,endLine,isExampleBlock,inlineFragment); //tcl_inf("%s\n"input.data()); - if (isExampleBlock) - { - tcl_codify(NULL,input); - return; - } tcl_init(); tcl.collectXRefs = collectXRefs; tcl.memberdef = memberDef; @@ -3047,8 +3043,15 @@ tcl_inf("%s (%d,%d) %d %d\n",myStr.ascii(),startLine,endLine,isExampleBlock,inli } tcl.file_name = ""; tcl.this_parser = NULL; - tcl.entry_main = tcl_entry_new(); - tcl_parse(myNs,myCls); + if (isExampleBlock) + { + tcl_codify(NULL,input); + } + else + { + tcl.entry_main = tcl_entry_new(); + tcl_parse(myNs,myCls); + } tcl.code->endCodeLine(); tcl.scan.clear(); tcl.ns.clear(); |