PC Toledo

Código: Selecionar todos

LOCAL cPRGCode, cByteCode
LOCAL cText := "Hola Mundo"

   cPRGCode :=  "#DEFINE MI_MSG ' Cruel'"  + Hb_EoL()

   cPRGCode += "Procedure MiMensaje( cMsg )" + Hb_EoL()
   cPRGCode +=  "    MsgInfo( cMsg + MI_MSG )" + Hb_EoL()
   cPRGCode +=  "Return"
   
   // &cPRGCode  --> este codigo con macro sustitucion no funciona
   
   cByteCode := hb_CompileFromBuf( cPRGCode, "harbour", "/n" )
   hb_hrbRun( cByteCode, cText )   // equivale a --> MiMensaje( cText )

Código: Selecionar todos

IF File('op_' + StrTrim(nNivelAcesso) + '.hrb')
   CmdExecuta('op_' + StrTrim(nNivelAcesso) + '.hrb')
ELSE
   uRet := Eval(MenuOpcao[nNivelAcesso])
ENDIF

//retirado da minha LIB
'FUNCTION CmdExecutaHRB( cFileName, nOp )
LOCAL buf

DEFAULT nOp TO 2

IF File(cFileName)  //USANDO .hrb
    Buf = HB_HRBLOAD(nOp, cFileName )
    IF Empty( Buf )
        RETURN .F.
    ENDIF
    HB_HRBDO( Buf )
    HB_HRBUNLOAD( Buf )
ELSE
    RETURN .F.
ENDIF

RETURN .T.


FUNCTION CmdExecutaPRG( cFileName, nOp )
LOCAL Buf

DEFA nOp To 2

IF File(cFileName) //USANDO .prg
    //hb_compile( "harbour", cFileName, "/n","/w", "/gh" )  // Compile, e gera .hrb
    buf := hb_compilebuf( "harbour", cFileName, "/n", "/w", "/q2" )  // Compile
    IF Empty( Buf )
        RETURN .F.
    ENDIF
    hb_hrbRun( buf ) //execute
    /*
    Buf = HB_HRBLOAD(nOp, Buf )
    IF Empty( Buf )
        RETURN .F.
    ENDIF
    HB_HRBDO( Buf )
    HB_HRBUNLOAD( Buf )
    */
ELSE
    RETURN .F.
ENDIF

RETURN .T.


FUNCTION CmdExecutaVar( sVar, nOp )
LOCAL Buf

DEFA nOp To 2

IF Upper(Left(sVar, 5)) = "/VAR:"  //USANDO variavel
    sVar := SubStr(sVar, 6)
ENDIF

Buf := hb_compileFromBuf( sVar, "/n", "/m", "/q2" )

IF Empty( Buf )
    RETURN .F.
ENDIF

hb_hrbRun( buf ) //execute

/*
Buf = HB_HRBLOAD(nOp, Buf )
IF Empty( Buf )
    RETURN .F.
ENDIF
HB_HRBDO( Buf )
HB_HRBUNLOAD( Buf )
*/

RETURN .T.


FUNCTION CmdExecuta( cFileName, nOp )

DEFA nOp TO 2  //0 e 1 - Executavel, 2 - Arquivo/Variavel

IF !File(cFileName)
    IF ("." $ cFileName)
        RETURN .F.
    ELSE
        IF File(cFileName + '.hrb')
            cFileName += ".hrb"
        ELSEIF File(cFileName + '.prg')
            cFileName += ".prg"
        ELSEIF File(cFileName + '.cmd')
            cFileName += ".cmd"
        ELSE
            RETURN .F.
        ENDIF
    ENDIF
ENDIF

IF Upper(Right(cFileName, 4)) = '.CMD'
    cFileName := "/VAR:" + Cript(FileRead(cFileName))
ENDIF

IF Upper(Left(cFileName, 5)) = "/VAR:"
    CmdExecutaVar(cFileName, nOp)

ELSEIF Upper(Right(cFileName, 4)) = '.HRB'
    CmdExecutaHRB(cFileName, nOp)

ELSE
    CmdExecutaPRG(cFileName, nOp)

ENDIF

RETURN .T.


FUNCTION CmdCriaHRB( cFileName )
LOCAL Buf

IF File(cFileName)
    Buf := hb_compile( "harbour", cFileName, "/n","/w", "/q2", "/gh" )  // Compile, e gera .hrb
    IF Empty( Buf )
        RETURN .F.
    ENDIF
ELSE
    RETURN .F.
ENDIF

RETURN .T.

Código: Selecionar todos

Harbour 3.2.0dev (r1509031202)
Copyright (c) 1999-2015, http://harbour-project.org/

Syntax:  harbour <file[s][.prg]|@file> [options]

Options:  -a               automatic memvar declaration
          -b               debug info
          -build           display detailed version info
          -credits         display credits
          -d<id>[=<val>]   #define <id>
          -es[<level>]     set exit severity
          -fn[:[l|u]|-]    set filename casing (l=lower u=upper)
          -fd[:[l|u]|-]    set directory casing (l=lower u=upper)
          -fp[:<char>]     set path separator
          -fs[-]           turn filename space trimming on or off (default)
          -g<type>         output type generated is <type> (see below)
          -gc[<type>]      output type: C source (.c) (default)
                           <type>: 0=compact (default) 1=normal 2=verbose
                                   3=generate real C code
          -gh              output type: Harbour Portable Object (.hrb)
          -gd[.<destext>]  generate dependencies list into (.d) file
          -ge[<mode>]      error output <mode>: 0=Clipper (default)
                                                1=IDE friendly
          -i<path>         #include file search path
          -i[-|+]          disable/enable support for INCLUDE envvar
          -j[<file>]       generate i18n gettext file (.pot)
          -k               compilation mode (type -k? for more data)
          -l               suppress line number information
          -m               compile module only
          -n[<type>]       no implicit starting procedure
                           <type>: 0=no implicit starting procedure
                                   1=no starting procedure at all
                                   2=add starting procedure if necessary
          -o<path>         object file drive and/or path
          -p[<path>]       generate pre-processed output (.ppo) file
          -p+              generate pre-processor trace (.ppt) file
          -q               quiet
          -q0              quiet and don't display program header
          -q2              disable all output messages
          -ql              hide line counter gauge
          -r:<max>         set maximum number of preprocessor iterations
          -s[m]            syntax check only [minimal for dependencies list]
          -u[<file>]       use command def set in <file> (or none)
          -u+<file>        add command def set from <file>
          -undef:<id>      #undef <id>
          -v               variables are assumed M->
          -w[<level>]      set warning level number (0..3, default 1)
          -z               suppress shortcutting (.and. & .or.)
          @<file>          compile list of modules in <file>

Código: Selecionar todos

// The example outlines two possibilities of calling a function
// indirectly via macro expression. The first compiles a macro
// to PCode, and the second creates a code block with the macro
// operator. Note that functions that are only included in macro
// expressions should be REQUESTed to make sure they are linked.

   REQUEST QOut, Time

   PROCEDURE Main
      LOCAL cMacro := "QOut( Time() )"
      LOCAL cPCode := HB_MacroCompile( cMacro )
      LOCAL bBlock := &( "{||" + cMacro + "}" )

      HB_VMExecute( cPCode )

      EVal( bBlock )
   RETURN

Código: Selecionar todos

IF cVersao < 20160519
   RotinadeConversao()
   NovoAcesso( "RELATORIO_GERAL" )
   IF cEmpresaApelido == "umcliente"
      NovoAcesso( "RELATORIO_ADM", "OPC_GERENTE" )
      NovoAcesso( "RELATORIO_EXCLUSIVO", "ANTONIO" )
   ENDIF
ENDIF