Permalink
Browse files

change encoding for all *.pas and *.cs files: cp1251 -> utf-8

  • Loading branch information...
1 parent 8b3e964 commit 49378a6750a8ee31b5083e0a2f0876bc3e2aee4c @ulysses4ever ulysses4ever committed Dec 28, 2015
Showing 1,765 changed files with 17,107 additions and 17,107 deletions.
@@ -6,7 +6,7 @@
using PascalABCCompiler.SemanticTreeConverters;
using PascalABCCompiler.Errors;
-///Â ðàçðàáîòêå DarkStar
+///В разработке DarkStar
namespace PascalABCCompiler
{
@@ -76,7 +76,7 @@ private void AddConverters(string DirectoryName)
}
catch (Exception)
{
- //åñëè dll íå íåòîâñêàÿ
+ //если dll не нетовская
}
}
@@ -105,7 +105,7 @@ private void Read_Callback(IAsyncResult ar)
{
int read = s.EndRead(ar);
- // Íîâîå ïîëå byteoffset ãîâîðèò î òîì, ÷òî ñ ïðîøëîãî ðàçà ìû ó÷ëè äîïîëíèòåëüíûé áàéò
+ // Новое поле byteoffset говорит о том, что с прошлого раза мы учли дополнительный байт
read += so.byteoffset;
if (read > 0)
{
@@ -121,8 +121,8 @@ private void Read_Callback(IAsyncResult ar)
string str = en.GetString(so.buffer, 0, read);
- // Ê ñîæàëåíèþ, îøèáî÷íûé áàéò óñòàíàâëèâàåòñÿ çà ñ÷åò ðàçíèöû äëèí str è newstr
- // Íàäî áû îïòèìèçèðîâàòü
+ // К сожалению, ошибочный байт устанавливается за счет разницы длин str и newstr
+ // Надо бы оптимизировать
byte prevbyte = 0;
if (str.Length != newstr.Length)
@@ -59,7 +59,7 @@ public abstract class ScanBase : AbstractScanner<ValueType,LexLocation> {
public class GPPGParser: ShiftReduceParser<ValueType, LexLocation>
{
// Verbatim content from oberon00.y
- public syntax_tree_node root; // Êîðíåâîé óçåë ñèíòàêñè÷åñêîãî äåðåâà
+ public syntax_tree_node root; // Корневой узел синтаксического дерева
public GPPGParser(AbstractScanner<ValueType, LexLocation> scanner) : base(scanner) { }
// End verbatim content from oberon00.y
@@ -257,24 +257,24 @@ protected override void DoAction(int action)
// END, ident, COMMA
{
if (ValueStack[ValueStack.Depth-8].id.name != ValueStack[ValueStack.Depth-2].id.name)
- PT.AddError("Èìÿ "+ValueStack[ValueStack.Depth-2].id.name+" äîëæíî ñîâïàäàòü ñ èìåíåì ìîäóëÿ "+ValueStack[ValueStack.Depth-8].id.name,LocationStack[LocationStack.Depth-2]);
+ PT.AddError("Имя "+ValueStack[ValueStack.Depth-2].id.name+" должно совпадать с именем модуля "+ValueStack[ValueStack.Depth-8].id.name,LocationStack[LocationStack.Depth-2]);
- // Ïîäêëþ÷åíèå ñòàíäàðòíîé áèáëèîòåêè
+ // Подключение стандартной библиотеки
ident_list il = new ident_list();
il.Add(new ident("Oberon00System"));
unit_or_namespace un = new unit_or_namespace(il);
uses_list ul = new uses_list();
ul.units.Insert(0, un);
- // Ôîðìèðîâàíèå ãëàâíîãî ìîäóëÿ
+ // Формирование главного модуля
var b = new block(ValueStack[ValueStack.Depth-6].decl, ValueStack[ValueStack.Depth-4].sl, LocationStack[LocationStack.Depth-6].Merge(LocationStack[LocationStack.Depth-2]));
var r = new program_module(null, ul, b, null,CurrentLocationSpan);
r.Language = LanguageId.Oberon00;
root = r;
}
break;
case 3: // module -> INVISIBLE, expr
-{ // Äëÿ Intellisense
+{ // Для Intellisense
root = ValueStack[ValueStack.Depth-1].ex;
}
break;
@@ -1,27 +1,27 @@
// (c) Mikst, Juliet 2010
-/// Ñèñòåìíûé ìîäóëü äëÿ ÿçûêà Oberon
+/// Системный модуль для языка Oberon
unit Oberon00System;
interface
type
- /// Ëîãè÷åñêèé òèï (TRUE | FALSE)
+ /// Логический тип (TRUE | FALSE)
BOOLEAN = System.boolean;
- /// Öåëîå ÷èñëî
+ /// Целое число
INTEGER = System.Int32;
- /// Êîðîòêîå öåëîå ÷èñëî
+ /// Короткое целое число
SHORTINT = System.byte;
- /// Äëèííîå öåëîå ÷èñëî
+ /// Длинное целое число
LONGINT = System.int64;
- /// Âåùåñòâåííîå ÷èñëî
+ /// Вещественное число
REAL = System.double;
- /// Äëèííîå âåùåñòâåííîå ÷èñëî
+ /// Длинное вещественное число
LONGREAL = System.double;
- /// Ñèìâîë
+ /// Символ
CHAR = System.char;
- /// Ñòðîêà
+ /// Строка
STRING = System.string;
- /// Ìíîæåñòâî öåëûõ
+ /// Множество целых
iset = array of integer;
procedure Print(o: object);
@@ -38,7 +38,7 @@ procedure Print(o: object);
Console.Write(o);
end;
-/// Âûâåñòè çíà÷åíèå
+/// Вывести значение
procedure Println(o: object);
begin
Console.WriteLine(o);
@@ -685,7 +685,7 @@ int Scan()
case eofNum:
switch (currentStart) {
case 50:
-PT.AddError("Êîììåíòàðèé íå çàêðûò", yylloc);
+PT.AddError("Комментарий не закрыт", yylloc);
break;
}
if (yywrap())
@@ -779,7 +779,7 @@ int Scan()
yylval.lVal = tryParseLong;
return (int)Tokens.LONGINTNUM;
}
- PT.AddError("Ñëèøêîì äëèííîå öåëîå", yylloc);
+ PT.AddError("Слишком длинное целое", yylloc);
break;
case 26:
yylval.sVal = PT.GetStringContent(yytext);
@@ -791,7 +791,7 @@ int Scan()
return (int)Tokens.CHAR_CONST;
}
catch (System.ArgumentException){
- PT.AddError("Íåêîððåêòíûé êîä ñèìâîëà", yylloc);
+ PT.AddError("Некорректный код символа", yylloc);
}
break;
case 28:
@@ -802,7 +802,7 @@ int Scan()
yylval.rVal = tryParseDouble;
return (int)Tokens.REALNUM;
}
- PT.AddError("Ñëèøêîì äëèííîå âåùåñòâåííîå", yylloc);
+ PT.AddError("Слишком длинное вещественное", yylloc);
break;
case 29:
var _yytext = yytext.Substring(0, yytext.Length - 1);
@@ -816,7 +816,7 @@ int Scan()
yylval.lVal = tryParseHexLong;
return (int)Tokens.LONGINTNUM;
}
- PT.AddError("Ñëèøêîì äëèííîå øåñòíàäöàòåðè÷íîå öåëîå", yylloc);
+ PT.AddError("Слишком длинное шестнадцатеричное целое", yylloc);
break;
case 31:
return (int)Tokens.DOUBLEPOINT;
@@ -945,7 +945,7 @@ public override void yyerror(string format, params object[] args)
PT.AddError(errorMsg,yylloc);
}
-// Ñòàòè÷åñêèé êëàññ, îïðåäåëÿþùèé êëþ÷åâûå ñëîâà ÿçûêà
+// Статический класс, определяющий ключевые слова языка
public static class Keywords
{
private static Dictionary<string, int> keywords = new Dictionary<string, int>();
Oops, something went wrong.

0 comments on commit 49378a6

Please sign in to comment.