Skip to content

Instantly share code, notes, and snippets.


Denis DoubleDi

View GitHub Profile
View gist:17c230e1edf5528f12a11622f76a4dc1
/* Запуск программы */
start :- /* создаём диалоговое окно */
new(DW, dialog('Окно моей программы')),
/* создаём поле Picture для вывода графических
фигур и задаём его размеры */
new(Picture, picture),
send(Picture, width(350)),
send(Picture, height(350)),
/*добавляем в это диалоговое окно список
объектов*/send_list(DW,append, /*графическое поле*/
View typemap
$type typemap__struct = ($type)$arg;
SV *x;
SV *y;
sv_setnv(x, typemap__struct->x);
sv_setnv(y, typemap__struct->y);
HV *point = newHV();
hv_store((HV *)point, \"x\", 1, x, 0);
hv_store((HV *)point, \"y\", 1, y, 0);
SV *ref = newRV_inc((SV*)point);
use strict;
use warnings;
use feature "say";
use AnyEvent::HTTP;
use Web::Query;
use DDP;
my $index = 1;
my $results_hash = {};