Mercurial > pygar

annotate core/src/Trace.bsv @ 76:8bd0e4d37ad2 pygar svn.77 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r77] I don't know why my last change didn't go through grumble grumble....
author rlm
date Wed, 12 May 2010 08:58:23 -0400
parents 91a1f76ddd62
children
rev   line source
punk@1 1
punk@1 2 import ClientServer::*;
punk@1 3 import GetPut::*;
punk@1 4
punk@1 5 //----------------------------------------------------------------------
punk@1 6 // ToString typeclass
punk@1 7 //----------------------------------------------------------------------
punk@1 8
punk@1 9 typeclass Traceable#( type item_t );
punk@1 10 function Action traceTiny( String loc, String traceTag, item_t item );
punk@1 11 function Action traceFull( String loc, String traceTag, item_t item );
punk@1 12 endtypeclass
punk@1 13
punk@1 14 instance Traceable#(String);
punk@1 15
punk@1 16 function Action traceTiny( String loc, String ttag, String str );
punk@1 17 $fdisplay(stderr, " => %s:%s %s", loc, ttag, str );
punk@1 18 endfunction
punk@1 19
punk@1 20 function Action traceFull( String loc, String ttag, String str );
punk@1 21 $fdisplay(stderr, " => %s:%s %s", loc, ttag, str );
punk@1 22 endfunction
punk@1 23
punk@1 24 endinstance
punk@1 25
punk@1 26 instance Traceable#(Bit#(n));
punk@1 27
punk@1 28 function Action traceTiny( String loc, String ttag, Bit#(n) b );
punk@1 29 $fdisplay(stderr, " => %s:%s %x", loc, ttag, b );
punk@1 30 endfunction
punk@1 31
punk@1 32 function Action traceFull( String loc, String ttag, Bit#(n) b );
punk@1 33 $fdisplay(stderr, " => %s:%s %x", loc, ttag, b );
punk@1 34 endfunction
punk@1 35
punk@1 36 endinstance
punk@1 37
punk@1 38 //----------------------------------------------------------------------
punk@1 39 // Tracing interface wrappers
punk@1 40 //----------------------------------------------------------------------
punk@1 41
punk@1 42 function Get#(item_t) traceGet( String locStr, String tagStr, Get#(item_t) g )
punk@1 43 provisos ( Traceable#(item_t) );
punk@1 44 return
punk@1 45 (
punk@1 46 interface Get
punk@1 47 method ActionValue#(item_t) get();
punk@1 48 item_t item <- g.get();
punk@1 49 traceTiny(locStr, tagStr,item);
punk@1 50 return item;
punk@1 51 endmethod
punk@1 52 endinterface
punk@1 53 );
punk@1 54 endfunction
punk@1 55
punk@1 56 function Put#(item_t) tracePut( String locStr, String tagStr, Put#(item_t) p )
punk@1 57 provisos ( Traceable#(item_t) );
punk@1 58 return
punk@1 59 (
punk@1 60 interface Put
punk@1 61 method Action put( item_t item );
punk@1 62 traceTiny(locStr, tagStr,item);
punk@1 63 p.put(item);
punk@1 64 endmethod
punk@1 65 endinterface
punk@1 66 );
punk@1 67 endfunction
punk@1 68
punk@1 69 function Client#(req_t,resp_t) traceClient( String locStr, String reqTagStr, String respTagStr,
punk@1 70 Client#(req_t,resp_t) c )
punk@1 71 provisos ( Traceable#(req_t), Traceable#(resp_t) );
punk@1 72 return
punk@1 73 (
punk@1 74 interface Client
punk@1 75 interface Get request = traceGet(locStr, reqTagStr,c.request);
punk@1 76 interface Put response = tracePut(locStr, respTagStr,c.response);
punk@1 77 endinterface
punk@1 78 );
punk@1 79 endfunction
punk@1 80
punk@1 81 function Server#(req_t,resp_t) traceServer( String locStr, String reqTagStr, String respTagStr,
punk@1 82 Server#(req_t,resp_t) c )
punk@1 83 provisos ( Traceable#(req_t), Traceable#(resp_t) );
punk@1 84 return
punk@1 85 (
punk@1 86 interface Server
punk@1 87 interface Put request = tracePut(locStr, reqTagStr,c.request);
punk@1 88 interface Get response = traceGet(locStr, respTagStr,c.response);
punk@1 89 endinterface
punk@1 90 );
punk@1 91 endfunction
punk@1 92