[Harbour] Re: SF.net SVN: harbour-project:[11432] trunk/harbour

Fri, 19 Jun 2009 07:10:06 -0700 

It would have been enough to add return values 'Self', as
you planned in a previous e-mail.

Brgds,
Viktor

On 2009.06.19., at 15:55, ap...@users.sourceforge.net wrote:


Revision: 11432
         
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=11432&view=rev
Author:   april
Date:     2009-06-19 13:55:32 +0000 (Fri, 19 Jun 2009)

Log Message:
-----------
2009-06-19 09:52 UTC+0600 April White (april users.sourceforge.net)
 * contrib/hbblat/blatcls.prg
 * contrib/hbgd/gdimage.prg
 * contrib/xhb/hblog.prg
 * contrib/xhb/stream.prg
 * contrib/xhb/ttable.prg
* reverted to 'procedure' declaration as methods fail to compile without 
     a return value; will address this within the new hbextern

Modified Paths:
--------------
   trunk/harbour/ChangeLog
   trunk/harbour/contrib/hbblat/blatcls.prg
   trunk/harbour/contrib/hbgd/gdimage.prg
   trunk/harbour/contrib/xhb/hblog.prg
   trunk/harbour/contrib/xhb/stream.prg
   trunk/harbour/contrib/xhb/ttable.prg

Modified: trunk/harbour/ChangeLog
===================================================================
--- trunk/harbour/ChangeLog     2009-06-19 13:21:54 UTC (rev 11431)
+++ trunk/harbour/ChangeLog     2009-06-19 13:55:32 UTC (rev 11432)
@@ -17,12 +17,21 @@
   past entries belonging to author(s): Viktor Szakats.
*/

-2009-06-19 09:20 UTC+0600 April White (ap...@users.sourceforge.net)
+2009-06-19 09:52 UTC+0600 April White (april users.sourceforge.net)
  * contrib/hbblat/blatcls.prg
  * contrib/hbgd/gdimage.prg
  * contrib/xhb/hblog.prg
  * contrib/xhb/stream.prg
  * contrib/xhb/ttable.prg
+ * reverted to 'procedure' declaration as methods fail to compile without 
+      a return value; will address this within the new hbextern
+
+2009-06-19 09:20 UTC+0600 April White (april users.sourceforge.net)
+  * contrib/hbblat/blatcls.prg
+  * contrib/hbgd/gdimage.prg
+  * contrib/xhb/hblog.prg
+  * contrib/xhb/stream.prg
+  * contrib/xhb/ttable.prg
    * Declare class methods indicated as procedure

2009-06-19 15:18 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
@@ -251,7 +260,7 @@
  * utils/hbmk2/hbmk2.prg
    + Added -skip option support to .hbm files.

-2009-06-18 16:14 UTC+0600 April White (ap...@users.sourceforge.net)
+2009-06-18 16:14 UTC+0600 April White (april users.sourceforge.net)
  * source/rtl/mlcfunc.c
    * detect if parameter is a string vs array
    * allocate memory for the array before resetting the counter

Modified: trunk/harbour/contrib/hbblat/blatcls.prg
===================================================================
--- trunk/harbour/contrib/hbblat/blatcls.prg 2009-06-19 13:21:54 UTC (rev 11431) +++ trunk/harbour/contrib/hbblat/blatcls.prg 2009-06-19 13:55:32 UTC (rev 11432) 
@@ -221,7 +221,7 @@

   RETURN ::nError

-METHOD Check() CLASS HBBlat
+PROCEDURE Check() CLASS HBBlat

   // Not using registry, so every parameter has to be explicity set
   // No control apart from existence

Modified: trunk/harbour/contrib/hbgd/gdimage.prg
===================================================================
--- trunk/harbour/contrib/hbgd/gdimage.prg 2009-06-19 13:21:54 UTC (rev 11431) +++ trunk/harbour/contrib/hbgd/gdimage.prg 2009-06-19 13:55:32 UTC (rev 11432) 
@@ -298,7 +298,7 @@
   ::Create( sx, sy )
RETURN Self

-METHOD Destruct() CLASS GDImage
+PROCEDURE Destruct() CLASS GDImage
  //__OutDebug( "Destroyed" )
  IF ::lDestroy
     ::Destroy()

Modified: trunk/harbour/contrib/xhb/hblog.prg
===================================================================
--- trunk/harbour/contrib/xhb/hblog.prg 2009-06-19 13:21:54 UTC (rev 11431) +++ trunk/harbour/contrib/xhb/hblog.prg 2009-06-19 13:55:32 UTC (rev 11432) 
@@ -251,7 +251,7 @@
* Open all the channels calling their ::Open() method
*/

-METHOD Open() CLASS HB_Logger
+PROCEDURE Open() CLASS HB_Logger

   LOCAL oChannel

@@ -268,7 +268,7 @@
/**
* Close all the channels calling their ::Close() method
*/
-METHOD Close() CLASS HB_Logger
+PROCEDURE Close() CLASS HB_Logger

   LOCAL oChannel

@@ -285,7 +285,7 @@
/**
* Send a log message to all the channels
*/
-METHOD Log( cMessage, nPriority ) CLASS HB_Logger
+PROCEDURE Log( cMessage, nPriority ) CLASS HB_Logger
   LOCAL oChannel

   IF nPriority == NIL
@@ -344,7 +344,7 @@
* if the log level is higher or equal than the channel setting
*/

-METHOD Log( nStyle, cMessage, cName, nPriority ) CLASS HB_LogChannel
+PROCEDURE Log( nStyle, cMessage, cName, nPriority ) CLASS HB_LogChannel 

   IF nPriority <= ::nLevel .and. ::lActive
      ::Send( nStyle, cMessage, cName, nPriority )
@@ -459,7 +459,7 @@

RETURN .T.

-METHOD Send( nStyle, cMessage, cName, nPriority ) CLASS HB_LogConsole
+PROCEDURE Send( nStyle, cMessage, cName, nPriority ) CLASS HB_LogConsole 

   IF ::lRealConsole
OutStd( ::Format( nStyle, cMessage, cName, nPriority ), HB_OSnewLine() ) 
@@ -657,7 +657,7 @@

RETURN Self

-METHOD Send( nStyle, cMessage, cName, nPriority ) CLASS HB_LogDebug
+PROCEDURE Send( nStyle, cMessage, cName, nPriority ) CLASS HB_LogDebug 

   IF .not. Empty( ::nMaxLevel )
      IF nPriority < ::nMaxLevel

Modified: trunk/harbour/contrib/xhb/stream.prg
===================================================================
--- trunk/harbour/contrib/xhb/stream.prg 2009-06-19 13:21:54 UTC (rev 11431) +++ trunk/harbour/contrib/xhb/stream.prg 2009-06-19 13:55:32 UTC (rev 11432) 
@@ -94,7 +94,7 @@

ENDCLASS

-METHOD CopyTo( oTargetStream ) CLASS TStream
+PROCEDURE CopyTo( oTargetStream ) CLASS TStream

   LOCAL nBytesToRead := ::nLength
   LOCAL sBuffer := Space( BUFFER_SIZE )
@@ -164,7 +164,7 @@

   RETURN Self

-METHOD Finalize CLASS TStreamFileReader
+PROCEDURE Finalize CLASS TStreamFileReader
   ::Close()
   RETURN

@@ -242,7 +242,7 @@

   RETURN Self

-METHOD Finalize CLASS TStreamFileWriter
+PROCEDURE Finalize CLASS TStreamFileWriter
   ::Close()
   RETURN

@@ -260,7 +260,7 @@

   RETURN nWritten

-METHOD WriteByte( cByte ) CLASS TStreamFileWriter
+PROCEDURE WriteByte( cByte ) CLASS TStreamFileWriter

   LOCAL nWritten := FWrite( ::Handle, cByte, 1 )


Modified: trunk/harbour/contrib/xhb/ttable.prg
===================================================================
--- trunk/harbour/contrib/xhb/ttable.prg 2009-06-19 13:21:54 UTC (rev 11431) +++ trunk/harbour/contrib/xhb/ttable.prg 2009-06-19 13:55:32 UTC (rev 11432) 
@@ -574,7 +574,7 @@
RETURN Self


-METHOD GET() CLASS HBRecord
+PROCEDURE GET() CLASS HBRecord

   LOCAL xField

@@ -586,7 +586,7 @@
RETURN


-METHOD Put() CLASS HBRecord
+PROCEDURE Put() CLASS HBRecord

   LOCAL xField

@@ -850,7 +850,7 @@
RETURN ( lSuccess )


-METHOD DBMove( nDirection ) CLASS HBTable
+PROCEDURE DBMove( nDirection ) CLASS HBTable

   DEFAULT nDirection TO 0

@@ -943,7 +943,7 @@
RETURN oNew


-METHOD READ( lKeepBuffer ) CLASS HBTable
+PROCEDURE READ( lKeepBuffer ) CLASS HBTable

   LOCAL i
   LOCAL nSel   := SELECT( ::Alias )
@@ -973,7 +973,7 @@
RETURN


-METHOD ReadBlank( lKeepBuffer ) CLASS HBTable
+PROCEDURE ReadBlank( lKeepBuffer ) CLASS HBTable

   LOCAL i
   LOCAL nSel   := SELECT( ::Alias )
@@ -1417,7 +1417,7 @@
// Relation Methods
//
-METHOD AddChild( oChild, cKey ) CLASS HBTable // ::addChild() +PROCEDURE AddChild( oChild, cKey ) CLASS HBTable // ::addChild() 

   AADD( ::aChildren, { oChild, cKey } )
   oChild:oParent := Self
@@ -1447,13 +1447,13 @@
RETURN Self


-METHOD AddField( f, t, l, d ) CLASS HBTable
+PROCEDURE AddField( f, t, l, d ) CLASS HBTable

   AADD( ::aStruc, { f, t, l, d } )
RETURN


-METHOD Gentable() CLASS HBTable
+PROCEDURE Gentable() CLASS HBTable

   DBCREATE( ::cDbf, ::aStruc, ::Driver )
RETURN
@@ -1544,7 +1544,7 @@
RETURN Self


-METHOD Create() CLASS HBOrder
+PROCEDURE Create() CLASS HBOrder

   DEFAULT ::cOrderBag TO ::oTable:cOrderBag
   //? "<<<",::alias, ::cOrderBag
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. 

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to