xHarbour y reporte de errores del compilador

[jose_murugosa]

Mira, He hecho las pruebas que me pediste y reporta error en el lincado efectivamente indicando la línea, pero el problema es con los errores de COMPILACION.

observa......

aqui tienes el tutor04.prg modificado en la linea 38 para dar un error de compilación.

Code: Select all  Expand view  RUN

function Main()

   local oIco, oBar, oBmp

   DEFINE ICON oIco FILE "..\icons\fax.ico"

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
      TITLE "FiveWin sample" ;
      MENU  BuildMenu() ;
      COLOR "B/W" ;
      ICON oIco

   DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT ;
      ACTION MsgInfo( "New" ) ;
      TOOLTIP "Creates a new document"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\open.bmp" FLAT ;
      ACTION MsgInfo( cGetFile( "*.*", "Select a document to open" ) ) ;
      TOOLTIP "Opens a document" WHEN .f.

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT ;
      ACTION MsgInfo( Time() ) TOOLTIP "Saves this document"
     
     
   xxxx   ///esto debería generar un error de compilación en la linea 38
   
   
   
   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\prop.bmp" FLAT ;
      ACTION PrinterSetup() TOOLTIP "Setup the printer"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\HelpInd.bmp" FLAT ;
      ACTION MsgInfo( Version() ) TOOLTIP "A multiple lines" + ;
      Chr( 13 ) + Chr( 10 ) + "tooltip!" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Help.bmp" FLAT ;
      ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
      ACTION oWnd:End() TOOLTIP "Exit this app" GROUP

   DEFINE MESSAGE OF oWnd ;
      PROMPT FWVERSION + " " + FWCOPYRIGHT ;
      NOINSET CENTERED KEYBOARD DATE CLOCK

   DEFINE BITMAP oBmp FILENAME "..\bitmaps\fiveback.bmp"

   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }

   ACTIVATE WINDOW oWnd ;
      VALID MsgYesNo( "Do you want to quit ?" )

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Information"
      MENU
         MENUITEM "&About..." ;
            ACTION MsgInfo( FWDESCRIPTION ) ;
            FILENAME "..\bitmaps\16x16\info.bmp"
         SEPARATOR
         MENUITEM "&End..."  ;
            ACTION oWnd:End() FILENAME "..\bitmaps\16x16\exit.bmp"

      ENDMENU

      MENUITEM "&Clients"
      MENU
         MENUITEM "&New..." ;
            ACTION ( MsgStop( "New Clients" ),;
                     oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) ) ;
            FILENAME "..\bitmaps\16x16\faces.bmp"

         MENUITEM "&Modify..."  ACTION MsgInfo( "Modif. Clients" ) ;
            FILENAME "..\bitmaps\edit.bmp"

         MENUITEM "&Delete..."  ACTION MsgAlert( "Del Clients" ) ;
            FILENAME "..\bitmaps\16x16\delete.bmp"

         SEPARATOR

         MENUITEM "&Browse..."  ACTION MsgInfo( "Browse Clients" ) ;
            FILENAME "..\bitmaps\16x16\browse.bmp"

      ENDMENU

      MENUITEM "&Utilities"
      MENU
         MENUITEM "&Calculator..." ACTION WinExec( "Calc" ) ;
            FILENAME "..\bitmaps\16x16\calc.bmp"

         MENUITEM "&Internet..." ;
            ACTION WinExec( "start iexplore http://www.fivetech.com", 0 ) ;
            FILENAME "..\bitmaps\16x16\explorer.bmp"
      ENDMENU
   ENDMENU

return oMenu

//----------------------------------------------------------------------------//

STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   if oBmp:hBitmap == 0
      return nil
   endif

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

return nil

//----------------------------------------------------------------------------//
 

Hice esta prueba con el fwh 14.11 tal como se extrae del instalador y xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
El compilador me devuelve:

Compiling...
tutor04.prg(38) Error E0020 Incomplete statement or unbalanced delimiters
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tutor04.prg' and generating preprocessed output to 'tutor04.ppo'...
1 error

No code generated
* Compile errors *

Nota que no se indica linea ni nada..

ahora cambio por xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9445) y me devuelve:

Compiling...
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9445)
Copyright 1999-2012, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tutor04.prg' and generating preprocessed output to 'tutor04.ppo'...
tutor04.prg(38) Error E0020 Incomplete statement or unbalanced delimiters
1 error

No code generated
* Compile errors *

Por favor!! , diganme que les pasa lo mismo en sus equipos porque sino, voy a pensar que estoy loco

[hmpaquito]

Mugurosa,

Yo creo que necesita un entorno limpio
Es posible que haya alguna variable de entorno que afecte a un compilador si y a otro no y que sobreescriba las opciones de compilacion por defecto. Es solo una conjetura, para evitar que pierda la cabeza

Saludos

[karinha]

No hay problema és la misma cosa:

Code: Select all  Expand view  RUN

Compiling...
TESTE.prg(38) Error E0020  Incomplete statement or unbalanced delimiters
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141206)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TESTE.prg' and generating preprocessed output to 'TESTE.ppo'...
1 error
 

ahora, haga asi:

? xxxx

tiene que ser variable no ejiste y el ERRSYSW.PRG para el programa.

Saludos.

[jose_murugosa]

No se que es

Me pasa en el equipo de mi casa, y en el de mi trabajo EN AMBOS!!! y aparentemente solo a mi

[RenOmaS]

Hola

Hice esta prueba con el fwh 14.11 tal como se extrae del instalador y xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
El compilador me devuelve:
Compiling...
tutor04.prg(38) Error E0020 Incomplete statement or unbalanced delimiters
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tutor04.prg' and generating preprocessed output to 'tutor04.ppo'...
1 error

No code generated
* Compile errors *


Nota que no se indica linea ni nada..

En tu primera compilacion si parece la linear del error (es la segunda linea del resultado)

Code: Select all  Expand view  RUN

Compiling...
tutor04.prg(38) Error E0020 Incomplete statement or unbalanced delimiters
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tutor04.prg' and generating preprocessed output to 'tutor04.ppo'...
1 error

No code generated
* Compile errors *

[jose_murugosa]

Gracias por tu respuesta, esa compilacion no es en mi maquina, es un mensaje a mi de Joao

[jose_murugosa]

Joao, dejame hacer algunas pruebas mas y te comento, creo que ya estoy algo anulado, veremos si a estas horas veo todo mas claro

[jose_murugosa]

Gracias por tu respuesta, voy a verificar, quiza mi estupidez esta en aumento voy a revisar

[RenOmaS]

Tu Colocastes esto:

Hice esta prueba con el fwh 14.11 tal como se extrae del instalador y xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
El compilador me devuelve:
Compiling...
tutor04.prg(38) Error E0020 Incomplete statement or unbalanced delimiters
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tutor04.prg' and generating preprocessed output to 'tutor04.ppo'...
1 error

No code generated
* Compile errors *


Nota que no se indica linea ni nada..

[karinha]

Si desea más información sobre el compilador cambia esta línea:

Code: Select all  Expand view  RUN

%hdir%\bin\harbour %1 /es2/m/n/k/gc0 /i%fwh%\include;%hdir%\include /w2 /p %2 %3 > comp.log
 

Saludos

[jose_murugosa]

La respuesta previa a la tuya, estaba dirigida a ti Renomas, disculpa, estoy verificando pero no recibo ninguna línea, sin embargo en esa compilación si, y no me di cuenta, pero creo que se debe a que la copie de compilar otro error diferente, es que he hecho tantas pruebas.

ahora lo compilé nuevamente en iguales condiciones, es decir xharbour y fwh limpios tal como se instalan y este fue el resultado:

Compiling...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tutor04.prg' and generating preprocessed output to 'tutor04.ppo'...
1 error

No code generated
* Compile errors *

sin lineas

pero SOLO ME OCURRE CUANDO EL ERROR ES "incomplete statements or unbalanced delimiters" todos los demás errores me los da bien con línea etc.

En este momento acabo de probar 2 cosas:

un uncomplete statement

xxxxx

y un unbalanced delimiter

elimine en la linea 42 de mi ejemplo una de las comillas de la ruta del archivo bmp.

Este es el error en esta segunda prueba:

Compiling...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'tutor04.prg' and generating preprocessed output to 'tutor04.ppo'...
2 errors

No code generated
* Compile errors *

No se porque, y repito EN DOS EQUIPOS DIFERENTES UN NOTEBOOK CON WINDOWS 8 Y UNA PC DE ESCRITORIO CON WINDOWS 7

[karinha]

Muestra tu BUILDX.BAT y tambiém la carpeta de xHarbour como está?

Para que yo prueba con el tuyo.

saludos.

[jose_murugosa]

Muestra tu BUILDX.BAT

Para que yo prueba con el tuyo.

saludos.

Gracias nuevamente!!, me averguenza molestar tanto

Code: Select all  Expand view  RUN

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 14.11 - Nov. 2014          xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2014   for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

if "%FWDIR%" == "" set FWDIR=.\..\
if "%XHDIR%" == "" set XHDIR=c:\xharbour
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui

set hdir=%XHDIR%
set hdirl=%hdir%\lib
set bcdir=c:\bcc582
set fwh=%FWDIR%

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log
IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type comp.log
@type warnings.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo %hdirl%\rtl.lib + >> b32.bc
echo %hdirl%\vm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\lang.lib + >> b32.bc
echo %hdirl%\macro.lib + >> b32.bc
echo %hdirl%\rdd.lib + >> b32.bc
echo %hdirl%\dbfntx.lib + >> b32.bc
echo %hdirl%\dbfcdx.lib + >> b32.bc
echo %hdirl%\dbffpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\debug.lib + >> b32.bc
echo %hdirl%\common.lib + >> b32.bc
echo %hdirl%\pp.lib + >> b32.bc
echo %hdirl%\pcrepos.lib + >> b32.bc
echo %hdirl%\ct.lib + >> b32.bc
echo %hdirl%\zlib.lib + >> b32.bc
echo %hdirl%\hbzip.lib + >> b32.bc
echo %hdirl%\libmisc.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\ws2_32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
ECHO * Compile errors *
GOTO EXIT

:LINKERROR
ECHO * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Es el que viene en la instalación.

[jose_murugosa]

aquí un link al xhabour tal como esta en mi maquina

https://app.box.com/s/nzh0wrre2i4xefixl5gu

[karinha]

Con tu BUILDX.BAT hay algo errado, sigo investigando...

Code: Select all  Expand view  RUN

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for xHarbour 14.11 - Nov. 2014          xHarbour development power │▄
│ (c) FiveTech, 1993-2014   for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20141206)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TESTE.prg' and generating preprocessed output to 'TESTE.ppo'...
1 error

No code generated
* Compile errors *
C:\FWH1306\samples>


 

Saludos.