home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / COMPILE.PRG < prev    next >
Text File  |  1994-04-11  |  6KB  |  178 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Ejemplos
  3. //  (c) A.Linares, F.Pulpón 1993
  4. //----------------------------------------------------------------------------//
  5.  
  6. #include "FiveWin.ch"
  7.  
  8. #define ID_PRGNAME     110
  9. #define ID_MEMVAR      120
  10. #define ID_DEBUGGER    130
  11. #define ID_CREDITS     140
  12. #define ID_DEFID       150
  13. #define ID_INCLUDE     160
  14. #define ID_NOLINES     170
  15. #define ID_ONEMODULE   180
  16. #define ID_NOSYMBOL    190
  17. #define ID_OBJDIR      200
  18. #define ID_PREPROCESS  210
  19. #define ID_NOCOMMENTS  220
  20. #define ID_LIBREQUEST  230
  21. #define ID_CHECKSYNTAX 240
  22. #define ID_COMMANDS    250
  23. #define ID_MEMVARS     260
  24. #define ID_WARNINGS    270
  25.  
  26. #define ID_HELP        998
  27.  
  28. //----------------------------------------------------------------------------//
  29.  
  30. function Main( cPrgName )
  31.  
  32.    local hBorland
  33.    local oDlg
  34.    local lMemVar     := .f., lDebugger    := .f., lCredits    := .f., lDefId    := .f.,;
  35.          lInclude    := .f., lNoLines     := .f., lOneModule  := .f., lNoSymbol := .t.,;
  36.          lObjDir     := .f., lPreProcess  := .f., lNoComments := .f.,;
  37.          lLibRequest := .f., lCheckSyntax := .f., lCommands   := .f.,;
  38.          lMemVars    := .f., lWarnings    := .f.
  39.  
  40.    local cCmdLine    := "Clipper "
  41.    local cId         := ""
  42.    local cInclude    := "c:\clipper5\include"
  43.    local cObjDir     := "c:\clipper5\obj"
  44.  
  45.    if PCount() == 0
  46.       MsgAlert( "Sintaxis: Compile <Programa>.prg" + Chr( 13 ) + ;
  47.                 "(c) FiveWin 1.5, Linares & Pulpon, 1993",;
  48.                 "Llamar a Clipper" )
  49.    else
  50.       hBorland = LoadLibrary( "BWCC.dll" )
  51.       SET RESOURCES TO "Compile.dll"
  52.  
  53.       DEFINE DIALOG oDlg NAME "Clipper"
  54.  
  55.       REDEFINE GET cPrgName ID ID_PRGNAME OF oDlg
  56.  
  57.       REDEFINE CHECKBOX lMemVar      ID ID_MEMVAR      OF oDlg
  58.       REDEFINE CHECKBOX lDebugger    ID ID_DEBUGGER    OF oDlg
  59.       REDEFINE CHECKBOX lCredits     ID ID_CREDITS     OF oDlg
  60.       REDEFINE CHECKBOX lDefId       ID ID_DEFID       OF oDlg ;
  61.          ON CLICK GetId( lDefId, @cId )
  62.  
  63.       REDEFINE CHECKBOX lInclude     ID ID_INCLUDE     OF oDlg ;
  64.          ON CLICK GetInclude( lInclude, @cInclude )
  65.  
  66.       REDEFINE CHECKBOX lNoLines     ID ID_NOLINES     OF oDlg
  67.       REDEFINE CHECKBOX lOneModule   ID ID_ONEMODULE   OF oDlg
  68.       REDEFINE CHECKBOX lNoSymbol    ID ID_NOSYMBOL    OF oDlg
  69.       REDEFINE CHECKBOX lObjDir      ID ID_OBJDIR      OF oDlg ;
  70.          ON CLICK GetObjDir( lObjDir, @cObjDir )
  71.  
  72.       REDEFINE CHECKBOX lPreProcess  ID ID_PREPROCESS  OF oDlg
  73.       REDEFINE CHECKBOX lNoComments  ID ID_NOCOMMENTS  OF oDlg
  74.       REDEFINE CHECKBOX lLibRequest  ID ID_LIBREQUEST  OF oDlg
  75.       REDEFINE CHECKBOX lCheckSyntax ID ID_CHECKSYNTAX OF oDlg
  76.       REDEFINE CHECKBOX lCommands    ID ID_COMMANDS    OF oDlg
  77.       REDEFINE CHECKBOX lMemVars     ID ID_MEMVARS     OF oDlg
  78.       REDEFINE CHECKBOX lWarnings    ID ID_WARNINGS    OF oDlg
  79.  
  80.       REDEFINE BUTTON ID 10 OF oDlg ACTION cGetFile( "*.prg", "Seleccione un PRG" )
  81.       REDEFINE BUTTON ID ID_HELP OF oDlg ACTION MsgInfo( "FiveWin 1.0" )
  82.  
  83.       ACTIVATE DIALOG oDlg CENTERED
  84.  
  85.       if oDlg:nResult == ID_OK
  86.          cCmdLine += AllTrim( cPrgName ) + " " + ;
  87.                      If( lMemVar,      "/a ", "" ) + ;
  88.                      If( lDebugger,    "/b ", "" ) + ;
  89.                      If( lCredits,     "/credits ", "" ) + ;
  90.                      If( lDefId,       "/d ", "" ) + ;
  91.                      If( lInclude,     "/i" + cInclude + " ", "" ) + ;
  92.                      If( lNoLines,     "/l ", "" ) + ;
  93.                      If( lOneModule,   "/m ", "" ) + ;
  94.                      If( lNoSymbol,    "/n ", "" ) + ;
  95.                      If( lObjDir,      "/o ", "" ) + ;
  96.                      If( lPreProcess,  "/p ", "" ) + ;
  97.                      If( lNoComments,  "/p ", "" ) + ;
  98.                      If( lCheckSyntax, "/s ", "" ) + ;
  99.                      If( lCommands,    "/u ", "" ) + ;
  100.                      If( lMemVars,     "/v ", "" ) + ;
  101.                      If( lWarnings,    "/w ", "" )
  102.           MsgInfo( cCmdLine )
  103.           WinExec( cCmdLine )
  104.       endif
  105.  
  106.       FreeLibrary( hBorland )
  107.       SET RESOURCES TO
  108.  
  109.    endif
  110.  
  111. return
  112.  
  113. //----------------------------------------------------------------------------//
  114.  
  115. function GetInclude( lInclude, cInclude )
  116.  
  117.    local oDlg
  118.    local cTemp := cInclude
  119.  
  120.    if lInclude
  121.       DEFINE DIALOG oDlg NAME "AnyText" TITLE "Directorio ficheros Cabecera"
  122.  
  123.       REDEFINE GET cTemp ID 110 OF oDlg
  124.  
  125.       ACTIVATE DIALOG oDlg
  126.  
  127.       if oDlg:nResult == 1        // IDOK
  128.          cInclude = cTemp
  129.       endif
  130.    endif
  131.  
  132. return
  133.  
  134. //----------------------------------------------------------------------------//
  135.  
  136. function GetId( lId, cId )
  137.  
  138.    local oDlg
  139.    local cTemp := cId
  140.  
  141.    if lId
  142.       DEFINE DIALOG oDlg NAME "AnyText" TITLE "Definir Identificador"
  143.  
  144.       REDEFINE GET cTemp ID 110 OF oDlg
  145.  
  146.       ACTIVATE DIALOG oDlg
  147.  
  148.       if oDlg:nResult == 1        // IDOK
  149.          cId = cTemp
  150.       endif
  151.    endif
  152.  
  153. return
  154.  
  155. //----------------------------------------------------------------------------//
  156.  
  157. function GetObjDir( lObjDir, cObjDir )
  158.  
  159.    local oDlg
  160.    local cTemp := cObjDir
  161.  
  162.    if lObjDir
  163.  
  164.       DEFINE DIALOG oDlg NAME "AnyText" TITLE "Directorio para OBJ resultante"
  165.  
  166.       REDEFINE GET cTemp ID 110 OF oDlg
  167.  
  168.       ACTIVATE DIALOG oDlg
  169.  
  170.       if oDlg:nResult == 1        // IDOK
  171.          cObjDir = cTemp
  172.       endif
  173.    endif
  174.  
  175. return
  176.  
  177. //----------------------------------------------------------------------------//
  178.