Size: a a a

Беседка Perl-групп

2019 September 12

b

basiliscos in Беседка Perl-групп
для перла/пхп/питона обвязок хватает для гуи-либ
источник

b

basiliscos in Беседка Perl-групп
Anton Petrusevich
тогда какие проблемы с гтк?
"владение"
источник

AP

Anton Petrusevich in Беседка Perl-групп
хотя, гтк в голом виде такое себе удовольствие...
источник

b

basiliscos in Беседка Perl-групп
и тем не менее )
источник

AP

Anton Petrusevich in Беседка Perl-групп
что "владение"?
источник

b

basiliscos in Беседка Perl-групп
поясню
источник

DF

Denis F in Беседка Perl-групп
basiliscos
"владение"
unsafe и полетели
источник

VT

Vasily Terkin in Беседка Perl-групп
Там сложно сделать отношение parent - child
источник

VT

Vasily Terkin in Беседка Perl-групп
Только если всё unsafe
источник

VT

Vasily Terkin in Беседка Perl-групп
Или через жо
источник

AP

Anton Petrusevich in Беседка Perl-групп
а, ну так пусть гтк на расте напишут, я так понимаю, могут...
источник

AP

Anton Petrusevich in Беседка Perl-групп
до куте точно не дотянуться им
источник

VT

Vasily Terkin in Беседка Perl-групп
Вообще с циклическими направленными графами
источник

b

basiliscos in Беседка Perl-групп
на примере перла и c++. Мы на панде с эти столкнулись: модели "владения" не совпадают. В C/C++ есть

struct A { ... };
struct B  {
A a;
const A& get_a() noexcept { return a; }
}

Хотелось бы в перле написать my $a = $b->get_a();

Проблема№ 1: в перле нету констов.

Проблема №2: лайфтаймом A владеет объект B. По правилам перла можно:

my $a ;
{ my $b = ... ; $a = $b->get_a();
источник

b

basiliscos in Беседка Perl-групп
по правилам C  нельзя
источник

b

basiliscos in Беседка Perl-групп
если делать "втупую", то будет segfault
источник

AP

Anton Petrusevich in Беседка Perl-групп
угу, поскольку юз афте фри
источник

b

basiliscos in Беседка Perl-групп
если не втупую, то надо копировать A, и отдавать его во владение
источник

b

basiliscos in Беседка Perl-групп
но, внимание, конструктор копирования не всегда доступен )
источник

b

basiliscos in Беседка Perl-групп
и всё
источник