la forma mas simple de construir desde vscode

[Antonio Linares]

Cual es la forma más simple de construir un PRG que estemos editando ?

gracias

[VictorCasajuana]

Cual es la forma más simple de construir un PRG que estemos editando ?

gracias

A que te refieres con "construir un PRG"

Enviado desde mi motorola edge 20 mediante Tapatalk

[Antonio Linares]

Imagina que tengo este código en pantalla:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   MsgInfo( "Hello world" )

return  nil

Por lo visto al pulsar Ctrl + Shift + B lanzamos el "build task" por defecto. Este task debería construir ese PRG y ejecutarlo
Entiendo que seria lo más simple. Ahora es dar con el task adecuado

Tal vez haya otra forma mas simple aún

[fgondi]

Para poder compiliar cualquier prg que este en FWH, podríamos utilizar los parámetros.
Faltaría añadir en el bat condiciones para verificar si hay que incluir un archivo rc.

La tarea seria:

Code: Select all  Expand view  RUN

{
   "version": "2.0.0",
   "tasks": [
    {
        "label": "build",
        "type": "shell",
        "command": ".\\go32.bat ${file}"
    }
]
}

Donde $(file) se va a sustituir por el fichero que estas visualizando en vscode

go32.bat tendría la llamada a ese fichero pasado por parámetro "%1" y un hbp genérico para todos

Code: Select all  Expand view  RUN

call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86
c:\harbour\bin\hbmk2 %1 fivewin.hbp -comp=msvc

fivewin.hbp

Code: Select all  Expand view  RUN

-gui

-mt

-Ic:\fwh\include

-Lc:\fwh\lib2
-lFiveH32
-lFiveHC32

-lgdiplus
-lole32
-lOleDlg
-lversion

xhb.hbc
hbct.hbc
hbwin.hbc
hbmzip.hbc
hbziparc.hbc
hbfoxpro.hbc
hbvmmt.hbc

-ldflag=/NODEFAULTLIB:MSVCRT
 

[fgondi]

https://code.visualstudio.com/docs/editor/variables-reference

[fgondi]

Y si no quieres tener el archivo abierto, se podría hacer pidiendo el nombre por variable

Code: Select all  Expand view  RUN

   {
       "version": "2.0.0",
       "tasks": [
        {
            "label": "build",
            "type": "shell",
            "command": ".\\go32.bat ${input:variableID}"
        }
    ],
     "inputs": [
         {
           "id": "variableID",
           "type": "promptString",
           "description": "Indica el nombre del prg"
         }
       ]
    }

[fgondi]

go32.bat incluyendo el rc:

Code: Select all  Expand view  RUN

del %1.exe
call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86
if exist %1.rc (
  c:\harbour\bin\hbmk2 %1.prg %1.rc testvc.hbp -comp=msvc
) else (
  c:\harbour\bin\hbmk2 %1.prg testvc.hbp -comp=msvc
)
%1.exe

La tarea teniendo el archivo prg abiero:

Code: Select all  Expand view  RUN

{
   "version": "2.0.0",
   "tasks": [
    {
        "label": "build",
        "type": "shell",
        "command": "C:\\FWH\\samples\\go32.bat ${fileBasenameNoExtension}",
        "options": {
            "cwd": "${fileDirname}"
         }
    }
]
}
 

La tarea sin tener el prg abierto (con parámetro) e incluso desde cualquier carpeta

Code: Select all  Expand view  RUN

{
       "version": "2.0.0",
       "tasks": [
        {
            "label": "build",
            "type": "shell",
            "command": "C:\\FWH\\Samples\\go32.bat ${input:variableID}",
            "options": {
               "cwd": "C:\\FWH\\Samples"
             }
        }
    ],
     "inputs": [
         {
           "id": "variableID",
           "type": "promptString",
           "description": "Indica el nombre del prg. sin extensión"
         }
       ]
    }
 

[Antonio Linares]

Querido Fernando,

muchas gracias por compartir y enseñar.

He hecho unas pequeñas modificaciones que me gustaria tu opinión
El fichero tasks.json lo he modificado asi:

Code: Select all  Expand view  RUN

{
  "version": "2.0.0",
  "tasks": [
   {
       "label": "build",
       "type": "shell",
       "command": "c:\\Users\\anto\\Documents\\go32.bat ${fileDirname}/${fileBasename} ${fileDirname}\\${fileBasenameNoExtension}.exe"
   }
]
}

con la idea de que go32.bat reciba dos parámetros:

Code: Select all  Expand view  RUN

call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86
c:\harbour\bin\hbmk2 %1 c:\users\anto\documents\fivewin.hbp -comp=msvc
%2

fivewin.hbp lo he modificado para que genere el nombre del EXE adecuado:

Code: Select all  Expand view  RUN

-o${hb_dir}
-gui
-trace

-Ic:\fwh\include

-Lc:\fwh\lib
-lFiveH32
-lFiveHC32

-lgdiplus
-lole32
-lOleDlg
-lversion

xhb.hbc
hbct.hbc
hbwin.hbc
hbmzip.hbc
hbziparc.hbc
hbfoxpro.hbc

-ldflag=/NODEFAULTLIB:MSVCRT
-ldflag=/FORCE:multiple
 

Está funcionado, con solo pulsar Ctrl + Mayus + B
Si ves una forma de simplificarlo, bienvenida sea

un abrazo

[Antonio Linares]

Falla si el documento no esta en c:\Users\anto\Documents...

intentado arreglarlo...

[Antonio Linares]

hbmk2 es llamado con -out:C:\Users\anto\fivedit0.exe

pero luego se intenta ejecutar c:\fwteam\samples\fivedit0.exe

[Antonio Linares]

Que macros usar en vez de -o${hb_dirname} desde fivewin.hbp que sean equivalentes a ${fileDirname}/${fileBasename} de vscode ?

[Antonio Linares]

buenos dias

Esta versión parece más simple y solo usa un variable:
tasks.json

Code: Select all  Expand view  RUN

{
  "version": "2.0.0",
  "tasks": [
    {
      "label": "build",
      "type": "shell",
      "command": "c:\\Users\\anto\\Documents\\go32.bat ${fileDirname}\\${fileBasenameNoExtension}",
      "problemMatcher": [
        "$harbour"
      ]
    }
  ]
}

con lo que go32.bat cambia asi:

Code: Select all  Expand view  RUN

del %1.exe
call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86
if exist %1.rc (
   c:\harbour\bin\hbmk2 %1.prg %1.rc c:\users\anto\documents\fivewin.hbp -o%1 -comp=msvc
) else (
   c:\harbour\bin\hbmk2 %1.prg c:\users\anto\documents\fivewin.hbp -o%1 -comp=msvc
)
%1
 

fivewin.hbp

Code: Select all  Expand view  RUN

-gui

-Ic:\fwh\include

-Lc:\fwh\lib
-lFiveH32
-lFiveHC32

-lgdiplus
-lole32
-lOleDlg
-lversion

xhb.hbc
hbct.hbc
hbwin.hbc
hbmzip.hbc
hbziparc.hbc
hbfoxpro.hbc

-ldflag=/NODEFAULTLIB:MSVCRT
-ldflag=/FORCE:multiple
 

[Antonio Linares]

Working like a champ

[Antonio Linares]

I keep go32.bat at:
c:\Users\anto\Documents\

same folder for fivewin.hbp

wondering is those places are the righ ones or we can improve it

[Antonio Linares]

gracias nuevamente Fernando

un abrazo