tfoman/CobXml
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Generated files saves and registers

Browse Source
This commit is contained in:
tfoman
2015-07-17 15:19:11 +02:00
parent 83237693df
commit 691cbf23e3
9 changed files with 487 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
CobXmlSupport/GenCobCode.cs
View File

@ -98,6 +98,10 @@ namespace CobXmlSupport
tmpGS.SetSettings();
setLocalValues();
}
else
{
S.ettingList = null;
}
runXMLgen();
}
@ -822,6 +826,13 @@ namespace CobXmlSupport
genCode = new ShowCode();
genCode.Parent = this;
genCode.Labeltext = "Creating Initialization Code";
savedFile SF = new savedFile();
SF.idConnect = "A472C801-2A7A-4A09-B432-8F16504964C3";
SF.usageName = "Usage007.cpy";
genCode.SavedFile = SF;
string inFile = cmbLastFile.Text.Substring(cmbLastFile.Text.LastIndexOf("\\") + 1);
CreateComment(genCode.CodeShower, "Initializer", S.ettingUserName, S.ettingCompany, inFile);
foreach (CobRow cr in rowList)
@ -871,6 +882,12 @@ namespace CobXmlSupport
genCode = new ShowCode();
genCode.Parent = this;
genCode.Labeltext = "Creating Initialization Code";
savedFile SF = new savedFile();
SF.idConnect = "15E1040B-2206-4F02-8212-FE9DF6B209B8";
SF.usageName = "Usage008.cpy";
genCode.SavedFile = SF;
string inFile = cmbLastFile.Text.Substring(cmbLastFile.Text.LastIndexOf("\\") + 1);
CreateComment(genCode.CodeShower, "Initializer", S.ettingUserName, S.ettingCompany, inFile);
genCode.CodeShower.Text += "\r\n";
@ -1408,6 +1425,12 @@ namespace CobXmlSupport
genExtMoves = new ShowCode();
genExtMoves.Parent = this;
genExtMoves.Labeltext = "Creating \"move to (with loop)\" Code";
savedFile SF = new savedFile();
SF.idConnect = "6EFF8B31-7F88-4A81-B94E-41D54A3D3197";
SF.usageName = "Usage001.cpy";
genExtMoves.SavedFile = SF;
bool adj = false;
int prfNiv = 0;
@ -1646,6 +1669,12 @@ namespace CobXmlSupport
fromMoves = new ShowCode();
fromMoves.Parent = this;
fromMoves.Labeltext = "Creating \"move from\" Code";
savedFile SF = new savedFile();
SF.idConnect = "9C3E8CC7-FA20-4E11-8E81-73BE8D2E9CFB";
SF.usageName = "Usage002.cpy";
fromMoves.SavedFile = SF;
bool adj = false;
foreach (CobRow cr in rowList)
@ -1817,6 +1846,12 @@ namespace CobXmlSupport
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
fromToMoves.Labeltext = "Creating \"move From - To\" Code";
savedFile SF = new savedFile();
SF.idConnect = "0A975654-75C6-4A8C-8534-AA16F46BC740";
SF.usageName = "Usage003.cpy";
fromMoves.SavedFile = SF;
bool adj = false;
bool valueSwitch = false;
@ -2067,6 +2102,12 @@ namespace CobXmlSupport
fromToMoves.Parent = this;
fromToMoves.Labeltext = "Created \"move From \" Code";
savedFile SF = new savedFile();
SF.idConnect = "598A5F20-9A8A-415D-81B2-BBFE04465381";
SF.usageName = "Usage004.cpy";
fromToMoves.SavedFile = SF;
//Dictionary for indexes, init IndexState class and list for qualifiedHelper class
Dictionary<string, string> testIndexes = new Dictionary<string, string>();
IndexState lIs = new IndexState(testIndexes, rowList);
@ -2195,12 +2236,17 @@ namespace CobXmlSupport
private void btnTestThings_Click(object sender, EventArgs e)
{
//Create showing window
//Create showing window
loadResWords();
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
fromToMoves.Labeltext = "Cobol \"reserved\" Words";
savedFile SF = new savedFile();
SF.idConnect = "DD5A8C24-C322-4901-85B5-776DD6E21FB9";
SF.usageName = "Usage005.cpy";
fromToMoves.SavedFile = SF;
foreach (string str in CobResWords.ToArray())
{
if (fromToMoves.CodeShower.Text == "") { }
@ -2210,6 +2256,7 @@ namespace CobXmlSupport
fromToMoves.Show();
//createXMLMoveCode();
func_exit:;
}
private void loadResWords()
@ -2234,6 +2281,11 @@ namespace CobXmlSupport
fromToMoves.BSynch = true;
fromToMoves.Labeltext = "Cobol \"CrossRef\" List";
savedFile SF = new savedFile();
SF.idConnect = "1C1FAE9D-39DD-4A24-A6C2-8696EAE3CB32";
SF.usageName = "Usage006.cpy";
fromToMoves.SavedFile = SF;
foreach (CobRow cr in rowList)
{
if (cr.CobLevel < 2)