vdfsplat / AppSrc / cSplatApplication.pkg @ 59
History | View | Annotate | Download (2.69 KB)
1 |
//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 |
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 |
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 |
// |
42 |
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 |
Set psApplication To sApplication |
70 |
Set pbStartedFromCLI To True |
71 |
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 |