diff --git a/ChangeLog.txt b/ChangeLog.txt index 20aaef1cb7..a0e51e28f6 100644 --- a/ChangeLog.txt +++ b/ChangeLog.txt @@ -10,6 +10,16 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2013-03-24 23:38 UTC+0100 Viktor Szakats (harbour syenar.net) + * extras/hbdoc/_tmplates.prg + * extras/hbdoc/hbdoc.prg + + several NF docs validation errors are now considered warnings only. + This way contrib docs are now included. + +2013-03-24 23:37 UTC+0100 Viktor Szakats (harbour syenar.net) + * contrib/rddads/doc/en/readme.txt + ! added missing category + 2013-03-24 22:39 UTC+0100 Viktor Szakats (harbour syenar.net) * doc/en/subcodes.txt * extras/hbdoc/_tmplates.prg diff --git a/extras/hbdoc/_tmplates.prg b/extras/hbdoc/_tmplates.prg index 311b959717..51723004d8 100644 --- a/extras/hbdoc/_tmplates.prg +++ b/extras/hbdoc/_tmplates.prg @@ -228,10 +228,11 @@ METHOD FieldName( cField ) CLASS Entry RETURN self:Fields[ AScan( self:Fields, {| a | a[ 1 ] == cField } ) ][ 2 ] METHOD CategoryIndex( cCategory ) CLASS Entry - RETURN AScan( p_aCategories, {| a | a[ 1 ] == cCategory } ) + RETURN AScan( p_aCategories, {| a | HB_ISARRAY( a ) .AND. Len( a ) >= 1 .AND. a[ 1 ] == cCategory } ) METHOD SubcategoryIndex( cCategory, cSubcategory ) CLASS Entry - RETURN hb_AScan( p_aCategories[ ::CategoryIndex( cCategory ) ][ 2 ], cSubcategory, , , .T. ) + RETURN ::CategoryIndex( cCategory ) >= 1 .AND. ; + hb_AScan( p_aCategories[ ::CategoryIndex( cCategory ) ][ 2 ], cSubcategory, , , .T. ) PROCEDURE init_Templates() diff --git a/extras/hbdoc/hbdoc.prg b/extras/hbdoc/hbdoc.prg index 9c6fa65e43..02c158a6e6 100644 --- a/extras/hbdoc/hbdoc.prg +++ b/extras/hbdoc/hbdoc.prg @@ -463,8 +463,8 @@ STATIC PROCEDURE ProcessBlock( aHandle, aContent, cFile, cType, cVersion, o ) o:type_ := cType o:sourcefile_ := cSourceFile o:sourcefileversion_ := cVersion - o:Template := "?TEMPLATE?" o:Name := "?NAME?" + o:SetTemplate( "Function" ) DO WHILE FReadSection( aHandle, @cSectionName, @cSection, @o ) @@ -504,7 +504,7 @@ STATIC PROCEDURE ProcessBlock( aHandle, aContent, cFile, cType, cVersion, o ) IF ( idxCategory := AScan( p_aCategories, {| c | ! Empty( c ) .AND. ( iif( HB_ISCHAR( c ), Lower( c ) == Lower( cSection ), Lower( c[ 1 ] ) == Lower( cSection ) ) ) } ) ) == 0 AddErrorCondition( cFile, "Unknown CATEGORY '" + cSection + "' for template '" + o:Template, aHandle[ 2 ] ) - lAccepted := .F. + // lAccepted := .F. ENDIF CASE cSectionName == "SUBCATEGORY" .AND. o:IsField( "SUBCATEGORY" ) @@ -512,12 +512,12 @@ STATIC PROCEDURE ProcessBlock( aHandle, aContent, cFile, cType, cVersion, o ) IF idxCategory <= 0 .OR. o:Category == "" AddErrorCondition( cFile, "SUBCATEGORY '" + cSection + "' defined before CATEGORY", aHandle[ 2 ] ) - lAccepted := .F. + // lAccepted := .F. ELSEIF ( idxSubCategory := AScan( p_aCategories[ idxCategory ][ 2 ], {| c | c != NIL .AND. ( iif( HB_ISCHAR( c ), Lower( c ) == Lower( cSection ), Lower( c[ 1 ] ) == Lower( cSection ) ) ) } ) ) == 0 AddErrorCondition( cFile, "Unknown SUBCATEGORY '" + p_aCategories[ idxCategory ][ 1 ] + "-" + cSection, aHandle[ 2 ] ) - lAccepted := .F. + // lAccepted := .F. ENDIF @@ -528,7 +528,7 @@ STATIC PROCEDURE ProcessBlock( aHandle, aContent, cFile, cType, cVersion, o ) Lower( cSection ) == "none." ) AddErrorCondition( cFile, "'" + o:Name + "' is identified as template " + o:Template + " but has no RETURNS value (" + cSection + ")", aHandle[ 2 ] - 1 ) - lAccepted := .F. + // lAccepted := .F. CASE ! o:IsConstraint( cSectionName, cSection ) @@ -555,15 +555,13 @@ STATIC PROCEDURE ProcessBlock( aHandle, aContent, cFile, cType, cVersion, o ) ENDDO IF lAccepted - lAccepted := o:IsComplete( @cSource ) - IF ! lAccepted + IF ! o:IsComplete( @cSource ) AddErrorCondition( cFile, "Missing sections: '" + cSource + "'", aHandle[ 2 ] ) - lAccepted := .F. + // lAccepted := .F. ENDIF ENDIF IF ! lAccepted - ELSEIF o:Template == "Function" .AND. ( ; Empty( o:Returns ) .OR. ; Lower( o:Returns ) == "nil" .OR. ; @@ -602,15 +600,14 @@ STATIC PROCEDURE ProcessBlock( aHandle, aContent, cFile, cType, cVersion, o ) IF idxSubCategory == -1 .AND. ( ! o:IsField( "SUBCATEGORY" ) .OR. ! o:IsRequired( "SUBCATEGORY" ) ) // .AND. idxSubCategory == -1 idxSubCategory := o:SubcategoryIndex( o:Category, "" ) - IF idxSubCategory == -1 - idxSubCategory := 1 - ENDIF ENDIF - IF ! HB_ISARRAY( p_aCategories[ idxCategory ][ 3 ][ idxSubCategory ] ) - p_aCategories[ idxCategory ][ 3 ][ idxSubCategory ] := {} + IF idxCategory > 0 .AND. idxSubCategory > 0 + IF ! HB_ISARRAY( p_aCategories[ idxCategory ][ 3 ][ idxSubCategory ] ) + p_aCategories[ idxCategory ][ 3 ][ idxSubCategory ] := {} + ENDIF + AAdd( p_aCategories[ idxCategory ][ 3 ][ idxSubCategory ], o ) ENDIF - AAdd( p_aCategories[ idxCategory ][ 3 ][ idxSubCategory ], o ) ENDIF @@ -893,9 +890,9 @@ PROCEDURE ShowSubHelp( xLine, nMode, nIndent, n ) ENDIF OTHERWISE DO CASE - CASE nMode == 1 ; OutStd( cIndent + xLine ) ; OutStd( hb_eol() ) - CASE nMode == 2 ; OutStd( iif( n > 1, ", ", "" ) + xLine ) - OTHERWISE ; OutStd( "(" + hb_ntos( nMode ) + ") " ) ; OutStd( xLine ) ; OutStd( hb_eol() ) + CASE nMode == 1 ; OutStd( cIndent + xLine ) ; OutStd( hb_eol() ) + CASE nMode == 2 ; OutStd( iif( n > 1, ", ", "" ) + xLine ) + OTHERWISE ; OutStd( "(" + hb_ntos( nMode ) + ") " ) ; OutStd( xLine ) ; OutStd( hb_eol() ) ENDCASE ENDCASE ENDIF