make-sub-lm.gawk

来自「这是一款很好用的工具包」· GAWK 代码 · 共 50 行

#!/usr/local/bin/gawk -f
#
# make-sub-lm --
#	extract a lower-order backoff LM from a higher order one.
#
# usage: make-sub-lm maxorder=<n> lm-file > sub-lm-file
#
# $Header: /home/srilm/devel/utils/src/RCS/make-sub-lm,v 1.2 1998/11/09 05:54:12 stolcke Exp $
#

BEGIN {
	maxorder=2;
}
NF==0 {
	print; next;
}
/^ngram *[0-9][0-9]*=/ {
	order = substr($2,1,index($2,"=")-1);
	if (order <= maxorder) print;
	next;
}
/^\\[0-9]-grams:/ {
	currorder=substr($0,2,1);
	if (currorder <= maxorder) {
		print;
	} else {
		print "\n\\end\\";
		exit;
	}
	next;
}
/^\\/ {
	print; next;
}
currorder {
	if (currorder < maxorder) {
		print;
	} else if (currorder == maxorder) {
		#
		# delete backoff weight for maximal ngram
		#
		if (NF == currorder + 2) {
			$NF = "";
		}
		print;
	}
	next;
}
{ print }