Lines Matching +full:fn +full:- +full:keymap

2 --[[ minified code follows, see --help text for source location! ]]
27 See <https://mit-license.org> for details.
34   --help        print this help, then exit
35   --version     print version number, then exit
36   --file=FILE   use FILE instead of lukefile
37   --value=NAME  print the value of variable NAME
38   --quiet       without any output
39   --verbose     provide more progress output
51 …rr:write('luke: error: '..msg..'.\n')stderr:write("luke: try '"..arg[0].." --help' for help.\n")ex…
54 gsub(concat(map(list(...),str)),'\n*$','\n'):gsub('(.-)\n',function(line)stderr:write('   DEBUG: '.…
57 …op,targets={},verbose=nop,write=display,}map(args,function(opt)case(opt,{['--debug']=function()r.l…
58 end,['%-%-file=(.+)']=function(optarg)r.fname=optarg
59 end,['%-%-value=(.+)']=function(optarg)r.valreqs[#r.valreqs+1]=optarg
60 end,['--quiet']=function()r.write=nop
61 end,['--verbose']=function()r.verbose=display
62 end,['--help']=help,['--version']=version,['([^-][^=]-)=(.+)']=function(name,value)r.clidefs[name]=…
63 end,function(opt)if match(opt,'^-')~=nil then
85 local _ENV=require'std.normalize'{'luke._base','luke.environment','std.functional','type.context-ma…
92 …ame,value)local fmt=cond({[int(value)==1]='-D%s'},{[match(value,SHELLMETACHARS)~=nil]="-D%s='%s'"}…
93 local function incdirs(...)return map(flatten(...),function(v)return'-I'..v
95 local function libdirs(...)return map(flatten(...),function(v)return'-L'..v
105 …ines,luke.defines),nil)),incdirs(rules.incdirs,luke.incdirs),rules.sources,'-o',c_module,'$LDFLAGS…
115 …luke._base','luke.compile','luke.environment','std.functional','type.context-manager','type.dict',…
131 local function compile_command(L,env,config,filename)local command=flatten('$CC','-c','$CFLAGS',inc…
132 …b)local command=flatten('$CC','$CFLAGS',incdirs(config.incdir),'$CPPFLAGS','-o',a_out,source,libdi…
158 #if !defined %s || %s == -1
180  For example, HP-UX 11i <limits,h> declares gettimeofday.   */
229 local trylibs=reduce(libraries,{''},function(r,lib)append(r,'-l'..lib)end)return dropuntil(trylibs,…
237 …l i=find(config.checkmember,'%.')local structname=sub(config.checkmember,1,i-1)local member=sub(co…
255 …lize'{'luke.platforms','std.functional',LUAVERSION=string.gsub(_VERSION,'[^0-9%.]+',''),}local env…
266 …-c $CFLAGS $CPPFLAGS',libs='',link='$CC $CFLAGS $CPPFLAGS $LDFLAGS',},DEFAULTENV=filter_platforms{…
272 …ocal function run_ldocs(L,env,ldocs)return run_command(L,env,flatten{'$LDOC -c',ldocs.sources,'.'}…
293 …onfigure','luke.environment','luke.platforms','std.functional','type.context-manager',}local funct…
327 …figs)end,},{[true]=function()local keymap={include='includes',prog='progs',library='libraries',}re…
360 local supported=toplatforms(CANON,popen('uname -s'):read'*l')local function isplatform(x)return ALL…
375 …=coroutine.yield,}local function apply(fn,argu)assert(fn~=nil,'cannot apply nil-valued function')i…
376 return fn(unpack(argu))end
377 return fn
379 local function call(fn,...)assert(fn~=nil,'cannot call nil-valued function')if iscallable(fn)then
380 return fn(...)end
381 return fn
424 end,apply=apply,bind=function(fn,bound)local n=bound.n or maxn(bound)return function(...)local argu…
431 bound.n=n>=i and n or i-1
432 return apply(fn,argu)end
436 for pattern,fn in next,branches do
439 return apply(fn,argu)end
475 end,flatten=flatten,foldkeys=function(keymap,dict,combinator)local r={}for k,v in next,dict or{}do
476 local key=keymap[k]if key then
540 return function(x)if type(x)=='number'and ceil(x)-x==0.0 then
559 return i-1
590 if k==1 or type(k)=='number'and k-1==kp then
614 seq.n=seq.n-1
630 package.preload['type.context-manager']=function()