2010-05-13 10:01 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* tests/test.prg
    ! Implemented missing function.

  * package/winuni/RELNOTES
    * upx 3.04 -> 3.05

  * contrib/hbct/ctcom1.c
    * Minor formatting.

harbour/ChangeLog

@@ -17,6 +17,16 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-05-13 10:01 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * tests/test.prg
+    ! Implemented missing function.
+
+  * package/winuni/RELNOTES
+    * upx 3.04 -> 3.05
+
+  * contrib/hbct/ctcom1.c
+    * Minor formatting.
+
 2010-05-12 22:17 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * INSTALL
     * Two minor cleanups

harbour/contrib/hbct/ctcom1.c

@@ -382,8 +382,8 @@ HB_FUNC( COM_INIT )
    hb_retl( hb_comInit( iPort, iBaud, iParity, iSize, iStop ) != -1 );
 }
 
-/*  COM_OPEN( <nComPort>, [<nBufferIn>=100] [, <nBufferOut>=0],
- *            [<lTrapMode>] ) -> <lStatus>
+/* COM_OPEN( <nComPort>, [<nBufferIn>=100] [, <nBufferOut>=0],
+ *           [<lTrapMode>] ) -> <lStatus>
  */
 HB_FUNC( COM_OPEN )
 {

harbour/package/winuni/RELNOTES

@@ -81,6 +81,7 @@ Changes since previous (2.0.0) release:
 - Upgraded to mingw 4.5.0 official release.
 - Upgraded to QT 4.6.2 (from 4.5.3).
 - Upgraded to MSVC 2010 (from 2008).
+- upx updated to 3.05.
 
 Changes since previous (2.0.0beta3 20090905) release:
 -----------------------------------------------------------------------

harbour/tests/test.prg

@@ -1,18 +1,23 @@
-//
-// $Id$
-//
+/*
+ * $Id$
+ */
 
-//
+PROCEDURE Main()
 
-procedure main()
-
-   local s := " " + chr(0) + "  mab  " + chr(0) + " "
+   LOCAL s := " " + Chr( 0 ) + "  mab  " + Chr( 0 ) + " "
 
    StrDump( s )
    QOut( s )
 
-   qout( '"' + ltrim(s) + '"' )
-   qout( '"' + rtrim(s) + '"' )
-   qout( '"' + alltrim(s) + '"' )
+   QOut( '"' + LTrim( s ) + '"' )
+   QOut( '"' + RTrim( s ) + '"' )
+   QOut( '"' + AllTrim( s ) + '"' )
 
-return
+   RETURN
+
+STATIC PROCEDURE StrDump( s )
+   LOCAL tmp
+   FOR EACH tmp IN s
+      QOut( Asc( tmp ) )
+   NEXT
+   RETURN