1. c_func logfile include
Expanding on David's idea he posted earlier, I hacked this little thing
together, to log c_func and c_proc calls.
If some ambitious soul would translate the windows message declarations
into a nice sequence (ie, instead of WM_ACTIVATEAPP=#1C we would have
msg[#1C]="WM_ACTIVATEAPP") we could print those out in the logfile, too,
and then this would be a nice way to track windows messages. In the case
of windows functions, the first parameter is usually the window handle and
the second is iMsg--the message number. The rest are parameters for that
particular message.
--Brent
--cfunclog.e
--
--logs all c_func and c_proc calls to "trace.txt"
--
--to use this:
-- 1. replace all calls to "c_func" with "log_c_func"
-- 2. replace all calls to "c_proc" with "log_c_proc"
-- 3. right after your call to define_c_func:
-- handle = define_c_func(dll, name, args, result)
-- insert this line
-- log_funcname(dll, name, handle)
-- 4. right after your call to define_c_proc:
-- handle = define_c_proc(dll, name, args, result)
-- insert that same line again
-- log_funcname(dll, name, handle)
-- 5. include cfunclog.e in your program
-- 6. turn logging on/off with variable logC (or just set it here on or off)
-- 7. numeric variables are printed twice in a row: once decimal, once hex
--First you get a list of all functions/procedures defined, then a list of all
--function/procedure calls and the parameters passed.
--A new logfile is created for each program run (ie, the previous logfile
is deleted)
--Brent Hugh
atom traceFile
global atom logC
logC=1 --logging on=1, off=0
sequence functionname
functionname=repeat("",2000) --handles up to 2000 functions
traceFile = open("trace.txt", "w")--make a new file each session
close(traceFile)
global function log_c_func( atom i, sequence s )
if logC then
traceFile = open("trace.txt", "a")
printf( traceFile, "function %s %d %x, params ",
{functionname[i],i,i} )
for x =1 to length(s) do
printf(traceFile, "%d %x ", {s[x], s[x]})
end for
puts(traceFile, "\n")
close(traceFile) --open & close file each time so as to not lose
data on gpf
end if
return c_func( i, s )
end function
global procedure log_c_proc( atom i, sequence s )
if logC then
traceFile = open("trace.txt", "a")
printf( traceFile, "function %d %x, params ", {i,i} )
for x =1 to length(s) do
printf(traceFile, "%d %x ", {s[x], s[x]})
end for
puts(traceFile, "\n")
close(traceFile)
end if
c_proc( i, s )
end procedure
global procedure log_funcname( atom dll, sequence name, atom handle )
if logC then
if handle> 0 then functionname[handle]=name end if
traceFile = open("trace.txt", "a")
printf( traceFile, "%d %x %s %d %x\n", {dll, dll, name, handle,
handle} )
close(traceFile) --open & close each time so as to not lose data
on gpf
end if
end procedure
++++++++++++++++++++ Brent Hugh / bhugh at cstp.umkc.edu ++++++++++++++++++++
++++++++ University of Missouri-Kansas City, Conservatory of Music +++++++
++ Sheet Music/Recordings: http://www.sunflower.org/~bhugh/pathetic.spm ++
+ Internet Piano Concert: http://cctr.umkc.edu/userx/bhugh/recital.html +
++++++++++ Classical Piano MP3s http://www.mp3.com/brent_d_hugh ++++++++++
