shithub: riscv

ref: ce38e57e97b39b0cde532ff6a83b8881de6d2f3a
dir: /rc/bin/doc2txt/

View raw version 
#!/bin/rc

rfork en

if(! ~ $#* 0 1) {
	echo 'Usage: doc2txt [file.doc]' >[1=2]
	exit usage
}

switch($#*){
case 0
	cat >/tmp/doc2txt.$pid
	file=/tmp/doc2txt.$pid
case 1
	file=$1
}
aux/olefs $file || { 
	echo 'doc2txt: couldn''t mount word document' >[1=2]
	rm -f /tmp/doc2txt.$pid
	exit word
}

if(! test -f /mnt/doc/WordDocument) {
	echo 'doc2txt: is an msoffice doc but not a word document' >[1=2]
	rm -f /tmp/doc2txt.$pid
	exit worddoc
}

aux/mswordstrings /mnt/doc/WordDocument | tcs -f microsoft -t utf |fmt  | uniq
unmount /mnt/doc
rm -f /tmp/doc2txt.$pid