...
Another example – pre-inspection of a file:
| Code Block |
|---|
<Load Project="%SrcPath%" SourceCode="on" />
<gmSL namespace="gmSL" class="gm"><[CDATA[[
void InspectCode()
{
int levels(19);
int iRoot;
tInfoFile formFile;
Text textStream;
int nRecord;
int curRecord;
int length = 0;
int rai = 0;
string record;
string token;
int lexeme;
for(iRoot = Store.FindFirstChild(levels,0); iRoot != 0; iRoot = Store.FindNextChild(levels))
{
if(Store.GetObjectType(iRoot) != ObjectType.FormFile) continue;
string name = Symbol.FullName(iRoot,0);
System.LogMessage("name=" + name);
formFile = Store.GetVector(iRoot);
if(formFile.textBase == 0) continue;
System.LogMessage("formFile.textBase=" + formFile.textBase);
textStream = Text.Open(Store.GetHandle(),formFile.textBase);
System.LogMessage("textStream=" + textStream);
nRecord = Text.Maximum(textStream);
curRecord = 0;
while(curRecord < nRecord)
{
curRecord = curRecord + 1;
Text.Position(textStream,curRecord);
record = Text.Access(textStream, length, rai, 0);
if(length < 10) continue;
Parser.SetStatement(record);
token = Parser.GetToken(lexeme);
if(token == "Attribute") break;
if(token != "Begin") continue;
token = Parser.GetToken(lexeme);
if(token != "MSComctlLib") continue;
System.LogMessage("record=" + record);
while(lexeme>0)
{
System.LogMessage(" token=[" + token + "] lexeme=" + lexeme);
token = Parser.GetToken(lexeme);
}
}
Text.Close(textStream);
}
}
<RunCommand id="InspectCode" />
<Compile...> |
| No Format |
|---|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Translation Log: C:\gmSamples\NewSamples\FileExplorerAPI\proj_csh\log\FileExplorer_csh-FileExplorer-gms-csh.TRAN.log
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Basic Processor V30.76(07/18/18) System Build(07/18/18 5:26:53)
Processing file: C:\gmSamples\NewSamples\FileExplorerAPI\src\FileExplorer.vbp
Reprocessing file: gm.cls
Reprocessing file: gm.cls
Here i am: Mark
name=frmExploreLite.frm
formFile.textBase=3838
textStream=4
record= Begin MSComctlLib.Toolbar Toolbar1
token=[MSComctlLib] lexeme=2
token=[.] lexeme=1
token=[Toolbar] lexeme=2
token=[Toolbar1] lexeme=2
record= Begin MSComctlLib.ImageList ilSmall
token=[MSComctlLib] lexeme=2
token=[.] lexeme=1
token=[ImageList] lexeme=2
token=[ilSmall] lexeme=2
record= Begin MSComctlLib.ImageList ilMain
token=[MSComctlLib] lexeme=2
token=[.] lexeme=1
token=[ImageList] lexeme=2
token=[ilMain] lexeme=2
record= Begin MSComctlLib.ListView lvListView
token=[MSComctlLib] lexeme=2
token=[.] lexeme=1
token=[ListView] lexeme=2
token=[lvListView] lexeme=2
record= Begin MSComctlLib.TreeView tvTreeView
token=[MSComctlLib] lexeme=2
token=[.] lexeme=1
token=[TreeView] lexeme=2
token=[tvTreeView] lexeme=2
record= Begin MSComctlLib.StatusBar sbStatusBar
token=[MSComctlLib] lexeme=2
token=[.] lexeme=1
token=[StatusBar] lexeme=2
token=[sbStatusBar] lexeme=2
Loading reference:[Language.std] \gmIDF\Language.std.xml
Reprocessing file: Transform.cls
Reprocessing file: Transform.cls
Loading reference:[stdole2.tlb] \gmIDF\stdole2.tlb.xml
Loading reference:[GM.scrrun.dll] \gmSamples\NewSamples\FileExplorerAPI\proj_csh\usr\GM.scrrun.dll.xml
Loading runtime library:[\gmProducts\gmstudio_dev\support\metalang\ScrrunMigration.dll] with event identifier [scrrun]
Loading reference:[GM.mscomctl.ocx] \gmSamples\NewSamples\FileExplorerAPI\proj_csh\usr\GM.mscomctl.ocx.xml
Loading runtime library:[\gmProducts\gmstudio_dev\support\metalang\MscomctlMigration.dll] with event identifier [mscomctl]
Reprocessing file: MigCode.cls
Reprocessing file: MigCode.cls
Reprocessing file: Transform.cls
Reprocessing file: Transform.cls
Loading reference:[GM.richtx32.ocx] \gmSamples\NewSamples\FileExplorerAPI\proj_csh\usr\GM.richtx32.ocx.xml
Reprocessing file: C:\gmSamples\NewSamples\FileExplorerAPI\src\frmExploreLite.frm
Loading resource:<ilSmall.ImageStream> from \gmSamples\NewSamples\FileExplorerAPI\proj_csh\resx\FileExplorer_csh-FileExplorer\frmExploreLite.resx
Loading resource:<ilMain.ImageStream> from \gmSamples\NewSamples\FileExplorerAPI\proj_csh\resx\FileExplorer_csh-FileExplorer\frmExploreLite.resx
Reprocessing file: C:\gmSamples\NewSamples\FileExplorerAPI\src\frmExploreLite.frm
Loading reference:[MigrationSupport.dll] \gmIDF\MigrationSupport.dll.xml
Translation Time (sec) = 0.25
|