view release on metacpan or  search on metacpan

bin/zen  view on Meta::CPAN

1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
my $caption = $l->{begin_block}->{name};
my $lang = $l->{begin_block}->{lang};
$lang = undef unless exists $latex_listing_supported_languages{$lang};
 
if ($l->{begin_block}->{name}) {
  my $name = $l->{begin_block}->{name};
  print "\\vskip 0.5em \\noindent ";
  if ($name =~ m/^\+\[?([^]]*)/) {
    my $sec = find_section($1);
    my $caption = $sec->{heading};
    print '$[\\![$\\textbf{', latex_escape($caption), '}$]\\!] +\\!\\!\\equiv$';
  } elsif ($name =~ m/^>(.*)/) {
    print '$\\langle$\\textbf{',latex_escape($1), '}$\\rangle\\equiv$';
  } else {
    print "\\{\\textbf{",latex_escape($name),'}\\}$\\equiv$';
  }
}
 
my $options = "firstnumber=$firstnum";
$options .= ",language=$lang" if $lang;
print "\\begin{lstlisting}[$options]\n";

bin/zen  view on Meta::CPAN

1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
last if $l->{end_block};
 
if ($t =~ m/$re_ln_label/) {
  $t = $`;
  $label = $1;
}
 
if ($t =~ m/^(\s*)\[\[(.*)]]\s*$/) {
  my $spaces = $1;
  my @names = split /;/, $2;
  print $spaces, "/*", '!$[\\![$';
  my $n = 0;
  foreach (@names) {
    $n++;
    my ($name, $params) = split /:/,trim($_);
    my $section = find_section($name);
    my $id = $section->{id};
    if ($section->{pattern} && !$params && @{$section->{params}} > 0) {
      my $pat = $section->{pattern};
      my @vals = ($name =~ /^$pat$/g);
      $params = join(',', @vals);