10-24-2022, 05:56 PM
That took some re-tooling to fix. I needed to address instances of compound IF THEN statements with colons so this wouldn't happen...
IF a = b THEN IF c = d THEN x = 1: y = 2
didn't turn into...
IF a = b THEN IF c = d THEN
x = 1: y = 2
END IF
So now it recognizes compound IF/THEN statements and blocks them as...
IF a = b THEN
IF c = d THEN
x = 1: y = 2
END IF
END IF
What I haven't addressed yet, and may pass on is the ELSE statement in an IF/THEN being converted to a block if.
IF a = b THEN IF c = d THEN x = 1: y = 2 ELSE x = 0: y = 0
becomes...
IF a = b THEN
IF c = d THEN
x = 1
y = 2
ELSE x = 0
y = 0
END IF
END IF
That's fine and acceptable and if you are in a contest, it's one line less than I would write it as...
IF a = b THEN
IF c = d THEN
x = 1
y = 2
ELSE
x = 0
y = 0
END IF
END IF
Anyway... Here's the slightly retooled version. Note that bug was only present when choice "2" was made to block single line IF/THEN statements containing colons.
Pete
IF a = b THEN IF c = d THEN x = 1: y = 2
didn't turn into...
IF a = b THEN IF c = d THEN
x = 1: y = 2
END IF
So now it recognizes compound IF/THEN statements and blocks them as...
IF a = b THEN
IF c = d THEN
x = 1: y = 2
END IF
END IF
What I haven't addressed yet, and may pass on is the ELSE statement in an IF/THEN being converted to a block if.
IF a = b THEN IF c = d THEN x = 1: y = 2 ELSE x = 0: y = 0
becomes...
IF a = b THEN
IF c = d THEN
x = 1
y = 2
ELSE x = 0
y = 0
END IF
END IF
That's fine and acceptable and if you are in a contest, it's one line less than I would write it as...
IF a = b THEN
IF c = d THEN
x = 1
y = 2
ELSE
x = 0
y = 0
END IF
END IF
Anyway... Here's the slightly retooled version. Note that bug was only present when choice "2" was made to block single line IF/THEN statements containing colons.
Code: (Select All)
WIDTH 100, 25
_SCREENMOVE _MIDDLE
DIM AS _INTEGER64 i
REDIM then_marker(0)
z$ = _CLIPBOARD$
x$ = UCASE$(_CLIPBOARD$)
IF RIGHT$(x$, 2) <> CHR$(13) + CHR$(10) THEN x$ = x$ + CHR$(13) + CHR$(10) ' Compensates for 1-line no return Notepad copy.
PRINT "Line count analysis and reformat app...": PRINT
DO
LINE INPUT "Remove blank program lines from re-formatted code? [Y] / [N]: "; tmp$: PRINT
tmp$ = UCASE$(tmp$)
IF tmp$ = "Y" THEN no_blanks = -1
IF INSTR("YN", rem_ans$) THEN EXIT DO
LOOP
DO
LINE INPUT "Count statements beginning with REM or ' as a line? [Y] / [N]: "; rem_ans$: PRINT
rem_ans$ = UCASE$(rem_ans$)
IF INSTR("YN", rem_ans$) THEN EXIT DO
LOOP
PRINT "Press [1] to parse all colons. [2] to exclude colons in one-line IF/THEN statements.": PRINT
DO
_LIMIT 30
b$ = INKEY$
IF LEN(b$) THEN
SELECT CASE b$
CASE CHR$(27): SYSTEM
CASE "1": PRINT "Parsing all significant colons...": EXIT DO
CASE "2": myopt = -1: PRINT "Parsing all significant colons not used in IF/THEN one line statements.": EXIT DO
END SELECT
END IF
LOOP
PRINT
_KEYCLEAR
FOR i = 1 TO LEN(x$)
a$ = MID$(x$, i, 1)
SELECT CASE a$
CASE CHR$(10) ' Check for labels and blank lines here.
IF label_check THEN
tmp$ = _TRIM$(MID$(s$, INSTR(s$, ":") + 1))
IF MID$(tmp$, 1, 3) = "REM" OR LEFT$(tmp$, 1) = "'" OR tmp$ = CHR$(10) + CHR$(13) OR tmp$ = "" THEN ELSE MID$(z$, label_check, 1) = CHR$(0): c_cnt = c_cnt + 1
END IF
IF LEN(s$) = 0 THEN blank_line_cnt = blank_line_cnt + 1
IF parse4$ = "off" THEN rem_lines = rem_lines + 1
IF if_block$ = "on" THEN
' Special to compound IF/THEN statements.
FOR j = 1 TO it_cnt
MID$(z$, then_marker(j), 1) = CHR$(0)
c_cnt = c_cnt + 1 ' Add one line for the END IF
MID$(z$, i - 1, 1) = CHR$(255): MID$(z$, i, 1) = CHR$(126 + it_cnt) ' tag to add "end ifs" to end of block.
NEXT
END IF
' Clear variables for next line. (Except for parse4$)
if_block$ = "": ERASE then_marker: it_cnt = 0
s$ = "": c$ = "": parse1$ = "": parse2$ = "": parse3$ = "": label_check = 0: ide_line_cnt = ide_line_cnt + 1
CASE CHR$(13)
' Do nothing.
CASE ELSE
s$ = s$ + a$
c$ = c$ + a$
IF c$ = "THEN " THEN
SELECT CASE myopt
CASE -1
IF parse1$ = "" AND parse2$ = "" AND parse4$ = "" THEN parse3$ = "off"
CASE 0
IF parse1$ = "" AND parse2$ = "" AND parse4$ = "" THEN
it_cnt = it_cnt + 1: REDIM _PRESERVE then_marker(it_cnt): then_marker(it_cnt) = i
END IF
END SELECT
END IF
IF s$ = "$IF THEN" THEN parse4$ = "off": parse1$ = "": parse2$ = "": parse3$ = ""
IF a$ = "'" OR c$ = "REM " THEN
IF parse1$ = "" AND parse2$ = "" AND parse3$ = "" AND parse4$ = "" THEN parse1$ = "off"
IF _TRIM$(s$) = _TRIM$(c$) THEN rem_lines = rem_lines + 1
END IF
IF parse4$ = "off" THEN IF s$ = "$END IF " THEN parse4$ = ""
IF a$ = " " THEN c$ = ""
IF parse1$ <> "off" THEN ' Remark statements.
IF a$ = CHR$(34) THEN IF parse1$ = "" AND parse3$ = "" THEN IF parse2$ = "off" THEN parse2$ = "" ELSE parse2$ = "off"
IF parse2$ <> "off" THEN ' Quoted text like PRINT statements or string assignments.
IF parse3$ <> "off" THEN 'IF/THEN.
IF parse4$ <> "off" THEN ' $IF/THEN block.
IF myopt = 0 AND it_cnt THEN IF a$ = ":" THEN IF if_block$ = "" THEN if_block$ = "on"
IF col$ = "on" THEN IF a$ <> " " AND a$ <> ":" THEN col$ = ""
IF a$ = ":" THEN ' Test for label.
IF INSTR(MID$(LTRIM$(s$), 1, INSTR(LTRIM$(s$), ":")), " ") = 0 THEN
label_check = i + 1
ELSE
IF col$ = "" THEN col$ = "on": c_cnt = c_cnt + 1: MID$(z$, i, 1) = CHR$(0)
END IF
END IF
END IF
END IF
END IF
END IF
END SELECT
IF a$ = "_" THEN IF MID$(x$, i + 1, 1) = CHR$(13) THEN IF parse1$ = "" AND parse2$ = "" AND parse3$ = "" THEN cont_lines = cont_lines + 1
NEXT
IF rem_ans$ = "Y" THEN
PRINT "IDE Lines ="; ide_line_cnt; " Statement Lines ="; ide_line_cnt - blank_line_cnt - cont_lines; " Real Lines ="; ide_line_cnt - blank_line_cnt - cont_lines + c_cnt
ELSE
PRINT "IDE Lines ="; ide_line_cnt; " Statement Lines Without Remark Lines ="; ide_line_cnt - blank_line_cnt - cont_lines - rem_lines; " Real Lines ="; ide_line_cnt - blank_line_cnt - cont_lines - rem_lines + c_cnt
END IF
_CLIPBOARD$ = ""
FOR i = 1 TO LEN(z$)
a$ = MID$(z$, i, 1)
IF a$ = CHR$(0) THEN
concat$ = concat$ + CHR$(13) + CHR$(10)
ELSEIF a$ = CHR$(255) THEN
k = ASC(MID$(z$, i + 1, 1)) - 126
FOR j = 1 TO k
concat$ = concat$ + CHR$(13) + "END IF"
NEXT
MID$(z$, i + 1, 1) = CHR$(10) ' Replace expected control character for next loop.
ELSE
IF no_blanks = 0 THEN
concat$ = concat$ + a$
ELSE
j = -1
IF RIGHT$(concat$, 1) = CHR$(10) THEN IF a$ = CHR$(10) OR a$ = CHR$(13) THEN j = 0 ' skip printing a blank line.
IF j THEN concat$ = concat$ + a$
END IF
END IF
NEXT
_CLIPBOARD$ = concat$
PRINT: PRINT "Program line rewrite was added to your clipboard."Pete