617 lines
23 KiB
C#
617 lines
23 KiB
C#
|
using System;
|
|||
|
|
using System.Collections;
|
|||
|
|
using System.Collections.Generic;
|
|||
|
|
using System.Text;
|
|||
|
|
using System.IO;
|
|||
|
|
using System.Xml;
|
|||
|
|
using System.Resources;
|
|||
|
|
using System.Reflection;
|
|||
|
|
using System.ComponentModel;
|
|||
|
|
|
|||
|
|
namespace PascalABCCompiler
|
|||
|
|
{
|
|||
|
|
public class StringResourcesObject
|
|||
|
|
{
|
|||
|
|
public delegate string[] GetStringsDelegate(object obj);
|
|||
|
|
public delegate void SetStringsDelegate(object obj, string[] strings);
|
|||
|
|
public delegate object[] GetChildrenDelegate(object obj);
|
|||
|
|
internal GetStringsDelegate GetStrings;
|
|||
|
|
internal SetStringsDelegate SetStrings;
|
|||
|
|
internal GetChildrenDelegate GetChildren;
|
|||
|
|
internal Type ObjectType;
|
|||
|
|
public StringResourcesObject(Type ObjectType, GetStringsDelegate GetStrings, SetStringsDelegate SetStrings, GetChildrenDelegate GetChildren)
|
|||
|
|
{
|
|||
|
|
this.ObjectType = ObjectType;
|
|||
|
|
this.GetStrings = GetStrings;
|
|||
|
|
this.SetStrings = SetStrings;
|
|||
|
|
this.GetChildren = GetChildren;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public class SourceFileInfo
|
|||
|
|
{
|
|||
|
|
public string FileName;
|
|||
|
|
public int Line;
|
|||
|
|
public int Column;
|
|||
|
|
|
|||
|
|
public SourceFileInfo(string FileName, int Line, int Column)
|
|||
|
|
{
|
|||
|
|
this.FileName = FileName;
|
|||
|
|
this.Line = Line;
|
|||
|
|
this.Column = Column;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public class BreakpointInfo
|
|||
|
|
{
|
|||
|
|
public string FileName;
|
|||
|
|
public int Line;
|
|||
|
|
public bool IsConditional;
|
|||
|
|
public string Expression;
|
|||
|
|
public int ConcreteCondition;
|
|||
|
|
|
|||
|
|
public BreakpointInfo(string fileName, int line, bool isConditional, string expression, int concreteCondition)
|
|||
|
|
{
|
|||
|
|
this.FileName = fileName;
|
|||
|
|
this.Line = line;
|
|||
|
|
this.IsConditional = isConditional;
|
|||
|
|
this.Expression = expression;
|
|||
|
|
this.ConcreteCondition = concreteCondition;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public class BookmarkInfo
|
|||
|
|
{
|
|||
|
|
public string FileName;
|
|||
|
|
public int Line;
|
|||
|
|
|
|||
|
|
public BookmarkInfo(string FileName, int Line)
|
|||
|
|
{
|
|||
|
|
this.FileName = FileName;
|
|||
|
|
this.Line = Line;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public class AdvancedOptions
|
|||
|
|
{
|
|||
|
|
public List<string> watch_list = new List<string>();
|
|||
|
|
public List<SourceFileInfo> open_files = new List<SourceFileInfo>();
|
|||
|
|
public List<BreakpointInfo> breakpoints = new List<BreakpointInfo>();
|
|||
|
|
public List<BookmarkInfo> bookmarks = new List<BookmarkInfo>();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public class StringResources
|
|||
|
|
{
|
|||
|
|
private static Hashtable ObjectsHashtable = new Hashtable();
|
|||
|
|
private static Dictionary<Type, StringResourcesObject> StringResourcesObjects = new Dictionary<Type, StringResourcesObject>();
|
|||
|
|
private static Dictionary<Type, List<PropertyInfo>> StringPropertis = new Dictionary<Type, List<PropertyInfo>>();
|
|||
|
|
private static Dictionary<Type, List<FieldInfo>> StringFields = new Dictionary<Type, List<FieldInfo>>();
|
|||
|
|
private static Dictionary<Type, List<PropertyInfo>> ChildrenCollections = new Dictionary<Type, List<PropertyInfo>>();
|
|||
|
|
public static void AddStringResourcesObject(StringResourcesObject obj)
|
|||
|
|
{
|
|||
|
|
StringResourcesObjects[obj.ObjectType] = obj;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void UpdateObjectsText()
|
|||
|
|
{
|
|||
|
|
foreach (object obj in ObjectsHashtable.Keys)
|
|||
|
|
{
|
|||
|
|
string[] objstrings = (string[])ObjectsHashtable[obj];
|
|||
|
|
string[] resstrings = new string[objstrings.Length];
|
|||
|
|
for (int i = 0; i < objstrings.Length; i++)
|
|||
|
|
resstrings[i] = Get(objstrings[i]);
|
|||
|
|
SetObjectStrings(obj, resstrings);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void ReadStringsFromStreamAsXml(string FileName, StreamReader sr, Hashtable Strings, AdvancedOptions adv_opt)
|
|||
|
|
{
|
|||
|
|
XmlReaderSettings xrs = new XmlReaderSettings();
|
|||
|
|
//xrs.IgnoreWhitespace = true;
|
|||
|
|
xrs.CloseInput = true;
|
|||
|
|
XmlReader reader = XmlTextReader.Create(new StreamReader(FileName,System.Text.Encoding.UTF8),xrs);
|
|||
|
|
try
|
|||
|
|
{
|
|||
|
|
reader.Read();
|
|||
|
|
}
|
|||
|
|
catch
|
|||
|
|
{
|
|||
|
|
System.Text.Encoding enc = sr.CurrentEncoding;
|
|||
|
|
reader.Close();
|
|||
|
|
sr.Close();
|
|||
|
|
ReadStringsFromStream(new StreamReader(FileName,enc),Strings);
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
//reader.ReadStartElement("options");
|
|||
|
|
reader.ReadStartElement("general_options");
|
|||
|
|
string prefix = "";
|
|||
|
|
while (reader.ReadToNextSibling("option"))
|
|||
|
|
{
|
|||
|
|
string option_name = reader.GetAttribute("name");
|
|||
|
|
string option_value = reader.ReadString();
|
|||
|
|
if (option_name == "%PREFIX%")
|
|||
|
|
prefix = option_value;
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
Strings[prefix + option_name] = option_value;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
reader.ReadEndElement();
|
|||
|
|
/*reader.ReadEndElement();
|
|||
|
|
if (!reader.EOF)
|
|||
|
|
{
|
|||
|
|
reader.ReadStartElement("advanced_options");
|
|||
|
|
if (!reader.IsEmptyElement)
|
|||
|
|
{
|
|||
|
|
reader.ReadStartElement("open_files");
|
|||
|
|
while (reader.ReadToNextSibling("open_file"))
|
|||
|
|
{
|
|||
|
|
adv_opt.open_files.Add(new SourceFileInfo(reader.GetAttribute("file_name"),
|
|||
|
|
Convert.ToInt32(reader.GetAttribute("line")),Convert.ToInt32(reader.GetAttribute("column"))));
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
reader.ReadEndElement();
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
reader.ReadStartElement("open_files");
|
|||
|
|
reader.ReadStartElement("watch_list");
|
|||
|
|
if (!reader.IsEmptyElement)
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
while (reader.ReadToNextSibling("watch_expr"))
|
|||
|
|
{
|
|||
|
|
adv_opt.watch_list.Add(reader.GetAttribute("expr"));
|
|||
|
|
}
|
|||
|
|
reader.ReadEndElement();
|
|||
|
|
}
|
|||
|
|
reader.ReadStartElement("breakpoints_list");
|
|||
|
|
if (!reader.IsEmptyElement)
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
while (reader.ReadToNextSibling("breakpoint"))
|
|||
|
|
{
|
|||
|
|
adv_opt.breakpoints.Add(new BreakpointInfo(reader.GetAttribute("file_name"),
|
|||
|
|
Convert.ToInt32(reader.GetAttribute("line")),Convert.ToBoolean(reader.GetAttribute("is_conditional")),
|
|||
|
|
reader.GetAttribute("expression"),Convert.ToInt32(reader.GetAttribute("concrete_condition"))));
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
reader.ReadEndElement();
|
|||
|
|
}
|
|||
|
|
if (!reader.IsEmptyElement)
|
|||
|
|
{
|
|||
|
|
reader.ReadStartElement("bookmarks_list");
|
|||
|
|
while (reader.ReadToNextSibling("bookmark"))
|
|||
|
|
{
|
|||
|
|
adv_opt.bookmarks.Add(new BookmarkInfo(reader.GetAttribute("file_name"),
|
|||
|
|
Convert.ToInt32(reader.GetAttribute("line"))));
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
reader.ReadEndElement();
|
|||
|
|
}
|
|||
|
|
reader.ReadEndElement();
|
|||
|
|
}
|
|||
|
|
reader.ReadEndElement();*/
|
|||
|
|
reader.Close();
|
|||
|
|
sr.Close();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void ReadStringsFromStream(StreamReader sr, Hashtable Strings)
|
|||
|
|
{
|
|||
|
|
string line, value, ident;
|
|||
|
|
string prefix = "";
|
|||
|
|
int ind;
|
|||
|
|
while (!sr.EndOfStream)
|
|||
|
|
{
|
|||
|
|
line = sr.ReadLine();
|
|||
|
|
if (line != "" && line.IndexOf("//") != 0 && (ind = line.IndexOf("=")) > 0)
|
|||
|
|
{
|
|||
|
|
ident = line.Substring(0, ind);
|
|||
|
|
value = line.Substring(ind + 1, line.Length - ind - 1);
|
|||
|
|
if (ident == "%PREFIX%")
|
|||
|
|
prefix = value;
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
if ((ind = value.IndexOf("LINES")) > 0)
|
|||
|
|
try
|
|||
|
|
{
|
|||
|
|
int n = Convert.ToInt32(value.Substring(0, ind)) - 1;
|
|||
|
|
value = sr.ReadLine();
|
|||
|
|
for (int i = 0; i < n; i++)
|
|||
|
|
value += Environment.NewLine + sr.ReadLine();
|
|||
|
|
}
|
|||
|
|
catch (Exception)
|
|||
|
|
{
|
|||
|
|
}
|
|||
|
|
Strings[prefix + ident] = value;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
sr.Close();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void WriteStringsToStreamAsXml(StreamWriter sw, Hashtable Strings, AdvancedOptions adv_opt)
|
|||
|
|
{
|
|||
|
|
XmlWriterSettings xwr = new XmlWriterSettings();
|
|||
|
|
xwr.Indent = true;
|
|||
|
|
xwr.OmitXmlDeclaration = false;
|
|||
|
|
xwr.Encoding = sw.Encoding;
|
|||
|
|
xwr.CloseOutput = true;
|
|||
|
|
XmlWriter writer = XmlWriter.Create(sw.BaseStream,xwr);
|
|||
|
|
//writer.WriteStartElement("options");
|
|||
|
|
writer.WriteStartElement("general_options");
|
|||
|
|
foreach (string key in Strings.Keys)
|
|||
|
|
{
|
|||
|
|
writer.WriteStartElement("option");
|
|||
|
|
writer.WriteAttributeString("name",key);
|
|||
|
|
writer.WriteString(Convert.ToString(Strings[key]));
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
}
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
/*writer.WriteStartElement("advanced_options");
|
|||
|
|
writer.WriteStartElement("open_files");
|
|||
|
|
foreach (SourceFileInfo fi in adv_opt.open_files)
|
|||
|
|
{
|
|||
|
|
writer.WriteStartElement("open_file");
|
|||
|
|
writer.WriteAttributeString("name",fi.FileName);
|
|||
|
|
writer.WriteAttributeString("line",Convert.ToString(fi.Line.ToString()));
|
|||
|
|
writer.WriteAttributeString("column",Convert.ToString(fi.Column.ToString()));
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
}
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
|
|||
|
|
writer.WriteStartElement("watch_list");
|
|||
|
|
foreach (string s in adv_opt.watch_list)
|
|||
|
|
{
|
|||
|
|
writer.WriteStartElement("watch_expr");
|
|||
|
|
writer.WriteAttributeString("expr",s);
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
}
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
|
|||
|
|
writer.WriteStartElement("breakpoints_list");
|
|||
|
|
foreach (BreakpointInfo br in adv_opt.breakpoints)
|
|||
|
|
{
|
|||
|
|
writer.WriteStartElement("breakpoint");
|
|||
|
|
writer.WriteAttributeString("file_name",br.FileName);
|
|||
|
|
writer.WriteAttributeString("line",br.Line.ToString());
|
|||
|
|
writer.WriteAttributeString("is_conditional",br.IsConditional.ToString());
|
|||
|
|
writer.WriteAttributeString("expression",br.Expression);
|
|||
|
|
writer.WriteAttributeString("concrete_condition",br.ConcreteCondition.ToString());
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
}
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
|
|||
|
|
writer.WriteStartElement("bookmarks_list");
|
|||
|
|
foreach (BookmarkInfo br in adv_opt.bookmarks)
|
|||
|
|
{
|
|||
|
|
writer.WriteStartElement("bookmark");
|
|||
|
|
writer.WriteAttributeString("file_name",br.FileName);
|
|||
|
|
writer.WriteAttributeString("line",br.Line.ToString());
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
}
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
writer.WriteEndElement();
|
|||
|
|
writer.WriteEndElement();*/
|
|||
|
|
writer.Close();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void WriteStringsToStream(StreamWriter sw, Hashtable Strings)
|
|||
|
|
{
|
|||
|
|
foreach (string key in Strings.Keys)
|
|||
|
|
sw.WriteLine(string.Format("{0}={1}",key,Strings[key]));
|
|||
|
|
sw.Close();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static string[] GetObjectStrings(object obj)
|
|||
|
|
{
|
|||
|
|
List<PropertyInfo> SetStringProperties = GetStringProperties(obj.GetType());
|
|||
|
|
string[] res = new string[SetStringProperties.Count];
|
|||
|
|
for (int i = 0; i < SetStringProperties.Count; i++)
|
|||
|
|
res[i] = (string)SetStringProperties[i].GetValue(obj, noIndex);
|
|||
|
|
return res;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static string[] GetWPFObjectStrings(object obj)
|
|||
|
|
{
|
|||
|
|
List<FieldInfo> SetStringFields = GetStringFields(obj, obj.GetType());
|
|||
|
|
string[] res = new string[SetStringFields.Count];
|
|||
|
|
for (int i = 0; i < SetStringFields.Count; i++)
|
|||
|
|
res[i] = (string)SetStringFields[i].GetValue(obj);
|
|||
|
|
return res;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static object[] noIndex = new object[0];
|
|||
|
|
|
|||
|
|
private static List<PropertyInfo> GetStringProperties(Type type)
|
|||
|
|
{
|
|||
|
|
if (StringPropertis.ContainsKey(type))
|
|||
|
|
return StringPropertis[type];
|
|||
|
|
PropertyInfo[] Propertis = type.GetProperties();
|
|||
|
|
List<PropertyInfo> SetStringProperty = new List<PropertyInfo>();
|
|||
|
|
foreach (PropertyInfo pi in Propertis)
|
|||
|
|
if (pi.PropertyType == typeof(string) && pi.CanRead && pi.CanWrite && pi.GetIndexParameters().Length == 0)
|
|||
|
|
SetStringProperty.Add(pi);
|
|||
|
|
StringPropertis.Add(type, SetStringProperty);
|
|||
|
|
return SetStringProperty;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static List<FieldInfo> GetStringFields(object obj, Type type)
|
|||
|
|
{
|
|||
|
|
if (StringFields.ContainsKey(type))
|
|||
|
|
return StringFields[type];
|
|||
|
|
FieldInfo[] Fields = type.GetFields(BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.Instance);
|
|||
|
|
List<FieldInfo> SetStringField = new List<FieldInfo>();
|
|||
|
|
foreach (FieldInfo fi in Fields)
|
|||
|
|
//if (fi.GetValue(obj) != null && fi.GetValue(obj).GetType() == typeof(string) && !fi.IsInitOnly)
|
|||
|
|
if (fi.Name == "Header")
|
|||
|
|
SetStringField.Add(fi);
|
|||
|
|
StringFields.Add(type, SetStringField);
|
|||
|
|
return SetStringField;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static void SetObjectStrings(object obj, string[] strings)
|
|||
|
|
{
|
|||
|
|
List<PropertyInfo> SetStringProperties = GetStringProperties(obj.GetType());
|
|||
|
|
for (int i = 0; i < SetStringProperties.Count; i++)
|
|||
|
|
if(strings[i]!=null)
|
|||
|
|
SetStringProperties[i].SetValue(obj, strings[i], noIndex);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static void SetWPFObjectStrings(object obj, string[] strings)
|
|||
|
|
{
|
|||
|
|
List<FieldInfo> SetStringFields = GetStringFields(obj, obj.GetType());
|
|||
|
|
for (int i = 0; i < SetStringFields.Count; i++)
|
|||
|
|
if (strings[i] != null)
|
|||
|
|
SetStringFields[i].SetValue(obj, strings[i]);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void SetTextForObject(object obj, string prefix)
|
|||
|
|
{
|
|||
|
|
string[] objstrings = GetObjectStrings(obj);
|
|||
|
|
if (objstrings == null) return;
|
|||
|
|
string[] resstrings = new string[objstrings.Length];
|
|||
|
|
string text;
|
|||
|
|
bool nonekeys = true;
|
|||
|
|
for (int i = 0; i < objstrings.Length; i++)
|
|||
|
|
{
|
|||
|
|
if ((text = objstrings[i]) != null)
|
|||
|
|
{
|
|||
|
|
if (prefix != null && text.Length > 0 && text[0] != '!' && text != "")
|
|||
|
|
{
|
|||
|
|
string gets, s = prefix + text;
|
|||
|
|
if ((gets = Get(s)) != s)
|
|||
|
|
{
|
|||
|
|
objstrings[i] = s;
|
|||
|
|
resstrings[i] = gets;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
resstrings[i] = null;
|
|||
|
|
objstrings[i] = null;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
resstrings[i] = Get(text);
|
|||
|
|
if (resstrings[i] == objstrings[i])
|
|||
|
|
resstrings[i] = objstrings[i] = null;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
if (nonekeys && resstrings[i] != null)
|
|||
|
|
nonekeys = false;
|
|||
|
|
}
|
|||
|
|
if (!nonekeys)
|
|||
|
|
{
|
|||
|
|
ObjectsHashtable[obj] = objstrings;
|
|||
|
|
SetObjectStrings(obj, resstrings);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void SetTextForWPFObject(object obj, string prefix)
|
|||
|
|
{
|
|||
|
|
string[] objstrings = GetWPFObjectStrings(obj);
|
|||
|
|
if (objstrings == null) return;
|
|||
|
|
string[] resstrings = new string[objstrings.Length];
|
|||
|
|
string text;
|
|||
|
|
bool nonekeys = true;
|
|||
|
|
for (int i = 0; i < objstrings.Length; i++)
|
|||
|
|
{
|
|||
|
|
if ((text = objstrings[i]) != null)
|
|||
|
|
{
|
|||
|
|
if (prefix != null && text.Length > 0 && text[0] != '!' && text != "")
|
|||
|
|
{
|
|||
|
|
string gets, s = prefix + text;
|
|||
|
|
if ((gets = Get(s)) != s)
|
|||
|
|
{
|
|||
|
|
objstrings[i] = s;
|
|||
|
|
resstrings[i] = gets;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
resstrings[i] = null;
|
|||
|
|
objstrings[i] = null;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
resstrings[i] = Get(text);
|
|||
|
|
if (resstrings[i] == objstrings[i])
|
|||
|
|
resstrings[i] = objstrings[i] = null;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
if (nonekeys && resstrings[i] != null)
|
|||
|
|
nonekeys = false;
|
|||
|
|
}
|
|||
|
|
if (!nonekeys)
|
|||
|
|
{
|
|||
|
|
ObjectsHashtable[obj] = objstrings;
|
|||
|
|
SetWPFObjectStrings(obj, resstrings);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void SetTextForAllWPFObjects(object obj, string prefix)
|
|||
|
|
{
|
|||
|
|
SetTextForWPFObject(obj, prefix);
|
|||
|
|
List<PropertyInfo> childComponentLists = GetWPFChildren(obj.GetType());
|
|||
|
|
foreach (PropertyInfo pi in childComponentLists)
|
|||
|
|
{
|
|||
|
|
try
|
|||
|
|
{
|
|||
|
|
object val = pi.GetValue(obj, noIndex);
|
|||
|
|
if (val is IEnumerator)
|
|||
|
|
{
|
|||
|
|
IEnumerator col = pi.GetValue(obj, noIndex) as IEnumerator;
|
|||
|
|
col.Reset();
|
|||
|
|
while (col.MoveNext())
|
|||
|
|
SetTextForAllWPFObjects(col.Current, prefix);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
catch (Exception)
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void SetTextForAllObjects(object obj, string prefix)
|
|||
|
|
{
|
|||
|
|
SetTextForObject(obj, prefix);
|
|||
|
|
List<PropertyInfo> childComponentLists = GetChildren(obj.GetType());
|
|||
|
|
foreach (PropertyInfo pi in childComponentLists)
|
|||
|
|
{
|
|||
|
|
try
|
|||
|
|
{
|
|||
|
|
object val = pi.GetValue(obj, noIndex);
|
|||
|
|
if (val is ICollection)
|
|||
|
|
{
|
|||
|
|
ICollection col = pi.GetValue(obj, noIndex) as ICollection;
|
|||
|
|
if (col != null)
|
|||
|
|
foreach (object ob in col)
|
|||
|
|
//<2F><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if (!(ob is System.Windows.Forms.Form))
|
|||
|
|
SetTextForAllObjects(ob, prefix);
|
|||
|
|
}
|
|||
|
|
if (val is IContainer)
|
|||
|
|
{
|
|||
|
|
IContainer cont = pi.GetValue(obj, noIndex) as IContainer;
|
|||
|
|
if (cont != null)
|
|||
|
|
foreach (object ob in cont.Components)
|
|||
|
|
//<2F><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if (!(ob is System.Windows.Forms.Form))
|
|||
|
|
SetTextForAllObjects(ob, prefix);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
catch (Exception)
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static List<PropertyInfo> GetChildren(Type type)
|
|||
|
|
{
|
|||
|
|
if (ChildrenCollections.ContainsKey(type))
|
|||
|
|
return ChildrenCollections[type];
|
|||
|
|
PropertyInfo[] propertis = type.GetProperties();
|
|||
|
|
List<PropertyInfo> childComponentLists = new List<PropertyInfo>();
|
|||
|
|
foreach (PropertyInfo pi in propertis)
|
|||
|
|
if (pi.PropertyType.GetInterface("ICollection") != null || pi.PropertyType.GetInterface("IContainer") != null)
|
|||
|
|
childComponentLists.Add(pi);
|
|||
|
|
ChildrenCollections.Add(type, childComponentLists);
|
|||
|
|
return childComponentLists;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
private static List<PropertyInfo> GetWPFChildren(Type type)
|
|||
|
|
{
|
|||
|
|
if (ChildrenCollections.ContainsKey(type))
|
|||
|
|
return ChildrenCollections[type];
|
|||
|
|
PropertyInfo property = type.GetProperty("LogicalChildren", BindingFlags.Instance | BindingFlags.NonPublic);
|
|||
|
|
List<PropertyInfo> childComponentLists = new List<PropertyInfo>();
|
|||
|
|
|
|||
|
|
if (property != null)
|
|||
|
|
childComponentLists.Add(property);
|
|||
|
|
ChildrenCollections.Add(type, childComponentLists);
|
|||
|
|
return childComponentLists;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static void SetTextForAllObjects(object obj)
|
|||
|
|
{
|
|||
|
|
SetTextForAllObjects(obj, null);
|
|||
|
|
}
|
|||
|
|
private static string resDirectoyName=null;
|
|||
|
|
public static string ResDirectoryName
|
|||
|
|
{
|
|||
|
|
get
|
|||
|
|
{
|
|||
|
|
return resDirectoyName;
|
|||
|
|
}
|
|||
|
|
set
|
|||
|
|
{
|
|||
|
|
resDirectoyName = value;
|
|||
|
|
Load();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
private static Hashtable Strings = new Hashtable();
|
|||
|
|
|
|||
|
|
private static void LoadFile(string FileName)
|
|||
|
|
{
|
|||
|
|
if (!File.Exists(FileName))
|
|||
|
|
return;
|
|||
|
|
// throw new
|
|||
|
|
LoadFile(new StreamReader(FileName, System.Text.Encoding.GetEncoding(1251)));
|
|||
|
|
}
|
|||
|
|
private static void LoadFile(StreamReader sr)
|
|||
|
|
{
|
|||
|
|
ReadStringsFromStream(sr, Strings);
|
|||
|
|
}
|
|||
|
|
private static void Load()
|
|||
|
|
{
|
|||
|
|
//try
|
|||
|
|
{
|
|||
|
|
//Strings.Clear();
|
|||
|
|
DirectoryInfo di = new DirectoryInfo(ResDirectoryName);
|
|||
|
|
if (!di.Exists)
|
|||
|
|
return;
|
|||
|
|
FileInfo[] files = di.GetFiles("*.*");
|
|||
|
|
foreach (FileInfo fi in files)
|
|||
|
|
LoadFile(fi.FullName);
|
|||
|
|
}
|
|||
|
|
//catch (Exception e)
|
|||
|
|
{
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public static string Get(string keyName)
|
|||
|
|
{
|
|||
|
|
if (keyName == null || keyName == "") return keyName;
|
|||
|
|
string res = Strings[keyName] as string;
|
|||
|
|
if (res != null)
|
|||
|
|
return res;
|
|||
|
|
else
|
|||
|
|
return keyName;
|
|||
|
|
}
|
|||
|
|
public static void Set(string keyName,string value)
|
|||
|
|
{
|
|||
|
|
Strings.Add(keyName,value);
|
|||
|
|
}
|
|||
|
|
static StringResources()
|
|||
|
|
{
|
|||
|
|
//TODO: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
/*StringResourcesLanguage.ConfigFileName = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().ManifestModule.FullyQualifiedName) + "\\lng\\languages.dat";
|
|||
|
|
if (StringResourcesLanguage.AccessibleLanguages.Count > 0)
|
|||
|
|
StringResourcesLanguage.CurrentLanguageName = StringResourcesLanguage.AccessibleLanguages[0];
|
|||
|
|
*/
|
|||
|
|
if (Strings.Count == 0)
|
|||
|
|
{
|
|||
|
|
ResourceManager ResourceManager = new ResourceManager("PascalABCCompiler.DefaultLang", System.Reflection.Assembly.GetExecutingAssembly());
|
|||
|
|
MemoryStream ms = new MemoryStream((byte[])ResourceManager.GetObject("DefaultLanguage", System.Threading.Thread.CurrentThread.CurrentCulture));
|
|||
|
|
ms.Seek(0, SeekOrigin.Begin);
|
|||
|
|
LoadFile(new StreamReader(ms,Encoding.GetEncoding(1251)));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|