mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 02:04:44 +00:00
Use native line endings
This commit is contained in:
parent
23210b0452
commit
fed1abef3f
2 changed files with 3 additions and 1 deletions
|
@ -60,6 +60,8 @@ CONST KEY_TAB = 9
|
||||||
DIM SHARED CHR_QUOTE AS STRING: CHR_QUOTE = CHR$(34)
|
DIM SHARED CHR_QUOTE AS STRING: CHR_QUOTE = CHR$(34)
|
||||||
DIM SHARED CHR_TAB AS STRING: CHR_TAB = CHR$(9)
|
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 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
|
DIM SHARED OS_BITS AS LONG
|
||||||
OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32
|
OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32
|
||||||
|
|
|
@ -20770,7 +20770,7 @@ FUNCTION lineformat$ (a$)
|
||||||
ELSE
|
ELSE
|
||||||
a$ = lineinput3$
|
a$ = lineinput3$
|
||||||
IF a$ = CHR$(13) THEN GOTO lineformatdone2
|
IF a$ = CHR$(13) THEN GOTO lineformatdone2
|
||||||
layoutcontinuations = layoutcontinuations + chr$(10) + a$
|
layoutcontinuations = layoutcontinuations + NATIVE_LINEENDING + a$
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
linenumber = linenumber + 1
|
linenumber = linenumber + 1
|
||||||
|
|
Loading…
Reference in a new issue