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

Ending dot interfered with numeric decimal

Browse Source
This commit is contained in:
tfoman
2015-01-12 16:51:37 +01:00
parent f493ccd9fa
commit 947f3cad8c
2 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
CobXmlSupport/CobRow.cs
View File

@ -376,9 +376,18 @@ namespace CobXmlSupport
} }
if (tmpStr.Length > 0) if (tmpStr.Length > 0)
{ {
__wordList.Add(new RowWord(tmpStr, wrdStart, false)); if (tmpStr.Length > 1 && tmpStr.Substring(tmpStr.Length - 1, 1) == ".")
tmpStr = ""; {
wrdStart = 0; __wordList.Add(new RowWord(tmpStr.Substring(0, tmpStr.Length - 1), wrdStart, false));
tmpStr = "";
wrdStart = 0;
}
else
{
__wordList.Add(new RowWord(tmpStr, wrdStart, false));
tmpStr = "";
wrdStart = 0;
}
} }
if (__wordList.Count > 0) if (__wordList.Count > 0)
{ {

13
CobXmlSupport/GenCobCode.cs
View File

@ -355,7 +355,7 @@ namespace CobXmlSupport
} }
return strCobCode; return strCobCode;
} }
//xxxxxxxxxxxxxxxhär sker detxxxxxxxxxxxxxxx
private string valueChecker(string strLDisp, string strLStdValue, string strCobCode) private string valueChecker(string strLDisp, string strLStdValue, string strCobCode)
{ {
if (chkValues.Checked) if (chkValues.Checked)
@ -523,6 +523,7 @@ namespace CobXmlSupport
outText.Text += "\r\n" + wrkStr; outText.Text += "\r\n" + wrkStr;
} }
//xxxxxxxxxxxxxxxxx här är jag xxxxxxxxxxx
/// <summary> /// <summary>
/// Creates a CobRow object from a cobol declaration text /// Creates a CobRow object from a cobol declaration text
@ -671,7 +672,7 @@ namespace CobXmlSupport
btnTestThings.Visible = S.ettingSpecials; btnTestThings.Visible = S.ettingSpecials;
formLoading = false; formLoading = false;
cmbLastFile.Text = cmbLastFile.Items[0].ToString(); // cmbLastFile.Text = cmbLastFile.Items[0].ToString();
} }
private void btnClose_Click(object sender, EventArgs e) private void btnClose_Click(object sender, EventArgs e)
@ -709,7 +710,7 @@ namespace CobXmlSupport
} }
if (occParRows.Length > 0) if (occParRows.Length > 0)
{ {
genCode.CodeShower.Text += occParRows + " )\r\n"; genCode.CodeShower.Text += " (" + occParRows + " )\r\n";
} }
} }
} }
@ -1111,7 +1112,7 @@ namespace CobXmlSupport
} }
if (occParRows.Length > 0) if (occParRows.Length > 0)
{ {
genMoves.CodeShower.Text += occParRows + " )\r\n"; genMoves.CodeShower.Text += " (" + occParRows + " )\r\n";
} }
} }
} }
@ -1175,13 +1176,13 @@ namespace CobXmlSupport
genExtMoves.CodeShower.Text += "\r\n MOVE 0 TO " + cr.CountIn; genExtMoves.CodeShower.Text += "\r\n MOVE 0 TO " + cr.CountIn;
if (occParRows.Length > 0) if (occParRows.Length > 0)
{ {
genExtMoves.CodeShower.Text += occParRows + " )"; genExtMoves.CodeShower.Text += " (" + occParRows + " )";
} }
genExtMoves.CodeShower.Text += "\r\n IF " + cr.CountIn; genExtMoves.CodeShower.Text += "\r\n IF " + cr.CountIn;
if (occParRows.Length > 0) if (occParRows.Length > 0)
{ {
genExtMoves.CodeShower.Text += occParRows + " )"; genExtMoves.CodeShower.Text += " (" + occParRows + " )";
} }
genExtMoves.CodeShower.Text += "\r\n > 0"; genExtMoves.CodeShower.Text += "\r\n > 0";