From 98b1bc7596e77f7a14e3662ef694a4e34e1deb34 Mon Sep 17 00:00:00 2001 From: Luis Krause Date: Wed, 17 Sep 2003 18:31:43 +0000 Subject: [PATCH] *** empty log message *** --- harbour/utils/hbdoc/genng.prg | 42 +++++++++++++++++----------------- harbour/utils/hbdoc/genrtf.prg | 6 ++--- 2 files changed, 24 insertions(+), 24 deletions(-) diff --git a/harbour/utils/hbdoc/genng.prg b/harbour/utils/hbdoc/genng.prg index f4eac1d10a..64602ccd83 100644 --- a/harbour/utils/hbdoc/genng.prg +++ b/harbour/utils/hbdoc/genng.prg @@ -1034,25 +1034,25 @@ FUNCTION GenNgTable( oNgi ) nPos := maxelem( afitable ) nPos2 := ASCAN( alensfitem, { | x | x == nPos } ) IF nNumTableItems == 2 - cMaxItem := ' ' + "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "»" + cMaxItem := ' ' + "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "»" IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4 + oNgi:WritePar( " É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4 ELSE - oNgi:WritePar( "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4 + oNgi:WritePar( "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "»", .F. ) //-4 ENDIF ELSEIF nNumTableItems == 3 - cMaxItem := ' ' + "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "»" + cMaxItem := ' ' + "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "»" IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4 + oNgi:WritePar( " É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4 ELSE - oNgi:WritePar( "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4 + oNgi:WritePar( "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "»", .F. ) //-4 ENDIF ELSEIF nNumTableItems == 4 - cMaxItem := ' ' + "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "»" + cMaxItem := ' ' + "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "»" IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4 + oNgi:WritePar( " É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4 ELSE - oNgi:WritePar( "É" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4 + oNgi:WritePar( "É" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ë" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ë" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ë" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "»", .F. ) //-4 ENDIF ENDIF FOR x := 1 TO LEN( asitable ) @@ -1085,22 +1085,22 @@ FUNCTION GenNgTable( oNgi ) ELSE IF nNumTableItems == 2 IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. ) + oNgi:WritePar( " Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. ) ELSE - oNgi:WritePar( "Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. ) + oNgi:WritePar( "Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¹", .F. ) ENDIF ELSEIF nNumTableItems == 3 IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4 + oNgi:WritePar( " Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4 ELSE - oNgi:WritePar( "Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4 + oNgi:WritePar( "Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¹", .F. ) //-4 ENDIF ELSEIF nNumTableItems == 4 IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4 + oNgi:WritePar( " Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4 ELSE - oNgi:WritePar( "Ì" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4 + oNgi:WritePar( "Ì" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Î" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Î" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Î" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¹", .F. ) //-4 ENDIF ENDIF @@ -1110,24 +1110,24 @@ FUNCTION GenNgTable( oNgi ) IF nNumTableItems == 2 IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4 + oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4 ELSE - oNgi:WritePar( "È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4 + oNgi:WritePar( "È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "¼", .F. ) //-4 ENDIF ELSEIF nNumTableItems == 3 IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4 + oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4 ELSE - oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4 + oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "¼", .F. ) //-4 ENDIF ELSEIF nNumTableItems == 4 IF LEN( cMaxItem ) < 76 - oNgi:WritePar( " È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4 + oNgi:WritePar( " È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4 ELSE - oNgi:WritePar( "È" + Replicate(( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate(( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate(( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate(( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4 + oNgi:WritePar( "È" + Replicate( "Í", aLensFitem[ nPos2 ] + 2 ) + "Ê" + Replicate( "Í", alensSitem[ nPos1 ] + 2 ) + "Ê" + Replicate( "Í", alensTitem[ nPos3 ] + 2 ) + "Ê" + Replicate( "Í", alensfoitem[ nPos4 ] + 2 ) + "¼", .F. ) //-4 ENDIF ENDIF diff --git a/harbour/utils/hbdoc/genrtf.prg b/harbour/utils/hbdoc/genrtf.prg index 7c9e171669..3dc9eb977f 100644 --- a/harbour/utils/hbdoc/genrtf.prg +++ b/harbour/utils/hbdoc/genrtf.prg @@ -113,7 +113,7 @@ FUNCTION ProcessRtf() LOCAL xAddBlank LOCAL nNumTopics := 0 LOCAL nCurTopics := 1 - LOCAL cBar := " " + Replicate(( ')', 80 ) + LOCAL cBar := " " + Replicate( ')', 80 ) LOCAL nMode LOCAL cFuncName LOCAL cOneLine @@ -1087,11 +1087,11 @@ FUNCTION GenRtfTable( oRtf ) nPos := maxrtfelem( afitable ) nPos2 := ASCAN( alensfitem, { | x | x == nPos } ) - oRtf:WriteParBox( " " + Replicate(( CHR( 196 ), 80 ) ) + oRtf:WriteParBox( " " + Replicate( CHR( 196 ), 80 ) ) FOR x := 1 TO LEN( afiTable ) ortf:WriteParFixed( IF( AT( "|", afiTable[ x ] ) > 0, STRTRAN( afiTable[ x ], "|", " " ), afiTable[ x ] ), '\fi-426\li426' ) NEXT - oRtf:WriteParBox( " " + Replicate(( CHR( 196 ), 80 ) ) + oRtf:WriteParBox( " " + Replicate( CHR( 196 ), 80 ) ) // oRtf:WritePar( "" ) afiTable := {}