public void DelphiStringToTextTest()
{
string lInput = "#13#10'It''s hard to do'#$0D#$0A'This kind of testing'#255#$FF";
string lExpected = "\r\nIt's hard to do\r\nThis kind of testing\xFF\xFF";
string lActual = TDelphiSource.DelphiStringToText(lInput);
Assert.AreEqual(lExpected, lActual, "DelphiStringToText has result is incorrect.");
}
/// <summary>
/// After a rename of the unit the a the Delphi main file
/// must rename the file name if it exists.
/// </summary>
/// <param name="aOldUnitName"></param>
/// <param name="aNewUnitName"></param>
/// <param name="aScanner"></param>
protected override void AfterRenameUnitName(string aOldUnitName, string aNewUnitName, TUnitScanner aScanner)
{
aScanner.EndToken = DelphiToken.Delimiter;
if (aScanner.GotoNextToken(DelphiToken.inKeyword))
{
if (aScanner.GotoNextToken(DelphiToken.String))
{
string lFilePath = TDelphiSource.DelphiStringToText(aScanner.TokenValue);
if (IsDelphiPasFile(lFilePath))
{
lFilePath = Path.Combine(Path.GetDirectoryName(lFilePath), aNewUnitName) + ".pas";
lFilePath = TDelphiSource.TextToDelphiString(lFilePath);
ReplaceText(aScanner, lFilePath);
}
}
}
}
/// <summary>
/// After a successful rename of a project file this method is called to rename it in the DPR file.
/// </summary>
/// <param name="aOldFileName">full path of the old file</param>
/// <param name="aNewFileName">full path of the new file</param>
public virtual void RenameContainedFile(string aOldFileName, string aNewFileName)
{
const string FILE_Key = "{%File";
try
{
TUnitScanner lScanner = new TUnitScanner(GetTextLines());
lScanner.GotoNextToken(DelphiToken.EndStatement); // look for semicolen
lScanner.EndToken = DelphiToken.EndStatement; // now before an semicolen look for comments
while (lScanner.GotoNextToken(DelphiToken.ItemComment))
{
if (lScanner.TokenValue.IndexOf(FILE_Key, StringComparison.OrdinalIgnoreCase) == 0)
{
// save scanner values
int lSaveStartIndex = lScanner.StartIndex;
int lSaveStartLine = lScanner.StartLine;
// move scanner to point inside comment
lScanner.StartIndex -= (lScanner.TokenValue.Length - FILE_Key.Length);
// scan for delphi string
if (lScanner.GotoNextToken(DelphiToken.String))
{
string lFileName = TDelphiSource.DelphiStringToText(lScanner.TokenValue);
// test to see if the filename is the same ones
if (String.Compare(Path.GetFileName(lFileName), Path.GetFileName(aOldFileName), true) == 0)
{
string lNewFile = PackageUtilities.MakeRelativeIfRooted(aNewFileName, this.ProjectMgr.BaseURI);
// move the index based on size of new file name
lSaveStartIndex += lNewFile.Length - lFileName.Length;
// replace just the string not the whole comment
ReplaceText(lScanner, TDelphiSource.TextToDelphiString(lNewFile));
}
}
// move scanner back to where it should be
lScanner.StartIndex = lSaveStartIndex;
lScanner.StartLine = lSaveStartLine;
}
}
}
catch (Exception ex)
{
ShowErrorMessageBox(ex.Message, "RenameContainedFile() error");
}
}
/// <summary>
/// Contained files are files located in {%File filename} comments
/// </summary>
/// <returns>returns a list of contained file names</returns>
public string[] GetContainedFiles()
{
List <string> lResult = new List <string>();
const string FILE_Key = "{%File";
try
{
TUnitScanner lScanner = new TUnitScanner(GetTextLines());
lScanner.GotoNextToken(DelphiToken.EndStatement); // scan past program, library or package
lScanner.EndToken = DelphiToken.EndStatement;
while (lScanner.GotoNextToken(DelphiToken.ItemComment))
{
if (lScanner.TokenValue.IndexOf(FILE_Key, StringComparison.OrdinalIgnoreCase) == 0)
{
// save scanner values
int lSaveStartIndex = lScanner.StartIndex;
int lSaveStartLine = lScanner.StartLine;
// move scanner to the end of the comment
lScanner.StartIndex -= (lScanner.TokenValue.Length - FILE_Key.Length);
// scan for delphi string
if (lScanner.GotoNextToken(DelphiToken.String))
{
// Get the file as printed in the DPR
lResult.Add(TDelphiSource.DelphiStringToText(lScanner.TokenValue));
}
// move scanner back to where it should be
lScanner.StartIndex = lSaveStartIndex;
lScanner.StartLine = lSaveStartLine;
}
}
}
catch (Exception ex)
{
ShowErrorMessageBox(ex.Message, "GetContainedFiles() Error");
}
return(lResult.ToArray());
}
protected virtual string[] GetUnitFilesAfterKeyword(DelphiToken aKeyword)
{
List <string> lResult = new List <string>();
try
{
TUnitScanner lScanner = new TUnitScanner(GetTextLines());
lScanner.EndToken = DelphiToken.None;
if (lScanner.GotoNextToken(aKeyword))
{
lScanner.EndToken = DelphiToken.EndStatement;
while (lScanner.GotoNextToken(DelphiToken.String))
{
lResult.Add(TDelphiSource.DelphiStringToText(lScanner.TokenValue));
}
}
}
catch (Exception ex)
{
ShowErrorMessageBox(ex.Message, "GetUnitFilesAfterKeyword() Error");
}
return(lResult.ToArray());
}
/// <summary>
/// Reads the {$R filename} or {$I filename} compiler definintions and returns a list of filenames with there wild card converted.
/// </summary>
/// <returns>list of resource files located in the file.</returns>
public virtual string[] GetDirectiveFiles()
{
// This is a bad hack but oh well.
List <string> lResult = new List <string>();
string lResKey = "{$RESOURCE";
string lIncKey = "{$INCLUDE";
if (IsDelphiCodeFile(this.FileName))
{
try
{
TUnitScanner lScanner = new TUnitScanner(GetTextLines());
lScanner.EndToken = DelphiToken.None;
while (lScanner.GotoNextToken(DelphiToken.CompilerDirective))
{
if (lScanner.TokenValue.Substring(0, 3) == lResKey.Substring(0, 3) ||
lScanner.TokenValue.Substring(0, 3) == lIncKey.Substring(0, 3))
{
int i = lScanner.TokenValue.Length - 1;
char lChar;
do
{
lChar = lScanner.TokenValue[i];
i--;
} while (lChar == '}' || lChar == ' ');
StringBuilder sb = new StringBuilder();
// if {$R-} or {$R+} directive found go to next directive
if (lChar == '-' || lChar == '+')
{
continue;
}
// get filename out
do
{
sb.Insert(0, lChar);
lChar = lScanner.TokenValue[i];
i--;
} while (lChar != ' ');
string lFileName = sb.ToString();
lFileName = lFileName.Replace("*", Path.GetFileNameWithoutExtension(this.FileName));
if (lFileName[0] == '\'')
{
lFileName = TDelphiSource.DelphiStringToText(lFileName);
}
//if (aWithAbsolutePathFlag)
//{
// lFileName = Path.Combine(Path.GetDirectoryName(this.Url), lFileName);
// // get rid of .\ or ..\
// lFileName = Path.GetFullPath(lFileName);
//}
lResult.Add(lFileName);
}
}
}
catch (Exception ex)
{
ShowErrorMessageBox(ex.Message, "GetUnitFiles() Error");
}
}
return(lResult.ToArray());
}