QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-08 12:35:13 +00:00
Code Releases Wiki Activity

Internal: Make SUB Sort case insensitive.

Browse source 
A case backup array is no longer needed for sorting the SUBs list.
This commit is contained in:
FellippeHeitor 2016-01-14 11:41:44 -02:00
parent 85edad6462
commit fcf9334581
1 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
source/ide/ide_methods.bas
View file

@ -7356,10 +7356,7 @@ FOR y = 1 TO iden
TotalSUBs = TotalSUBs + 1 TotalSUBs = TotalSUBs + 1
ListItemLength = LEN(n$ + " " + sf$ + args$) ListItemLength = LEN(n$ + " " + sf$ + args$)
REDIM _PRESERVE SortedSubsList(1 to TotalSUBs) as string * 998 REDIM _PRESERVE SortedSubsList(1 to TotalSUBs) as string * 998
REDIM _PRESERVE CaseBkpSubsList(1 to TotalSUBs) as string * 998 SortedSubsList(TotalSUBs) = n$ + " " + sf$ + args$
CaseBkpSubsList(TotalSUBs) = n$ + " " + sf$ + args$
SortedSubsList(TotalSUBs) = UCASE$(CaseBkpSubsList(TotalSUBs))
MID$(CaseBkpSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength)
MID$(SortedSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength) MID$(SortedSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength)
END IF END IF
NEXT NEXT
@ -7376,12 +7373,7 @@ if TotalSUBs > 1 then
FOR x = 1 to TotalSUBs FOR x = 1 to TotalSUBs
ListItemLength = CVI(MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 2, 2)) ListItemLength = CVI(MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 2, 2))
lySorted$ = lySorted$ + MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) lySorted$ = lySorted$ + MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4)
for RestoreCaseBkp = 1 to TotalSUBs lSorted$ = lSorted$ + sep + chr$(195) + chr$(196) + left$(SortedSubsList(x), ListItemLength)
IF MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) = MID$(CaseBkpSubsList(RestoreCaseBkp), LEN(CaseBkpSubsList(RestoreCaseBkp)) - 6, 4) THEN
lSorted$ = lSorted$ + sep + chr$(195) + chr$(196) + left$(CaseBkpSubsList(RestoreCaseBkp), ListItemLength)
EXIT FOR
END IF
next
NEXT NEXT
FOR x = LEN(lSorted$) TO 1 STEP -1 FOR x = LEN(lSorted$) TO 1 STEP -1
@ -11517,7 +11509,7 @@ SELECT CASE DataType
o1 = m.OFFSET + (i + gap) * ES o1 = m.OFFSET + (i + gap) * ES
_MEMGET m, o, T7a _MEMGET m, o, T7a
_MEMGET m, o1, T7b _MEMGET m, o1, T7b
IF T7a > T7b THEN IF _STRICMP(T7a, T7b) = 1 THEN
T7c = T7b T7c = T7b
_MEMPUT m, o1, T7a _MEMPUT m, o1, T7a
_MEMPUT m, o, T7c _MEMPUT m, o, T7c