summaryrefslogtreecommitdiff
path: root/next-lib/src/parse
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-11-26 14:17:16 +0000
committerbjorn <bjorn@bringert.net>2008-11-26 14:17:16 +0000
commite651a7bceb397f9bada0ae3559f61c30c6171404 (patch)
tree00d5117b82a30c08664b74d89f39ee52d4334b7a /next-lib/src/parse
parent335394de6a9023125f0555e48be76b172c6b7171 (diff)
OALD: More info in generated header.
Diffstat (limited to 'next-lib/src/parse')
-rw-r--r--next-lib/src/parse/oald/asc2gf23
1 files changed, 20 insertions, 3 deletions
diff --git a/next-lib/src/parse/oald/asc2gf b/next-lib/src/parse/oald/asc2gf
index c30840713..3b27e3022 100644
--- a/next-lib/src/parse/oald/asc2gf
+++ b/next-lib/src/parse/oald/asc2gf
@@ -374,9 +374,26 @@ open (CNC, '>', $cncfile);
# print a nice comment at the top
-my $header = "-- English lexicon for GF, produced from OALD machine-readable dictionary.\n"
- . "-- Generated by asc2gf, Bjorn Bringert Nov 2008\n"
- . "-- based on asc2lex, Matthew Purver Nov 2001\n"
+my $header = "-- English lexicon for GF, produced from:\n"
+ . "-- Oxford advanced learner's dictionary of current English:\n"
+ . "-- expanded 'computer usable' version compiled by Roger Mitton\n"
+ . "-- The computer usable version is transcribed from:\n"
+ . "-- Oxford advanced learner's dictionary of current English\n"
+ . "-- A.S. Hornby ; with the assistance of A.P. Cowie [and] J. Windsor Lewis.\n"
+ . "-- 3rd. ed., London : Oxford University Press, 1974.\n"
+ . "-- Distributed as 'dict0710' by:\n"
+ . "-- Oxford Text Archive\n"
+ . "-- Oxford University Computing Services\n"
+ . "-- 13 Banbury Road\n"
+ . "-- Oxford\n"
+ . "-- OX2 6NN\n"
+ . "-- Under these conditions:\n"
+ . "-- Freely available for non-commercial use provided that this header is\n"
+ . "-- included in its entirety with any copy distributed.\n"
+ . "--\n"
+ . "-- GF version generated by asc2gf, Bjorn Bringert Nov 2008\n"
+ . "-- based on asc2lex, Matthew Purver Nov 2001\n"
+ . "-- http://www.stanford.edu/~mpurver/software.html\n"
. "\n";
print ABS $header;
print CNC $header;