NeVoT 3.22 for NCD Network Audio System (DEC Alpha client)

This is a binary release of NeVoT 3.22 for NCD's Network Audio System
(NAS). The client software is compiled under OSF/1 V3.0. The
requirements are a DEC Alpha running OSF/1 V3.0 and a NAS Audio Server
(e.g. NCD X-terminal).

This release provides all the functionality of NeVoT with the
following exceptions:
	o GSM codec does not function
 	o When conferencing with vat users, vat users show up on NeVoT's
          participant list, however NeVoT users are not visible on
          vat's participant list.
 	o Audio input is not supported
(i.e. there is more work to be done).

To use this software with SD, modify your ~/.sd.tcl to look something
like the one shown below. This uses the shell script nevot_icc to
start both NeVoT and Icc. 

A small "gotcha" here is that pmm daemon should be running also, but
if it is started by sd (i.e in the nevot_icc script) it inherits sd's
port. Thus no subsequent sd can be started on the same machine until
that pmm is killed. I therefore suggest starting pmm is manually
before sd, e.g: 
$ pmm & 
$ sd &

For more information on NeVoT see: 
ftp://gaia.cs.umass.edu/pub/hgschulz/nevot

For more information on NAS, see:
ftp://ftp.ncd.com/pub/ncd/technology/src/nas


This NAS release has been developed through modification of the NeVoT
conferencing system originally developed by Henning Sculzrinne, GMD
Fokus, Berlin (hgs@fokus.gmd.de). The NAS modifications were
implemented by Frank Edwards (frank@dstc.edu.au). The NeVoT copyright
follows.

Copyright 1993-1994 by AT&T Bell Laboratories and GMD (Gesellschaft f"ur
Mathematik und Datenverarbeitung); all rights reserved
  Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted, provided
that the above copyright notice appear in all copies and that both that the
copyright notice and warranty disclaimer appear in supporting documentation,
and that the names of AT&T Bell Laboratories and GMD or any of their
entities not be used in advertising or publicity pertaining to distribution
of the software without specific, written prior permission.
  AT&T and GMD disclaim all warranties with regard to this software,
including all implied warranties of merchantability and fitness.   In no
event shall AT&T or GMD be liable for any special, indirect or consequential
damages or any damages whatsoever resulting from loss of use, data or
profits, whether in an action of contract, negligence or other tortuous
action, arising out of or in connection with the use or performance of this
software.


--- Cut here ---
# This is a version of ~/.sd.tcl modified to support vic video.
# There are two sets of changes:
#
# - vic is used (in nv/ivs compatability mode) instead of nv, ivs
#   or telesia.  vic is also used, of course, in its `native' rtp v2
#   mode for sessions of type "vic".
#
# - the audio startup is modified to establish a 'session bus' between
#   vat & vic for sessions where both audio & video are specified.
#   this allows the 'voice switched' window mode in vic to work.
#
#       -- Van Jacobson & Steve McCanne
#          Tue Nov 29 06:11:41 PST 1994
#
# $Header: VIC.SD.TCL,v 1.6 94/12/05 00:29:05 mccanne Exp $

# further modifications:
#   - Invoke nevot_icc instead of vat.
#   - Allow for -r flag, specified by RTP option (this should
#     be an exclusive option list like fmt:, but that wouldn't be
#     backwards-compatible).

set ipc_chan 0
proc get_channel { confid } {
        global ipc_tab ipc_chan
        if { [info exists ipc_tab($confid)] } {
                return $ipc_tab($confid)
        }
        incr ipc_chan
        if { $ipc_chan > 300 } {
                set ipc_chan 1
        }
        set ipc_tab($confid) $ipc_chan
        return $ipc_chan
}

proc start_audio {} {
        global sd_sess sd_audio sd_video
        set audiofmt ""
        set packetfmt "-n"
        set mode "-c"
        foreach a $sd_audio(attributes) {
                case $a {
                        fmt:* { set audiofmt [string range $a 4 end] }
                        vt  { set packetfmt "-v" }
                        rtp      { set packetfmt "-r" }
                        lecture  { set mode "-l" }
                }
        }
        set confaddr [format "%s/%s/%s/%s/%s" $sd_sess(address) \
                $sd_audio(port) $sd_audio(conf_id) $audiofmt $sd_sess(ttl)]

        global vat
	if {[lsearch $sd_sess(media) video] >= 0} {
		set chan [get_channel $sd_sess(address)/$sd_video(port)]
		exec $vat -C $sd_sess(name) $packetfmt $mode $confaddr &
	} else {
		exec $vat -C $sd_sess(name) $packetfmt $mode $confaddr &
	}
}

proc start_video {} {
        global sd_sess sd_video use_ivs
        set videofmt "nv"
        foreach a $sd_video(attributes) {
                case $a {
                        fmt:* { set videofmt [string range $a 4 end] }
                }
        }
        case $videofmt {
                vic { }
		ivs { }
		nv { }
		telesia { set videofmt ivs }
		ivs {
			if { $use_ivs } {
				global ivs
				exec nice $ivs -a -r -T $sd_sess(ttl) \
					$sd_sess(address)/$sd_video(port) &
				return
			}
		}
                jpg {
                        global imm
                        exec nice $imm -p $sd_video(port) -I $sd_sess(address) \
                             -ttl $sd_sess(ttl) -n $sd_sess(name) &
			return
                }
		default {
			puts "sd: unknown video format: $videofmt"
			return
		}
        }
	global vic
	if {[lsearch $sd_sess(media) audio] >= 0} {
		set chan [get_channel $sd_sess(address)/$sd_video(port)]
		exec nice $vic -s -I $chan -A $videofmt -t $sd_sess(ttl) \
			-C $sd_sess(name) \
			$sd_sess(address)/$sd_video(port) &
	} else {
		exec nice $vic -s -A $videofmt -t $sd_sess(ttl) \
			-C $sd_sess(name) \
			$sd_sess(address)/$sd_video(port) &
	}
}

set sd_menu(video) "fmt: vic nv ivs jpg"
set sd_menu(audio) "fmt: pcm idvi gsm lpc4\nvt\nrtp"
set vat "nevot_icc"
set use_ivs 1

--- Cut here ---