From 7207ef49879849bb17d34a376026a5f4480c7f05 Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Wed, 9 Feb 2000 10:16:29 +0000 Subject: [PATCH] See changelog 20000209 08:15 --- harbour/ChangeLog | 8 +++++ harbour/source/rtl/mouse/mousedos.c | 25 +++++++++++--- harbour/source/rtl/readme.prg | 18 +++++++--- harbour/utils/hbdoc/hbdoc.prg | 51 ++++++++++++++++------------- 4 files changed, 70 insertions(+), 32 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d0a9237054..b5ce956d2d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,11 @@ +20000209-08:15 GMT-3 Luiz Rafael Culik + *utils/hbdoc/hbdoc.prg + *Fixed /w1 warnign when hbdoc is compiled with this switch + changed compilance to compliance and plataform to platform + *source/rtl/readme.prg + *Some formating + *source/rtl/mouse/mousedos.c + * hb_mouse_GetBounds() implemented 20000209-10:43 GMT+1 Victor Szakats * utils/hbdoc/hbdoc.prg ! Misc small fixes. diff --git a/harbour/source/rtl/mouse/mousedos.c b/harbour/source/rtl/mouse/mousedos.c index 98a478250d..cec9af3ae3 100644 --- a/harbour/source/rtl/mouse/mousedos.c +++ b/harbour/source/rtl/mouse/mousedos.c @@ -248,11 +248,26 @@ void hb_mouse_SetBounds( int iTop, int iLeft, int iBottom, int iRight ) void hb_mouse_GetBounds( int * piTop, int * piLeft, int * piBottom, int * piRight ) { - /* TODO: */ + if( s_bPresent ) + { +#if defined(__DJGPP__) ||defined(__BORLANDC__) + union REGS regs; + + + regs.x.ax = 7; + int86( MOUSE_INTERRUPT, ®s, ®s ); + piLeft=regs.x.cx/8 ; + piRight=regs.x.dx/8 ; + + + + regs.x.ax = 8; + int86( MOUSE_INTERRUPT, ®s, ®s ); + piTop=regs.x.cx/8 ; + piBottom-regs.x.dx/8 ; + +#endif + } - HB_SYMBOL_UNUSED( piTop ); - HB_SYMBOL_UNUSED( piLeft ); - HB_SYMBOL_UNUSED( piBottom ); - HB_SYMBOL_UNUSED( piRight ); } diff --git a/harbour/source/rtl/readme.prg b/harbour/source/rtl/readme.prg index 6dd865eabd..4bdec441b7 100644 --- a/harbour/source/rtl/readme.prg +++ b/harbour/source/rtl/readme.prg @@ -80,13 +80,23 @@ * * --- DISCLAIMER --- * - * Participants of The Harbour Project assume no responsibility for errors or omissions in these materials. + * Participants of The Harbour Project assume no responsibility for errors or + * omissions in these materials. * - * THESE MATERIALS ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT. + * THESE MATERIALS ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER + * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO, THE IMPLIED WARRANTIES + * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT. * - * Participants of The Harbour Project further do not warrant the accuracy or completeness of the code, information, text, output or any other items contained within these materials. Participants of The Harbour Project shall not be liable for any special, direct, indirect, incidental, or consequential damages, including without limitation, lost revenues or lost profits, which may result from the use or mis-use of these materials. + * Participants of The Harbour Project further do not warrant the accuracy or + * completeness of the code, information, text, output or any other items + * contained within these materials. Participants of The Harbour Project + * shall not be liable for any special, direct, indirect, incidental, or + * consequential damages, including without limitation, lost revenues or + * lost profits, which may result from the use or mis-use of these materials. * - * The information in The Harbour Project is subject to change without notice and does not represent any future commitment by the participants of The Harbour Project. + * The information in The Harbour Project is subject to change without notice + * and does not represent any future commitment by the participants of The + * Harbour Project. * * The Harbour Project * diff --git a/harbour/utils/hbdoc/hbdoc.prg b/harbour/utils/hbdoc/hbdoc.prg index 18c8a307ea..6ef0b8d705 100644 --- a/harbour/utils/hbdoc/hbdoc.prg +++ b/harbour/utils/hbdoc/hbdoc.prg @@ -125,6 +125,7 @@ STATIC lAuthor := .T. // Include author in output of ascii out STATIC lRtf := .F. STATIC oRtf STATIC oHtm +STATIC oOs2,oTroff,oNgi,xTemp STATIC lNgi := .F. STATIC lOs2 := .F. STATIC lWww := .F. @@ -169,7 +170,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile ) LOCAL aExtensions := { "*.prg", "*.c", "*.asm", "*.ch" , "*.txt" } LOCAL i LOCAL j - LOCAL nItem + LOCAL nItem,nHpj,nPos,nAlso LOCAL cBatName LOCAL nSec1 LOCAL cCompiler // Compiler type @@ -181,6 +182,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile ) LOCAL cFName // Name params LOCAL aName // Tokenized name LOCAL nLen // Length of the token array + LOCAL cTemp // // Entry Point // @@ -390,7 +392,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile ) ? "@Echo OFF" ? "ECHO Assembling input files" - lfirst := .t. + IF lNorton FOR i := 1 TO LEN( aDocInfo ) @@ -403,7 +405,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile ) // Make the first copy ? "ECHO Creating", aLinkinfo[ nItem, 2 ] ? "COPY hdf\" + ALLTRIM( aDocInfo[ i, 4 ] ) + " HarDoc.hdf > NUL" - lfirst := .f. + ELSE // This may be slow but I don't have to worry about line length ? "TYPE hdf\" + ALLTRIM( aDocInfo[ i, 4 ] ) + " >> HarDoc.hdf " @@ -971,7 +973,7 @@ STATIC FUNCTION ProcessFiles FWRITE( nWriteHandle, CRLF ) ENDIF FWRITE( nWriteHandle, ".par bold on" + CRLF ) - FWRITE( nWriteHandle, " Compilance" + CRLF ) + FWRITE( nWriteHandle, " Compliance" + CRLF ) FWRITE( nWriteHandle, ".endpar" + CRLF ) @@ -983,7 +985,7 @@ STATIC FUNCTION ProcessFiles FWRITE( nWriteHandle, CRLF ) ENDIF FWRITE( nWriteHandle, ".par bold on" + CRLF ) - FWRITE( nWriteHandle, " Plataforms" + CRLF ) + FWRITE( nWriteHandle, " Platforms" + CRLF ) FWRITE( nWriteHandle, ".endpar" + CRLF ) nMode := D_NORMAL @@ -1682,7 +1684,7 @@ STATIC FUNCTION ASCIIFiles nDocCnt ++ ENDIF - FWRITE( nWriteHandle, " Compilance:" + CRLF ) + FWRITE( nWriteHandle, " Compliance:" + CRLF ) nDocCnt ++ nMode := D_NORMAL lAddBlank := .T. @@ -1696,7 +1698,7 @@ STATIC FUNCTION ASCIIFiles nDocCnt ++ ENDIF - FWRITE( nWriteHandle, " Plataforms:" + CRLF ) + FWRITE( nWriteHandle, " Platforms:" + CRLF ) nDocCnt ++ nMode := D_NORMAL lAddBlank := .T. @@ -2107,7 +2109,7 @@ RETURN cBuffer FUNCTION FT_FGotop() FSEEK( theHandle:nHan, 0, 0 ) -RETURN +RETURN NIL *+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± *+ @@ -2192,6 +2194,7 @@ STATIC FUNCTION ProcessRtf LOCAL cBuffer LOCAL nEnd LOCAL nCount + LOCAL xAddBlank LOCAL cBar := "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" LOCAL nMode @@ -2451,7 +2454,7 @@ STATIC FUNCTION ProcessRtf oRtf:WritePar( "" ):EndPar() ENDIF oRtf:WritePar( "" ):EndPar() - oRtf:WriteParBold( " Compilance" ) + oRtf:WriteParBold( " Compliance" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cPlat, cBuffer ) > 0 @@ -2459,7 +2462,7 @@ STATIC FUNCTION ProcessRtf IF !lBlankLine oRtf:WritePar( "" ):EndPar() ENDIF - oRtf:WriteParBold( " Plataforms" ) + oRtf:WriteParBold( " Platforms" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cFiles, cBuffer ) > 0 @@ -2985,7 +2988,7 @@ STATIC FUNCTION ProcessWww IF !lBlankLine oHtm:WritePar( "" ) ENDIF - oHtm:WriteParBold( " Compilance" ) + oHtm:WriteParBold( " Compliance" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cPlat, cBuffer ) > 0 @@ -2993,7 +2996,7 @@ STATIC FUNCTION ProcessWww IF !lBlankLine oHtm:WritePar( "" ) ENDIF - oHtm:WriteParBold( " Plataforms" ) + oHtm:WriteParBold( " Platforms" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cFiles, cBuffer ) > 0 @@ -3306,7 +3309,7 @@ STATIC FUNCTION ProcessNgi LOCAL lDone LOCAL cBuffer LOCAL nEnd - LOCAL nCount + LOCAL nCount ,nAlso LOCAL cBar := "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" LOCAL nMode @@ -3572,7 +3575,7 @@ STATIC FUNCTION ProcessNgi IF !lBlankLine oNgi:WritePar( "" ) ENDIF - oNgi:WriteParBold( " Compilance" ) + oNgi:WriteParBold( " Compliance" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cPlat, cBuffer ) > 0 @@ -3580,7 +3583,7 @@ STATIC FUNCTION ProcessNgi IF !lBlankLine oNgi:WritePar( "" ) ENDIF - oNgi:WriteParBold( " Plataforms" ) + oNgi:WriteParBold( " Platforms" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cFiles, cBuffer ) > 0 @@ -3710,7 +3713,9 @@ FUNCTION ProcNgiInput() LOCAL aFuncsn_ := {} LOCAL acfiles := {} LOCAL aComms := {} - LOCAL cName + LOCAL cName,cT,cTs,cFile + LOCAL x,nPos,nAlso,y + LOCAL nXhandle := FCREATE( 'ngi\funcam.txt' ) LOCAL nYhandle := FCREATE( 'ngi\funcn_.txt' ) LOCAL xY := "!Short:" @@ -3891,7 +3896,7 @@ FUNCTION ProcNgiAlso2( cSeealso ) LOCAL nPos LOCAL cTemp := '' LOCAL c - LOCAL nLEN + LOCAL nLEN,nAlso LOCAL cReturn LOCAL xAlso := {} LOCAL hPos := 0 @@ -4256,7 +4261,7 @@ STATIC FUNCTION ProcessTroff IF !lBlankLine oTroff:WriteText( ".sp" + CRLF + ".in 0.4i" ) ENDIF - otroff:WriteParBold( " Compilance" ) + otroff:WriteParBold( " Compliance" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cPlat, cBuffer ) > 0 @@ -4264,7 +4269,7 @@ STATIC FUNCTION ProcessTroff IF !lBlankLine oTroff:WriteText( ".sp" + CRLF + ".in 0.4i" ) ENDIF - otroff:WriteParBold( " Plataforms" ) + otroff:WriteParBold( " Platforms" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cFiles, cBuffer ) > 0 @@ -4360,7 +4365,7 @@ STATIC FUNCTION ProcessTroff FT_FUSE() NEXT - +RETURN NIL *+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± *+ *+ Function ProcTroffAlso() @@ -4414,7 +4419,7 @@ STATIC FUNCTION ProcessOs2 LOCAL lDone LOCAL cBuffer LOCAL nEnd - LOCAL nCount + LOCAL nCount,nAlso LOCAL cBar := "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" LOCAL nMode @@ -4676,7 +4681,7 @@ STATIC FUNCTION ProcessOs2 IF !lBlankLine oOs2:WritePar( "" ) ENDIF - oOs2:WriteParBold( " Compilance" ) + oOs2:WriteParBold( " Compliance" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cPlat, cBuffer ) > 0 @@ -4684,7 +4689,7 @@ STATIC FUNCTION ProcessOs2 IF !lBlankLine oOs2:WritePar( "" ) ENDIF - oOs2:WriteParBold( " Plataforms" ) + oOs2:WriteParBold( " Platforms" ) nMode := D_NORMAL lAddBlank := .T. ELSEIF AT( cFiles, cBuffer ) > 0