Как мне вызвать событие в модуле PerlNet?

Question

Я использую PDK 7.3 в качестве инструмента разработки для разработки приложений с использованием .NET и Perl.

Я хочу встроить Perl в dll, совместимую с .NET, и этот модуль может вызвать событие, которое может обработать приложение .NET GUI.

Я не могу найти документацию по этому поводу. Насколько я знаю, PDK 7.3 не поддерживает реализацию делегатов.

Это правда? Есть ли у меня варианты?

Answer 1

Я написал электронное письмо Яну Дюбуа из компании ActiveState. Он предложил способ реализации механизма обратного вызова для него.

Надеюсь, что это поможет.

===========================================

Привет Минь,

Вы можете реализовать делегата, просто отлично в PerlNET, вы просто не можете объявить в нем новые типы делегатов.

Я приложил некоторый пример кода, который определяет делегат в Perl и позже передает его в C #. Вам нужно будет разделить части на отдельные файлы и скомпилировать их вручную; код вырван из некоторых регрессионных тестов, и у вас не будет остальной части тестового набора, чтобы запустить его как есть. (Похоже, форматирование также немного обрезано, но цель кода должна быть ясной).

Приветствия

1017 *-январь *

#!./perl -w

# Define some properties and fields in perl and try to access them.
print "1..1\n";
require 'setup.pl';
csc("-target:library DB.cs");
cleanup("DB.dll");
plc(-target => "library", -out => "P.dll", -r => "DB.dll", "P.pm");
csc("test.cs -r:DB.dll -r:P.dll");
cleanup("./test.exe");
my $res = `./test.exe`;
print "----\n$res----\n";
print "not " unless $res eq <<'EOT';
XXX 65
XXX 66
XXX 67
XXX 68
XXX 69
XXX 70
XXX 71
XXX 4.2
XXX 4.30000019073486
XXX 4.4
XXX a
XXX 1
XXX ""
XXX Hi
XXX <undef>
EOT
print "ok 1\n";
__END__

======================= test.cs =====================

using System;

class main : IPrint
{
    public static void Main(string[] args)
    {
         P p = new P(new main());
         DataBase db = new DataBase();
         db.Add((byte)65);
         db.Add((short)66);
         db.Add((int)67);
         db.Add((long)68);
         db.Add((uint)69);
         db.Add((ushort)70);
         db.Add((ulong)71);
         db.Add(4.2D);
         db.Add(4.3F);
         db.Add(4.4M);
         db.Add('a');
         db.Add(true);
         db.Add(false);
         db.Add("Hi");
         db.Add(null);
         db.Scan(p.handler);
    }

    main() {}

    public void print(string s) {
         Console.WriteLine(s);

   }
}

======================= DB.cs =====================

using System;
using System.Collections;

public delegate void ProcessItem(Object i);
public class DataBase : ArrayList {
    public DataBase() {}
    public void Scan(ProcessItem handler) {

        foreach (object o in this) {
            handler(o);
        }
    }

}

public interface IPrint {
    void print(string s);

}

======================= P.pm =====================

package P;

=for interface

interface ProcessItem;  # a delegate type
interface IPrint;
interface System.Object;

interface P {
    static P P(IPrint ip);
    readonly ProcessItem handler;
    void x(System.Object y);
    private field IPrint ip;
}

=cut

sub P {
    my($self, $ip) = @_;
    $self->{ip} = $ip;
}

sub handler {
    my $self = shift;
    return ProcessItem->new($self, "x");
}

sub x {
    my($self, $obj) = @_;
    $obj = "<undef>" unless defined $obj;
    $obj = '""' unless length $obj;
    $self->{ip}->print("XXX $obj");
}

1;