Библиотека Падеж для Линукс - Access Violation

Вопросы использования сторонних (не входящих в состав FPC и Lazarus) утилит и библиотек.

Модератор: Модераторы

Библиотека Падеж для Линукс - Access Violation

Сообщение 7bit » 10.04.2024 16:24:50

Есть такая библиотека склонения по падежам Покаташкина Г.Л., Плахова С.В. Не могу победить линукс-версию библиотеки (64-бит). При вызове so-функции возникает Access Violation. Что я делаю не так? Версия библиотеки 4.5 Unicode.

Ссылка на пример - https://cloud.mail.ru/public/o1fQ/BKVzUVxQQ
7bit
новенький
 
Сообщения: 36
Зарегистрирован: 01.10.2011 12:35:52

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение Снег Север » 10.04.2024 17:40:40

Эта библиотека когда-то писалась под делфи. У меня и там не работала. Могу только дать ссылку на королевство Делфи, вдруг поможет: http://www.delphikingdom.com/asp/viewit ... alogid=412
Аватара пользователя
Снег Север
долгожитель
 
Сообщения: 3039
Зарегистрирован: 27.11.2007 16:14:47

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение 7bit » 10.04.2024 20:20:42

Спасибо за ответ. В курсе этой ссылки. К сожалению, ничего полезного для себя не нашел.

Добавлено спустя 1 час 19 минут 52 секунды:
Вопрос решился. У меня была какая-то косячная версия библиотеки. Обновил и все заработало.

Добавлено спустя 51 минуту 32 секунды:
Э-эх. Все равно часть функций не работает :( .
7bit
новенький
 
Сообщения: 36
Зарегистрирован: 01.10.2011 12:35:52

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение sts » 11.04.2024 11:08:16

https://vk.com/padegfio
а тут отвечают?
sts
постоялец
 
Сообщения: 431
Зарегистрирован: 04.04.2008 12:15:44
Откуда: Тольятти

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение 7bit » 11.04.2024 15:17:46

Не знаю. Я одному из разработчиков написал. Тишина.
7bit
новенький
 
Сообщения: 36
Зарегистрирован: 01.10.2011 12:35:52

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение Alexander » 13.04.2024 12:15:09

"Библиотека Падёж для Линукс" ?

Разработчику надо написать вначале, чтобы он её освободил под GNU/*GPL и только потом использовать.
Аватара пользователя
Alexander
энтузиаст
 
Сообщения: 771
Зарегистрирован: 18.12.2005 19:10:00
Откуда: оттуда

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение WAYFARER » 16.04.2024 18:20:20

Alexander писал(а):Разработчику надо написать вначале, чтобы он её освободил под GNU/*GPL и только потом использовать.

Они исходники при покупке отдают.

Добавлено спустя 6 часов 14 минут 11 секунд:
Решил поделиться своей библиотекой.
https://github.com/WAYFARER87/NameCasePas
В свое время накидал на коленке и использовал 1 раз для обработки большого набора данных. Особо не тестировалась, но работает. Библиотека использует набор правил от небезызвестной ruby библиотеки Petrovich (https://github.com/petrovich/petrovich-rules)
Лицензия MIT, полностью кроссплатформенная. В репозитарии так же пример использования. Кроме склонения ФИО по падежам умеет определять пол.
Если кому то нужно, то я нормально оформлю репозитарий и создам страничку на форуме.
Аватара пользователя
WAYFARER
энтузиаст
 
Сообщения: 537
Зарегистрирован: 09.10.2009 00:00:04
Откуда: г. Курган

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение Alexander » 21.04.2024 16:46:18

Решил поделиться своей библиотекой.
https://github.com/WAYFARER87/NameCasePas


Вот это другое дело. С примером и работает. Поставил ей звезду на github'е .
Аватара пользователя
Alexander
энтузиаст
 
Сообщения: 771
Зарегистрирован: 18.12.2005 19:10:00
Откуда: оттуда

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение zoltanleo » 30.04.2024 00:19:19

Имхо, лишняя сторонняя приблуда = лишняя головная боль при дальнейшей поддержке проекта. Для "Падежа" в дельфях это проявилось, когда проект перелез с доюникодных версий на юникодные D2009+. Хорошо, тогда обошлось явным указанием всех типов string--> ansistring и pchar-->pansichar.
Впоследствии выпилил эту библиотеку из проекта и вздохнул с облегчением ;)
Аватара пользователя
zoltanleo
постоялец
 
Сообщения: 458
Зарегистрирован: 17.10.2013 10:55:01

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение 7bit » 08.05.2024 21:55:38

WAYFARER писал(а):Решил поделиться своей библиотекой.
https://github.com/WAYFARER87/NameCasePas


Жаль, что нет склонения должностей, подразделений, числительных, чисел прописью. В Падеже все это есть.

Добавлено спустя 42 секунды:
zoltanleo писал(а):Впоследствии выпилил эту библиотеку из проекта и вздохнул с облегчением

А чем вы заменили?
7bit
новенький
 
Сообщения: 36
Зарегистрирован: 01.10.2011 12:35:52

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение WAYFARER » 10.05.2024 20:01:53

7bit писал(а):Жаль, что нет склонения должностей, подразделений, числительных, чисел прописью. В Падеже все это есть.

Зато есть октрытый код. Добавить недолго правила, не думаю что список должностей и подразделений будет большой. А что касается чисел прописью, то я бы ради такой мелочи не стал тащить стороннюю библиотеку в программе, можно за пять минут функцию накидать или нагуглить готовую.
Аватара пользователя
WAYFARER
энтузиаст
 
Сообщения: 537
Зарегистрирован: 09.10.2009 00:00:04
Откуда: г. Курган

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение Kitayets » 11.08.2024 11:53:05

WAYFARER писал(а):
Alexander писал(а):Разработчику надо написать вначале, чтобы он её освободил под GNU/*GPL и только потом использовать.

Они исходники при покупке отдают.

Добавлено спустя 6 часов 14 минут 11 секунд:
Решил поделиться своей библиотекой.
https://github.com/WAYFARER87/NameCasePas
В свое время накидал на коленке и использовал 1 раз для обработки большого набора данных. Особо не тестировалась, но работает. Библиотека использует набор правил от небезызвестной ruby библиотеки Petrovich (https://github.com/petrovich/petrovich-rules)
Лицензия MIT, полностью кроссплатформенная. В репозитарии так же пример использования. Кроме склонения ФИО по падежам умеет определять пол.
Если кому то нужно, то я нормально оформлю репозитарий и создам страничку на форуме.


Юрия не правильно склоняет :(

Код: Выделить всё
Юрийя
Юрийю
Юрийя
Юрийем
Юрийе


Добавлено спустя 11 часов 2 минуты 17 секунд:
Еще и разные файлы в основном коде и в папке с примером :o

Добавлено спустя 3 часа 31 минуту 14 секунд:
Короче есть пара ошибок и, что самое главное, применение к utf8 строкам функции length как будто она должна вернуть количество символов в строке, а она возвращает количество байт, естественно.

Для корректной работы, нужно переписать либо с utf8Length (и будет зависеть библиотека от LCL_Base) либо конвертировать все в UTF16 и держать в уме, что каждый символ в 4 байта, либо написать свою реализацию UTF8Lenght.

Я подправил, так чтобы оно работало, НО логику надо менять, тк. поиск в суффиксах идет последовательно, то, например для имени Юрий - подбирает суффикс "й", вместо "ий", и по этому не верно склоняет в предложном падеже.

код поправленной библиотеки:
Код: Выделить всё
{The MIT License (MIT)

Copyright (c) 2024 Anton Lindeberg

Permission is hereby granted, free of charge, to any person obtaining a copy of
this software and associated documentation files (the "Software"), to deal in
the Software without restriction, including without limitation the rights to
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
the Software, and to permit persons to whom the Software is furnished to do so,
subject to the following conditions:

The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.}


unit NameCasePas;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, fpjson, jsonparser, StrUtils, Dialogs;

type


  { TNameCase }


  TNameCase = class

  private
    middlename, firstname, lastname, gender: string;
    rules: TJSONData;

    function inflect(Name: string; aCase: integer; ruleType: string): string;
    function findInRules(Name: string; aCase: integer; ruleType: string): string;
    function applyRule(Mods, Name: string; aCase: integer): string;
  public
    constructor Create;

    function GetFirstName(AFirstName: string; ACase: integer): string;
    function GetLastName(ALastName: string; ACase: integer): string;
    function GetMiddleName(AMiddleName: string; ACase: integer): string;
    function GetGender:String;
  end;

const
  CASE_DATIVE = 0; //родительный

const
  CASE_GENITIVE = 1; //дательный

const
  CASE_ACCUSATIVE = 2; //винительный

const
  CASE_INSTRUMENTAL = 3; //творительный

const
  CASE_PREPOSITIONAL = 4; //предложный

implementation

uses jsonscanner;
{ TCaseName }



constructor TNameCase.Create;
var
  JSONParser: TJSONParser;
begin

  JSONParser := TJSONParser.Create(TFileStream.Create(ExtractFilePath(ParamStr(0)) +
    'rules.js', fmOpenRead), [TJSONOption.joUTF8]);
  rules := JSONParser.Parse;
end;

function TNameCase.GetFirstName(AFirstName: string; ACase: integer): string;
begin
     { $this->firstname = $firstname;
        return $this->inflect($this->firstname,$case,__FUNCTION__);  }
  self.firstname := AFirstName;


  Result := inflect(firstname, ACase, 'firstname');
end;

function TNameCase.GetLastName(ALastName: string; ACase: integer): string;
begin
   self.lastname := ALastName;
   Result := inflect(lastname, ACase, 'lastname');
end;

function TNameCase.GetMiddleName(AMiddleName: string; ACase: integer): string;
begin
   self.middlename := AMiddleName;
   Result := inflect(middlename, ACase, 'middlename');
end;

function TNameCase.GetGender: String;
begin
  Result:=gender;
end;

function CountChar(const str: string; const chr: char): integer;
var
  i: integer;
begin
  Result := 0;
  for i := 1 to Length(str) do
    if str[i] = chr then
      Inc(Result);
end;

{ private function inflect($name,$case,$type) {
          //если двойное имя или фамилия или отчество
        if(substr_count($name,'-') > 0) {
            $names_arr = explode('-',$name);
            $result = '';

            foreach($names_arr as $arr_name) {
                $result .= $this->findInRules($arr_name,$case,$type).'-';
            }
            return substr($result,0,strlen($result)-1);
        } else {
            return $this->findInRules($name,$case,$type);
        }
    }}

function TNameCase.inflect(Name: string; aCase: integer; ruleType: string): string;
var
  nameArr: TStringList;
  i: integer;
  res: string;
begin
  if CountChar(Name, '-') > 0 then
  begin
    nameArr := TStringList.Create;
    try
      nameArr.DelimitedText := Name;
      res := '';
      for i := 0 to nameArr.Count - 1 do
        res := res + findInRules(nameArr[i], aCase, ruleType) + '-';
      Result := Copy(res, 1, Length(res) - 1);
    finally
      nameArr.Free;
    end;
  end
  else
    Result := findInRules(Name, aCase, ruleType);

end;

{  foreach($this->rules[$type]->suffixes as $rule) {
            foreach($rule->test as $last_char) {
                $last_name_char = substr($name,strlen($name)-strlen($last_char),strlen($last_char));
                if($last_char == $last_name_char) {
                    if($rule->mods[$case] == '.')
                        continue;

                    if($this->gender == 'androgynous' || $this->gender == null)
                        $this->gender = $rule->gender;

                    return $this->applyRule($rule->mods,$name,$case);
                }
            }
        }}

function TNameCase.findInRules(Name: string; aCase: integer; ruleType: string): string;
var
  i, j: integer;
  suffixes: TJSONData;
  last_char: TJSONData;
  last_name_char, rule: string;
begin
  suffixes := rules.FindPath(ruleType).FindPath('suffixes');
  for i := 0 to suffixes.Count - 1 do
  begin
    //last_name_char = substr($name,strlen($name)-strlen($last_char),strlen($last_char));

    last_char := suffixes.Items[i].FindPath('test');


    for j := 0 to last_char.Count - 1 do
    begin
      last_name_char := Copy(Name, Length(Name) - Length(last_char.Items[j].Value) +
        1, Length(last_char.Items[j].Value));
      if (last_char.Items[j].Value = last_name_char) then
      begin

        if suffixes.Items[i].FindPath('mods').Items[aCase].Value = '.' then Continue;

        gender := suffixes.Items[i].FindPath('gender').Value;
        Result := applyRule(suffixes.Items[i].FindPath(
          'mods').Items[aCase].Value, Name, aCase);
      end;
    end;

  end;

end;

//function substr_count(const substr: string; Str: string): integer;
function substr_count(Str: string; const substr: string): integer;  //!!!
begin
  if (Length(substr) = 0) or (Length(Str) = 0) or (Pos(substr, Str) = 0) then
    Result := 0
  else
    //Result := (Length(Str) - Length(StringReplace(Str, substr, '', [rfReplaceAll]))) div
    //  Length(substr); // тут окажемся только когда в суффиксе есть "-" и какая-то буква. Length(substr) всегда = 1, нет смысла на него делить
    Result:= str.CountChar('-') * 2; //будет работать только для кириллицы, за каждый символ "-" мы должны удалиить из имени по 2 байта
end;

function TNameCase.applyRule(Mods, Name: string; aCase: integer): string;
var
  res: string;
begin
  res := Copy(Name, 1, Length(Name) - substr_count(Mods, '-'));
  res := res + StringReplace(Mods, '-', '', [rfReplaceAll]);
  Result := res;

end;

end.
Kitayets
постоялец
 
Сообщения: 171
Зарегистрирован: 05.05.2010 21:15:24

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение Alexander » 14.08.2024 13:42:36

> код поправленной библиотеки:

Юрий теперь в порядке, но похоже проблема и с именем Ольга. Видимо и другие имена и фамилии тоже.
Также не совсем понятно как быть с файлом rules.js - он привязан к расположению экзешника, что не совсем unix way. Или сделать расположение настраиваемым или включить его в саму программу в виде массива что ли.
Аватара пользователя
Alexander
энтузиаст
 
Сообщения: 771
Зарегистрирован: 18.12.2005 19:10:00
Откуда: оттуда

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение Kitayets » 14.08.2024 14:38:08

Alexander писал(а):> код поправленной библиотеки:

Юрий теперь в порядке, но похоже проблема и с именем Ольга. Видимо и другие имена и фамилии тоже.
Также не совсем понятно как быть с файлом rules.js - он привязан к расположению экзешника, что не совсем unix way. Или сделать расположение настраиваемым или включить его в саму программу в виде массива что ли.


видимо логика не до конца реализована. в оригинальной библиотеке эвристик еще файл для определения рода (мужской, женский, средний(?)), который тут вообще не задействован. и файл с правилами более новый. Причем там он не кодированный, что проще для отладки и понимания что там внутри.

надо посмотреть у оригинала, какая должна быть логика. Что касается файла с правилами, то можно там сделать инжектированную зависимость от TStream вместо имени файла, тогда файл можно будет включить и в ресурсы программы и из файла грузить, в зависимости от конфигурации..
Kitayets
постоялец
 
Сообщения: 171
Зарегистрирован: 05.05.2010 21:15:24

Re: Библиотека Падеж для Линукс - Access Violation

Сообщение WAYFARER » 15.08.2024 22:30:45

Я делал это для разовой задаче буквально на коленке буквально за полчаса, просто переписав на паскале php версию, и, возможно только ту её часть что была нужна мне в тот момент.
Склонялись имена правильно, но какую версию rules.json использовал сказать уже не могу.
И да, скорее всего для полноценного использования требуются доработки.

https://github.com/petrovich - если что вот здесь все её реализации на разных языках.
Аватара пользователя
WAYFARER
энтузиаст
 
Сообщения: 537
Зарегистрирован: 09.10.2009 00:00:04
Откуда: г. Курган

След.

Вернуться в Сторонние средства

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

Рейтинг@Mail.ru