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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
# -*- mode: Perl -*-
# /=====================================================================\ #
# | algorithmicx | #
# | Implementation for LaTeXML | #
# |=====================================================================| #
# | Part of LaTeXML: | #
# | Public domain software, produced as part of work done by the | #
# | United States Government & not subject to copyright in the US. | #
# |---------------------------------------------------------------------| #
# | Bruce Miller <bruce.miller@nist.gov> #_# | #
# | http://dlmf.nist.gov/LaTeXML/ (o o) | #
# \=========================================================ooo==U==ooo=/ #
package LaTeXML::Package::Pool;
use strict;
use warnings;
use LaTeXML::Package;
# Was algorithmic.sty loaded? If so: BAIL immediately.
# (deeply incompatible)
if (IsDefined(T_CS('\algorithmic'))) {
Warn("unexpected", "\\algorithmic",
"Another package has already defined \\algorithmic, will not load algorithmicx.sty");
return 1; }
# Load core, make a few redefinitions
InputDefinitions('algorithmicx', type => 'sty', noltxml => 1);
Let('\lx@orig@algorithmic', '\algorithmic');
DefMacro('\algorithmic', '\lx@setup@algorithmicx\lx@orig@algorithmic');
DefPrimitive('\lx@setup@algorithmicx', sub {
ResetCounter('ALG@line');
# If we are not within an algorithm environment, step the counter for its id's
if (!grep { $_ eq 'algorithm'; } $STATE->lookupStackedValues('current_environment')) {
RefStepID('algorithm'); }
Let('\list', '\lx@algorithmicx@beginlist');
Let('\endlist', '\lx@algorithmicx@endlist');
Let('\item', '\lx@algorithmicx@item');
Let('\hfill', '\lx@algorithmicx@hfill');
});
# IGNORE \list 1st arg (we'll handle counter stepping in \item)
DefMacro('\lx@algorithmicx@beginlist{}{}', '\lx@algorithmicx@beginlist@{#2}');
DefConstructor('\lx@algorithmicx@beginlist@{}', "<ltx:listing>");
DefConstructor('\lx@algorithmicx@endlist', "</ltx:listing>",
beforeConstruct => sub { $_[0]->maybeCloseElement('ltx:listingline'); });
# Empty lines still get an \item, but they're followed by \nointerlineskip!
# We do NOT want to generate a listingline in those cases.
# (but this seems a little brittle?)
DefMacro('\lx@algorithmicx@item []',
'\@ifnextchar\nointerlineskip{}{\lx@algorithmicx@@item}');
# This imitates \item; just opens the ltx:listingline, but somebody's got to close it.
DefConstructor('\lx@algorithmicx@@item',
"<ltx:listingline xml:id='#id' itemsep='#itemsep'>"
. "#tags",
properties => sub {
my $step = Digest(T_BEGIN, T_CS('\ALG@step'), T_END); # returns formatted line number
my $id = Digest(T_CS('\theALG@line@ID'));
my $tags = Digest(T_BEGIN,
T_CS('\def'), T_CS('\fnum@ALG@line'), T_BEGIN, Tokens(Revert($step)), T_END,
Invocation(T_CS('\lx@make@tags'), T_OTHER('ALG@line')),
T_END);
(id => $id, tags => $tags); },
beforeConstruct => sub { $_[0]->maybeCloseElement('ltx:listingline'); });
# Ideally, these appear within an algorithm environment, and we'd like to number lines within it.
# BUT algorithm package isn't required, so define it here!
NewCounter('algorithm', undef, idprefix => 'alg');
NewCounter('ALG@line', 'algorithm', idprefix => 'l'); # Assuming we're inside an {algorithm}!
# Hopefully this will only get used for right justifying a comment;
# the ltx:text should autoclose at end of line?
DefConstructor('\lx@algorithmicx@hfill',
"<ltx:text cssstyle='float:right'>");
# Protect against obsolete versions of algorithmicx source
DefMacro('\ALG@g{}', '');
DefMacro('\endALG@g', '');
#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1;
|
