1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
// This file is part of Roxen Search 
// Copyright © 2001 - 2009, Roxen IS. All rights reserved. 
// 
// $Id: debug.h,v 1.4 2009/05/25 12:41:23 mast Exp $ 
 
#define TRACE werror("### %s:%d\n"    \ 
                     "  %O()\n"         \ 
                     "  %{%O, %}\n",    \ 
                     __FILE__, __LINE__,\ 
                     backtrace()[-1][2],\ 
                     column(map(indices(allocate(5)),peek), 1)) 
#define SHOW(x) werror("### %s(%d) %s == %O\n", __FILE__, __LINE__, #x, (x))