mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-19 23:44:46 +00:00
Source formatting
This commit is contained in:
parent
6abe235c41
commit
854b907aff
1 changed files with 6 additions and 6 deletions
|
@ -18805,7 +18805,7 @@ END FUNCTION
|
||||||
'Main entry point for fixoperationorder
|
'Main entry point for fixoperationorder
|
||||||
FUNCTION fixoperationorder$ (savea$)
|
FUNCTION fixoperationorder$ (savea$)
|
||||||
fixoperationorder = fixoperationorder_rec$(savea$, FALSE)
|
fixoperationorder = fixoperationorder_rec$(savea$, FALSE)
|
||||||
end function
|
END FUNCTION
|
||||||
|
|
||||||
'Recursive entry point for fixoperationorder
|
'Recursive entry point for fixoperationorder
|
||||||
FUNCTION fixoperationorder_rec$ (savea$, bare_arrays)
|
FUNCTION fixoperationorder_rec$ (savea$, bare_arrays)
|
||||||
|
@ -19500,7 +19500,7 @@ FUNCTION fixoperationorder_rec$ (savea$, bare_arrays)
|
||||||
END IF 'nextc "("
|
END IF 'nextc "("
|
||||||
|
|
||||||
IF nextc <> 40 THEN 'not "(" : simple variable, zero-argument function or bare array
|
IF nextc <> 40 THEN 'not "(" : simple variable, zero-argument function or bare array
|
||||||
IF (not bare_arrays and id.t <> 0) OR id.subfunc = 1 or (bare_arrays and id.arraytype <> 0) THEN 'simple variable or zero-argument function or bare array
|
IF (NOT bare_arrays AND id.t <> 0) OR id.subfunc = 1 OR (bare_arrays AND id.arraytype <> 0) THEN 'simple variable or zero-argument function or bare array
|
||||||
|
|
||||||
IF id.t AND ISUDT THEN
|
IF id.t AND ISUDT THEN
|
||||||
'note: it may or may not be followed by a period (eg. if whole udt is being referred to)
|
'note: it may or may not be followed by a period (eg. if whole udt is being referred to)
|
||||||
|
@ -19677,11 +19677,11 @@ FUNCTION fixoperationorder_rec$ (savea$, bare_arrays)
|
||||||
IF b = 0 THEN
|
IF b = 0 THEN
|
||||||
foopassit:
|
foopassit:
|
||||||
IF p1 <> i THEN
|
IF p1 <> i THEN
|
||||||
bare_array_context = false
|
bare_array_context = FALSE
|
||||||
if p1 > 2 then
|
IF p1 > 2 THEN
|
||||||
token_before_paren$ = getelement(a$, p1 - 2)
|
token_before_paren$ = getelement(a$, p1 - 2)
|
||||||
bare_array_context = (token_before_paren$ = "UBOUND" or token_before_paren$ = "LBOUND")
|
bare_array_context = (token_before_paren$ = "UBOUND" OR token_before_paren$ = "LBOUND")
|
||||||
end if
|
END IF
|
||||||
foo$ = fixoperationorder_rec(getelements(a$, p1, i - 1), bare_array_context)
|
foo$ = fixoperationorder_rec(getelements(a$, p1, i - 1), bare_array_context)
|
||||||
IF Error_Happened THEN EXIT FUNCTION
|
IF Error_Happened THEN EXIT FUNCTION
|
||||||
IF LEN(foo$) THEN
|
IF LEN(foo$) THEN
|
||||||
|
|
Loading…
Reference in a new issue