#######
#
# E-scripts on dict.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/dict.e>
#           or at <http://angg.twu.net/e/dict.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######





# «.unpacking-jargon»		(to "unpacking-jargon")
# «.english-to-portuguese»	(to "english-to-portuguese")
# «.selecting_a_dictionary»	(to "selecting_a_dictionary")
# «.external-servers»		(to "external-servers")


#*
apt-get install dict dictd dict-gcide dict-jargon
#*



# (find-progoutput "dpkg -l" "dict-")
# (find-available "dictd" "dictionary databases" "They are:")
# (find-available "dict-gcide")
# (find-available "dict-wn")
# (find-available "dict-jargon")
# (find-available "dict-foldoc")
# (find-available "dict-vera")

# (find-status   "dict-gcide")
# (find-vldifile "dict-gcide.list")
# (find-udfile   "dict-gcide/")
cd /usr/share/dictd/

#*
cd $SDEBIAN
agrep dict ls-lR.i > ~/o
#*
# (find-fline "~/o")

#  1149228 dict-easton
#    21736 dict-elements
#  2149144 dict-foldoc
#  2213548 dict-gazetteer
#    59874 dict-hitchcock
#   580140 dict-jargon
# 13001354 dict-web1913
#  8469070 dict-wn
#    49504 dict
#   158382 dictd

# (find-available "dict-easton")
# (find-available "dict-elements")
# (find-available "dict-foldoc")
# (find-available "dict-gazetteer")
# (find-available "dict-hitchcock")
# (find-available "dict-jargon")
# (find-available "dict-web1913")
# (find-available "dict-wn")
# (find-available "dict")
# (find-available "dictd")
# (find-available "wordinspect")

# (find-available "diction")

# (find-status   "dict")
# (find-vldifile "dict.list")
# (find-udfile   "dict/")

# (find-udfile "dict/examples/example.dictrc.gz")
# (find-udfile "dict/README.Debian.gz")
# (find-udfile "dict/NEWS.Debian.gz")
# (find-udfile "dict/NEWS.gz")
# (find-udfile "dict/changelog.Debian.gz")
# (find-udfile "dict/copyright")
# (find-man "1 colorit")
# (find-man "1 dict")
# (find-man "1 dictl")
# (find-fline "/usr/bin/dict")
# (find-fline "/usr/bin/dictl")
# (find-fline "/usr/bin/colorit")
# (find-fline "/etc/dictd/dict.conf")
# (find-udfile "dict/changelog.gz")





#####
#
# Unpacking the Jargon dictionary into a single text file
# 2003jul01
#
#####

# «unpacking-jargon»  (to ".unpacking-jargon")
# (find-status "dict-jargon")
# (find-vldifile "dict-jargon.list")
# (find-fline "/usr/doc/dict-jargon/")
#*
zcat /usr/share/dictd/jargon.dict.dz > /tmp/jargon.dict
#*
# (find-fline "/tmp/jargon.dict")


# (find-available "leksbot")




####
#
# English -> Portuguese
# 2004apr04
#
####

# «english-to-portuguese»  (to ".english-to-portuguese")

# (find-status "dictd")
# (find-vldifile "dictd.list")
# (find-fline "/usr/doc/dictd/")
# (find-fline "/usr/doc/dictd/README.Debian.gz" "/etc/dictd.order")
# (find-man "1 dictzip")
# (find-man "1 dictunzip")
# (find-man "1 dictzcat")

# (find-status "dictfmt")
# (find-vldifile "dictfmt.list")
# (find-fline "/usr/doc/dictfmt/")
# (find-man "1 dictfmt")

# http://www.freedict.de/How_make_dictionaries.html
# http://me.in-berlin.de/~myrkr/dictionary/index.html

# The "eng-por" dictionary in freedict.sf is empty! Weird...
# http://freedict.sourceforge.net/download/linux/eng-por.tar.gz
# http://freedict.sourceforge.net/download/linux/swe-eng.tar.gz

# This one is ok:
# http://ftp.debian.org/debian/pool/main/f/freedict/

#*
rm -Rv /tmp/eng-por/
mkdir  /tmp/eng-por/
cd     /tmp/eng-por/
debtarxvzf $S/http/ftp.debian.org/debian/pool/main/f/freedict/dict-freedict-eng-por_1.1-4_all.deb

cd /tmp/eng-por/usr/share/dictd/
zcat freedict-eng-por.dict.dz > /tmp/eng-por/eng-por.dict

#*
# (find-fline "/tmp/eng-por/eng-por.dict")

(defun ascstr (i lasti &optional default)
  (while (<= i lasti)
    (insert (cond ((char-valid-p i) i)
		  (default default)
		  (t i)))
    (setq i (+ i 1))))

(ascstr 332000 333000 " ")






####
#
# adding a dictionary by hand
# 2004apr06
#
####

# (find-status "dictd")
# (find-vldifile "dictd.list")
# (find-fline "/usr/doc/dictd/")

# (find-status "dict-jargon")
# (find-vldifile "dict-jargon.list")
# (find-vldifile "dict-jargon.postinst")
# (find-fline "/usr/doc/dict-jargon/")

# (find-man "8 dictdconfig")
# (find-fline "/etc/dict.conf")
# (find-fline "/etc/dictd.conf")
# (find-fline "/var/lib/dictd/db.list")



#####
#
# selecting a dictionary
# 2005jun26
#
#####

# «selecting_a_dictionary»  (to ".selecting_a_dictionary")
# (find-man "1 dict")
# (find-sh "dict            evil")
# (find-sh "dict -d jargon  evil")
# (find-sh "dict -d jargon 'evil and rude'")

# (find-man "1 dict" "-c file")





#####
#
# external servers
# 2007may21
#
#####

# «external-servers»  (to ".external-servers")
# (find-vldifile "dict.conffiles")
# (find-fline "/etc/dictd/dict.conf")
# Hmm, it seems that in the default config for dict is this...
# server localhost 
# server dict.org
# server dict0.us.dict.org
# server alt0.dict.org

* (eepitch-shell)
sudo dselect update

# (find-zsh "installeddebs | sort")
# (find-zsh "availabledebs | sort" "\ndict-")
# (find-angg ".zshrc" "installeddebs")
# (find-angg ".zshrc" "prep-apti")
# (find-angg ".zshrc" "prep-apti" "prep-apti-dict")

apti dict dictd dict-gcide dict-jargon
apti dict-wn
apti dict-foldoc

# (find-sh "dict dawn")

# (find-status   "dict")
# (find-vldifile "dict.list")
# (find-udfile   "dict/")
# (find-fline "/etc/dictd/dict.conf")









http://www.hyperdictionary.com/dictionary/gray




# http://www.ietf.org/rfc/rfc2229.txt
# (find-rfcfile "rfc2229.txt")



#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: