Система программирования PascalABC.NET

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



а. Данный модуль позволяет отключить различные блоки компилятора. Отключение различных частей компилятора происходит с помощью обращения к специальному полю Compiler.InternalDebug, которое имеет следующую структуру:class CompilerInternalDebug

{bool AddStandartUnits;bool CodeGeneration;bool PCUGenerate;bool SemanticAnalysis;bool SkipInternalErrorsIfSyntaxTreeIsCorrupt;bool SkipPCUErrors;bool DebugVersion { get; }

}

Изменение этих полей приводит к отключению соответствующих частей компилятора. Например, положив CodeGeneration=True, можно осуществить компиляцию без генерации кода.

 

Также данный модуль добавляет на панель визуальной оболочки кнопки:

запустить ILDASM - запускает стандартный IL дизасемблер для последенего откомпилированного файла;

запустить DBGCLR - запускает стандартный отладчик для последенего откомпилированного файла.

 

13.4 Модуль Контроль внутренних ошибок

 

Плагин Контроль внутренних ошибок перехватывает ошибки компилятора, принадлежащие к классу CompilerInternalError. Появление такой ошибки свидетельствует об ошибке в коде ядра компилятора. При возникновении такой ошибки плагин собирает все необходимые сведения: исходные коды модулей, которые участвовали в компиляции, PCU файлы, а также следующую информацию:

время и дату;

полную версию компилятора;

версию платформы;

версию ОС;

количество процессоров;

список состояний компилятора;

полный текст ошибки.

Все эти данные сжимаются в zip-архив, и этот архив предлагается выслать разрабочикам компилятора.

Ошибка перхватывается при срабатывании события CompilerState.Ready путем анализа списка всех возникших во время компиляции ошибок, находящихся в Compiler.ErrorsList.

Скриншот произошедшей внутренней ошибки приведен ниже:

14. Подключение задачника Programming Taskbook

 

Электронный задачник Programming Taskbook предназначен для обучения программированию на языках Pascal, Visual Basic, C++, C#, Visual Basic .NET. Он содержит 1000 учебных заданий, охватывающих все основные разделы базового курса программирования: от скалярных типов и управляющих операторов до сложных структур данных и рекурсивных алгоритмов. Автор задачника - М. Э. Абрамян [11].

Задачник поставляется в виде неуправляемой динамической библиотеки (dll) со следующим интерфейсом:

procedure StartPT(options:integer);'PT4PABC.dll' name 'startpt';FreePT;'PT4PABC.dll' name 'freept';CheckPT(var res:integer):string;'PT4PABC.dll' name 'checkptf';

procedure RaisePT(s1,s2:string);'PT4PABC.dll' name 'raisept';

procedure Task(name:string);'PT4PABC.dll' name 'task';GetR(var param:real);'PT4PABC.dll' name 'getr';PutR(r:real);'PT4PABC.dll' name 'putr';GetN(var param:integer);'PT4PABC.dll' name 'getn';PutN(param:integer);'PT4PABC.dll' name 'putn';GetC(var param:char);'PT4PABC.dll' name 'getc';PutC(param:char);'PT4PABC.dll' name 'putc';GetS(param:StringBuilder);'PT4PABC.dll' name 'gets';PutS(param:string);'PT4PABC.dll' name 'puts';GetB(var param:integer);'PT4PABC.dll' name 'getb';PutB(param:integer);'PT4PABC.dll' name 'putb';GetP(var param:IntPtr);'PT4PABC.dll' name 'getp';PutP(var param:IntPtr);'PT4PABC.dll' name 'putvarp';DisposeP(sNode:IntPtr);'PT4PABC.dll' name 'disposep';

 

14.1 Модуль на языке PascalABC.NET

 

Подлючение задачника к системе программирования PascalABC.NET осуществляет модуль PT4.pas, который написан на языке PascalABC.NET. Данный модуль делает все необходимые обертки над вызовами процедур из dll, а также инициализирует и завершает работу задачника. Интерфейс этого модуля приведен далее:

type

InternalNode = record

Data:integer;

Next:IntPtr;:IntPtr;;Node = classNext:PT4NodePrev:PT4NodeData:integer;(aData:integer);(aData:integer; aNext:PT4Node);Destroy;;= PT4Node;Task(name:string);Write(params args:array of object);GetInteger:integer;GetReal:real;GetChar:char;GetString:string;GetBoolean:boolean;GetNode:PT4Node;PutInteger(val:integer);PutReal(val:real);PutChar(val:char);PutString(val:string);PutBoolean(val:boolean);PutNode(val:PT4Node);Read(var val:integer);Read(var val:real);Read(var val:char);Read(var val:string);Read(var val:boolean);Read(var val:PT4Node);

Пример прогаммы, реализующей решение задачи Text1 на PascalABC.NET, имеет вид:

uses PT4;f:text;:string;,k,i,j:integer;('Text1');(filename);read(n);read(k);(f,filename);(f);i:=1 to n do beginj:=1 to k do(f,'*');(f);;(f);

end.

Пример прогаммы реализующей решение задачи Dynamic2, имеет вид:

uses PT4;tek,prev:TNode;:integer;('Dynamic2');(tek);tek<>nil do begin:=n+1;(tek.Data);:=tek;:=tek.Next;;(n,prev);.

Ниже приводится скриншот выполненного задания:

 

 

14.2 Модуль визуальной оболочки

 

Модуль визуальной оболочки используется для добавления в оболочку трех кнопок:

посмотреть задания;

создать шаблон программы;

посмотреть результаты.

 

Плагин использует следующие функции из dll задачника:

[DllImport("PT4\\PT4PABC.dll", CharSet = CharSet.Ansi, EntryPoint = "pt4demo")]extern int pt4demo(string startdir,ptdir, string dllname,dlloptions, int usedlltopics, int usedemodat,demodatname, string demodatdir,topic, ref int number);

[DllImport("PT4\\PT4PABC.dll", CharSet = CharSet.Ansi, EntryPoint = "pt4load")]extern int pt4load(string startdir,ptdir, string envlist, string dirlist,startenv, StringBuilder edittext, StringBuilder filename);

[DllImport("PT4\\PT4PABC.dll", CharSet = CharSet.Ansi, EntryPoint = "pt4results")]extern int pt4results(string startdir,ptdir, int showbrowsedir, int browsesubdirs,int fontsize, ref int showinffile, ref int showtxtfile);

[DllImport("PT4\\PT4PABC.dll", CharSet = CharSet.Ansi, EntryPoint = "pt4getdatinfo")]extern int pt4getdatinfo(string startdir,studentname, ref int fontsize,envir, StringBuilder ptdir);

[DllImport("PT4\\PT4PABC.dll", CharSet = CharSet.Ansi, EntryPoint = "pt4setdatinfo")]static extern int pt4setdatinfo(string startdir,fontsize, string envir);

Примеры вызова этих функций были предоставлены автором задачника вместе с самим задачником. Над этими функциями сделаны следующие обертки:

public int Demo(StringBuilder topic, ref int number)

{pt4demo(PABCWorkDirectory, PT4Directory, "pt4", 0, 1, 2, "", "", topic, ref number);

}int Load(StringBuilder edittext, StringBuilder filename)

{pt4load(PABCWorkDirectory, PT4Directory, "PABC2", "", 1, edittext, filename);

}void Results()

{= new StringBuilder(50),= new StringBuilder(20),= new StringBuilder(100);fsize = 0, fontsize = 0,= 1, showtxt = 1,= pt4getdatinfo("", s1, ref fsize, s2, s3);(i == 0)= fsize;results(PABCWorkDirectory, PT4Directory, 0, 0, ref fontsize,showinf, ref showtxt);(i == 0 && fsize != fontsize)setdatinfo("", fontsize, "");

}

Функции, реализующие собственно эти три действия, выглядят так:

. Посмотреть задания:

public void ExecuteB_D()

{(topic, ref number);

}

2. Создать шаблон программы:

public void ExecuteB_L()

{filename = new StringBuilder(250);i = Load

s