From ecdd438f41608e620486f1d798d84a5afec9db23 Mon Sep 17 00:00:00 2001
From: sobomax <sobomax@FreeBSD.org>
Date: Sat, 24 Aug 2002 10:22:23 +0000
Subject: Properly convert command-line arguments into UTF-8 before passing
 them to TCL interpreter, othervise arguments in any encoding other than ASCII
 are becoming ????, even when LANG or LC_CTYPE is defined properly.

Problem reported by:	Alex V. Belinsky <fozzy@kievweb.net.ua>
---
 lang/expect/Makefile                   |  1 +
 lang/expect/files/patch-exp_main_sub.c | 42 ++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 lang/expect/files/patch-exp_main_sub.c

(limited to 'lang')

diff --git a/lang/expect/Makefile b/lang/expect/Makefile
index 0351355b5fee..c2a75c5d9be8 100644
--- a/lang/expect/Makefile
+++ b/lang/expect/Makefile
@@ -6,6 +6,7 @@
 
 PORTNAME=	expect
 PORTVERSION=	5.38.0
+PORTREVISION=	1
 CATEGORIES=	lang tcl83 tk83
 MASTER_SITES=	http://expect.nist.gov/src/
 
diff --git a/lang/expect/files/patch-exp_main_sub.c b/lang/expect/files/patch-exp_main_sub.c
new file mode 100644
index 000000000000..c3cf7aadbe9e
--- /dev/null
+++ b/lang/expect/files/patch-exp_main_sub.c
@@ -0,0 +1,42 @@
+
+$FreeBSD$
+
+--- exp_main_sub.c	2002/08/24 08:04:43	1.1
++++ exp_main_sub.c	2002/08/24 08:15:33
+@@ -593,6 +593,9 @@
+ 	char *args;		/* ptr to string-rep of all args */
+ 	char *debug_init;
+ 
++	char *native;
++	Tcl_DString ds;
++
+ 	exp_argv0 = argv[0];
+ 
+ #ifdef TCL_DEBUGGER
+@@ -768,18 +771,23 @@
+ 	expDiagLog("set argc %s\r\n",argc_rep);
+ 
+ 	if (exp_cmdfilename) {
+-		Tcl_SetVar(interp,"argv0",exp_cmdfilename,0);
++		native = Tcl_ExternalToUtfDString(NULL, exp_cmdfilename, -1, &ds);
++		Tcl_SetVar(interp,"argv0",native,0);
+ 		expDiagLog("set argv0 \"%s\"\r\n",exp_cmdfilename);
+ 	} else {
+-		Tcl_SetVar(interp,"argv0",exp_argv0,0);
++		native = Tcl_ExternalToUtfDString(NULL, exp_argv0, -1, &ds);
++		Tcl_SetVar(interp,"argv0",native,0);
+ 		expDiagLog("set argv0 \"%s\"\r\n",exp_argv0);
+ 	}
++	Tcl_DStringFree(&ds);
+ 
+ 	args = Tcl_Merge(argc-optind,argv+optind);
+ 	expDiagLogU("set argv \"");
+ 	expDiagLogU(args);
+ 	expDiagLogU("\"\r\n");
+-	Tcl_SetVar(interp,"argv",args,0);
++	native = Tcl_ExternalToUtfDString(NULL, args, -1, &ds);
++	Tcl_SetVar(interp,"argv",native,0);
++	Tcl_DStringFree(&ds);
+ 	Tcl_Free(args);
+ 
+ 	exp_interpret_rcfiles(interp,my_rc,sys_rc);
-- 
cgit