mirror of
https://github.com/1dot13/source.git
synced 2026-08-05 14:00:23 +02:00
76eda883a5
The tree carried two prebuilt Lua static libraries and a copy of the Lua public headers. lua51.lib is 5.1.2 and matched the headers; lua51.vc9.lib is 5.1.4 and was dead weight — it came second in Ja2_Libraries, so the linker resolved every Lua symbol out of lua51.lib and never pulled an object from it. Just as well, since it asks for /DEFAULTLIB:MSVCRT while we build /MT. ext/lua-5.1.5 is the upstream tarball unmodified, built as lua51 the way the other vendored libraries are, and its src directory replaces lua/ as the home of lua.h, luaconf.h, lauxlib.h and lualib.h. Those four headers were stock 5.1.2 retabbed, so 5.1.5 is bugfix-only against what the game compiled against; the bytecode format is unchanged across 5.1.x and every script under gamedir is plain source anyway. lua/lua.hpp had no includers and returns to etc/ where upstream keeps it. /SAFESEH:NO goes with it. Its two stated reasons were lua51.lib and the smackw32 import library, and both are now gone: every remaining prebuilt static library is SAFESEH-clean (libexpatMT.lib 5 of 5 members with @feat.00 = 0x1, RakNetLibStatic.lib 79 of 79), and lld-link emits a 3155-entry SEHandlerTable without it. The /MT comment blamed the wrong library. lua51.lib carried no linker directives at all; RakNetLibStatic.lib is what pins us to the static runtime, with /DEFAULTLIB:LIBCMT and /DEFAULTLIB:libcpmt. Verified by building all four applications in Debug and Release, and by linking the tarball's own lua.c against our lua51.lib with the build's clang-cl flags and running it under Wine: 5.1 stdlib, GC, coroutines and the x86 __asm fld/fistp lua_number2int fast path all behave. The game itself could not be launched here — this checkout's gamedir has loose Data directories but no SLF archives, so VFS aborts on Data\Ambient.slf long before any script runs. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
67 lines
1.5 KiB
Lua
67 lines
1.5 KiB
Lua
-- two implementations of a sort function
|
|
-- this is an example only. Lua has now a built-in function "sort"
|
|
|
|
-- extracted from Programming Pearls, page 110
|
|
function qsort(x,l,u,f)
|
|
if l<u then
|
|
local m=math.random(u-(l-1))+l-1 -- choose a random pivot in range l..u
|
|
x[l],x[m]=x[m],x[l] -- swap pivot to first position
|
|
local t=x[l] -- pivot value
|
|
m=l
|
|
local i=l+1
|
|
while i<=u do
|
|
-- invariant: x[l+1..m] < t <= x[m+1..i-1]
|
|
if f(x[i],t) then
|
|
m=m+1
|
|
x[m],x[i]=x[i],x[m] -- swap x[i] and x[m]
|
|
end
|
|
i=i+1
|
|
end
|
|
x[l],x[m]=x[m],x[l] -- swap pivot to a valid place
|
|
-- x[l+1..m-1] < x[m] <= x[m+1..u]
|
|
qsort(x,l,m-1,f)
|
|
qsort(x,m+1,u,f)
|
|
end
|
|
end
|
|
|
|
function selectionsort(x,n,f)
|
|
local i=1
|
|
while i<=n do
|
|
local m,j=i,i+1
|
|
while j<=n do
|
|
if f(x[j],x[m]) then m=j end
|
|
j=j+1
|
|
end
|
|
x[i],x[m]=x[m],x[i] -- swap x[i] and x[m]
|
|
i=i+1
|
|
end
|
|
end
|
|
|
|
function show(m,x)
|
|
io.write(m,"\n\t")
|
|
local i=1
|
|
while x[i] do
|
|
io.write(x[i])
|
|
i=i+1
|
|
if x[i] then io.write(",") end
|
|
end
|
|
io.write("\n")
|
|
end
|
|
|
|
function testsorts(x)
|
|
local n=1
|
|
while x[n] do n=n+1 end; n=n-1 -- count elements
|
|
show("original",x)
|
|
qsort(x,1,n,function (x,y) return x<y end)
|
|
show("after quicksort",x)
|
|
selectionsort(x,n,function (x,y) return x>y end)
|
|
show("after reverse selection sort",x)
|
|
qsort(x,1,n,function (x,y) return x<y end)
|
|
show("after quicksort again",x)
|
|
end
|
|
|
|
-- array to be sorted
|
|
x={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"}
|
|
|
|
testsorts(x)
|