* harbour/doc/inet.txt

* intentionally removed DOC header/footer so that hbdoc/hbdoc2 ignore this file
    * please see en-EN/hbinet.txt which now replaces this file
  * harbour/examples/hbdoc2/hbdoc2.prg
    * removed 'merge' lines mistakenly left in
This commit is contained in:
April White
2009-11-07 03:25:24 +00:00
parent c8c8234c30
commit 05bc559444
3 changed files with 11 additions and 5 deletions

View File

@@ -17,6 +17,13 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-11-07 04:22 UTC+0600 April White (april users.sourceforge.net)
* harbour/doc/inet.txt
* intentionally removed DOC header/footer so that hbdoc/hbdoc2 ignore this file
* please see en-EN/hbinet.txt which now replaces this file
* harbour/examples/hbdoc2/hbdoc2.prg
* removed 'merge' lines mistakenly left in
2009-11-07 03:14 UTC+0600 April White (april users.sourceforge.net)
+ harbour/doc/en-EN/hbinet.txt
+ initial version, based on harbour/inet.txt and source files

View File

@@ -8,7 +8,10 @@
Giancarlo Niccolai <gian@niccolai.ws>
/* $DOC$
intentially removed DOC header/footer so that hbdoc/hbdoc2 ignore this file
please see en-EN/hbinet.txt which now replaces this file
* $TEMPLATE$
* Document
* $NAME$
@@ -341,5 +344,4 @@
* just return the last complete datagram that has been received, up
* to nSize bytes.
* Returns -1 on error, or the number of bytes actually read on success.
* $END$
*/

View File

@@ -896,13 +896,11 @@ FUNCTION Decode( cType, hsBlock, cKey )
RETURN SubStr( cResult, LEN( HB_OSNewLine() ) + 1 )
ENDIF
<<<<<<< .mine
IF ( idx := HB_AScan( p_aCompliance, {|a| a[1] == cCode } ) ) > 0
RETURN p_aCompliance[ idx ][ 2 ]
ELSE
RETURN "Unknown 'COMPLIANCE' code: '" + cCode + "'"
ENDIF
=======
DO CASE
CASE Empty( cCode ) ; RETURN cCode
CASE cCode == "C" ; RETURN "This is CA-Cl*pper v5.2 compliant"
@@ -917,7 +915,6 @@ FUNCTION Decode( cType, hsBlock, cKey )
CASE cCode == "XPP" ; RETURN "This an Xbase++ compatibility function and is only visible if source was compiled with the HB_COMPAT_XPP flag"
OTHERWISE ; RETURN "Unknown 'COMPLIANCE' code: '" + cCode + "'"
ENDCASE
>>>>>>> .r12826
CASE cType == "NAME"
IF hsBlock == NIL