root/trunk/txlib/txtrace2.c

//
//                     TxWin, Textmode Windowing Library
//
//   Original code Copyright (c) 1995-2005 Fsys Software and Jan van Wijk
//
// ==========================================================================
//
// This file contains Original Code and/or Modifications of Original Code as
// defined in and that are subject to the GNU Lesser General Public License.
// You may not use this file except in compliance with the License.
// BY USING THIS FILE YOU AGREE TO ALL TERMS AND CONDITIONS OF THE LICENSE.
// A copy of the License is provided with the Original Code and Modifications,
// and is also available at http://www.dfsee.com/txwin/lgpl.htm
//
// This library is free software; you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published
// by the Free Software Foundation; either version 2.1 of the License,
// or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with this library; (lgpl.htm) if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
// Questions on TxWin licensing can be directed to: txwin@fsys.nl
//
// ==========================================================================
//
// Trace functions for module entry/exit, section-2
//
// Author: J. van Wijk
//
// JvW  20-08-2005   Split-off from txtrace

#define DUMP 1                                  // tracecode always available

#include <txlib.h>
#include <txtpriv.h>


/*****************************************************************************/
// Set timestamping on tracelines on or off
/*****************************************************************************/
void TxTraceSetStamp
(
   BOOL                stamp                    // IN    timestampming on
)
{
   TxTrTstamp = stamp;
}                                               // end 'TxTraceSetStamp'
/*---------------------------------------------------------------------------*/


/*****************************************************************************/
// Handle double floating-point return of a routine
/*****************************************************************************/
void TxTraceRetDouble
(
   char              *mod,                      // IN    module/function name
   double             rc                        // IN    return value
)
{
   if (TxTrIndent[TXTHREADID])
   {
      TxTrIndent[TXTHREADID]--;
   }
   TxTraceLeader();
   TxPrint( "%sRet%s:%s%8.2lf %s%s%s\n", CNM, CNN, CBG, rc,
                                         CNC, mod, CNN);
}                                               // end 'TxTraceRetDouble'
/*---------------------------------------------------------------------------*/