LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

minor tweaks, still testing against GNU manuals and updating as I go

This commit is contained in:
david 2002-02-21 14:04:05 +00:00
parent 4341656bd6
commit 0895b501f0
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
LDP/texi2db/texi2db
View File

@ -296,6 +296,7 @@ $replacement = "";
# '@@' =>'@', # handled specially to simplify parsing
# '@\{' =>'{',
# '@\}' =>'}',
# '@,{c}' =>'¸',
'@ ' =>' ', # punctuation and typographic characters
'@-' =>'¯',
@ -400,7 +401,6 @@ $replacement = "";
'@O{}' =>'Ø',
'@o{}' =>'ø',
'@ss{}' =>'ß',
'@,{c}' =>'¸', # cedilla (yes, this is strange)
'@error{}' =>'error-->', # glyphs used in examples
'@equiv{}' =>'≡',
@ -947,6 +947,7 @@ TAG: while ($line =~ /\@\w+\{[^\{]*?\}/) {
$tagplain =~ s/\@//;
$contents = $command;
$contents =~ s/.*\{(.*)\}/\1/;
&message("CMDLINE: $line") if ($verbose > 2);
&message("CMD: $command, tag: $tag, tagplain: $tagplain, contents: $contents") if ($verbose > 2);
# substitutions (we only want to catch @{} type tags here)
@ -1054,9 +1055,12 @@ TAG: while ($line =~ /\@\w+\{[^\{]*?\}/) {
# This uses a presorted array of keys in descending order,
# so we see @ss before @s, etc.
#
for $key (@substitutionkeys) {
foreach $key (@substitutionkeys) {
$pattern = quotemeta($key);
$line =~ s/$pattern/$substitutions{$key}/g;
if ($line =~ /$pattern/) {
&message("matched character code: $key") if ($verbose > 2);
$line =~ s/$pattern/$substitutions{$key}/g;
}
}
# unusual stuff to deal with
@ -1092,6 +1096,7 @@ sub markspecial {
$line =~ s/\@\@/DCM_AT/g;
$line =~ s/\@\{/DCM_LB/g;
$line =~ s/\@\}/DCM_RB/g;
$line =~ s/\@\,{c\}/DCM_CD/g;
# special handling for the @verb{} command, which contains
# within it special characters which are NOT to be interpreted.
@ -1137,21 +1142,27 @@ sub markspecial {
$line =~ s/DCM_VERB/\@verb/g;
}
# We do this twice in case one of these was inside a @verb statement
#
$line =~ s/\@\@/DCM_AT/g;
$line =~ s/\@\{/DCM_LB/g;
$line =~ s/\@\}/DCM_RB/g;
$line =~ s/\@\,{c\}/DCM_CD/g;
}
sub unmarkspecial {
$_[0] =~ s/DCM_AT/\@\@/gi;
$_[0] =~ s/DCM_LB/\@\{/gi;
$_[0] =~ s/DCM_RB/\@\}/gi;
$_[0] =~ s/DCM_CD/\@\{c\}/gi;
}
sub normalizespecial {
$_[0] =~ s/DCM_AT/\@/gi;
$_[0] =~ s/DCM_LB/\{/gi;
$_[0] =~ s/DCM_RB/\}/gi;
$_[0] =~ s/DCM_CD/¸/gi;
}
sub replaceinline {