public static S5CommentBlock GetCommentBlock(ProjectBlockInfo blkInfo, byte[] commentBlock)
{
S5CommentBlock retVal = new S5CommentBlock();
if (commentBlock != null)
{
int nr = 28;
int hdlen = 0x7f & commentBlock[nr];
retVal.Name = System.Text.Encoding.GetEncoding("ISO-8859-1").GetString(commentBlock, nr + 1, hdlen);
nr += hdlen + 1;
int last = 0;
retVal.CommentLines = "";
while (nr + 3 < commentBlock.Length)
{
int zeile = commentBlock[nr];
int len = 0x7f & commentBlock[nr + 2];
string cmt = System.Text.Encoding.GetEncoding("ISO-8859-1").GetString(commentBlock, nr + 3, len);
retVal.CommentLines += "".PadLeft((zeile - last), '\n').Replace("\n", "\r\n");
retVal.CommentLines += cmt;
nr += len + 3;
}
}
return retVal;
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
if (blkInfo == null) return null;
switch (blkInfo.BlockType)
{
case PLCBlockType.DB:
return new TIADataBlock(TiaProject, ((TIAProjectBlockInfo)blkInfo).Node) { BlockType = blkInfo.BlockType };
case PLCBlockType.FB:
case PLCBlockType.FC:
return new TIAFunctionBlock(TiaProject, ((TIAProjectBlockInfo)blkInfo).Node) { BlockType = blkInfo.BlockType };
}
return null;
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
S7ProjectSourceInfo srcInfo = (S7ProjectSourceInfo)blkInfo;
S7SourceBlock retVal = new S7SourceBlock();
retVal.Text = GetSource(srcInfo);
retVal.Name = srcInfo.Name;
retVal.ParentFolder = srcInfo.ParentFolder;
retVal.Filename = srcInfo.Filename;
return retVal;
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
S7ProjectSourceInfo srcInfo = (S7ProjectSourceInfo)blkInfo;
S7SourceBlock retVal = new S7SourceBlock();
retVal.Name = srcInfo.Name;
retVal.BlockNumber = blkInfo.id;
retVal.ParentFolder = srcInfo.ParentFolder;
retVal.Filename = srcInfo.Filename;
retVal.BlockType = srcInfo.BlockType;
retVal.BlockLanguage = PLCLanguage.SRC;
// Read header
if (((Step7ProjectV5)Project)._ziphelper.FileExists(Folder + "S7CONTAI.DBF"))
{
var dbfTbl = DBF.ParseDBF.ReadDBF(Folder + "S7CONTAI.DBF", ((Step7ProjectV5)Project)._ziphelper, ((Step7ProjectV5)Project)._DirSeperator);
DataRow[] bstRows = dbfTbl.Select("ID = " + blkInfo.id);
// Should get only one record
if (bstRows.Length == 1)
{
DataRow bstRow = bstRows[0];
retVal.Author = (string)bstRow["CREATOR"];
retVal.Description = (string)bstRow["COMMENT"];
// TODO: Parse CRDATE1/2 fields in the DBF
int ver = ((int)bstRow["VERSION"]);
retVal.Version = (ver / 15).ToString() + "." + (ver % 15).ToString();
}
}
// Read source file
if (((Step7ProjectV5)Project)._ziphelper.FileExists(srcInfo.Filename))
{
// Get a file timestamp for now
retVal.LastCodeChange = ((Step7ProjectV5)Project)._ziphelper.FileModDateTime(srcInfo.Filename);
Stream strm = ((Step7ProjectV5)Project)._ziphelper.GetReadStream(srcInfo.Filename);
retVal.Text = new System.IO.StreamReader(strm,Encoding.UTF7).ReadToEnd();
//ReadToEnd();
}
// Block size
retVal.CodeSize = retVal.Text.Length;
return retVal;
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
S7ProjectSourceInfo srcInfo = (S7ProjectSourceInfo)blkInfo;
S7SourceBlock retVal = new S7SourceBlock();
if (((Step7ProjectV5)Project)._ziphelper.FileExists(srcInfo.Filename))
{
Stream strm = ((Step7ProjectV5)Project)._ziphelper.GetReadStream(srcInfo.Filename);
retVal.Text = new System.IO.StreamReader(strm,Encoding.UTF7).ReadToEnd();
//ReadToEnd();
}
retVal.Name = srcInfo.Name;
retVal.ParentFolder = srcInfo.ParentFolder;
retVal.Filename = srcInfo.Filename;
return retVal;
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
if (blkInfo._Block != null)
return blkInfo._Block;
ProjectPlcBlockInfo plcblkInfo = (ProjectPlcBlockInfo)blkInfo;
//string aa = System.Text.Encoding.GetEncoding("ISO-8859-1").GetString(((Step5ProjectBlockInfo)blkInfo)._blkByte);
//string bb = System.Text.Encoding.GetEncoding("ISO-8859-1").GetString(((Step5ProjectBlockInfo)blkInfo)._blkHeaderByte);
Block retVal = null;
if (blkInfo.BlockType == PLCBlockType.S5_DV)
retVal = MC5toDB.GetDB((ProjectPlcBlockInfo)plcblkInfo, null, ((S5ProjectBlockInfo)blkInfo)._blkByte, null);
else if (blkInfo.BlockType == PLCBlockType.S5_DVX)
retVal = MC5toDB.GetDB((ProjectPlcBlockInfo)plcblkInfo, null, ((S5ProjectBlockInfo)blkInfo)._blkByte, null);
else if (blkInfo.BlockType == PLCBlockType.S5_DB)
retVal = MC5toDB.GetDB((ProjectPlcBlockInfo)plcblkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte, GetBlockInByte("S5_DV" + plcblkInfo.BlockNumber.ToString()), GetBlockInByte("S5_DK" + plcblkInfo.BlockNumber.ToString()));
else if (blkInfo.BlockType == PLCBlockType.S5_DX)
retVal = MC5toDB.GetDB((ProjectPlcBlockInfo)plcblkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte, GetBlockInByte("S5_DVX" + plcblkInfo.BlockNumber.ToString()), GetBlockInByte("S5_DKX" + plcblkInfo.BlockNumber.ToString()));
else if (blkInfo.BlockType == PLCBlockType.S5_DK)
retVal = MC5toComment.GetCommentBlock(blkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte);
else if (blkInfo.BlockType == PLCBlockType.S5_DKX)
retVal = MC5toComment.GetCommentBlock(blkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte);
else if (blkInfo.BlockType == PLCBlockType.S5_PB)
retVal = MC5toAWL.GetFunctionBlock((ProjectPlcBlockInfo)blkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte, null, GetBlockInByte("S5_PK" + plcblkInfo.BlockNumber.ToString()), (Step5ProgrammFolder)blkInfo.ParentFolder.Parent);
else if (blkInfo.BlockType == PLCBlockType.S5_FB)
retVal = MC5toAWL.GetFunctionBlock(plcblkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte, GetBlockInByte("S5_FV" + plcblkInfo.BlockNumber.ToString()), GetBlockInByte("S5_FK" + plcblkInfo.BlockNumber.ToString()), (Step5ProgrammFolder)blkInfo.ParentFolder.Parent);
else if (blkInfo.BlockType == PLCBlockType.S5_SB)
retVal = MC5toAWL.GetFunctionBlock(plcblkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte, null, GetBlockInByte("S5_SK" + plcblkInfo.BlockNumber.ToString()), (Step5ProgrammFolder)blkInfo.ParentFolder.Parent);
else if (blkInfo.BlockType == PLCBlockType.S5_FX)
retVal = MC5toAWL.GetFunctionBlock(plcblkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte, GetBlockInByte("S5_FVX" + plcblkInfo.BlockNumber.ToString()), GetBlockInByte("S5_FKX" + plcblkInfo.BlockNumber.ToString()), (Step5ProgrammFolder)blkInfo.ParentFolder.Parent);
else if (blkInfo.BlockType == PLCBlockType.S5_OB)
retVal = MC5toAWL.GetFunctionBlock(plcblkInfo, ((S5ProjectBlockInfo)blkInfo)._blkByte, null, GetBlockInByte("S5_OK" + plcblkInfo.BlockNumber.ToString()), (Step5ProgrammFolder)blkInfo.ParentFolder.Parent);
if (retVal != null)
retVal.ParentFolder = this;
blkInfo._Block = retVal;
return retVal;
}
/// <summary>
/// With this Function you get the AWL Source of a Block, so that it can be imported into Step7
/// </summary>
/// <param name="blkInfo">The BlockInfo from the Block you wish to get the Source of!</param>
/// <returns></returns>
public string GetSourceBlock(ProjectBlockInfo blkInfo, bool useSymbols = false)
{
StringBuilder retVal = new StringBuilder();
Block blk = GetBlock(blkInfo, new S7ConvertingOptions(Project.ProjectLanguage) { CombineDBOpenAndDBAccess = true, GenerateCallsfromUCs = true, ReplaceDBAccessesWithSymbolNames = useSymbols, ReplaceLokalDataAddressesWithSymbolNames = true, UseComments = true });
S7Block fblk = (S7Block)blk;
return fblk.GetSourceBlock(useSymbols);
}
public Block GetBlock(ProjectBlockInfo blkInfo, S7ConvertingOptions myConvOpt)
{
if (blkInfo._Block != null && ((blkInfo._Block) as S7Block).usedS7ConvertingOptions.Equals(myConvOpt))
return blkInfo._Block;
ProjectPlcBlockInfo plcblkifo = (ProjectPlcBlockInfo)blkInfo;
tmpBlock myTmpBlk = GetBlockBytes(blkInfo);
List<Step7Attribute> step7Attributes = null;
if (myTmpBlk != null)
{
if (myTmpBlk.uda != null)
{
int uPos = 2;
if (myTmpBlk.uda != null && myTmpBlk.uda.Length > 0 && myTmpBlk.uda[0] > 0)
{
step7Attributes = new List<Step7Attribute>();
for (int j = 0; j < myTmpBlk.uda[0]; j++)
{
string t1 = Project.ProjectEncoding.GetString(myTmpBlk.uda, uPos + 1, myTmpBlk.uda[uPos]);
uPos += myTmpBlk.uda[uPos] + 1;
string t2 = Project.ProjectEncoding.GetString(myTmpBlk.uda, uPos + 1, myTmpBlk.uda[uPos]);
uPos += myTmpBlk.uda[uPos] + 1;
step7Attributes.Add(new Step7Attribute(t1, t2));
}
}
}
//Begin with the Block Reading...
if (blkInfo.BlockType == PLCBlockType.VAT)
{
S7VATBlock retValBlock = new S7VATBlock(myTmpBlk.mc7code, myTmpBlk.comments, plcblkifo.BlockNumber, Project.ProjectEncoding);
retValBlock.Attributes = step7Attributes;
retValBlock.LastCodeChange = myTmpBlk.LastCodeChange;
retValBlock.LastInterfaceChange = myTmpBlk.LastInterfaceChange;
retValBlock.ParentFolder = this;
retValBlock.usedS7ConvertingOptions = myConvOpt;
blkInfo._Block = retValBlock;
return retValBlock;
}
else if (blkInfo.BlockType == PLCBlockType.DB || blkInfo.BlockType == PLCBlockType.UDT)
{
List<string> tmpList = new List<string>();
S7DataBlock retVal = new S7DataBlock();
retVal.IsInstanceDB = myTmpBlk.IsInstanceDB;
retVal.FBNumber = myTmpBlk.FBNumber;
if (myTmpBlk.mc7code != null)
retVal.CodeSize = myTmpBlk.mc7code.Length;
retVal.StructureFromString = Parameter.GetInterfaceOrDBFromStep7ProjectString(myTmpBlk.blkinterface, ref tmpList, blkInfo.BlockType, false, this, retVal, myTmpBlk.mc7code);
if (myTmpBlk.blkinterfaceInMC5 != null)
{
//List<string> tmp = new List<string>();
//retVal.StructureFromMC7 = Parameter.GetInterface(myTmpBlk.blkinterfaceInMC5, myTmpBlk.mc7code, ref tmp, blkInfo.BlockType, myTmpBlk.IsInstanceDB, retVal);
}
retVal.BlockNumber = plcblkifo.BlockNumber;
retVal.BlockType = blkInfo.BlockType;
retVal.Attributes = step7Attributes;
retVal.LastCodeChange = myTmpBlk.LastCodeChange;
retVal.LastInterfaceChange = myTmpBlk.LastInterfaceChange;
retVal.ParentFolder = this;
retVal.usedS7ConvertingOptions = myConvOpt;
blkInfo._Block = retVal;
return retVal;
}
else if (blkInfo.BlockType == PLCBlockType.FC || blkInfo.BlockType == PLCBlockType.FB || blkInfo.BlockType == PLCBlockType.OB || blkInfo.BlockType == PLCBlockType.SFB || blkInfo.BlockType == PLCBlockType.SFC)
{
List<string> ParaList = new List<string>();
S7FunctionBlock retVal = new S7FunctionBlock();
retVal.LastCodeChange = myTmpBlk.LastCodeChange;
retVal.LastInterfaceChange = myTmpBlk.LastInterfaceChange;
retVal.BlockNumber = plcblkifo.BlockNumber;
retVal.BlockType = blkInfo.BlockType;
retVal.Attributes = step7Attributes;
retVal.KnowHowProtection = myTmpBlk.knowHowProtection;
retVal.MnemonicLanguage = Project.ProjectLanguage;
retVal.Author = myTmpBlk.username;
retVal.Version = myTmpBlk.version;
retVal.Parameter = Parameter.GetInterfaceOrDBFromStep7ProjectString(myTmpBlk.blkinterface, ref ParaList, blkInfo.BlockType, false, this, retVal);
if (myTmpBlk.blockdescription != null)
{
retVal.Title = Project.ProjectEncoding.GetString(myTmpBlk.blockdescription, 3, myTmpBlk.blockdescription[1] - 4);
retVal.Description = Project.ProjectEncoding.GetString(myTmpBlk.blockdescription, myTmpBlk.blockdescription[1], myTmpBlk.blockdescription.Length - myTmpBlk.blockdescription[1] - 1).Replace("\n", Environment.NewLine);
}
if (blkInfo.BlockType == PLCBlockType.FC || blkInfo.BlockType == PLCBlockType.FB || blkInfo.BlockType == PLCBlockType.OB)
{
retVal.CodeSize = myTmpBlk.mc7code.Length;
int[] Networks;
Networks = NetWork.GetNetworks(0, myTmpBlk.nwinfo);
S7ProgrammFolder prgFld = null;
if (this.Parent is S7ProgrammFolder)
prgFld = (S7ProgrammFolder)this.Parent;
retVal.AWLCode = MC7toAWL.GetAWL(0, myTmpBlk.mc7code.Length - 2, (int)myConvOpt.Mnemonic, myTmpBlk.mc7code, Networks, ParaList, prgFld, retVal);
retVal.AWLCode = JumpMarks.AddJumpmarks(retVal.AWLCode, myTmpBlk.jumpmarks, myTmpBlk.nwinfo, myConvOpt);
LocalDataConverter.ConvertLocaldataToSymbols(retVal, myConvOpt);
CallConverter.ConvertUCToCall(retVal, prgFld, this, myConvOpt, null);
FBStaticAccessConverter.ReplaceStaticAccess(retVal, prgFld, myConvOpt);
#region UseComments from Block
if (myConvOpt.UseComments)
{
List<FunctionBlockRow> newAwlCode = new List<FunctionBlockRow>();
int n = 0;
int akRowInAwlCode = 0;
int lineNumberInCall = 0; //Counter wich line in Command (for Calls and UCs)
if (myTmpBlk.comments != null)
{
byte[] cmt = myTmpBlk.comments;
//string aa = System.Text.Encoding.GetEncoding("Windows-1251").GetString(cmt);
//string testaa = "";
while (n < myTmpBlk.comments.Length)
{
int kommLen = cmt[n + 0];
int startNWKomm = cmt[n + 1];
int anzUebsprungZeilen = cmt[n + 2] + cmt[n + 3] * 0x100;
int lenNWKommZeile = cmt[n + 3] + cmt[n + 4] * 0x100;
//Console.WriteLine(cmt[n + 5].ToString("X"));
if (cmt[n + 5] == 0x06)
{
//NWKomentar:
string tx1 = Project.ProjectEncoding.GetString(cmt, n + 6, startNWKomm - 7);
string tx2 = Project.ProjectEncoding.GetString(cmt, n + startNWKomm, lenNWKommZeile - startNWKomm - 1).Replace("\n", Environment.NewLine);
n += lenNWKommZeile;
if (retVal.AWLCode.Count > akRowInAwlCode)
{
while (retVal.AWLCode.Count - 1 > akRowInAwlCode && retVal.AWLCode[akRowInAwlCode].Command != "NETWORK")
{
if (!newAwlCode.Contains(retVal.AWLCode[akRowInAwlCode]))
{
//newAwlCode.Add(retVal.AWLCode[akRowInAwlCode]);
S7FunctionBlockRow akRw = (S7FunctionBlockRow)retVal.AWLCode[akRowInAwlCode];
if (akRw.CombineDBAccess)
{
S7FunctionBlockRow nRw = (S7FunctionBlockRow)retVal.AWLCode[akRowInAwlCode + 1];
if (!nRw.Parameter.Contains("["))
{
nRw.Parameter = akRw.Parameter + "." + nRw.Parameter;
nRw.MC7 = Helper.CombineByteArray(akRw.MC7, nRw.MC7);
nRw.Label = akRw.Label ?? nRw.Label;
akRw = nRw;
retVal.AWLCode.RemoveAt(akRowInAwlCode + 1);
}
}
if (!newAwlCode.Contains(akRw))
newAwlCode.Add(akRw);
}
akRowInAwlCode++;
}
((S7FunctionBlockRow)retVal.AWLCode[akRowInAwlCode]).NetworkName = tx1;
((S7FunctionBlockRow)retVal.AWLCode[akRowInAwlCode]).Comment = tx2;
newAwlCode.Add(retVal.AWLCode[akRowInAwlCode]);
}
akRowInAwlCode++;
lineNumberInCall = 0;
}
else
{
S7FunctionBlockRow lastRow = null;
//Anzahl der Anweisungen vor diesem Kommentar (inklusive aktueller Zeile!)
for (int q = 0; q < (anzUebsprungZeilen); q++)
{
if (retVal.AWLCode.Count > akRowInAwlCode)
{
S7FunctionBlockRow akRw = (S7FunctionBlockRow) retVal.AWLCode[akRowInAwlCode];
if (cmt[n + 4] == 0xc0 && q == anzUebsprungZeilen-1)
akRw.CombineDBAccess = false;
//Db Zugriff zusammenfügen...
if (akRw.CombineDBAccess)
{
S7FunctionBlockRow nRw = (S7FunctionBlockRow) retVal.AWLCode[akRowInAwlCode + 1];
nRw.Parameter = akRw.Parameter + "." + nRw.Parameter;
nRw.MC7 = Helper.CombineByteArray(akRw.MC7, nRw.MC7);
nRw.Label = akRw.Label ?? nRw.Label;
akRw = nRw;
retVal.AWLCode.RemoveAt(akRowInAwlCode + 1);
}
if (!newAwlCode.Contains(akRw))
newAwlCode.Add(akRw);
if (akRw.GetNumberOfLines() == 1)
{
lineNumberInCall = 0;
lastRow = akRw;
//if (!newAwlCode.Contains(akRw))
// newAwlCode.Add(akRw);
akRowInAwlCode++;
}
else
{
lastRow = akRw;
if (lineNumberInCall == 0 && !(cmt[n + 4] != 0x80 && cmt[n + 4] != 0xc0))
{
//if (!newAwlCode.Contains(akRw))
// newAwlCode.Add(akRw);
}
if (akRw.GetNumberOfLines() - 1 == lineNumberInCall)
{
akRowInAwlCode++;
lineNumberInCall = 0;
//subCnt++; //The set to zero was wrong here, but maybe now comments on calls do not work, need to check!
}
else
{
lineNumberInCall++;
}
}
}
}
//if (lastRow == null || cmt[n + 4] != 0x80)
if (lastRow == null || (cmt[n + 4] != 0x80 && cmt[n + 4] != 0xc0))
{
lastRow = new S7FunctionBlockRow(){ Parent = retVal };
newAwlCode.Add(lastRow);
lineNumberInCall = 0;
}
string tx1 = Project.ProjectEncoding.GetString(cmt, n + 6, kommLen);
if (lineNumberInCall == 0)
lastRow.Comment = tx1;
else
if (lastRow.Command == "CALL")
if (lineNumberInCall == 1) lastRow.Comment = tx1;
else
{
if (lastRow.CallParameter.Count >= lineNumberInCall - 2)
{
lastRow.CallParameter[lineNumberInCall - 2].Comment = tx1;
}
}
n += kommLen + 6;
//subCnt = 0;
}
}
}
while (akRowInAwlCode < retVal.AWLCode.Count)
{
newAwlCode.Add(retVal.AWLCode[akRowInAwlCode]);
akRowInAwlCode++;
}
retVal.AWLCode = newAwlCode;
}
#endregion
}
retVal.Networks = NetWork.GetNetworksList(retVal);
retVal.ParentFolder = this;
retVal.usedS7ConvertingOptions = myConvOpt;
blkInfo._Block = retVal;
return retVal;
}
}
return null;
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
return GetBlock(blkInfo, new S7ConvertingOptions(Project.ProjectLanguage) { GenerateCallsfromUCs = false });
}
private tmpBlock GetBlockBytes(ProjectBlockInfo blkInfo)
{
if (subblkDBF != null) //ZipHelper.FileExists(((Step7ProjectV5)Project)._zipfile, Folder + "SUBBLK.DBF"))
{
tmpBlock myTmpBlk = new tmpBlock();
var bstTbl = bausteinDBF;
DataRow[] bstRows = bstTbl.Select("ID = " + blkInfo.id);
if (bstRows != null && bstRows.Length > 0 && !(bstRows[0]["UDA"] is DBNull))
myTmpBlk.uda = (byte[]) bstRows[0]["UDA"];
var dbfTbl = subblkDBF;
DataRow[] rows = dbfTbl.Select("OBJECTID = " + blkInfo.id);
foreach (DataRow row in rows)
{
int subblktype = Convert.ToInt32(row["SUBBLKTYP"]);
int objid = (int)row["OBJECTID"];
if (objid == blkInfo.id)
{
byte[] mc5code = null;
byte[] ssbpart = null;
byte[] addinfo = null;
if (row["MC5CODE"] != DBNull.Value)
mc5code = (byte[])row["MC5CODE"];
if (row["SSBPART"] != DBNull.Value)
ssbpart = (byte[])row["SSBPART"];
if (row["ADDINFO"] != DBNull.Value)
addinfo = (byte[])row["ADDINFO"];
int mc5codelen = (int)row["MC5LEN"];
int ssbpartlen = (int)row["SSBLEN"];
int addinfolen = (int)row["ADDLEN"];
if (mc5code != null && mc5code.Length > mc5codelen)
Array.Resize<byte>(ref mc5code, mc5codelen);
if (ssbpart != null && ssbpart.Length > ssbpartlen)
Array.Resize<byte>(ref ssbpart, ssbpartlen);
if (addinfo != null && addinfo.Length > addinfolen)
Array.Resize<byte>(ref addinfo, addinfolen);
if (subblktype == 12 || subblktype == 8 || subblktype == 14 || subblktype == 13 || subblktype == 15) //FC, OB, FB, SFC, SFB
{
if (row["PASSWORD"] != DBNull.Value && (int)row["PASSWORD"] == 3)
myTmpBlk.knowHowProtection = true;
//MC7 Code in mc5code
myTmpBlk.mc7code = mc5code;
myTmpBlk.username = ((string)row["USERNAME"]).Replace("\0", "").Trim();
int ver = ((int)row["VERSION"]);
myTmpBlk.version = (ver / 15).ToString() + "." + (ver % 15).ToString();
//Network Information in addinfo
myTmpBlk.nwinfo = addinfo;
//This line contains Network Information, and after it the Position of the JumpMarks
myTmpBlk.LastCodeChange = GetTimeStamp((string)row["TIMESTAMP1"]);
myTmpBlk.LastInterfaceChange = GetTimeStamp((string)row["TIMESTAMP2"]);
}
else if (subblktype == 5 || subblktype == 3 || subblktype == 4 || subblktype == 7 || subblktype == 9) //FC, OB, FB, SFC, SFB
{
//Interface in mc5code
if (mc5code != null)
myTmpBlk.blkinterface =
Project.ProjectEncoding.GetString(mc5code);
}
else if (subblktype == 19 || subblktype == 17 || subblktype == 18 || subblktype == 22 ||
subblktype == 21) //FC, OB, FB, SFC, SFB
{
myTmpBlk.comments = mc5code; //Comments of the Block
myTmpBlk.blockdescription = ssbpart; //Description of the Block
myTmpBlk.jumpmarks = addinfo;
//The Text of the Jump Marks, Before the Jumpmarks there is some Network Information, but don't know what!
}
else if (subblktype == 6 || subblktype == 1) //DB, UDT
{
//DB Structure in Plain Text (Structure and StartValues!)
if (mc5code != null)
myTmpBlk.blkinterface =
Project.ProjectEncoding.GetString(mc5code);
//Maybe compiled DB Structure?
myTmpBlk.addinfo = addinfo;
}
else if (subblktype == 10) //DB
{
//Need to check wich Information is stored here
myTmpBlk.mc7code = mc5code;
myTmpBlk.blkinterfaceInMC5 = ssbpart;
myTmpBlk.LastCodeChange = GetTimeStamp((string)row["TIMESTAMP1"]);
myTmpBlk.LastInterfaceChange = GetTimeStamp((string)row["TIMESTAMP2"]);
if (ssbpart != null && ssbpartlen > 2 && (ssbpart[0] == 0x0a || ssbpart[0] == 0x0b))
{
// if ssbpart[0] == 5 this DB is normal
// if ssbpart[0] == 10 this DB is instance for FB,
// I do not know what value for SFB
myTmpBlk.IsInstanceDB = true;
myTmpBlk.FBNumber = (int)ssbpart[1] + 256 * (int)ssbpart[2];
}
}
else if (subblktype == 0x14) //DB
{
//Need to check wich Information is stored here
}
else if (subblktype == 0x42) //DB
{
//Need to check wich Information is stored here
}
else if (subblktype == 27) //VAT
{
myTmpBlk.LastCodeChange = GetTimeStamp((string)row["TIMESTAMP1"]);
myTmpBlk.LastInterfaceChange = GetTimeStamp((string)row["TIMESTAMP2"]);
//VAT in MC5Code (Absolut adressed)
myTmpBlk.mc7code = mc5code;
//VAT in ADDINFO (Symbolic adressed)
myTmpBlk.nwinfo = addinfo;
}
else if (subblktype == 38) //VAT
{
//VAT Comments in MC5Code
myTmpBlk.comments = mc5code;
}
}
}
return myTmpBlk;
}
return null;
}
private Block CreateNewBlock(ProjectBlockInfo item)
{
try
{
DotNetSiemensPLCToolBoxLibrary.DataTypes.Blocks.Step7V5.S7Block blk = (DotNetSiemensPLCToolBoxLibrary.DataTypes.Blocks.Step7V5.S7Block)item.GetBlock();
if (blk.BlockType == PLCBlockType.SourceBlock)
{
// Special logic for source block
DotNetSiemensPLCToolBoxLibrary.DataTypes.Blocks.Step7V5.S7SourceBlock srcBlk = (DotNetSiemensPLCToolBoxLibrary.DataTypes.Blocks.Step7V5.S7SourceBlock)blk;
return new BlockSource()
{
Modified = srcBlk.LastCodeChange,
Name = srcBlk.BlockName,
Type = srcBlk.BlockType,
TypeString = srcBlk.BlockType.ToString(),
Language = srcBlk.BlockLanguage,
LanguageString = srcBlk.BlockLanguage.ToString(),
Size = srcBlk.CodeSize,
SymbolicName = Regex.Match(item.ToString(), @"(?<=\().+?(?=\))").Value,
SourceText = srcBlk.Text,
Filename = srcBlk.Filename
};
}
else
{
// Not a source block.
return new Block()
{
Modified = blk.LastCodeChange,
Name = blk.BlockName,
Type = blk.BlockType,
TypeString = blk.BlockType.ToString(),
Language = blk.BlockLanguage,
LanguageString = blk.BlockLanguage.ToString(),
Size = blk.CodeSize,
SymbolicName = Regex.Match(item.ToString(), @"(?<=\().+?(?=\))").Value
};
}
}
catch (Exception err)
{
EventFire.Error(err.ToString());
}
return null;
}
/// <summary>
/// With this Function you get the AWL Source of a Block, so that it can be imported into Step7
/// </summary>
/// <param name="blkInfo">The BlockInfo from the Block you wish to get the Source of!</param>
/// <returns></returns>
public string GetSourceBlock(ProjectBlockInfo blkInfo)
{
StringBuilder retVal = new StringBuilder();
Block blk = GetBlock(blkInfo, new S7ConvertingOptions(Project.ProjectLanguage) { CombineDBOpenAndDBAccess = true, GenerateCallsfromUCs = true, ReplaceDBAccessesWithSymbolNames = false, ReplaceLokalDataAddressesWithSymbolNames = true, UseComments = true });
S7Block fblk = (S7Block)blk;
S7FunctionBlock fcblk = null;
if (blk is S7FunctionBlock)
{
fcblk = (S7FunctionBlock) blk;
if (fcblk.BlockType == PLCBlockType.FC)
retVal.Append("FUNCTION " + blk.BlockName + " : VOID" + Environment.NewLine);
else
retVal.Append("FUNCTION_BLOCK " + blk.BlockName + Environment.NewLine);
}
else
retVal.Append("DATA_BLOCK " + blk.BlockName + Environment.NewLine);
retVal.Append("TITLE =" + fblk.Title + Environment.NewLine);
if (blk is S7FunctionBlock)
{
if (!String.IsNullOrEmpty(fcblk.Description))
retVal.Append("//" + fcblk.Description.Replace(Environment.NewLine, Environment.NewLine + "//") + Environment.NewLine);
}
if (!string.IsNullOrEmpty(fblk.Author))
retVal.Append("AUTHOR : " + fblk.Author + Environment.NewLine);
if (!string.IsNullOrEmpty(fblk.Name))
retVal.Append("NAME : " + fblk.Name + Environment.NewLine);
if (!string.IsNullOrEmpty(fblk.Version))
retVal.Append("VERSION : " + fblk.Version + Environment.NewLine);
retVal.Append(Environment.NewLine);
retVal.Append(Environment.NewLine);
if (blk is S7DataBlock)
{
S7DataBlock dtaBlk = (S7DataBlock)fblk;
if (dtaBlk.Structure.Children != null && !dtaBlk.IsInstanceDB)
{
retVal.Append(" STRUCT" + Environment.NewLine);
retVal.Append(GetSubParas(((S7DataRow)dtaBlk.Structure), " "));
retVal.Append(" END_STRUCT ;" + Environment.NewLine);
}
else if (dtaBlk.IsInstanceDB)
retVal.Append(" FB " + dtaBlk.FBNumber + Environment.NewLine);
retVal.Append("BEGIN" + Environment.NewLine);
retVal.Append("END_DATA_BLOCK" + Environment.NewLine);
}
else if (blk is S7FunctionBlock)
{
if (fcblk.Parameter.Children != null)
{
foreach (S7DataRow s7DataRow in fcblk.Parameter.Children)
{
string parnm = s7DataRow.Name;
string ber = "VAR_" + parnm;
if (parnm == "IN")
ber = "VAR_INPUT";
else if (parnm == "OUT")
ber = "VAR_OUTPUT";
else if (parnm == "STATIC")
ber = "VAR";
retVal.Append(ber + Environment.NewLine);
retVal.Append(GetSubParas(s7DataRow, " "));
retVal.Append("END_VAR" + Environment.NewLine);
}
}
retVal.Append("BEGIN" + Environment.NewLine);
foreach (Network network in fcblk.Networks)
{
retVal.Append("NETWORK" + Environment.NewLine);
retVal.Append("TITLE = " + network.Name + Environment.NewLine);
if (!String.IsNullOrEmpty(network.Comment))
retVal.Append("//" + network.Comment.Replace(Environment.NewLine, Environment.NewLine + "//") + Environment.NewLine);
else
retVal.Append(Environment.NewLine);
foreach (S7FunctionBlockRow functionBlockRow in network.AWLCode)
{
if (functionBlockRow.ToString(false, false) == "")
retVal.Append(Environment.NewLine);
else
{
retVal.Append(functionBlockRow.ToString(false, true) + Environment.NewLine);
}
}
}
retVal.Append("END_FUNCTION");
}
return retVal.ToString();
}
internal static Block ParseTiaDbUdtXml(string xml, ProjectBlockInfo projectBlockInfo, TIAOpennessControllerFolder controllerFolder, ParseType parseType)
{
XElement xelement = XElement.Parse(xml);
var structure = xelement.Elements().FirstOrDefault(x => x.Name.LocalName.StartsWith("SW."));
var sections = structure.Element("AttributeList").Element("Interface").Elements().First();
var block = new TIADataBlock();
block.Name = projectBlockInfo.Name;
if (projectBlockInfo is TIAOpennessProjectBlockInfo)
block.BlockNumber = ((TIAOpennessProjectBlockInfo) projectBlockInfo).BlockNumber;
if (parseType == ParseType.DataType)
block.BlockType = DataTypes.PLCBlockType.UDT;
else if (parseType == ParseType.Programm)
block.BlockType = DataTypes.PLCBlockType.DB;
var parameterRoot = ParseTiaDbUdtSections(sections, block, controllerFolder);
block.BlockType = DataTypes.PLCBlockType.DB;
block.Structure = parameterRoot;
return block;
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
if (blkInfo == null)
return null;
var iv = blkInfo as ITiaProjectBlockInfo;
var text = iv.ExportToString();
return ParseTiaDbUdtXml(text, blkInfo, ControllerFolder, ParseType.Programm);
}
public Block GetBlock(ProjectBlockInfo blkInfo)
{
return GetBlock(((ProjectPlcBlockInfo)blkInfo).BlockName);
}
