PREPARE

# -*- tcl -*-
# prepare module 'Trf' for distribution

## Make this script completely independent of external packages.
## Assume [pwd] == Toplevel directory of memchan distribution in
## preparation.
##
## This will be run via 'make dist'.

###
##
# ### Helper procedures.
##
###

proc LastChanges {} {
    if {
	[file  exists      ChangeLog.short] &&
	![file isdirectory ChangeLog.short] &&
        [file  readable    ChangeLog.short]
    } {
        set f [open ChangeLog.short r]
        set t [read $f]
        close $f

        set start [string first "Changes from" $t]
        set end $start
        incr end
        set offset [string first "Changes from" [string range $t $end end]]

        if {$offset < 0} {
            set end end
        } else {
            incr end $offset
            incr end -1
        }

        return [string trim [string range $t $start $end]]
        unset t
    }
    return {}
}

proc UpdateAnnounce {} {
    set            fh [open ANNOUNCE r]
    set ano [read $fh]
    close         $fh

    set    fh [open ANNOUNCE w]
    puts  $fh [string map [list @CHANGES@ [LastChanges]] $ano]
    close $fh
    return
}

proc UpdateAnnounceMail {} {
    set            fh [open ANNOUNCE.MAIL r]
    set mail [read $fh]
    close         $fh

    set            fh [open ANNOUNCE r]
    set ano [read $fh]
    close         $fh

    set            fh [open ~/.signature r]
    set sig [read $fh]
    close         $fh

    set    fh [open ANNOUNCE.MAIL w]
    puts  $fh [string map [list @ANO@ [LastChanges] @SIG@ $sig] $mail]
    close $fh
    return
}


###
##
#
# ### Eliminate data not required by a source distribution.
# ### Generate the official documentation in various formats.
# ### Also create the CHANGES file required by the Neosoft CS Archives.
# ### Ensure uptodate configure scripts for TEA and UNIX.
#
##
###

# do it ourself, must not be included into digest files!

file delete -force PREPARE customers zlib.vc
file delete -force md5-crypt/trf_features.h
file delete -force md5-crypt/trf_features.h.orig
file delete -force \
	[glob patches/v7*] \
	mails patches/v8.0a1 patches/v8.0a2 patches/v8.0b1 patches/v8.0b2 \
	[glob patches/*/*.orig] generic/pkgIndex.tcl.in \
	doc/install.tex doc/man.tex doc/html.sty doc/defs.tex \
	[glob patches/nijtmans.*] DEPENDS doc/file doc/delete \
	doc/FUN doc/ascii.man doc/ascii85 doc/scratch-pad \
	doc/code34 doc/Notes doc/ToDo doc/trf.def \
	doc/hash.operation doc/INSTALL doc/INSTALL.optional \
	doc/ROADMAP doc/speed doc/trf.xpm doc/references \
	patches/v8.1b3/gendiff patches/v8.1b3/getorig \
	patches/v8.1b3/getcurrent patches/v8.1b3/setorig \
	patches/v8.1/gendiff patches/v8.1/getorig patches/v8.1/genstubs \
	patches/v8.1/getcurrent patches/v8.1/setorig \
	patches/rc.h patches/patch.mp
file delete -force generic/blowfish generic/idea generic/rc4 generic/safer

file copy ChangeLog.short CHANGES

cd doc
exec ../tools/manpage_regen > /dev/null 2>/dev/null
cd ..

file mkdir                                doc/art/
file rename        htdocs/art/logo100.gif doc/art/
file rename        htdocs/art/logo520.jpg doc/art/
file rename        htdocs/art/logo64.gif  doc/art/
file delete -force htdocs

cd unix ; exec autoconf
cd ..   ; exec autoconf

UpdateAnnounce
UpdateAnnounceMail
file rename ANNOUNCE.MAIL [file join .. [file tail [pwd]].AMAIL]

cd generic
exec tclsh ../tools/genStubs.tcl . trf.decls trfInt.decls
cd ..

# --------------------------------------------------------------

# generate message digests for all files and several digests
puts Generating digests (please wait)...

set files [exec /usr/bin/find . -type f -print]
regsub -all "\n" $files { } files

foreach md {crc crc-zlib adler md5 sha haval ripemd128 ripemd160} {
    puts $md ...
    catch {eval exec md -a $md $files > digests.$md}
}

# and now the tuning
exec      chmod u+w unix mac win tests
eval exec chmod u+x unix/configure [glob tools/*]
eval exec chmod u+x configure mkinstalldirs testshell install-sh

exit