New port for multicast AV tool.

PR: 27329
Submitted by:Takeshi MUTOH<mutoh@bovine.info.nara-k.ac.jp>

3 files changed, 72 insertions, 0 deletions

diff --git a/mbone/relate/files/patch-Makefile b/mbone/relate/files/patch-Makefile
new file mode 100644
index 0000000..396333d
--- /dev/null
+++ b/mbone/relate/files/patch-Makefile
@@ -0,0 +1,41 @@
+--- Makefile.orig	Mon May  7 11:59:32 2001
++++ Makefile	Mon May  7 12:02:13 2001
+@@ -0,0 +1,38 @@
++YFLAGS		= -dv
++CFLAGS		= -g $(LIBFLAGS) $(IFLAGS) -DNDEBUG -DRELATE_INT
++LIBDIR		= /usr/local/lib
++INCDIR		= /usr/local/include
++
++# for FreeBSD
++CC		= cc
++LIBFLAGS	= -L$(LIBDIR) -L/usr/X11R6/lib
++IFLAGS		= -I$(INCDIR)/tk8.2 -I$(INCDIR)/tcl8.2 -I/usr/X11R6/include
++LIBS		= -ltk82 -ltcl82 -lm -lX11
++
++TCL_FILES = \
++	ui_audiotool.tcl \
++	relate.tcl 
++
++# The Make rules.
++INC	= util.h mbus.h mbus_ui.h config.h net_udp.h
++SRC	= tcllibs.c main.c mbus.c mbus_ui.c util.c lbl_confbus.c tcltk.c net_udp.c
++OBJ	= tcllibs.o main.o mbus.o mbus_ui.o util.o lbl_confbus.o tcltk.o net_udp.o
++
++all	:	relate
++
++relate	:	$(OBJ) $(INC)
++	$(CC) $(CFLAGS) $(OBJ) $(LIBS) -o relate
++
++clean	:
++	rm -f *.o tcl2c relate core
++
++tcl2c	:	tcl2c.o
++	$(CC) $(CFLAGS) tcl2c.o $(LIBS) -o tcl2c
++
++# Tcl library files are turned into a single object file.
++tcllibs.o: $(TCL_FILES) tcl2c
++	rm -f $@ tcllibs.c; \
++	./tcl2c 1 $(TCL_FILES) > tcllibs.c ; \
++	$(CC) -c $(CFLAGS) tcllibs.c ; rm -f tcllibs.c
++install:        all
++	install -c -s -m 755 -o bin -g bin relate ${PREFIX}/bin
diff --git a/mbone/relate/files/patch-main.c b/mbone/relate/files/patch-main.c
new file mode 100644
index 0000000..40737a3
--- /dev/null
+++ b/mbone/relate/files/patch-main.c
@@ -0,0 +1,20 @@
+--- main.c.orig	Wed Mar  1 21:56:27 2000
++++ main.c	Tue May 15 14:44:34 2001
+@@ -20,7 +20,7 @@
+ 
+ #include <tcl.h>
+ #include <tk.h>
+-#include <malloc.h>
++#include <stdlib.h>
+ #include <locale.h>
+ #include <assert.h>
+ #include <time.h>
+@@ -145,7 +145,7 @@
+ 	char buffer[128];  
+ 	FILE *file; 
+ 	int v1, v2, v3;
+-	if ( ( file=popen( "rat -version", "rt") )!=NULL ) {
++	if ( ( file=popen( "rat30 -version", "rt") )!=NULL ) {
+ 		fgets(buffer, sizeof(buffer), file);
+ 		pclose(file);
+ 		/* get version */
diff --git a/mbone/relate/files/patch-relate.tcl b/mbone/relate/files/patch-relate.tcl
new file mode 100644
index 0000000..c0df71d
--- /dev/null
+++ b/mbone/relate/files/patch-relate.tcl
@@ -0,0 +1,11 @@
+--- relate.tcl.org	Tue May 15 14:45:03 2001
++++ relate.tcl	Tue May 15 14:46:10 2001
+@@ -550,7 +550,7 @@
+ 	frame .r.b.rat -container true
+ 	pack .r.b.rat -side left
+ 	set ratwin [winfo id .r.b.rat]
+-    set commandline "exec rat -lbl_channel $channel -smallui -use $ratwin [set "audio.arguments"]"
++    set commandline "exec rat30 -lbl_channel $channel -smallui -use $ratwin [set "audio.arguments"]"
+ 	catch {set ratproc [eval $commandline &] }
+ 
+ 	pack .r.b.rat -side left