3030402cec
* source/compiler/hbopt.c
! suppressed optimisation if PARAMETER sentence is used
; TODO: PARAMETER sentence support
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/nconvert.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/clrsel.prg
* contrib/hbnf/dfile.prg
* contrib/hbnf/dispmsg.prg
* contrib/hbnf/dosver.prg
* contrib/hbnf/menu1.prg
* contrib/hbnf/menutonf.prg
* contrib/hbodbc/browodbc.prg
* contrib/hbodbc/todbc.prg
* contrib/hbwhat/whatutil.prg
* contrib/hbwhat/wincore.prg
* contrib/hbwhat/windebug.prg
* contrib/hbwhat/winerror.prg
* contrib/hbwhat/wintabs.prg
* contrib/hbwhat/wintbar.prg
* contrib/hbziparc/hbziparc.prg
! fixed assigned but not used variable
145 lines
4.5 KiB
Plaintext
145 lines
4.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
//----------------------------------------------------------------------//
|
|
|
|
#include "set.ch"
|
|
|
|
#define CRLF chr(13)+chr(10)
|
|
|
|
//----------------------------------------------------------------------//
|
|
function WHT__trace(c)
|
|
local cn
|
|
|
|
if valtype(c)=='C'
|
|
cn:=c //:classname()
|
|
endif
|
|
|
|
VWN_OutputDebugString(iif(empty(cn),'',cn+':')+procname(1)+'('+alltrim(str(procline(1)))+')'+;
|
|
' <- '+procname(2)+'('+alltrim(str(procline(2)))+')'+;
|
|
' <- '+procname(3)+'('+alltrim(str(procline(3)))+')'+;
|
|
' <- '+procname(4)+'('+alltrim(str(procline(4)))+')'+;
|
|
' <- '+procname(5)+'('+alltrim(str(procline(5)))+')'+;
|
|
CRLF)
|
|
|
|
return(NIL)
|
|
//----------------------------------------------------------------------//
|
|
* PARAM is used here on purpose to allow for macro expansion of the
|
|
* parameters which are passed here as private !!!!!!!!!
|
|
//----------------------------------------------------------------------//
|
|
FUNCTION WHT__DVIEW()
|
|
PARAM p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18
|
|
|
|
LOCAL no_of_param, x, dbg_array, description, half
|
|
|
|
no_of_param := PCOUNT( )
|
|
half := no_of_param / 2
|
|
|
|
VWN_OutputDebugString( '------------------------------' +CRLF)
|
|
BEGIN SEQUENCE
|
|
FOR x := 1 TO half
|
|
dbg_array := "p" + lTrim( STR( x, 2, 0 ) )
|
|
description := "p" + lTrim( STR( x + half, 2, 0 ) )
|
|
DLIST( &dbg_array, &description )
|
|
NEXT
|
|
END
|
|
|
|
RETURN NIL
|
|
//----------------------------------------------------------------------//
|
|
STATIC FUNCTION DLIST( dbg_array, description )
|
|
LOCAL heading, x, a_len, data_type, value
|
|
|
|
IF ValType( dbg_array ) $ 'AOS'
|
|
a_len := Len( dbg_array )
|
|
DQOUT( ' Array:', description, '', iif( a_len == 0, '', dbg_array ) , Len( dbg_array ) )
|
|
FOR x := 1 TO a_len
|
|
heading := description + "[" + STR( x, 3, 0 ) + "]"
|
|
data_type := ValType( dbg_array[ x ] )
|
|
value := dbg_array[ x ]
|
|
DSINGLE_VIEW( heading, data_type, value )
|
|
NEXT
|
|
ELSE
|
|
heading := description
|
|
data_type := ValType( dbg_array )
|
|
value := dbg_array
|
|
DSINGLE_VIEW( heading, data_type, value )
|
|
ENDIF
|
|
RETURN NIL
|
|
//----------------------------------------------------------------------//
|
|
STATIC FUNCTION DSINGLE_VIEW( heading, data_type, value )
|
|
|
|
DO CASE
|
|
CASE data_type == "A"
|
|
DLIST( value, heading )
|
|
CASE data_type == "B"
|
|
DQOUT( "Code Block:", heading, " => ", value )
|
|
CASE data_type == "C"
|
|
DQOUT( " Character:", heading, " => ", value, .T. )
|
|
CASE data_type == "D"
|
|
DQOUT( " Date:", heading, " => ", value )
|
|
CASE data_type == "L"
|
|
DQOUT( " Logical:", heading, " => ", value )
|
|
CASE data_type == "M"
|
|
DQOUT( " Memo:", heading, " => ", value )
|
|
CASE data_type == "N"
|
|
DQOUT( " Numeric:", heading, " => ", value )
|
|
CASE data_type == "O"
|
|
VWN_OutputDebugString( " Object vv" +CRLF) // arrows don't show in Windows
|
|
DLIST( value, heading )
|
|
VWN_OutputDebugString( " Object ^^" +CRLF) // arrows don't show in windows
|
|
CASE data_type == "N"
|
|
DQOUT( " Numeric:", heading, " => ", value )
|
|
CASE data_type == "U"
|
|
DQOUT( "Undefinded:", heading, " => ", value )
|
|
OTHERWISE
|
|
VWN_OutputDebugString( "Unknown data type returned by VALTYPE()" +CRLF)
|
|
ENDCASE
|
|
RETURN NIL
|
|
//----------------------------------------------------------------------//
|
|
STATIC FUNCTION DQOUT( a, b, c, d, show_len )
|
|
LOCAL e
|
|
|
|
IF ValType( show_len ) == 'L' .AND. show_len
|
|
e := ' (' + LEFT(ALLTRIM(a),1)+ ALLTRIM(STR( Len( d ) , 4, 0 ))+')'
|
|
ELSEIF ValType( show_len ) == 'N'
|
|
e := ' ('+ LEFT(ALLTRIM(a),1) + AllTrim( STR( show_len, 10, 0 ) )+')'
|
|
// ENDIF
|
|
ELSE
|
|
e:=' ('+LEFT(ALLTRIM(a),1)+')'
|
|
ENDIF
|
|
|
|
VWN_OutputDebugString( b + e + c + asstring( d ) +CRLF)
|
|
RETURN NIL
|
|
//----------------------------------------------------------------------//
|
|
STATIC FUNCTION asString( x )
|
|
local v := ValType( x )
|
|
|
|
DO CASE
|
|
CASE v == "C"
|
|
RETURN '"' + x + '"'
|
|
CASE v == "N"
|
|
RETURN AllTrim( str( x ) )
|
|
CASE v == "L"
|
|
IF x
|
|
RETURN ".T."
|
|
ELSE
|
|
RETURN ".F."
|
|
ENDIF
|
|
CASE v == "D"
|
|
RETURN dtoc( x )
|
|
CASE v == "U"
|
|
RETURN "NIL"
|
|
CASE v == "A"
|
|
RETURN "<Array>"
|
|
CASE v == "O"
|
|
RETURN "<Object " + x:classname( ) + ">"
|
|
CASE v == "B"
|
|
RETURN "<Block>"
|
|
OTHERWISE
|
|
RETURN ""
|
|
END CASE
|
|
|
|
RETURN( x )
|
|
//----------------------------------------------------------------------//
|