etc/stdcall.lua

   1 -- stdcall.lua
   2 -- add __stdcall where appropriate
   3 -- usage: lua stdcall.lua <lua.h >s_lua.h
   4 -- usage: lua stdcall.lua <lapi.c >s_lapi.c
   5
   6 T=read"*a"
   7 T=gsub(T,"(lua_%w+%s+%()","__stdcall %1")
   8 T=gsub(T,"(%*lua_CFunction)","__stdcall %1")
   9
  10 write(T)