QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-19 21:25:11 +00:00
Code Issues Releases Wiki Activity

Use native line endings

Browse source
This commit is contained in:
Luke Ceddia 2024-06-12 21:00:01 +10:00
parent 23210b0452
commit fed1abef3f
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/global/constants.bas
View file

@ -60,6 +60,8 @@ CONST KEY_TAB = 9
DIM SHARED CHR_QUOTE AS STRING: CHR_QUOTE = CHR$(34)
DIM SHARED CHR_TAB AS STRING: CHR_TAB = CHR$(9)
DIM SHARED CRLF AS STRING: CRLF = CHR$(13) + CHR$(10) 'carriage return+line feed
DIM SHARED NATIVE_LINEENDING AS STRING
IF INSTR(_OS$, "WIN") THEN NATIVE_LINEENDING = CRLF ELSE NATIVE_LINEENDING = CHR$(10)
DIM SHARED OS_BITS AS LONG
OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32

2
source/qb64pe.bas
View file

@ -20770,7 +20770,7 @@ FUNCTION lineformat$ (a$)
ELSE
a$ = lineinput3$
IF a$ = CHR$(13) THEN GOTO lineformatdone2
layoutcontinuations = layoutcontinuations + chr$(10) + a$
layoutcontinuations = layoutcontinuations + NATIVE_LINEENDING + a$
END IF
linenumber = linenumber + 1