diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-21 15:02:57 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-21 15:02:57 -0400 |
| commit | 806192fe26b3bc69601c0bc1eeca96a0a9cbf901 (patch) | |
| tree | fb666d26162659b5f64cc9074fa33d318c673faa /txtile.bas | |
| parent | 5185d4e34e362d183a2c88a894ecb6f76db437f0 (diff) | |
| download | gwblog-806192fe26b3bc69601c0bc1eeca96a0a9cbf901.tar.gz gwblog-806192fe26b3bc69601c0bc1eeca96a0a9cbf901.zip | |
Added fixes for txtile.bas to properly handle exclamation points
Diffstat (limited to 'txtile.bas')
| -rw-r--r-- | txtile.bas | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -46,7 +46,7 @@ 10550 POPSTOP = 0 10600 REM Process the text itself -10610 LI = 1:LSTART = 1 +10610 LI = 1:LSTART = 1:LASTC$ = " " 10620 WHILE(LI <= LEN(LTXT$)) 10630 LC$ = MID$(LTXT$, LI, 1) 10640 IF LC$="_" OR LC$="*" OR LC$=CHR$(34) OR LC$="^" OR LC$="~" OR LC$="@" OR LC$="!" THEN GOTO 10650 ELSE GOTO 10800 @@ -54,11 +54,14 @@ 10660 GOSUB 11200 10664 REM If we're in a link, suppress any character processing 10665 IF LCOPT$ <> LASTOP$ AND LASTOP$ = "##c!" THEN GOTO 10800 +10667 REM Links must have a space preceding the ! +10668 IF LC$ = "!" AND LASTC$ <> " " THEN GOTO 10800 10670 PUSHTXT$ = MID$(LTXT$, LSTART, LI-LSTART):GOSUB 11300 10680 LSTART=LI+1 10690 IF LCOPT$ = LASTOP$ AND (LCOPT$ = "##c"+CHR$(34) OR LCOPT$="##c!") AND MID$(LTXT$, LI+1, 1) = ":" THEN GOSUB 11400 ELSE LINK$ = "" 10700 IF LCOPT$ = LASTOP$ THEN CLEARALL=0:GOSUB 11000 ELSE PUSHTXT$ = LCOPT$:GOSUB 11300 10800 LI = LI + 1 +10805 LASTC$ = LC$ 10810 WEND 10820 IF LSTART < LEN(LTXT$) THEN PUSHTXT$=MID$(LTXT$, LSTART):GOSUB 11300 10830 WEND @@ -143,8 +146,10 @@ 12080 IF LASTOP$ = "##c^" THEN PREOP$ = "<sup>":POSTOP$="</sup>":GOTO 12200 12090 IF LASTOP$ = "##c~" THEN PREOP$ = "<sub>":POSTOP$="</sub>":GOTO 12200 12100 IF LASTOP$ = "##c@" THEN PREOP$ = "<code>":POSTOP$="</code>":GOTO 12200 +12105 IF LASTOP$ = "##c"+CHR$(34) AND CLEARALL=1 THEN PREOP$=CHR$(34):POSTOP$="":GOTO 12200 12110 IF LASTOP$ = "##c"+CHR$(34) AND LEN(LINK$) > 0 THEN PREOP$ = "<a href='"+LINK$+"'>":POSTOP$="</a>":LINK$="":GOTO 12200 12120 IF LASTOP$ = "##c"+CHR$(34) THEN PREOP$ = CHR$(34):POSTOP$=CHR$(34):GOTO 12200 +12125 IF LASTOP$ = "##c!" AND CLEARALL=1 THEN PREOP$="!":POSTOP$="":GOTO 12200 12130 IF LASTOP$ = "##c!" AND LEN(LINK$) > 0 THEN PREOP$ = "<a href='"+LINK$+"'><img src='":POSTOP$="'/></a>":LINK$="":GOTO 12200 12140 IF LASTOP$ = "##c!" THEN PREOP$ = "<img src='":POSTOP$="'/>":GOTO 12200 12200 STKPOS = BACKSTK |