Skip to content

Commit 0a41dd0

Browse files
committed
1.3.3: fixed bug on curly correct - now less aggressive correction
1 parent 4ff6da8 commit 0a41dd0

File tree

3 files changed

+6
-26
lines changed

3 files changed

+6
-26
lines changed

MAT.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@
66
require 'count_only.pl';
77
require 'concordancer.pl';
88

9-
$current_version = "1.3.2";
9+
$current_version = "1.3.3";
1010

1111

1212
#{----------list of windows

README.md

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
# The Multidimensional Analysis Tagger v 1.3.2 for Windows
1+
# The Multidimensional Analysis Tagger v 1.3.3 for Windows
22

33
The Multidimensional Analysis Tagger (MAT) is a program that replicates Biber's (1988) Variation across Speech and Writing tagger for the multidimensional functional analysis of English texts, generally applied for studies on text type or genre variation. The program can generate a grammatically annotated version of the corpus selected as well as the statistics needed to perform a text-type or genre analysis. The program plots the input text or corpus on Biber’s (1988) Dimensions and it determines its closest text type, as proposed by Biber (1989) A Typology of English Texts. Finally, the program offers a tool for visualising the Dimensions features of an input text. More information about the tagger can be found in the manual at the official website of MAT: https://sites.google.com/site/multidimensionaltagger
44

curly_correct.pl

Lines changed: 4 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -11,30 +11,10 @@ sub curly_correct {
1111
}
1212

1313

14-
# Map incompatible CP-1252 characters
15-
$text =~ s/\x82/,/g;
16-
$text =~ s-\x83-<em>f</em>-g;
17-
$text =~ s/\x84/,,/g;
18-
$text =~ s/\x85/.../g;
19-
20-
$text =~ s/\x88/^/g;
21-
$text =~ s-\x89- �/��-g;
22-
23-
$text =~ s/\x8B/</g;
24-
$text =~ s/\x8C/Oe/g;
25-
26-
$text =~ s/\x91/'/g;
27-
$text =~ s/\x92/'/g;
28-
$text =~ s/\x93/"/g;
29-
$text =~ s/\x94/"/g;
30-
$text =~ s/\x95/*/g;
31-
$text =~ s/\x96/-/g;
32-
$text =~ s/\x97/--/g;
33-
$text =~ s-\x98-<sup>~</sup>-g;
34-
$text =~ s-\x99-<sup>TM</sup>-g;
35-
36-
$text =~ s/\x9B/>/g;
37-
$text =~ s/\x9C/oe/g;
14+
$text =~ s//'/g;
15+
$text =~ s//'/g;
16+
$text =~ s//"/g;
17+
$text =~ s//"/g;
3818

3919

4020
open (OUT2, ">$dir//$files[$i]") or die;

0 commit comments

Comments
 (0)