#
# set -x
# Globals
#
PATH=/bin:/usr/bin:/etc:/etc/conf/bin
tmp=/tmp/tcp$$
ROOT=
CONF=${ROOT}/usr/sys/conf
DEVDIR=${ROOT}/dev
ETC=${ROOT}/etc
TCP_CONF=${ROOT}/usr/lib/tcprt
TCP_IF=${TCP_CONF}/if.conf
TCPPERM=${ETC}/perms/tcprt                      # permlist of this product
INET=${ROOT}/usr/sys/inet
FAIL=0                          ## Added by Aaron on 12/01/95
OK=1                            ##

# function definitions
#
# usage: safemv file1 file2
# move file1 to file2 without chance of interruption
safemv() {
        trap "" 1 2 3 15
        mv $1 $2
        trap 1 2 3 15
}

# usage: safecopy file1 file2
# copies file1 to file2 without chance of interruption
safecopy() {
        trap "" 1 2 3 15
        cp $1 $2
        trap 1 2 3 15
}

#
# prompt the user to answer a yes no question or 'q' to quit
# Usage:
#       prompt_yn "Message" default
prompt_yn() {
        mesg=$1
        default=$2

        while :
        do
                echo "${mesg} (y/n) [${default}] or 'q' to quit: \c"
                read result

                case $result in
                q|Q) result="Q"; return $FAIL;;
                y|Y) result="Y"; return $OK;;
                n|N) result="N"; return $OK;;
                "") result=`echo $default | tr "yn" "YN"`; return $OK;;
                esac

                echo "Illegal value, please type 'y' 'n' or 'q'"
        done
}

# Prompt for yes or no answer with message passed as argument -
# returns non-zero for no
getyn() {
        while   echo "\n$* (y/n/q) \c">&2
        do      read yn rest
                case $yn in
                        [yY]) return 0                          ;;
                        [nN]|[qQ]) return 1                     ;;
                *)      echo "Please answer y,n or q" >&2       ;;
                esac
        done
}

# print a prompt
#
p() {
        set -f
        /bin/echo $*
        set +f
        return $?
}

# Remove temp files and exit with the status passed as argument
cleanup() {
        trap '' 1 2 3 15
        [ "$tmp" ] && rm -f $tmp*
        exit $1
}



# Re-link new kernel
relink() {
    cd /etc/conf/bin
    if [ -z "$_NOPROMPT" ] ; then
        echo "\nRe-linking the kernel ... \c" >&2
    fi
    ./idbuild -B
    return 0
}

#
# Edit the sdevice file to remove the driver
edrmvdlk() {
                ed -s $1 << TOAST > /dev/null
/^$1/
d
a
dlkpci     N       4       5       1       2       0       0       0       0
.
w
q
TOAST
}

addhex() {
echo "$1 $2" | nawk ' {
        printf("%x", atoh($1) + atoh($2));
    }
    function atoh(number) {
        i = 0
        j = length(number)
        result = 0
        while ( i < j ) {
            result = result + (hexval(substr(number,j - i,1)) * (16 ^ i))
            i = i + 1
        }
        return result
    }
    function hexval(letter) {
        if (letter == "a") return 10 + 0
        if (letter == "b") return 11 + 0
        if (letter == "c") return 12 + 0
        if (letter == "d") return 13 + 0
        if (letter == "e") return 14 + 0
        if (letter == "f") return 15 + 0
        return (letter + 0)
    }'
}

#
# Prompt the user to make a selection a list of values
# Usage:
#       prompt_select "Message" default "value_list"
prompt_select() {
        mesg=$1
        default=$2
        values=$3

        while :
        do
                echo "${mesg} (${values}) [${default}] or 'q' to quit: \c"
                read result
                case $result in
                Q|q)
                        result="Q"
                        return $FAIL
                        ;;
                "")
                        result=$default
                        ;;
                esac

                for i in $values
                do
                        if [ "$i" = "$result" ]
                        then
                                return $OK
                        fi
                done
                echo "Illegal value, must be one of (${values})"
        done
}

#
# select_PCI()
#
# Let user to select PCI type used by driver to figure out PCI configuration
# space.
#
select_PCI() {
        PCI_type=0;

        echo ""
        echo "Note:"
        echo "  The default is to use the PCI BIOS calls (in 32-bit protected"
        echo "  mode). Some systems may not support these calls, in which case"
        echo "  there will be problems at boot time. If using a system that"
        echo "  does not support 32-bit protected mode PCI BIOS calls, direct"
        echo "  hardware accesses must be used."
        echo "  PCI mechanism 1 or PCI mechanism 2 should be selected depending"
        echo "  on your machine support."
        echo ""
        echo ""
        echo "Please specify the way used by PCI to access hardware........."
        echo ""
        echo "  0. Use 32-bit protected mode PCI BIOS calls."
        echo "  1. Direct access to the HW, using PCI mechanism 1."
        echo "  2. Direct access to the HW, using PCI mechanism 2."
        echo ""
        prompt_select " Enter number of PCI access type selection" $PCI_type "0 1 2"
        if [ "$result" = "Q" ]
        then
                  cleanup $FAIL
        fi
        PCI_type=$result
        echo ""
        case $PCI_type in
          0) echo "PCI access type : Use 32-bit protected mode PCI BIOS calls";
             PCIaccess="DCE_USE_PCI_BIOS";
             ;;
          1) echo "PCI access type : Direct access to the HW, using PCI mechanism 1.";
             PCIaccess="DCE_USE_PCI_MECHANISM1";
             ;;
          2) echo "PCI access type : Direct access to the HW, using PCI mechanism 2.";
             PCIaccess="DCE_USE_PCI_MECHANISM2";
             ;;
        esac
        echo ""
        ed -s /tmp/dlk/Space.c << TOAST > /dev/null
/#define DCE_HW_ACCESSES/
d
i
#define DCE_HW_ACCESSES           $PCIaccess
.
w
q
TOAST

}

#
# system_dce()
#
# function to produce the info for the System file for the DC21x4
# boards
#
# The info produced :
#
# The interrupt level - from the user
# The slot number (and IO space used by the board ) - from the user
# The buffers consumed by the driver.
#
system_dce() {
        bd=$1

#
# Added by Aaron on 11/24/95
#
        if [ $bd -eq 0 ]
        then
                select_PCI
        fi

        MediaType=0;
        LineSpeed=0;

        echo "Please choose the line speed that you want............"
        echo ""
        echo "  0. Use default value."
        echo "  1. 10 MB/sec mode."
        echo "  2. 100 MB/sec mode."
        echo "  3. Automatic detection between 10 MB/sec and 100 MB/sec mode."
        echo ""
        prompt_select " Enter number of line speed selection" $LineSpeed "0 1 2 3"
                LineSpeed=$result
        echo ""
        case $LineSpeed in
          0) echo "Line Speed : Use default value.";
             SerialTXT="XXX_DC21140_DEF_SERIAL_MODE";
             ;;
          1) echo "Line Speed : 10 MB/sec mode.";
             SerialTXT="XXX_TP";
             ;;
          2) echo "Line Speed : 100 MB/sec mode.";
             SerialTXT="XXX_100TX";
             SIAModeTXT="XXX_DC2104X_DEF_SERIAL_MODE";
             ;;
          3) echo "Line Speed : AUTOSENSE_MODE";
             SerialTXT="XXX_AUTOSENSE";
             ;;
        esac
        echo ""
##        if [ $LineSpeed -eq 2 ]
##        then
##          prompt_yn "Do you want to use point to point full duplex mode?" "n" || cleanup $FAIL 1
##          [ $result = "Y" ] && SerialTXT="XXX_SYM_SCR_FULL_DUPLEX"
##        else
          echo "Please choose the media mode that you want............"
          echo ""
          echo "  0. Use default value."
          echo "  1. Point to point full duplex twisted pair connection."
#
# Masked by Aaron on 03/14/96
#
##          echo "  2. AUI connection."
          echo "  2. BNC connection."
          echo "  3. Twisted pair connection."
          echo "  4. Automatic detection between TP BNC."
          echo "  5. Twisted pair connection with linkfail test ignore & set polarity plus."
          echo ""
          prompt_select " Enter number of media mode selection" $MediaType "0 1 2 3 4 5"
               MediaType=$result
          echo ""
          case $MediaType in
             0) SIAModeTXT="XXX_DC2104X_DEF_SERIAL_MODE";
                echo "Media Mode : Use default value.";
                ;;
             1) SIAModeTXT="XXX_TP_FULL_DUPLEX";
                SerialTXT="XXX_TP_FULL_DUPLEX";
                [ $LineSpeed -eq 2 ] && SerialTXT="XXX_100TX_FULL_DUPLEX";
                echo "Media Mode : TP_FULL_DUPLEX_MODE";
                ;;
#
# Masked by Aaron on 03/14/96
#
##             2) SIAModeTXT="XXX_AUI";
##                echo "Media Mode : AUI_MODE";
##                ;;
             2) SIAModeTXT="XXX_BNC";
                echo "Media Mode : BNC_MODE";
                ;;
             3) SIAModeTXT="XXX_TP";
                echo "Media Mode : TP_MODE";
                ;;
             4) SIAModeTXT="XXX_AUTOSENSE";
                echo "Media Mode : AUTOSENSE_MODE";
                ;;
             5) SIAModeTXT="XXX_TP_LINK_DISABLE";
                echo "Media Mode : TP_LINK_DISABLE_MODE";
                ;;
          esac
##        fi

        ed -s /tmp/dlk/Space.c << TOAST > /dev/null
/#define XXX_DC2104X_SIA_MODE_$bd/
d
i
#define XXX_DC2104X_SIA_MODE_$bd        $SIAModeTXT
.
/#define XXX_DC21140_SERIAL_MODE_$bd
d
i
#define XXX_DC21140_SERIAL_MODE_$bd        $SerialTXT
.
w
q
TOAST

##
## Added by Aaron on 04/02/96
## to solve the problem of add/remove driver on SCO OpenServer
## if "dlkpci0" line still in sdevice and is 'N' then add driver and
## re-build will cause
## kslgen: "cannot determine major/minor numbers for node /dev/dlkpci0
##
##        ed -s /etc/conf/cf.d/sdevice << TOAST > /dev/null
##/dlkpci$brd
##d
##.
##w
##q
##TOAST

    BIO=0
    EIO=0
    IRQ=0

        currdir=`pwd`

###        cd /etc/conf/cf.d

###        echo "Modifying Streams Data Configuration Parameters"

###        sparam=0
###        sparam=`./configure -y NBLK2048`
###       echo -n Value of NBLK2048 changed from $sparam t
###        sparam=`expr $sparam + 10`
###        echo o $sparam
###        idtune -f NBLK2048 $sparam

###        sparam=0
###        sparam=`./configure -y NBLK64`
###        echo -n Value of NBLK64 changed from $sparam t
###        sparam=`expr $sparam + 10`
###        echo o $sparam
###        idtune -f NBLK64 $sparam

###        cd $currdir

        NMINORS="1"
}

# main()

cd /
tput clear

# Add drivers via configure
#

while   echo "Do you wish to install or delete the network driver (i/d/q) \c"
do      read ANSWER
        case $ANSWER in
        I|i)
                break
                ;;
        D|d)
                cd /etc/conf/bin
                idinstall -d -e dlkpci
                /usr/sbin/netinfo -r -d dlkpci_3
                /usr/sbin/netinfo -r -d dlkpci_2
                /usr/sbin/netinfo -r -d dlkpci_1
                /usr/sbin/netinfo -r -d dlkpci_0
                /etc/confnet.d/configure -r -p inet -d dlkpci_3
                /etc/confnet.d/configure -r -p inet -d dlkpci_2
                /etc/confnet.d/configure -r -p inet -d dlkpci_1
                /etc/confnet.d/configure -r -p inet -d dlkpci_0

##
##Added by Aaron Tseng on 10/23/97, disable start IPX/SPX at booting time
##
                /usr/sbin/nwcm -s ipx_start_at_boot=off

                cd /
                # Relink the kernel with the new driver information
                if [ -z "$_NOPROMPT" ] ; then
                    if getyn "\nDo you wish to relink the kernel now?"
                    then
                      relink
                    else
                      echo "\nChanges will not take effect until the kernel is relinked." >&2
                    fi
                else
                    relink
                fi
                cleanup 0
                ;;
        Q|q)
                cleanup 0
                ;;
        *)      echo "Please answer 'i', 'd' or 'q'."
                ;;
        esac
done
echo    " "

# space.c

cd /tmp
if [ ! -d dlk ] ; then
        mkdir dlk
fi
cd dlk

if [ ! -f /usr/lib/tcprt/dlk/spacedce.c ] ; then
        echo ""
        echo "Can not find spacedce.c at /usr/lib/tcprt/dlk directory"
        exit 0
fi
cp /usr/lib/tcprt/dlk/spacedce.c ./Space.c

cd /

brd=0

cfg0=N
cfg1=N
cfg2=N
cfg3=N

while getyn "Do you want to configure Board_$brd?"
do
    echo "\nBoard_$brd configuring ..."

    case "$brd" in
    0)
        cfg0=Y
        ;;
    1)
        cfg1=Y
        ;;
    2)
        cfg2=Y
        ;;
    3)
        cfg3=Y
        ;;
    esac

    /usr/sbin/netinfo -a -d dlkpci_$brd
    /etc/confnet.d/configure -i -p inet -d dlkpci_$brd

###
### Let user change the setting of DFE-500 card
### This call must be put after 'idinstall' because /etc/conf/pack.d/dlkpci/space.c
### is created after 'idinstall'
###
    system_dce  $brd

    brd=`expr $brd + 1`

done

if [ -f /etc/netware/nwconfig ]
then
    echo "\n\t0: dlkpci_0 adpater 0"
    echo "\t1: dlkpci_1 adapter 1"
    echo "\t2: dlkpci_2 adapter 2"
    echo "\t3: dlkpci_3 adapter 3"
    echo "Select one adapter to support Netware: \c"
    read port
##
##Added by Aaron Tseng on 10/23/97, enable start IPX/SPX at booting time
##
    /usr/sbin/nwcm -s lan_1_adapter="/dev/dlkpci_$port"
    /usr/sbin/nwcm -s ipx_start_at_boot=on
fi


cd /tmp
if [ ! -d dlk ] ; then
        mkdir dlk
fi
cd dlk


#
# mdevice(4)
#
# dlkpci -       Device name
# Ihp   -       Function list, init routine, halt routine, poll routine
# iScHM -       Characteristics of driver, installable, STREAMS, character,
#               control hardware, multiple major numbers
# DCE   -       Handler prefix, ex: DCEinit()...
# 0     -       Block Major number
# 0-3   -       Character Major number
# 1     -       Minimum units
# 4     -       Maximum units
# -1    -       DMA channel, -1 means does not use DMA
#
echo "dlkpci   Ihp  iSchMf  dce   0    0-3       1       4       -1" > ./Master
##cp /usr/lib/tcprt/dlk/Master ./Master

#
# sdevice(4)
#
# dlkpci    -      Device name
# Y/N    -      Configure
#   4    -      Unit
#   5    -      IPL (Interrupt Privilege Level)
#   0    -      Type, does not require an interrupt line
#   0    -      Vector, no vector
#   0    -      SIOA, Start I/O Address
#   0    -      EIOA, End I/O Address
#   0    -      SCMA, Start Controller Address
#   0    -      ECMA, End Controller Address
#
echo "dlkpci  $cfg0  4  5   1   0    0    0  0  0" > ./System
if [ $brd -gt 1 ]; then
   echo "dlkpci  $cfg1  4  5   1   0    0    0  0  0" >> ./System
fi
if [ $brd -gt 2 ]; then
   echo "dlkpci  $cfg2  4  5   1   0    0    0  0  0" >> ./System
fi
if [ $brd -gt 3 ]; then
   echo "dlkpci  $cfg3  4  5   1   0    0    0  0  0" >> ./System
fi
##cp /usr/lib/tcprt/dlk/System ./System

#
# idmknod(1M)
#
# clone         -       DSP internal name
# dlkpci_0         -       name of node to be inserted
# c:0           -       character device and major number 0
# dlkpci           -       minor device number
#
echo "clone     dlkpci_0    c:0       dlkpci" > ./Node
if [ $brd -gt 1 ] ; then
   echo "clone     dlkpci_1    c:1       dlkpci" >> ./Node
fi
if [ $brd -gt 2 ] ; then
   echo "clone     dlkpci_2    c:2       dlkpci" >> ./Node
fi
if [ $brd -gt 3 ] ; then
   echo "clone     dlkpci_3    c:3       dlkpci" >> ./Node
fi


# Driver.o
cp /usr/lib/tcprt/dlk/dlkpci.o ./Driver.o

###        echo "Modifying Streams Data Configuration Parameters"
#/etc/conf/bin/idtune -m -c NBLK64 20
#/etc/conf/bin/idtune -m -c NBLK2048 100

if [ -d /etc/conf/pack.d/dlkpci ] ; then
        idinstall -u -m -s -n -o -p -e dlkpci
else
        idinstall -a dlkpci
fi


cd .. ; rm -rf dlk

echo ""

ed -s /etc/conf/mdevice.d/dlkpci << TOAST > /dev/null
/ddi 5/
d
w
q
TOAST


cd /

# Relink the kernel with the new driver information
if [ -z "$_NOPROMPT" ] ; then
    if getyn "\nDo you wish to relink the kernel now?"
    then
        relink
    else
        echo "\nUNIX will not work until the kernel is relinked." >&2
        cleanup 0
    fi
else
    relink
fi

echo "\n\treboot the system\n" >&2