#!/usr/bin/tcl

# Script to copy fvwm2-ade configuration files to a user's home
# directory.

# One command line option--the path to the base fvwm2-ade directory--is
# needed.

# Greg Fall
# November 1997

set userdir $env(HOME)/.fvwm2-ade
set basedir [lindex $argv 0]

# Just to be idiot-proof, make sure $basedir doesn't have a / at the
# end.

set bdlast [expr [string length $basedir] - 1]
if {[string index $basedir $bdlast] == "/"} {

    # Strip the "/"
    set basedir [string range basedir 0 [expr $bdlast - 1]]
}

if {![file exists $userdir]} {
    exec mkdir $userdir
}

if {![file exists $userdir/modules]} {
    exec mkdir $userdir/modules
}

# Search $userdir for the necessary configuration files; copy any that
# are not there.

if {![file exists $userdir/backdrops.m4]} {
    exec cp $basedir/backdropschemes/default $userdir/backdrops.m4
}

if {![file exists $userdir/bbar.m4]} {
    exec cp $basedir/bbarschemes/default $userdir/bbar.m4
}

if {![file exists $userdir/behavior]} {
    exec cp $basedir/behavior $userdir/
}

if {![file exists $userdir/bindings]} {
    exec cp $basedir/bindings $userdir/
}

if {![file exists $userdir/colors.m4]} {
    exec cp $basedir/colorschemes/default $userdir/colors.m4
}

if {![file exists $userdir/fonts.m4]} {
    exec cp $basedir/fontschemes/default $userdir/fonts.m4
}

if {![file exists $userdir/functions]} {
    exec cp $basedir/functions $userdir/
}

if {![file exists $userdir/menus]} {
    exec cp $basedir/menus $userdir/
}

if {![file exists $userdir/modules/FvwmBacker]} {
    exec cp $basedir/modules/FvwmBacker $userdir/modules/
}

if {![file exists $userdir/modules/FvwmBanner]} {
    exec cp $basedir/modules/FvwmBanner $userdir/modules/
}

if {![file exists $userdir/modules/FvwmButtons]} {
    exec cp $basedir/modules/FvwmButtons $userdir/modules/
}

if {![file exists $userdir/modules/FvwmForms]} {
    exec cp $basedir/modules/FvwmForms $userdir/modules/
}

if {![file exists $userdir/modules/FvwmIconBox]} {
    exec cp $basedir/modules/FvwmIconBox $userdir/modules/
}

if {![file exists $userdir/modules/FvwmIconMan]} {
    exec cp $basedir/modules/FvwmIconMan $userdir/modules/
}
if {![file exists $userdir/modules/FvwmIdent]} {
    exec cp $basedir/modules/FvwmIdent $userdir/modules/
}

if {![file exists $userdir/modules/FvwmPager]} {
    exec cp $basedir/modules/FvwmPager $userdir/modules/
}

if {![file exists $userdir/modules/FvwmScroll]} {
    exec cp $basedir/modules/FvwmScroll $userdir/modules/
}

if {![file exists $userdir/modules/FvwmWinList]} {
    exec cp $basedir/modules/FvwmWinList $userdir/modules/
}

if {![file exists $userdir/paths]} {
    exec cp $basedir/paths $userdir/
}

if {![file exists $userdir/styles]} {
    exec cp $basedir/styles $userdir/
}

if {![file exists $userdir/slack] && [file exists $env(HOME)/.fvwm2rc]} {
    exec cp $basedir/slack $userdir/
}

if {[file exists $userdir/slack] && ![file exists $env(HOME)/.fvwm2rc]} {
    exec rm -f $userdir/slack
}

if {![file exists $userdir/titlebars.m4]} {
    exec cp $basedir/titlebarschemes/default $userdir/titlebars.m4
}
