home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / HLP2FOX.PRG < prev    next >
Encoding:
Text File  |  1998-05-26  |  2.2 KB  |  86 lines
  1. LPARAMETERS cSample, cAction
  2. IF PCOUNT() != 2 OR TYPE("cSample") != "C" OR TYPE("cAction") != "C"
  3.     RETURN
  4. ENDIF
  5.  
  6. LOCAL lcFile, lcSuffix, lcPath
  7. m.lcFile = ""
  8. m.lcPath = ""
  9. cSample = UPPER(cSample)
  10. cAction = UPPER(cAction)
  11.  
  12. m.lcSuffix = IIF(cAction = "MODIFY", ".PJX", ".APP")
  13.  
  14. #DEFINE ERROR_LOC "Error"
  15. #DEFINE ERR1_LOC "File not found." + CHR(13) + "Please make sure the following file is installed:" + CHR(13)
  16. #DEFINE SPATH_LOC "Solution\"
  17. #DEFINE SFILE_LOC "solution"
  18. #DEFINE TTPATH_LOC "Tastrade\"
  19. #DEFINE TTFILE_LOC "tastrade"
  20. #DEFINE CSPATH_LOC "CSApp\"
  21. #DEFINE CSFILE_LOC "sample"
  22. #DEFINE POOLPATH_LOC "Servers\Poolmgr\"
  23. #DEFINE POOLFILE_LOC "pool"
  24. #DEFINE GOPHERPATH_LOC "Servers\Gopher\"
  25. #DEFINE GOPHERFILE_LOC "foxsrch"
  26. #DEFINE ISAPIPATH_LOC "Servers\Foxisapi\FoxWeb\"
  27. #DEFINE ISAPIFILE_LOC "foxweb"
  28.  
  29.  
  30. DO CASE 
  31.     CASE cSample = "SOLUTION"
  32.     *------------------------
  33.         m.lcPath = HOME(2) + SPATH_LOC
  34.         m.lcFile = SFILE_LOC + m.lcSuffix
  35.         
  36.     CASE cSample = "TASTRADE"
  37.     *------------------------
  38.         m.lcPath = HOME(2) + TTPATH_LOC
  39.         m.lcFile =  TTFILE_LOC + m.lcSuffix
  40.         
  41.     CASE cSample = "SAMPLE"
  42.     *------------------------
  43.         m.lcPath = HOME(2) + CSPATH_LOC
  44.         m.lcFile = CSFILE_LOC + m.lcSuffix
  45.  
  46.     CASE cSample = "POOL"
  47.     *------------------------
  48.         m.lcPath = HOME(2) + POOLPATH_LOC
  49.         m.lcFile = POOLFILE_LOC + m.lcSuffix
  50.         cAction = "MODIFY"
  51.         
  52.     CASE cSample = "FOXSRCH"
  53.     *------------------------
  54.         m.lcPath = HOME(2) + GOPHERPATH_LOC
  55.         m.lcFile = GOPHERFILE_LOC + m.lcSuffix
  56.         cAction = "MODIFY"
  57.         
  58.     CASE cSample = "FOXWEB"
  59.     *------------------------
  60.         m.lcPath = HOME(2) + ISAPIPATH_LOC
  61.         m.lcFile = ISAPIFILE_LOC + m.lcSuffix
  62.         cAction = "MODIFY"
  63.         
  64.     OTHERWISE
  65.     *------------------------
  66.         RETURN        
  67. ENDCASE
  68. IF _SCREEN.WindowState = 1 && minimized
  69.     _SCREEN.WindowState = 0 && normal
  70. ENDIF
  71.  
  72. IF !FILE(m.lcPath + m.lcFile)
  73.         MESSAGEBOX(ERR1_LOC + CHR(13) + CHR(13) + m.lcPath + m.lcFile, 48+0+0, ERROR_LOC)
  74.         RETURN
  75.     ENDIF
  76. DO CASE 
  77.     CASE cAction = "MODIFY"
  78.         MODIFY PROJECT (m.lcPath + m.lcFile) NOWAIT
  79.     CASE cAction = "RUN"
  80.         CLOSE DATA ALL
  81.         CD (lcPath)
  82.         ACTIVATE WINDOW COMMAND
  83.         KEYBOARD "DO " + m.lcFile + '{ENTER}'
  84. ENDCASE
  85.  
  86.