d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Updated to version 0.1.1 of Prime Mover.

Browse source
This commit is contained in:
dtrg 2007-02-25 12:39:52 +00:00
parent 681e2e0432
commit 880e3eade8
2 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
first/c.pm
View file

@ -1,6 +1,6 @@
-- $Id$ -- $Id$
-- $HeadURL: https://svn.sourceforge.net/svnroot/primemover/pm/lib/c.pm $ -- $HeadURL: https://primemover.svn.sf.net/svnroot/primemover/pm/lib/c.pm $
-- $LastChangedDate: 2006-10-12 20:17:52Z $ -- $LastChangedDate: 2007-02-24 01:37:06 +0000 (Sat, 24 Feb 2007) $
-- pm includefile to compile *host* C programs. -- pm includefile to compile *host* C programs.

26
pm
View file

@ -58,7 +58,7 @@ echo "pm: bootstrap failed."
exit 1 exit 1
XXXXSTARTscript XXXXSTARTscript
38419 38405
#!/usr/bin/lua #!/usr/bin/lua
-- Prime Mover -- Prime Mover
-- --
@ -66,13 +66,13 @@ XXXXSTARTscript
-- Prime Mover is licensed under the MIT open source license. Search -- Prime Mover is licensed under the MIT open source license. Search
-- for 'MIT' in this file to find the full license text. -- for 'MIT' in this file to find the full license text.
-- --
-- $Id: pm 74 2006-10-12 20:11:47Z dtrg $ -- $Id: pm 93 2007-02-24 21:20:53Z dtrg $
-- ======================================================================= -- -- ======================================================================= --
-- GLOBALS -- -- GLOBALS --
-- ======================================================================= -- -- ======================================================================= --
local VERSION = "0.1" local VERSION = "0.1.1"
-- Fast versions of useful system variables. -- Fast versions of useful system variables.
@ -1694,19 +1694,19 @@ for _, i in ipairs(targets) do
usererror("'", i, "' doesn't seem to be a valid target") usererror("'", i, "' doesn't seem to be a valid target")
end end
-- xpcall( xpcall(
-- function() function()
o:__build() o:__build()
-- end, end,
-- function(e) function(e)
-- message("rule engine execution error --- traceback follows:") message("rule engine execution error --- traceback follows:")
-- traceback(e) traceback(e)
-- end end
-- ) )
end end
XXXXSTARTinterpreter XXXXSTARTinterpreter
253576 253583
#include <signal.h> #include <signal.h>
#include <sys/wait.h> #include <sys/wait.h>
#include <stdarg.h> #include <stdarg.h>
@ -4573,7 +4573,7 @@ int Pgetgroup(lua_State*L){struct group*g=NULL;if(lua_isnumber(L,1))g=getgrgid
return 1;}static int Psetuid(lua_State*L){return lposix_pushresult(L,setuid( return 1;}static int Psetuid(lua_State*L){return lposix_pushresult(L,setuid(
mygetuid(L,1)),NULL);}static int Psetgid(lua_State*L){return lposix_pushresult mygetuid(L,1)),NULL);}static int Psetgid(lua_State*L){return lposix_pushresult
(L,setgid(mygetgid(L,1)),NULL);}struct mytimes{struct tms t;clock_t elapsed;}; (L,setgid(mygetgid(L,1)),NULL);}struct mytimes{struct tms t;clock_t elapsed;};
#define pushtime(L,x) lua_pushnumber(L,((lua_Number)x)/CLK_TCK) #define pushtime(L,x) lua_pushnumber(L,((lua_Number)x)/CLOCKS_PER_SEC)
static int Ftimes(lua_State*L,int i,const void*data){const struct mytimes*t= static int Ftimes(lua_State*L,int i,const void*data){const struct mytimes*t=
data;switch(i){case 0:pushtime(L,t->t.tms_utime);break;case 1:pushtime(L,t->t. data;switch(i){case 0:pushtime(L,t->t.tms_utime);break;case 1:pushtime(L,t->t.
tms_stime);break;case 2:pushtime(L,t->t.tms_cutime);break;case 3:pushtime(L,t tms_stime);break;case 2:pushtime(L,t->t.tms_cutime);break;case 3:pushtime(L,t