2009-06-15 23:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* utils/hbmk2/hbmk2.prg
  * examples/uhttpd2/socket.c
    * Minor formatting.

  * examples/uhttpd2/items.dbf
    * Updated with content. Thanks Mindaugas.

harbour/ChangeLog

@@ -17,6 +17,14 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-15 23:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * utils/hbmk2/hbmk2.prg
+  * examples/uhttpd2/socket.c
+    * Minor formatting.
+
+  * examples/uhttpd2/items.dbf
+    * Updated with content. Thanks Mindaugas.
+
 2009-06-15 20:55 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * examples/superlib/readme.txt
   * examples/dbu/readme.txt

harbour/examples/uhttpd2/socket.c

@@ -152,7 +152,7 @@ static PHB_ITEM hb_itemPutSockaddr( PHB_ITEM pItem, const struct sockaddr* saddr
 }
 
 
-HB_FUNC ( SOCKET_INIT )
+HB_FUNC( SOCKET_INIT )
 {
 #if defined( HB_OS_WIN )
    WSADATA  wsad;
@@ -165,7 +165,7 @@ HB_FUNC ( SOCKET_INIT )
 }
 
 
-HB_FUNC ( SOCKET_EXIT )
+HB_FUNC( SOCKET_EXIT )
 {
 #if defined( HB_OS_WIN )
    hb_retni( WSACleanup() );
@@ -175,7 +175,7 @@ HB_FUNC ( SOCKET_EXIT )
 }
 
 
-HB_FUNC ( SOCKET_ERROR )
+HB_FUNC( SOCKET_ERROR )
 {
 #if defined( HB_OS_WIN )
    hb_retni( WSAGetLastError() );
@@ -185,7 +185,7 @@ HB_FUNC ( SOCKET_ERROR )
 }
 
 
-HB_FUNC ( SOCKET_CREATE )
+HB_FUNC( SOCKET_CREATE )
 {
    hb_retsocket( socket( hb_parnidef( 1, PF_INET ),
                          hb_parnidef( 2, SOCK_STREAM ),
@@ -193,7 +193,7 @@ HB_FUNC ( SOCKET_CREATE )
 }
 
 
-HB_FUNC ( SOCKET_CLOSE )
+HB_FUNC( SOCKET_CLOSE )
 {
 #if defined( HB_OS_WIN )
    hb_retni( closesocket( hb_parsocket( 1 ) ) );
@@ -203,7 +203,7 @@ HB_FUNC ( SOCKET_CLOSE )
 }
 
 
-HB_FUNC ( SOCKET_BIND )
+HB_FUNC( SOCKET_BIND )
 {
    struct sockaddr   sa;
 
@@ -212,13 +212,13 @@ HB_FUNC ( SOCKET_BIND )
 }
 
 
-HB_FUNC ( SOCKET_LISTEN )
+HB_FUNC( SOCKET_LISTEN )
 {
    hb_retni( listen( hb_parsocket( 1 ), hb_parnidef( 2, 10 ) ) );
 }
 
 
-HB_FUNC ( SOCKET_ACCEPT )
+HB_FUNC( SOCKET_ACCEPT )
 {
    PHB_ITEM          pItem;
    SOCKET            socket = hb_parsocket( 1 );
@@ -239,7 +239,7 @@ HB_FUNC ( SOCKET_ACCEPT )
 }
 
 
-HB_FUNC ( SOCKET_SHUTDOWN )
+HB_FUNC( SOCKET_SHUTDOWN )
 {
    SOCKET   socket = hb_parsocket( 1 );
    int      i = hb_parnidef( 2, SHUT_RDWR );
@@ -251,7 +251,7 @@ HB_FUNC ( SOCKET_SHUTDOWN )
 }
 
 
-HB_FUNC ( SOCKET_RECV )
+HB_FUNC( SOCKET_RECV )
 {
    SOCKET   socket = hb_parsocket( 1 );
    int      iLen, iRet, iFlags = hb_parnidef( 4, 0 );
@@ -274,7 +274,7 @@ HB_FUNC ( SOCKET_RECV )
 }
 
 
-HB_FUNC ( SOCKET_SEND )
+HB_FUNC( SOCKET_SEND )
 {
    SOCKET   socket = hb_parsocket( 1 );
    char*    pBuf = hb_parc( 2 );
@@ -288,7 +288,7 @@ HB_FUNC ( SOCKET_SEND )
 }
 
 
-HB_FUNC ( SOCKET_SELECT )
+HB_FUNC( SOCKET_SELECT )
 {
    fd_set             setread, setwrite, seterror;
    BOOL               bRead = 0, bWrite = 0, bError = 0;
@@ -442,7 +442,7 @@ HB_FUNC ( SOCKET_SELECT )
 }
 
 
-HB_FUNC ( SOCKET_GETSOCKNAME )
+HB_FUNC( SOCKET_GETSOCKNAME )
 {
    PHB_ITEM          pItem;
    struct sockaddr   saddr;
@@ -458,7 +458,7 @@ HB_FUNC ( SOCKET_GETSOCKNAME )
 }
 
 
-HB_FUNC ( SOCKET_GETPEERNAME )
+HB_FUNC( SOCKET_GETPEERNAME )
 {
    PHB_ITEM          pItem;
    struct sockaddr   saddr;
@@ -474,7 +474,7 @@ HB_FUNC ( SOCKET_GETPEERNAME )
 }
 
 
-HB_FUNC ( SOCKET_CONNECT )
+HB_FUNC( SOCKET_CONNECT )
 {
    SOCKET   socket = hb_parsocket( 1 );
    struct sockaddr   sa;

harbour/utils/hbmk2/hbmk2.prg

@@ -91,8 +91,6 @@
          we need to use -o Harbour switch, it will be a problem also when
          user tries to use -p option, .ppo files will be generated in temp
          dir. */
-/* TODO: Add support for library creation for rest of compilers. */
-/* TODO: Add support for dynamic library creation for rest of compilers. */
 /* TODO: Further clean hbmk context var usage (hbmk2 scope, project scope,
          adding rest of variables). */
 /* TODO: Add a way to fallback to stop if required headers couldn't be found.
@@ -4790,7 +4788,7 @@ STATIC FUNCTION HBC_ProcessOne( hbmk, cFileName, nNestingLevel  )
             ENDIF
          NEXT
 
-      CASE Lower( Left( cLine, Len( "hbcs="         ) ) ) == "hbcs="         ; cLine := SubStr( cLine, Len( "hbcs="         ) + 1 )
+      CASE Lower( Left( cLine, Len( "hbcs="        ) ) ) == "hbcs="          ; cLine := SubStr( cLine, Len( "hbcs="         ) + 1 )
          FOR EACH cItem IN hb_ATokens( cLine,, .T. )
             IF nNestingLevel < _HBMK_NEST_MAX
 
@@ -4845,7 +4843,7 @@ STATIC FUNCTION HBC_ProcessOne( hbmk, cFileName, nNestingLevel  )
             ENDIF
          NEXT
 
-      CASE Lower( Left( cLine, Len( "instpaths="   ) ) ) == "instpaths="   ; cLine := SubStr( cLine, Len( "instpaths="   ) + 1 )
+      CASE Lower( Left( cLine, Len( "instpaths="    ) ) ) == "instpaths="    ; cLine := SubStr( cLine, Len( "instpaths="    ) + 1 )
          FOR EACH cItem IN hb_ATokens( cLine,, .T. )
             cItem := PathSepToTarget( hbmk, PathProc( MacroProc( hbmk, StrStripQuote( cItem ), FN_DirGet( cFileName ) ), FN_DirGet( cFileName ) ) )
             IF AScan( hbmk[ _HBMK_aINSTPATH ], {|tmp| tmp == cItem } ) == 0