mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 00:40:26 +00:00
Removed non-ASCII characters and many hard tabs from source files, making it easier to use other text editors (special characters were being mangled in some cases).
This commit is contained in:
parent
41a70085f6
commit
9c17efacf5
|
@ -832,7 +832,7 @@ error(6); return 0;
|
|||
|
||||
//CLNG
|
||||
//func_clng_single uses func_clng_double
|
||||
//–2147483648 to 2147483647
|
||||
//-2147483648 to 2147483647
|
||||
inline int32 func_clng_double(double value){
|
||||
if ((value<2147483647.5)&&(value>=-2147483648.5)){
|
||||
return qbr_double_to_long(value);
|
||||
|
|
|
@ -6,7 +6,7 @@ DIM SHARED sp AS STRING * 1, sp2 AS STRING * 1, sp3 AS STRING * 1
|
|||
sp = CHR$(13): sp2 = CHR$(10): sp3 = CHR$(26)
|
||||
DIM SHARED sp_asc AS LONG, sp2_asc AS LONG, sp3_asc AS LONG
|
||||
sp_asc = ASC(sp): sp2_asc = ASC(sp2): sp3_asc = ASC(sp3)
|
||||
IF Debug THEN sp = CHR$(250): sp2 = CHR$(249): sp3 = "³" 'makes debug output more readable
|
||||
IF Debug THEN sp = CHR$(250): sp2 = CHR$(249): sp3 = CHR$(179) 'makes debug output more readable
|
||||
|
||||
'ASCII codes
|
||||
CONST ASC_BACKSLASH = 92
|
||||
|
|
|
@ -316,12 +316,12 @@ IF idelaunched = 0 THEN
|
|||
|
||||
COLOR 7, 1: idebox 1, idewy - 4, idewx, 5
|
||||
'edit corners
|
||||
COLOR 7, 1: LOCATE idewy - 4, 1: PRINT "Ã";: LOCATE idewy - 4, idewx: PRINT "´";
|
||||
COLOR 7, 1: LOCATE idewy - 4, 1: PRINT chr$(195);: LOCATE idewy - 4, idewx: PRINT chr$(180);
|
||||
|
||||
IF idehelp = 1 THEN
|
||||
COLOR 7, 0: idebox 1, idewy, idewx, idesubwindow + 1
|
||||
COLOR 7, 0: LOCATE idewy, 1: PRINT "Ã";: LOCATE idewy, idewx: PRINT "´";
|
||||
COLOR 7, 0: LOCATE idewy, idewx - 3: PRINT "´XÃ";
|
||||
COLOR 7, 0: LOCATE idewy, 1: PRINT chr$(195);: LOCATE idewy, idewx: PRINT chr$(180);
|
||||
COLOR 7, 0: LOCATE idewy, idewx - 3: PRINT chr$(180) + "X" + chr$(195);
|
||||
END IF
|
||||
|
||||
'add status title
|
||||
|
@ -709,7 +709,7 @@ DO
|
|||
NEXT
|
||||
|
||||
'update title of main window
|
||||
COLOR 7, 1: LOCATE 2, 2: PRINT STRING$(idewx - 2, "Ä");
|
||||
COLOR 7, 1: LOCATE 2, 2: PRINT STRING$(idewx - 2, chr$(196));
|
||||
IF LEN(ideprogname) THEN a$ = ideprogname ELSE a$ = "Untitled" + tempfolderindexstr$
|
||||
a$ = " " + a$
|
||||
if LEN(sfname$) > 0 then a$ = a$ + ":" + sfname$
|
||||
|
@ -718,12 +718,12 @@ DO
|
|||
|
||||
'update search bar
|
||||
LOCATE 2, idewx - 30
|
||||
COLOR 7, 1: PRINT "´";
|
||||
COLOR 3, 1: PRINT "Find[ ]";
|
||||
COLOR 7, 1: PRINT "Ã";
|
||||
COLOR 7, 1: PRINT chr$(180);
|
||||
COLOR 3, 1: PRINT "Find[ " + chr$(18) + "]";
|
||||
COLOR 7, 1: PRINT chr$(195);
|
||||
f$ = idefindtext
|
||||
IF LEN(f$) > 20 THEN
|
||||
f$ = "úúú" + RIGHT$(f$, 17)
|
||||
f$ = string$(3, 250) + RIGHT$(f$, 17)
|
||||
END IF
|
||||
LOCATE 2, idewx - 28 + 4: COLOR 3, 1: PRINT f$
|
||||
findtext$ = f$
|
||||
|
@ -823,14 +823,14 @@ DO
|
|||
PRINT CHR$(a);
|
||||
ELSE
|
||||
COLOR 7, 0
|
||||
PRINT "Ä";
|
||||
PRINT chr$(196);
|
||||
END IF
|
||||
NEXT
|
||||
'Help_Search_Str
|
||||
a$ = ""
|
||||
IF LEN(Help_Search_Str) THEN
|
||||
a$ = Help_Search_Str
|
||||
IF LEN(a$) > 20 THEN a$ = "úúú" + RIGHT$(a$, 17)
|
||||
IF LEN(a$) > 20 THEN a$ = string$(3, 250) + RIGHT$(a$, 17)
|
||||
a$ = "[" + a$ + "](DELETE=next)"
|
||||
END IF
|
||||
IdeInfo$ = a$
|
||||
|
@ -854,7 +854,7 @@ DO
|
|||
|
||||
'show info message (if any)
|
||||
a$ = IdeInfo$
|
||||
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + "úúú"
|
||||
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + string$(3, 250)
|
||||
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
|
||||
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
|
||||
PRINT a$;
|
||||
|
@ -1580,7 +1580,7 @@ DO
|
|||
' PRINT CHR$(a);
|
||||
' ELSE
|
||||
' COLOR 7, 0
|
||||
' PRINT "Ä";
|
||||
' PRINT chr$(196);
|
||||
' END IF
|
||||
'NEXT
|
||||
|
||||
|
@ -2824,7 +2824,7 @@ DO
|
|||
a$ = idegetline(idecy)
|
||||
IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$))
|
||||
|
||||
IF K$ = CHR$(27) AND NOT AltSpecial THEN GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing in the IDE
|
||||
IF K$ = CHR$(27) AND NOT AltSpecial THEN GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing chr$(27) in the IDE
|
||||
|
||||
IF ideinsert THEN
|
||||
a2$ = RIGHT$(a$, LEN(a$) - idecx + 1)
|
||||
|
@ -2966,7 +2966,7 @@ DO
|
|||
FOR i = 1 TO menusize(m)
|
||||
m$ = menu$(m, i)
|
||||
IF m$ = "-" THEN
|
||||
COLOR 0, 7: LOCATE i + 2, xx - 2: PRINT "Ã" + STRING$(w + 2, "Ä") + "´";
|
||||
COLOR 0, 7: LOCATE i + 2, xx - 2: PRINT chr$(195) + STRING$(w + 2, chr$(196)) + chr$(180);
|
||||
ELSE
|
||||
IF r = i THEN LOCATE i + 2, xx - 1: COLOR 7, 0: PRINT SPACE$(w + 2);
|
||||
LOCATE i + 2, xx
|
||||
|
@ -3858,20 +3858,20 @@ LOOP
|
|||
END FUNCTION
|
||||
|
||||
SUB idebox (x, y, w, h)
|
||||
LOCATE y, x: PRINT "Ú" + STRING$(w - 2, "Ä") + "¿";
|
||||
LOCATE y, x: PRINT chr$(218) + STRING$(w - 2, 196) + chr$(191);
|
||||
FOR y2 = y + 1 TO y + h - 2
|
||||
LOCATE y2, x: PRINT "³" + SPACE$(w - 2) + "³";
|
||||
LOCATE y2, x: PRINT chr$(179) + SPACE$(w - 2) + chr$(179);
|
||||
NEXT
|
||||
LOCATE y + h - 1, x: PRINT "À" + STRING$(w - 2, "Ä") + "Ù";
|
||||
LOCATE y + h - 1, x: PRINT chr$(192) + STRING$(w - 2, 196) + chr$(217);
|
||||
END SUB
|
||||
|
||||
SUB ideboxshadow (x, y, w, h)
|
||||
|
||||
LOCATE y, x: PRINT "Ú" + STRING$(w - 2, "Ä") + "¿";
|
||||
LOCATE y, x: PRINT chr$(218) + STRING$(w - 2, 196) + chr$(191);
|
||||
FOR y2 = y + 1 TO y + h - 2
|
||||
LOCATE y2, x: PRINT "³" + SPACE$(w - 2) + "³";
|
||||
LOCATE y2, x: PRINT chr$(179) + SPACE$(w - 2) + chr$(179);
|
||||
NEXT
|
||||
LOCATE y + h - 1, x: PRINT "À" + STRING$(w - 2, "Ä") + "Ù";
|
||||
LOCATE y + h - 1, x: PRINT chr$(192) + STRING$(w - 2, 196) + chr$(217);
|
||||
'shadow
|
||||
COLOR 8, 0
|
||||
FOR y2 = y + 1 TO y + h - 1
|
||||
|
@ -5138,12 +5138,12 @@ i = i2: n = n2
|
|||
'LOCATE y, x: PRINT CHR$(27);
|
||||
'LOCATE y, x + w - 1: PRINT CHR$(26);
|
||||
'FOR x2 = x + 1 TO x + w - 2
|
||||
'LOCATE y, x2: PRINT "°";
|
||||
'LOCATE y, x2: PRINT chr$(176);
|
||||
'NEXT
|
||||
'IF w > 3 THEN
|
||||
'p2! = w - 2 - .00001
|
||||
'x2 = x + 1 + INT(p2! * p!)
|
||||
'LOCATE y, x2: PRINT "Û";
|
||||
'LOCATE y, x2: PRINT chr$(219);
|
||||
'END IF
|
||||
|
||||
|
||||
|
@ -5154,7 +5154,7 @@ COLOR 0, 7
|
|||
LOCATE y, x: PRINT CHR$(27);
|
||||
LOCATE y, x + h - 1: PRINT CHR$(26);
|
||||
FOR x2 = x + 1 TO x + h - 2
|
||||
LOCATE y, x2: PRINT "°";
|
||||
LOCATE y, x2: PRINT chr$(176);
|
||||
NEXT
|
||||
|
||||
'draw slider
|
||||
|
@ -5183,7 +5183,7 @@ IF h = 4 THEN
|
|||
'show whichever is closer of the two positions
|
||||
p! = (i - 1) / (n - 1)
|
||||
IF p! < .5 THEN x2 = x + 1 ELSE x2 = x + 2
|
||||
LOCATE y, x2: PRINT "Û";
|
||||
LOCATE y, x2: PRINT chr$(219);
|
||||
idehbar = x2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
|
@ -5197,13 +5197,13 @@ IF h > 4 THEN
|
|||
END IF
|
||||
IF i = 1 THEN
|
||||
x2 = x + 1
|
||||
LOCATE y, x2: PRINT "Û";
|
||||
LOCATE y, x2: PRINT chr$(219);
|
||||
idehbar = x2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
IF i = n THEN
|
||||
x2 = x + h - 2
|
||||
LOCATE y, x2: PRINT "Û";
|
||||
LOCATE y, x2: PRINT chr$(219);
|
||||
idehbar = x2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
|
@ -5211,7 +5211,7 @@ IF h > 4 THEN
|
|||
p! = (i - 1) / (n - 1)
|
||||
p! = p! * (h - 4)
|
||||
x2 = x + 2 + INT(p!)
|
||||
LOCATE y, x2: PRINT "Û";
|
||||
LOCATE y, x2: PRINT chr$(219);
|
||||
idehbar = x2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
|
@ -5608,7 +5608,7 @@ DO 'main loop
|
|||
COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: ";
|
||||
a$ = path$
|
||||
w = p.w - 8
|
||||
IF LEN(a$) > w - 3 THEN a$ = "úúú" + RIGHT$(a$, w - 3)
|
||||
IF LEN(a$) > w - 3 THEN a$ = string$(3, 250) + RIGHT$(a$, w - 3)
|
||||
PRINT a$;
|
||||
'-------- end of custom display changes --------
|
||||
|
||||
|
@ -5991,7 +5991,7 @@ DO 'main loop
|
|||
COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: ";
|
||||
a$ = path$
|
||||
w = p.w - 8
|
||||
IF LEN(a$) > w - 3 THEN a$ = "úúú" + RIGHT$(a$, w - 3)
|
||||
IF LEN(a$) > w - 3 THEN a$ = string$(3, 250) + RIGHT$(a$, w - 3)
|
||||
PRINT a$;
|
||||
'-------- end of custom display changes --------
|
||||
|
||||
|
@ -6373,7 +6373,7 @@ COLOR 7, 1
|
|||
FOR b = 1 TO IdeBmkN
|
||||
y = IdeBmk(b).y
|
||||
IF y >= idesy AND y <= idesy + (idewy - 9) THEN
|
||||
LOCATE 3 + y - idesy, 1: PRINT "Å";
|
||||
LOCATE 3 + y - idesy, 1: PRINT chr$(197);
|
||||
END IF
|
||||
NEXT
|
||||
|
||||
|
@ -6454,21 +6454,21 @@ FOR y = 1 TO iden
|
|||
IF LEN(n$) <= 20 THEN
|
||||
n$ = n$ + SPACE$(20 - LEN(n$))
|
||||
ELSE
|
||||
n$ = LEFT$(n$, 17) + "úúú"
|
||||
n$ = LEFT$(n$, 17) + string$(3, 250)
|
||||
END IF
|
||||
IF LEN(args$) <= (idewx - 41) THEN
|
||||
args$ = args$ + SPACE$((idewx - 41) - LEN(args$))
|
||||
ELSE
|
||||
args$ = LEFT$(args$, (idewx - 44)) + "úúú"
|
||||
args$ = LEFT$(args$, (idewx - 44)) + string$(3, 250)
|
||||
END IF
|
||||
l$ = l$ + sep + "ÃÄ" + n$ + " " + sf$ + args$
|
||||
l$ = l$ + sep + chr$(195) + chr$(196) + n$ + " " + sf$ + args$
|
||||
|
||||
END IF
|
||||
NEXT
|
||||
|
||||
FOR x = LEN(l$) TO 1 STEP -1
|
||||
a$ = MID$(l$, x, 1)
|
||||
IF a$ = "Ã" THEN MID$(l$, x, 1) = "À": EXIT FOR
|
||||
IF a$ = chr$(195) THEN MID$(l$, x, 1) = chr$(192): EXIT FOR
|
||||
NEXT
|
||||
|
||||
|
||||
|
@ -7168,7 +7168,7 @@ COLOR 0, 7
|
|||
LOCATE y, x: PRINT CHR$(24);
|
||||
LOCATE y + h - 1, x: PRINT CHR$(25);
|
||||
FOR y2 = y + 1 TO y + h - 2
|
||||
LOCATE y2, x: PRINT "°";
|
||||
LOCATE y2, x: PRINT chr$(176);
|
||||
NEXT
|
||||
|
||||
'draw slider
|
||||
|
@ -7197,7 +7197,7 @@ IF h = 4 THEN
|
|||
'show whichever is closer of the two positions
|
||||
p! = (i - 1) / (n - 1)
|
||||
IF p! < .5 THEN y2 = y + 1 ELSE y2 = y + 2
|
||||
LOCATE y2, x: PRINT "Û";
|
||||
LOCATE y2, x: PRINT chr$(219);
|
||||
idevbar = y2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
|
@ -7211,13 +7211,13 @@ IF h > 4 THEN
|
|||
END IF
|
||||
IF i = 1 THEN
|
||||
y2 = y + 1
|
||||
LOCATE y2, x: PRINT "Û";
|
||||
LOCATE y2, x: PRINT chr$(219);
|
||||
idevbar = y2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
IF i = n THEN
|
||||
y2 = y + h - 2
|
||||
LOCATE y2, x: PRINT "Û";
|
||||
LOCATE y2, x: PRINT chr$(219);
|
||||
idevbar = y2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
|
@ -7225,7 +7225,7 @@ IF h > 4 THEN
|
|||
p! = (i - 1) / (n - 1)
|
||||
p! = p! * (h - 4)
|
||||
y2 = y + 2 + INT(p!)
|
||||
LOCATE y2, x: PRINT "Û";
|
||||
LOCATE y2, x: PRINT chr$(219);
|
||||
idevbar = y2
|
||||
EXIT FUNCTION
|
||||
END IF
|
||||
|
@ -9023,7 +9023,7 @@ COLOR 7, 0
|
|||
'CLS
|
||||
'FOR y = Help_wy1 - 1 TO Help_wy2 + 1
|
||||
' FOR x = Help_wx1 - 1 TO Help_wx2 + 1
|
||||
' LOCATE y, x: PRINT "Û";
|
||||
' LOCATE y, x: PRINT chr$(219);
|
||||
' NEXT
|
||||
'NEXT
|
||||
|
||||
|
@ -9495,7 +9495,7 @@ FOR r = 1 TO 5
|
|||
f$ = LEFT$(a$, ai - 1): IF ai = LEN(a$) - 1 THEN a$ = "" ELSE a$ = RIGHT$(a$, LEN(a$) - ai - 3)
|
||||
IF r <= 4 THEN IdeRecentLink(r, 2) = f$
|
||||
IF r = 5 THEN f$ = "#Recent..."
|
||||
IF LEN(f$) > 25 THEN f$ = "úúú" + RIGHT$(f$, 22)
|
||||
IF LEN(f$) > 25 THEN f$ = string$(3, 250) + RIGHT$(f$, 22)
|
||||
IF r <= 4 THEN IdeRecentLink(r, 1) = f$
|
||||
menu$(m, i) = f$: i = i + 1
|
||||
END IF
|
||||
|
|
|
@ -37,7 +37,7 @@ END IF
|
|||
|
||||
IF Help_Recaching = 0 THEN
|
||||
a$ = "Downloading '" + PageName$ + "' page..."
|
||||
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + "úúú"
|
||||
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + STRING$(3, 250)
|
||||
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
|
||||
|
||||
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
|
||||
|
@ -530,24 +530,24 @@ DO WHILE i <= n
|
|||
|
||||
IF c$(3) = "** " THEN
|
||||
i = i + 2
|
||||
Help_AddTxt " þ ", col, 0
|
||||
Help_AddTxt " " + CHR$(254) + " ", col, 0
|
||||
Help_NewLineIndent = Help_NewLineIndent + 6
|
||||
GOTO Special
|
||||
END IF
|
||||
IF c$(2) = "* " THEN
|
||||
i = i + 1
|
||||
Help_AddTxt "þ ", col, 0
|
||||
Help_AddTxt CHR$(254) + " ", col, 0
|
||||
Help_NewLineIndent = Help_NewLineIndent + 2
|
||||
GOTO Special
|
||||
END IF
|
||||
IF c$(2) = "**" THEN
|
||||
i = i + 1
|
||||
Help_AddTxt " þ ", col, 0
|
||||
Help_AddTxt " " + CHR$(254) + " ", col, 0
|
||||
Help_NewLineIndent = Help_NewLineIndent + 6
|
||||
GOTO Special
|
||||
END IF
|
||||
IF c$ = "*" THEN
|
||||
Help_AddTxt "þ ", col, 0
|
||||
Help_AddTxt CHR$(254) + " ", col, 0
|
||||
Help_NewLineIndent = Help_NewLineIndent + 2
|
||||
GOTO Special
|
||||
END IF
|
||||
|
@ -569,7 +569,7 @@ DO WHILE i <= n
|
|||
GOTO Special
|
||||
END IF
|
||||
|
||||
IF c$ = CHR$(226) THEN 'UNICODE UTF8 extender "â", it's a very good bet the following 2 characters will be 2 bytes of UNICODE
|
||||
IF c$ = CHR$(226) THEN 'UNICODE UTF8 extender, it's a very good bet the following 2 characters will be 2 bytes of UNICODE
|
||||
i = i + 2
|
||||
GOTO Special
|
||||
END IF
|
||||
|
@ -603,7 +603,7 @@ DO WHILE i <= n
|
|||
|
||||
IF c$(4) = "----" THEN
|
||||
i = i + 3
|
||||
Help_AddTxt "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ", 8, 0
|
||||
Help_AddTxt STRING$(100, 196), 8, 0
|
||||
GOTO Special
|
||||
END IF
|
||||
|
||||
|
|
|
@ -4384,10 +4384,10 @@ DO
|
|||
GOTO errmes
|
||||
END IF
|
||||
|
||||
if ideindentsubs then
|
||||
IF ideindentsubs THEN
|
||||
controllevel = controllevel + 1
|
||||
controltype(controllevel) = 32
|
||||
end if
|
||||
END IF
|
||||
|
||||
subfunc = RTRIM$(id.callname) 'SUB_..."
|
||||
subfuncn = subfuncn + 1
|
||||
|
@ -4867,7 +4867,7 @@ DO
|
|||
GOTO errmes
|
||||
END IF
|
||||
|
||||
IF controltype(controllevel) = 32 and ideindentsubs THEN
|
||||
IF controltype(controllevel) = 32 AND ideindentsubs THEN
|
||||
controltype(controllevel) = 0
|
||||
controllevel = controllevel - 1
|
||||
END IF
|
||||
|
@ -12663,7 +12663,7 @@ END FUNCTION
|
|||
|
||||
FUNCTION arrayreference$ (indexes$, typ)
|
||||
arrayprocessinghappened = 1
|
||||
'*returns an array reference: idnumber³index$
|
||||
'*returns an array reference: idnumber CHR$(179) index$
|
||||
'*does not take into consideration the type of the array
|
||||
|
||||
'*expects array id to be passed in the global id structure
|
||||
|
@ -14078,7 +14078,7 @@ IF i <> n THEN
|
|||
GOTO udtfindelenext
|
||||
END IF
|
||||
|
||||
'Change e reference to u³0 reference?
|
||||
'Change e reference to u CHR$(179) 0 reference?
|
||||
IF udtetype(E) AND ISUDT THEN
|
||||
u = udtetype(E) AND 511
|
||||
E = 0
|
||||
|
@ -17201,11 +17201,11 @@ IF fooindwel = 1 THEN 'actions to take on initial call only
|
|||
|
||||
'for variables...
|
||||
'before: anyoperator,-,variable
|
||||
'after: anyoperator,ñ,variable
|
||||
'after: anyoperator,CHR$(241),variable
|
||||
|
||||
'exception for numbers followed by ^... (they will be bracketed up along with the ^ later)
|
||||
'before: anyoperator,-,number,^
|
||||
'after: anyoperator,ñ,number,^
|
||||
'after: anyoperator,CHR$(241),number,^
|
||||
|
||||
FOR i = 1 TO n - 1
|
||||
IF i > n - 1 THEN EXIT FOR 'n changes, so manually exit if required
|
||||
|
@ -17251,7 +17251,7 @@ IF fooindwel = 1 THEN 'actions to take on initial call only
|
|||
|
||||
'not a number (or for exceptions)...
|
||||
removeelements a$, i, i, 0
|
||||
insertelements a$, i - 1, "ñ"
|
||||
insertelements a$, i - 1, CHR$(241)
|
||||
IF Debug THEN PRINT #9, "fixoperationorder:negation:" + a$
|
||||
|
||||
END IF 'isoperator
|
||||
|
@ -17268,7 +17268,7 @@ END IF 'fooindwel=1
|
|||
'----------------D. 'Quick' Add 'power of' with negation {}bracketing to bottom bracket level----------------
|
||||
pownegused = 0
|
||||
powneg:
|
||||
IF INSTR(a$, "^" + sp + "ñ") THEN 'quick check
|
||||
IF INSTR(a$, "^" + sp + CHR$(241)) THEN 'quick check
|
||||
b = 0
|
||||
b1 = 0
|
||||
FOR i = 1 TO n
|
||||
|
@ -17279,7 +17279,7 @@ IF INSTR(a$, "^" + sp + "
|
|||
IF b = 0 THEN
|
||||
IF b1 THEN
|
||||
IF isoperator(a2$) THEN
|
||||
IF a2$ <> "^" AND a2$ <> "ñ" THEN
|
||||
IF a2$ <> "^" AND a2$ <> CHR$(241) THEN
|
||||
insertelements a$, i - 1, "}"
|
||||
insertelements a$, b1, "{"
|
||||
n = n + 2
|
||||
|
@ -17290,7 +17290,7 @@ IF INSTR(a$, "^" + sp + "
|
|||
END IF
|
||||
END IF
|
||||
IF c = 94 THEN '^
|
||||
IF getelement$(a$, i + 1) = "ñ" THEN b1 = i: i = i + 1
|
||||
IF getelement$(a$, i + 1) = CHR$(241) THEN b1 = i: i = i + 1
|
||||
END IF
|
||||
END IF 'b=0
|
||||
NEXT i
|
||||
|
@ -17410,8 +17410,8 @@ IF hco <> 0 THEN 'operators were used
|
|||
END IF 'hco <> 0
|
||||
|
||||
'--------Bracketting of multiple NOT/negation unary operators--------
|
||||
IF LEFT$(a$, 4) = "ñ" + sp + "ñ" + sp THEN
|
||||
a$ = "ñ" + sp + "{" + sp + getelements$(a$, 2, n) + sp + "}": n = n + 2
|
||||
IF LEFT$(a$, 4) = CHR$(241) + sp + CHR$(241) + sp THEN
|
||||
a$ = CHR$(241) + sp + "{" + sp + getelements$(a$, 2, n) + sp + "}": n = n + 2
|
||||
END IF
|
||||
IF UCASE$(LEFT$(a$, 8)) = "NOT" + sp + "NOT" + sp THEN
|
||||
a$ = "NOT" + sp + "{" + sp + getelements$(a$, 2, n) + sp + "}": n = n + 2
|
||||
|
@ -17545,7 +17545,7 @@ FOR i = 1 TO n
|
|||
END IF
|
||||
END IF
|
||||
'append negation
|
||||
IF f2$ = "ñ" THEN f$ = f$ + sp + "-": GOTO classdone_special
|
||||
IF f2$ = CHR$(241) THEN f$ = f$ + sp + "-": GOTO classdone_special
|
||||
GOTO classdone
|
||||
END IF
|
||||
|
||||
|
@ -18168,7 +18168,7 @@ l = l + 1
|
|||
IF a$ = "*" THEN GOTO opfound
|
||||
IF a$ = "/" THEN GOTO opfound
|
||||
'NEGATION LEVEL (MUST BE SET AFTER CALLING ISOPERATOR BY CONTEXT)
|
||||
l = l + 1: IF a$ = "ñ" THEN GOTO opfound
|
||||
l = l + 1: IF a$ = CHR$(241) THEN GOTO opfound
|
||||
l = l + 1: IF a$ = "^" THEN GOTO opfound
|
||||
EXIT FUNCTION
|
||||
opfound:
|
||||
|
@ -19267,7 +19267,7 @@ END IF
|
|||
'assume numeric operator
|
||||
lhs = 1 + 2: rhs = 1 + 2
|
||||
IF operator$ = "^" THEN result = 2: info$ = "pow2": operatorusage = 2: EXIT FUNCTION
|
||||
IF operator$ = "ñ" THEN info$ = "-": operatorusage = 5: EXIT FUNCTION
|
||||
IF operator$ = CHR$(241) THEN info$ = "-": operatorusage = 5: EXIT FUNCTION
|
||||
IF operator$ = "/" THEN
|
||||
info$ = "/ ": operatorusage = 1
|
||||
'for / division, either the lhs or the rhs must be a float to make
|
||||
|
@ -22157,7 +22157,7 @@ IF status(1) = 0 THEN
|
|||
IF btype(2) AND ISSTRING THEN Give_Error "Invalid CONST expression.6": EXIT FUNCTION
|
||||
o$ = block(1)
|
||||
|
||||
IF o$ = "ñ" THEN
|
||||
IF o$ = CHR$(241) THEN
|
||||
IF btype(2) AND ISFLOAT THEN
|
||||
r## = -_CV(_FLOAT, block(2))
|
||||
evaluateconst$ = _MK$(_FLOAT, r##)
|
||||
|
@ -23773,7 +23773,7 @@ REM $STATIC
|
|||
' * Op& = Type of string to expect and/or operation to perform
|
||||
'
|
||||
' { 00A } = (10) Test Base-10-Format String ( *!* ALTERS InString$ *!* )
|
||||
' { 00B } = (11) Read Sign ("+", "-", or "ñ")
|
||||
' { 00B } = (11) Read Sign ("+", "-", or CHR$(241))
|
||||
'
|
||||
' Unlisted values are not used and will return [ Check& = 0 - Op& ].
|
||||
' Different Op& values produce various return values.
|
||||
|
@ -23840,7 +23840,7 @@ SELECT CASE Op&
|
|||
|
||||
|
||||
CASE 11
|
||||
' {00B} Read Sign ("+", "-", or "ñ")
|
||||
' {00B} Read Sign ("+", "-", or CHR$(241))
|
||||
' Returns:
|
||||
' Explicit: +1 = Positive; -1 = Negative; 0 = Unsigned;
|
||||
' Implied: +64 = Positive; -64 = NULL String
|
||||
|
|
|
@ -760,7 +760,7 @@ IF role$ = "SIZE" THEN
|
|||
|
||||
oy = oy + 1
|
||||
i2 = VkNew
|
||||
VkReLabel i2, "ÄÄ"
|
||||
VkReLabel i2, chr$(17) + chr$(196) + chr$(196) + chr$(16)
|
||||
VK(i2).parent = VK(i).parent
|
||||
VK(i2).offsetX = ox
|
||||
VK(i2).offsetY = -oy * VkUnitStepY
|
||||
|
@ -770,7 +770,7 @@ IF role$ = "SIZE" THEN
|
|||
|
||||
oy = oy + 1
|
||||
i2 = VkNew
|
||||
VkReLabel i2, "ÄÄ"
|
||||
VkReLabel i2, chr$(196) + chr$(16) + chr$(17) + chr$(196)
|
||||
VK(i2).parent = VK(i).parent
|
||||
VK(i2).offsetX = ox
|
||||
VK(i2).offsetY = -oy * VkUnitStepY
|
||||
|
|
Loading…
Reference in a new issue