On Tue, Mar 10, 2015 at 9:45 PM, Élie Roux <[email protected]>
wrote:
> Le 10/03/2015 21:34, luigi scarso a écrit :
> > \directlua{
> > print()
> > print("currentdir:"..lfs.currentdir())
> > texio.write_nl("")
> > for k, v in ipairs(arg) do
> > texio.write_nl(k .. " " .. v)
> > end
> > texio.write_nl("")
> >
> > }
> >
> >
> >
> > \bye
>
> Thanks, it will require some more tests (for instance the arg must end
> by \jobname.xxx, etc.), but I can handle it from now.
>
> Thank you very much!
> --
> Elie
>
another one from Hans
\catcode`\%=11
\directlua{
function fulljobname()
local p = nil
for k, v in ipairs(arg) do
if not string.find(v,"^%-") then
p = v
break
end
end
if p then
p = string.gsub(p,"%-%.","%%1")
if string.find(p,tex.jobname) then
return p
end
end
return tex.jobname
end
texio.write_nl("")
texio.write_nl(fulljobname())
texio.write_nl("")
}
\bye
--
luigi
