Problem with structures

[codemaker]

xHarbour November 2009, FWH 8.12

The code in tSysInfo.PRG:
-------------------------------
METHOD Memory(n) CLASS TSystemInfo
LOCAL nRetu
LOCAL mst

#ifdef __HARBOUR__
#pragma BEGINDUMP
#include "windows.h"
#pragma ENDDUMP

nRetu := HB_INLINE( n )
{
MEMORYSTATUS mst;
long n = hb_parnl(1);

mst.dwLength = sizeof( MEMORYSTATUS );
GlobalMemoryStatus( &mst );

switch( n )
{
case 1: hb_retnl( mst.dwTotalPhys / (1024*1024) ) ; break;
case 2: hb_retnl( mst.dwAvailPhys / (1024*1024) ) ; break;
case 3: hb_retnl( mst.dwTotalPageFile / (1024*1024) ) ; break;
case 4: hb_retnl( mst.dwAvailPageFile / (1024*1024) ) ; break;
case 5: hb_retnl( mst.dwTotalVirtual / (1024*1024) ) ; break;
case 6: hb_retnl( mst.dwAvailVirtual / (1024*1024) ) ; break;
default: hb_retnl( 0 ) ;
}
}

#else

LOCAL oMemory

STRUCT oMemory
MEMBER m1 AS LONG // nSize
MEMBER m2 AS LONG // Memory Load
MEMBER m3 AS LONG // Total Physical
MEMBER m4 AS LONG // Available Physical
MEMBER m5 AS LONG // Total Page File
MEMBER m6 AS LONG // Available Page File
MEMBER m7 AS LONG // Total Virtual
MEMBER m8 AS LONG // Available Virtual
ENDSTRUCT

oMemory:m1 = oMemory:SizeOf()
MemStat( oMemory:cBuffer )

DO CASE
CASE n=1 ; nRetu:=Round( oMemory:m3 / (1024*1024) ,0 )
CASE n=2 ; nRetu:=Round( oMemory:m4 / (1024*1024) ,0 )
CASE n=3 ; nRetu:=Round( oMemory:m5 / (1024*1024) ,0 )
CASE n=4 ; nRetu:=Round( oMemory:m6 / (1024*1024) ,0 )
CASE n=5 ; nRetu:=Round( oMemory:m7 / (1024*1024) ,0 )
CASE n=6 ; nRetu:=Round( oMemory:m8 / (1024*1024) ,0 )
OTHERWISE; nRetu:=0
ENDCASE

#endif
RETURN nRetu
-------------------------------

Includes and defines at the PRG start
-------------------------------------------------
#include "Fivewin.ch"
#include "struct.ch"
#include "DLL.CH"

#DEFINE MEM_TotalPhys 1
#DEFINE MEM_AvailPhys 2
#DEFINE MEM_TotalPageFile 3
#DEFINE MEM_AvailPageFile 4
#DEFINE MEM_TotalVirtual 5
#DEFINE MEM_AvailVirtual 6
-------------------------------------------------




Gives me the error: (the referenced line is in red above)
-------------------------
Compiling 'TSYSINFO.PRG'...
TSYSINFO.PRG(610) Error E0020 Incomplete statement or unbalanced delimiters
TSYSINFO.PRG(613) Error E0030 Syntax error: "syntax error at 'MST'"
TSYSINFO.PRG(616) Error E0030 Syntax error: "syntax error at '='"
TSYSINFO.PRG(618) Error E0030 Syntax error: "syntax error at '{'"
TSYSINFO.PRG(626) Error E0030 Syntax error: "syntax error at '1'"
TSYSINFO.PRG(627) Error E0030 Syntax error: "syntax error at '}'"
-----------------------


I cannot even imagine what might be wrong.
Can somebody help me please?

[Patrizio]

Codemaker, try this:

Code: Select all  Expand view

METHOD Memory(n) CLASS TSystemInfo
LOCAL nRetu
LOCAL mst

#ifdef __HARBOUR__
#pragma BEGINDUMP
#include "windows.h"

nRetu := HB_INLINE( n )
{
MEMORYSTATUS mst;
long n = hb_parnl(1);

mst.dwLength = sizeof( MEMORYSTATUS );
GlobalMemoryStatus( &mst );

switch( n )
{
case 1: hb_retnl( mst.dwTotalPhys / (1024*1024) ) ; break;
case 2: hb_retnl( mst.dwAvailPhys / (1024*1024) ) ; break;
case 3: hb_retnl( mst.dwTotalPageFile / (1024*1024) ) ; break;
case 4: hb_retnl( mst.dwAvailPageFile / (1024*1024) ) ; break;
case 5: hb_retnl( mst.dwTotalVirtual / (1024*1024) ) ; break;
case 6: hb_retnl( mst.dwAvailVirtual / (1024*1024) ) ; break;
default: hb_retnl( 0 ) ;
}
}
#pragma ENDDUMP

#else

LOCAL oMemory

STRUCT oMemory
MEMBER m1 AS LONG // nSize
MEMBER m2 AS LONG // Memory Load
MEMBER m3 AS LONG // Total Physical
MEMBER m4 AS LONG // Available Physical
MEMBER m5 AS LONG // Total Page File
MEMBER m6 AS LONG // Available Page File
MEMBER m7 AS LONG // Total Virtual
MEMBER m8 AS LONG // Available Virtual
ENDSTRUCT

oMemory:m1 = oMemory:SizeOf()
MemStat( oMemory:cBuffer )

DO CASE
CASE n=1 ; nRetu:=Round( oMemory:m3 / (1024*1024) ,0 )
CASE n=2 ; nRetu:=Round( oMemory:m4 / (1024*1024) ,0 )
CASE n=3 ; nRetu:=Round( oMemory:m5 / (1024*1024) ,0 )
CASE n=4 ; nRetu:=Round( oMemory:m6 / (1024*1024) ,0 )
CASE n=5 ; nRetu:=Round( oMemory:m7 / (1024*1024) ,0 )
CASE n=6 ; nRetu:=Round( oMemory:m8 / (1024*1024) ,0 )
OTHERWISE; nRetu:=0
ENDCASE

#endif
RETURN nRetu