2009-08-04 12:41 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbtpathy/tpwin.c
  * contrib/hbtpathy/ChangeLog
  * contrib/hbtpathy/telepath.prg
    * Formatting.
    + Added some dummy functions to at least make the win version link
      properly. It didn't work for me though.

  * contrib/hbwin/win_tprt.prg
  * contrib/hbwin/win_prt.c
    * Formatting.
    * Added Hungarian notation to variables.
    ! Tweaked a few types.
    + Extended number of ports to 32 (from 16). F.e. on my system
      the Nokia phone gets installed on COM22.
    ; TODO: Rename functions/class to comply with rest of lib.

harbour/ChangeLog

@@ -17,6 +17,23 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-08-04 12:41 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbtpathy/tpwin.c
+  * contrib/hbtpathy/ChangeLog
+  * contrib/hbtpathy/telepath.prg
+    * Formatting.
+    + Added some dummy functions to at least make the win version link
+      properly. It didn't work for me though.
+
+  * contrib/hbwin/win_tprt.prg
+  * contrib/hbwin/win_prt.c
+    * Formatting.
+    * Added Hungarian notation to variables.
+    ! Tweaked a few types.
+    + Extended number of ports to 32 (from 16). F.e. on my system
+      the Nokia phone gets installed on COM22.
+    ; TODO: Rename functions/class to comply with rest of lib.
+
 2009-08-04 03:44 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * source/vm/fm.c
     ! Fixed linux/sunpro warning.

harbour/contrib/hbtpathy/ChangeLog

@@ -109,7 +109,6 @@
    * tp_/testtp.prg
       + Added CVS ID to every file
 
-
 I sent the original version to the flagship website in may 2000.
 I just now (July 2001) made the first change to the code.
 
@@ -120,6 +119,3 @@ assumed that if you were setting parity to N, the port was already at N and I
 didn't explicitly call stty -parenb and -parodd.
 
 I included telepathy.bak in case you care to look at the prior version.
-
-
-

harbour/contrib/hbtpathy/tpwin.c

@@ -120,4 +120,12 @@ HB_FUNC( P_WRITEPORT )
    hb_retnl( bRet ? ( long ) nWritten : -1 ); /* Put GetLastError() on error, or better a second byref param? */
 }
 
+/* TODO: Implement these dummy functions. */
+HB_FUNC( P_OUTFREE ) {}
+HB_FUNC( P_CTRLCTS ) {}
+HB_FUNC( P_ISDCD ) {}
+HB_FUNC( P_ISRI ) {}
+HB_FUNC( P_ISDSR ) {}
+HB_FUNC( P_ISCTS ) {}
+
 #endif /* HB_OS_WIN */

harbour/contrib/hbwin/win_tprt.prg

@@ -55,7 +55,7 @@
 
 #include "hbwin.ch"
 
-#define MAXSERIAL                   16
+#define MAXSERIAL                   32
 
 //
 // The class is a VERY thin layer over the xHarbour functions and the xHarbour functions
@@ -121,7 +121,7 @@ METHOD Init( cPortName, nBaudRate, nParity, nByteSize, nStopBits ) CLASS WinPort
 
    RETURN self
 
-METHOD Read( /*@*/cString, nLength ) CLASS WinPort
+METHOD Read( /* @ */ cString, nLength ) CLASS WinPort
    LOCAL nResult
 
    cString := Space( nlength )
@@ -204,6 +204,6 @@ METHOD Error() CLASS WinPort
    ENDIF
 
    // WinPortError clears the error - don't call it twice
-   cString += "error (" + LTrim( Str( nError := WinPortError() ) ) + ") : " + FormatMessage( nError )
+   cString += "error (" + hb_ntos( nError := WinPortError() ) + ") : " + FormatMessage( nError )
 
    RETURN cString