summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/context/perl/utiplug.pm
blob: 2bc162e1e385a2780ebb5b02986890097237de85 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
package utiplug ;

my @data ;
my @result ; 

sub utiplug::initialize 
  { @data = () } 

sub utiplug::process
  { @data = sort @data ;
    for (my $i=0; $i<@data; $i++) 
      { @result[$i] = "\\plugintest\{$i\}\{$data[$i]\}" } }  

sub utiplug::handle     
  { my ($self,$text,$rest) = @_ ; push @data, $text } 

sub utiplug::identify
  { return "utiplug test plugin" }

sub utiplug::report
  { my $keys = @data ; 
    if ($keys) 
      { return ("done", "keys:$keys") }
    else
      { return ("nothing done") } }

sub utiplug::results
  { return @result }

1 ;