mirrors/klib
1
0
Fork 0
mirror of https://github.com/attractivechaos/klib synced 2025-02-22 09:24:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

bugfix in os.getopt(): "-" not recognized

Browse Source
This commit is contained in:
Heng Li 2011-05-01 22:53:07 -04:00
parent 51bdfac494
commit 9aaabb7bea
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lua/klib.lua
View File

@ -72,14 +72,16 @@ function os.getopt(args, ostr)
local arg, place = nil, 0;
return function ()
if place == 0 then -- update scanning pointer
if #args == 0 or args[1]:sub(1, 1) ~= '-' then return nil end
place = 1
if #args == 0 or args[1]:sub(1, 1) ~= '-' then place = 0; return nil end
if #args[1] >= 2 then
place = place + 1
if args[1]:sub(2, 2) == '-' then -- found "--"
place = 0
table.remove(args, 1);
return nil;
end
end
place = 2
end
local optopt = args[1]:sub(place, place);
place = place + 1;