1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | {attribute 'hide'} // Prints Library Summary in CmpCore METHOD PRIVATE PrintHeader : BOOL VAR sText : T_MaxString; ver : version; GVL_sparkplug._CmpSparkplugLog.AddLogEntry( sText, GC_Sparkplug.CMP_CORE, CmpLog.LogClass.LOG_INFO ); sText := ''; sText := Concat( sText, TO_STRING( GetTextProperty( "Author" ) ) ); sText := Concat( sText, ' and contributors' ); sText := Concat( sText, TO_STRING( GetTextProperty( "Company" ) ) ); ver := GetLibVersion(); sText := 'Version '; sText := Concat( sText, TO_STRING( ver.uiMajor ) ); sText := Concat( sText, '.' ); sText := Concat( sText, TO_STRING( ver.uiMinor ) ); sText := Concat( sText, TO_STRING( ver.uiServicePack ) ); sText := Concat( sText, TO_STRING( ver.uiPatch ) ); sText := 'This library is published under MIT license'; |