vdfsplat / AppSrc / cSplatApplication.pkg @ 56
History | View | Annotate | Download (2.69 KB)
| 1 | 35 | wil | //TH-Header |
|---|---|---|---|
| 2 | //***************************************************************************************** |
||
| 3 | // Copyright (c) 2015 Antwise Solutions |
||
| 4 | // All rights reserved. |
||
| 5 | // |
||
| 6 | // $FileName : .\AppSrc\cSplatApplication.pkg |
||
| 7 | // $ProjectName : VdfSplat DataFlex Debugger |
||
| 8 | // $Authors : Wil van Antwerpen |
||
| 9 | // $Created : 09.14.2015 11:37 |
||
| 10 | // $Type : GPL v2 |
||
| 11 | // |
||
| 12 | // Contents: |
||
| 13 | // Read command line parameters |
||
| 14 | // |
||
| 15 | //***************************************************************************************** |
||
| 16 | //TH-RevisionStart |
||
| 17 | //TH-RevisionEnd |
||
| 18 | Use cApplication.pkg |
||
| 19 | |||
| 20 | Class cSplatApplication is a cApplication |
||
| 21 | |||
| 22 | Procedure Construct_Object |
||
| 23 | Forward Send Construct_Object |
||
| 24 | 38 | wil | Property String psWorkspace "" // the filename and path of the current workspace's configuration file. e.g. "c:\projects\orders\orders.sws" |
| 25 | Property String psApplication "" // filename and path of the executable that you want to debug |
||
| 26 | Property Boolean pbStartedFromCLI False // Debug was started from the command line. |
||
| 27 | 35 | wil | End_Procedure |
| 28 | |||
| 29 | // Reads parameters from the command line. |
||
| 30 | // |
||
| 31 | // The .sws file (optional) |
||
| 32 | // -x "c:\path\to\your\workspace\MyApp.sws" |
||
| 33 | // |
||
| 34 | // The application, points to the actual application to debug. |
||
| 35 | // Needs to have a .dbg file present in order to debug. |
||
| 36 | // -f "c:\path\to\your\workspace\Programs\MyApp.exe" |
||
| 37 | // |
||
| 38 | // |
||
| 39 | // |
||
| 40 | // |
||
| 41 | 38 | wil | // |
| 42 | 35 | wil | Procedure ReadCommandLineParameters |
| 43 | Integer iArg |
||
| 44 | Integer iCount |
||
| 45 | String sArgument |
||
| 46 | String sApplication |
||
| 47 | String sWorkspace |
||
| 48 | Handle hoCommandLine |
||
| 49 | |||
| 50 | Get phoCommandLine To hoCommandLine |
||
| 51 | If (hoCommandLine > 0) Begin |
||
| 52 | Get CountOfArgs Of hoCommandLine To iCount |
||
| 53 | For iArg From 1 To iCount |
||
| 54 | Get Argument of hoCommandLine iArg To sArgument |
||
| 55 | If (Left(sArgument,2)="-x") Begin |
||
| 56 | If (iArg<iCount) Begin |
||
| 57 | Increment iArg |
||
| 58 | Get Argument of hoCommandLine iArg to sWorkspace |
||
| 59 | Set psWorkspace To sWorkspace |
||
| 60 | End |
||
| 61 | Else Begin |
||
| 62 | Send info_box "-x specified on command line, but <workspace>.sws file missing as parameter." |
||
| 63 | End |
||
| 64 | End |
||
| 65 | If (left(sArgument,2)="-f") Begin |
||
| 66 | If (iArg<iCount) Begin |
||
| 67 | Increment iArg |
||
| 68 | Get Argument of hoCommandLine iArg to sApplication |
||
| 69 | 38 | wil | Set psApplication To sApplication |
| 70 | Set pbStartedFromCLI To True |
||
| 71 | 35 | wil | End |
| 72 | Else Begin |
||
| 73 | Send info_box "-f specified on command line, but actual <application>.exe file missing as parameter." |
||
| 74 | End |
||
| 75 | End |
||
| 76 | Loop |
||
| 77 | End |
||
| 78 | End_Procedure |
||
| 79 | |||
| 80 | Procedure OnCreate |
||
| 81 | Send ReadCommandLineParameters |
||
| 82 | End_Procedure |
||
| 83 | End_Class |