mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 04:24:48 +00:00
Improved blank line logic
- an explicit blank line check now cancels any pending request for an implicit one - avoid blank lines between multiple successive horizontal rulers
This commit is contained in:
parent
c92a050116
commit
ef3b235d95
1 changed files with 6 additions and 5 deletions
|
@ -134,7 +134,7 @@ END FUNCTION
|
||||||
|
|
||||||
SUB Help_AddTxt (t$, col, link) 'Add help text, handle word wrap
|
SUB Help_AddTxt (t$, col, link) 'Add help text, handle word wrap
|
||||||
IF t$ = "" THEN EXIT SUB
|
IF t$ = "" THEN EXIT SUB
|
||||||
IF Help_ChkBlank <> 0 THEN Help_CheckBlankLine: Help_ChkBlank = 0
|
IF Help_ChkBlank <> 0 THEN Help_CheckBlankLine
|
||||||
|
|
||||||
FOR i = 1 TO LEN(t$)
|
FOR i = 1 TO LEN(t$)
|
||||||
c = ASC(t$, i)
|
c = ASC(t$, i)
|
||||||
|
@ -227,6 +227,7 @@ SUB Help_CheckBlankLine 'Make sure the last help line is a blank line (implies f
|
||||||
IF ASC(Help_Txt$, Help_Txt_Len - 2) < 128 THEN Help_NewLine
|
IF ASC(Help_Txt$, Help_Txt_Len - 2) < 128 THEN Help_NewLine
|
||||||
IF ASC(Help_Txt$, Help_Txt_Len - 6) < 128 THEN Help_NewLine
|
IF ASC(Help_Txt$, Help_Txt_Len - 6) < 128 THEN Help_NewLine
|
||||||
END IF
|
END IF
|
||||||
|
Help_ChkBlank = 0
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
SUB Help_CheckRemoveBlankLine 'If the last help line is blank, then remove it
|
SUB Help_CheckRemoveBlankLine 'If the last help line is blank, then remove it
|
||||||
|
@ -802,17 +803,17 @@ SUB WikiParse (a$) 'Wiki page interpret
|
||||||
'Rulers
|
'Rulers
|
||||||
IF c$(4) = "----" AND nl = 1 THEN
|
IF c$(4) = "----" AND nl = 1 THEN
|
||||||
i = i + 3
|
i = i + 3
|
||||||
Help_CheckBlankLine
|
IF Help_ChkBlank = -1 THEN Help_ChkBlank = 0: ELSE Help_CheckBlankLine
|
||||||
Help_AddTxt STRING$(Help_ww, 196), 14, 0
|
Help_AddTxt STRING$(Help_ww, 196), 14, 0
|
||||||
Help_ChkBlank = 1
|
Help_ChkBlank = -1
|
||||||
GOTO charDone
|
GOTO charDone
|
||||||
END IF
|
END IF
|
||||||
IF c$(4) = "<hr>" OR c$(6) = "<hr />" THEN
|
IF c$(4) = "<hr>" OR c$(6) = "<hr />" THEN
|
||||||
IF c$(4) = "<hr>" THEN i = i + 3
|
IF c$(4) = "<hr>" THEN i = i + 3
|
||||||
IF c$(6) = "<hr />" THEN i = i + 5
|
IF c$(6) = "<hr />" THEN i = i + 5
|
||||||
Help_CheckBlankLine
|
IF Help_ChkBlank = -1 THEN Help_ChkBlank = 0: ELSE Help_CheckBlankLine
|
||||||
Help_AddTxt STRING$(Help_ww, 196), 14, 0
|
Help_AddTxt STRING$(Help_ww, 196), 14, 0
|
||||||
Help_ChkBlank = 1
|
Help_ChkBlank = -1
|
||||||
GOTO charDone
|
GOTO charDone
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue