cats en tags

RO/cmd/xml2txt/xml2txt.go

@@ -90,7 +90,7 @@ func main() {
 		fp, err := os.Create("out/" + filename[:len(filename)-4] + ".txt")
 		x(err)
 		for _, cat := range item.Cats {
-			x(fmt.Fprintf(fp, "##META text cat = %s\n", fixSpace(cat)))
+			x(fmt.Fprintf(fp, "##META text tag = %s\n", fixSpace(cat)))
 		}
 		x(fp.WriteString(text))
 		x(fp.Close())

RO/txt2corpus.sh

@@ -58,6 +58,9 @@ Alpino -flag treebank xml debug=1 end_hook=xml user_max=900000 -parse < $corpus.
 cd xml
 alto -o $corpus.data.dz *.xml 2> /dev/null
 
+# telling per bericht, niet per zin
+/net/corpora/nlnieuws/namen.sh -x 10 -s $corpus.data.dz > $corpus.tag.txt
+
 cd ../..
 rm -fr out