Господа!
Не могли бы вы скомпилировать на Freepascal (Kylix?) под Linux нежеследующий код и оформить его в виде динамической библиотеки (.so)?
Нужно это для того, чтобы обеспечить работу данного продукта http://www.fb2-library.redholl.com/ на СУБД FireBird под Linux.
Сам я не программер, и похоже единственный заинтересованный в хранении базы данной программы на FireBird под Linux.
А разработчик с Freepascal (Kylix) и Linux не работает и не имеет соответственно возможности сделать такую библиотечку.
Вот собственно и вся просьба.
Вот такой файлик fb2lib.pas:
-- cut --
library fb2lib;
uses
SysUtils, Classes;
{$R *.res}
function UpperCase(InString:PChar):PChar;cdecl;export;
begin
Result:=PChar(AnsiUpperCase(string(InString)));
end;
function substr(InString:PChar;StartPos,Len:Integer):PChar;cdecl;export;
begin
Result:=PChar(Copy(string(InString),StartPos,1));
end;
exports UpperCase,substr;
begin
end.
-- cut --
Спасибо.
