Compile dtksh on FreeBSD

dtksh can be now compiled on FreeBSD. Work in progress.

Needs a real Korn shell to bootstrap as $(KSHELL).
KSHELL is set by default to /usr/local/bin/ksh93
(generic POSIX shell may not work)

Tested on:

  FreeBSD 9.0-BETA1 #0 r224912M amd64

Known issues:

xvmstat:
* sleep does not work well (SIGSTOP is delivered)
xpong:
* xpong: line 220:  ball1x = max_x * 2.2 / 3 : arithmetic syntax error
* dtksh is rebuilt uncondtionally every time make is invoked

cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/alarm.c

@@ -134,7 +134,7 @@ static __V_ *time_add __PARAM__((struct tevent *item, __V_ *list), (item, list))
 		tp->next = item;
 	}
 	tp = item;
-	tp->timeout = (__V_*)timeradd(tp->milli,tp->flags&R_FLAG,trap_timeout,(__V_*)tp);
+	tp->timeout = (__V_*)kshtimeradd(tp->milli,tp->flags&R_FLAG,trap_timeout,(__V_*)tp);
 	return(list);
 }
 

cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/read.c

@@ -271,7 +271,7 @@ int sh_readline __PARAM__((char **names, int fd, int flags,long timeout), (names
 		jmpval = sigsetjmp(buff.buff,0);
 		if(jmpval)
 			goto done;
-                timeslot = (__V_*)timeradd(timeout,0,timedout,(__V_*)iop);
+                timeslot = (__V_*)kshtimeradd(timeout,0,timedout,(__V_*)iop);
 	}
 	if(!(cp = (unsigned char*)sfgetr(iop,delim,0)))
 		cp = (unsigned char*)sfgetr(iop,delim,-1);

cde/programs/dtksh/ksh93/src/cmd/ksh93/bltins/sleep.c

@@ -157,7 +157,7 @@ unsigned sleep __PARAM__((unsigned sec), (sec)) __OTORP__(unsigned sec;){
 	__V_ *tp;
 	expired = 0;
 	sh.lastsig = 0;
-	tp = (__V_*)timeradd(1000*sec, 0, completed, (__V_*)0);
+	tp = (__V_*)kshtimeradd(1000*sec, 0, completed, (__V_*)0);
 	do
 	{
 		pause();

cde/programs/dtksh/ksh93/src/cmd/ksh93/edit/history.c

@@ -372,7 +372,7 @@ retry:
 #ifdef KSHELL
 	(HISTCUR)->nvalue.lp = (&hp->histind);
 #endif /* KSHELL */
-	timeradd(1000L*(HIST_RECENT-30), 1, hist_touch, (__V_*)hp->histname);
+	kshtimeradd(1000L*(HIST_RECENT-30), 1, hist_touch, (__V_*)hp->histname);
 #ifdef SHOPT_ACCTFILE
 	if(sh_isstate(SH_INTERACTIVE))
 		acctinit();

cde/programs/dtksh/ksh93/src/cmd/ksh93/edit/vi.c

@@ -124,7 +124,6 @@
 
 #define	MAXCHAR	MAXLINE-2		/* max char per line */
 
-#undef isblank
 #ifdef SHOPT_MULTIBYTE
     static int bigvi;
 #   define gencpy(a,b)	ed_gencpy(a,b)
@@ -134,14 +133,14 @@
 #   define is_print(c)	((c&~STRIP) || isprint(c))
     static int isalph __PROTO__((int));
     static int ismetach __PROTO__((int));
-    static int isblank __PROTO__((int));
+    static int kshisblank __PROTO__((int));
 #   include	"lexstates.h"
 #else
 #   define gencpy(a,b)	strcpy((char*)(a),(char*)(b))
 #   define genncpy(a,b,n) strncpy((char*)(a),(char*)(b),n)
 #   define genlen(str)	strlen(str)
 #   define isalph(v)	((_c=virtual[v])=='_'||isalnum(_c))
-#   define isblank(v)	isspace(virtual[v])
+#   define kshisblank(v)	isspace(virtual[v])
 #   define ismetach(v)	ismeta(virtual[v])
 #   define digit(c)	isdigit(c)
 #   define is_print(c)	isprint(c)
@@ -220,7 +219,7 @@ static char paren_chars[] = "([{)]}";   /* for % command */
 
 #ifdef FIORDCHK
     static clock_t typeahead;		/* typeahead occurred */
-    extern __MANGLE__ int ioctl __PROTO__((int, int, ...));
+    extern __MANGLE__ int ioctl __PROTO__((int, unsigned long, ...));
 #else
     static int typeahead;		/* typeahead occurred */
 #endif	/* FIORDCHK */
@@ -680,7 +679,7 @@ static void backword __PARAM__((int nwords, register int cmd), (nwords, cmd)) __
 	register int tcur_virt = cur_virt;
 	while( nwords-- && tcur_virt > first_virt )
 	{
-		if( !isblank(tcur_virt) && isblank(tcur_virt-1)
+		if( !kshisblank(tcur_virt) && kshisblank(tcur_virt-1)
 			&& tcur_virt>first_virt )
 			--tcur_virt;
 		else if(cmd != 'B')
@@ -690,11 +689,11 @@ static void backword __PARAM__((int nwords, register int cmd), (nwords, cmd)) __
 			if((!cur && last) || (cur && !last))
 				--tcur_virt;
 		}
-		while( isblank(tcur_virt) && tcur_virt>=first_virt )
+		while( kshisblank(tcur_virt) && tcur_virt>=first_virt )
 			--tcur_virt;
 		if( cmd == 'B' )
 		{
-			while( !isblank(tcur_virt) && tcur_virt>=first_virt )
+			while( !kshisblank(tcur_virt) && tcur_virt>=first_virt )
 				--tcur_virt;
 		}
 		else
@@ -703,7 +702,7 @@ static void backword __PARAM__((int nwords, register int cmd), (nwords, cmd)) __
 				while( isalph(tcur_virt) && tcur_virt>=first_virt )
 					--tcur_virt;
 			else
-				while( !isalph(tcur_virt) && !isblank(tcur_virt)
+				while( !isalph(tcur_virt) && !kshisblank(tcur_virt)
 					&& tcur_virt>=first_virt )
 					--tcur_virt;
 		}
@@ -1185,7 +1184,7 @@ static int delmotion __PARAM__((int motion, int mode), (motion, mode)) __OTORP__
 	{
 		/*** called by change operation, user really expects ***/
 		/* the effect of the eE commands, so back up to end of word */
-		while( end>begin && isblank(end-1) )
+		while( end>begin && kshisblank(end-1) )
 			--end;
 		if( end == begin )
 			++end;
@@ -1220,13 +1219,13 @@ static void endword __PARAM__((int nwords, register int cmd), (nwords, cmd)) __O
 	register int tcur_virt = cur_virt;
 	while( nwords-- )
 	{
-		if( !isblank(tcur_virt) && tcur_virt<=last_virt )
+		if( !kshisblank(tcur_virt) && tcur_virt<=last_virt )
 			++tcur_virt;
-		while( isblank(tcur_virt) && tcur_virt<=last_virt )
+		while( kshisblank(tcur_virt) && tcur_virt<=last_virt )
 			++tcur_virt;	
 		if( cmd == 'E' )
 		{
-			while( !isblank(tcur_virt) && tcur_virt<=last_virt )
+			while( !kshisblank(tcur_virt) && tcur_virt<=last_virt )
 				++tcur_virt;
 		}
 		else
@@ -1235,7 +1234,7 @@ static void endword __PARAM__((int nwords, register int cmd), (nwords, cmd)) __O
 				while( isalph(tcur_virt) && tcur_virt<=last_virt )
 					++tcur_virt;
 			else
-				while( !isalph(tcur_virt) && !isblank(tcur_virt)
+				while( !isalph(tcur_virt) && !kshisblank(tcur_virt)
 					&& tcur_virt<=last_virt )
 					++tcur_virt;
 		}
@@ -1258,7 +1257,7 @@ static void forward __PARAM__((register int nwords, int cmd), (nwords, cmd)) __O
 	{
 		if( cmd == 'W' )
 		{
-			while( !isblank(tcur_virt) && tcur_virt < last_virt )
+			while( !kshisblank(tcur_virt) && tcur_virt < last_virt )
 				++tcur_virt;
 		}
 		else
@@ -1270,12 +1269,12 @@ static void forward __PARAM__((register int nwords, int cmd), (nwords, cmd)) __O
 			}
 			else
 			{
-				while( !isalph(tcur_virt) && !isblank(tcur_virt)
+				while( !isalph(tcur_virt) && !kshisblank(tcur_virt)
 					&& tcur_virt < last_virt )
 					++tcur_virt;
 			}
 		}
-		while( isblank(tcur_virt) && tcur_virt < last_virt )
+		while( kshisblank(tcur_virt) && tcur_virt < last_virt )
 			++tcur_virt;
 	}
 	cur_virt = tcur_virt;
@@ -2528,7 +2527,7 @@ yankeol:
     }
 
 
-    static int isblank __PARAM__((register int c), (c)) __OTORP__(register int c;){
+    static int kshisblank __PARAM__((register int c), (c)) __OTORP__(register int c;){
 	register int v = virtual[c];
 	return((v&~STRIP)==0 && isspace(v));
     }

cde/programs/dtksh/ksh93/src/cmd/ksh93/include/fault.h

@@ -176,7 +176,7 @@ extern __MANGLE__ void	sh_siginit __PROTO__((void));
 extern __MANGLE__ void 	sh_sigtrap __PROTO__((int));
 extern __MANGLE__ void 	sh_sigreset __PROTO__((int));
 extern __MANGLE__ void 	sh_timetraps __PROTO__((void));
-extern __MANGLE__ __V_ 	*timeradd __PROTO__((unsigned long,int ,void (*)(__V_*),__V_*));
+extern __MANGLE__ __V_ 	*kshtimeradd __PROTO__((unsigned long,int ,void (*)(__V_*),__V_*));
 extern __MANGLE__ void	timerdel __PROTO__((__V_*));
 
 extern __MANGLE__ const char e_alarm[];

cde/programs/dtksh/ksh93/src/cmd/ksh93/sh/io.c

@@ -964,7 +964,7 @@ static int slowread __PARAM__((Sfio_t *iop,__V_ *buff,register int size,Sfdisc_t
 	if(io_prompt(sh.nextprompt)<0 && errno==EIO)
 		return(0);
 	if(sh.timeout)
-		timeout = (__V_*)timeradd(sh_isstate(SH_GRACE)?1000L*TGRACE:1000L*sh.timeout,0,time_grace,NIL(__V_*));
+		timeout = (__V_*)kshtimeradd(sh_isstate(SH_GRACE)?1000L*TGRACE:1000L*sh.timeout,0,time_grace,NIL(__V_*));
 #   ifdef SHOPT_ESH
 	if(sh_isoption(SH_EMACS|SH_GMACS))
 		readf = ed_emacsread;

cde/programs/dtksh/ksh93/src/cmd/ksh93/sh/timers.c

@@ -236,7 +236,7 @@ static void oldalrm __PARAM__((__V_ *handle), (handle)) __OTORP__(__V_ *handle;)
 	(*fn)(SIGALRM);
 }
 	
-__V_ *timeradd __PARAM__((unsigned long msec,int flags,void (*action)(__V_*),__V_ *handle), (msec, flags, action, handle)) __OTORP__(unsigned long msec;int flags;void (*action)();__V_ *handle;){
+__V_ *kshtimeradd __PARAM__((unsigned long msec,int flags,void (*action)(__V_*),__V_ *handle), (msec, flags, action, handle)) __OTORP__(unsigned long msec;int flags;void (*action)();__V_ *handle;){
 	register Timer_t *tp;
 	double t;
 	Handler_t fn;
@@ -260,7 +260,7 @@ __V_ *timeradd __PARAM__((unsigned long msec,int flags,void (*action)(__V_*),__V
 			if(hp)
 			{
 				*hp = fn;
-				timeradd((long)(1000*t), 0, oldalrm, (__V_*)hp);
+				kshtimeradd((long)(1000*t), 0, oldalrm, (__V_*)hp);
 			}
 		}
 		tp = tptop;

cde/programs/dtksh/ksh93/src/cmd/ksh93/sh/xec.c

@@ -1322,7 +1322,7 @@ pid_t _sh_fork __PARAM__((register pid_t parent,int flags,int *jobid), (parent,
 			error(ERROR_system(ERROR_NOEXEC),e_nofork);
 		}
 		sh_sigcheck();
-		timeout = (__V_*)timeradd(forkcnt, 0, timed_out, NIL(__V_*));
+		timeout = (__V_*)kshtimeradd(forkcnt, 0, timed_out, NIL(__V_*));
 		job_wait((pid_t)-1);
 		if(timeout)
 		{

cde/programs/dtksh/ksh93/src/lib/libast/hash/hashalloc.c

@@ -112,7 +112,7 @@ hashalloc __PARAM__((Hash_table_t* ref, ...), (va_alist)) __OTORP__(va_dcl)
 	register Hash_table_t*	ret = 0;
 	register int		internal;
 	int			n;
-	va_list			ap;
+	va_list			ap, vl;
 	va_list			va[4];
 	va_list*		vp = va;
 	HASHregion		region = 0;
@@ -214,27 +214,19 @@ hashalloc __PARAM__((Hash_table_t* ref, ...), (va_alist)) __OTORP__(va_dcl)
 			tab->flags |= HASH_STATIC;
 			break;
 		case HASH_va_list:
-#ifdef __ppc
 			if (vp < &va[elementsof(va)])
 			{
 				__va_copy( *vp, ap );
 				vp++;
 			}
-			__va_copy(ap, *((va_list *) va_arg(ap, va_list)) );
-#else
-			if (vp < &va[elementsof(va)]) *vp++ = ap;
-			ap = va_arg(ap, va_list);
-#endif
+			vl = va_arg(ap, va_list);
+			__va_copy(ap, vl);
 			break;
 		case 0:
 			if (vp > va)
 			{
-#ifdef __ppc
 				vp--;
 				__va_copy( ap, *vp );
-#else
-				ap = *--vp;
-#endif
 				break;
 			}
 			if (tab->flags & HASH_SCOPE)

cde/programs/dtksh/ksh93/src/lib/libast/port/astconf.c

@@ -285,8 +285,6 @@ initialize __PARAM__((register Feature_t* fp, const char* path, const char* comm
 
 	if (fp->op != OP_path_resolve || !fs3d(FS3D_TEST))
 	{
-		if (fp->op == OP_universe)
-			ok = streq(_UNIV_DEFAULT, "att");
 		if (p = getenv("PATH"))
 		{
 			register int	r = 1;
@@ -402,12 +400,6 @@ feature __PARAM__((const char* name, const char* path, const char* value), (name
 		break;
 
 	case OP_universe:
-#if _lib_universe
-		if (getuniverse(fp->value) < 0)
-			strcpy(fp->value, "att");
-		if (value)
-			setuniverse(value);
-#else
 #ifdef UNIV_MAX
 		n = 0;
 		if (value)
@@ -417,20 +409,13 @@ feature __PARAM__((const char* name, const char* path, const char* value), (name
 			if (n >= univ_max)
 				return(0);
 		}
-#ifdef ATT_UNIV
-		n = setuniverse(n + 1);
-		if (!value && n > 0)
-			setuniverse(n);
-#else
 		n = universe(value ? n + 1 : U_GET);
-#endif
 		if (n <= 0 || n >= univ_max)
 			n = 1;
 		strcpy(fp->value, univ_name[n - 1]);
 #else
 		if (!synthesize(fp, path, value))
 			initialize(fp, path, "echo", "att", "ucb");
-#endif
 #endif
 		break;
 

cde/programs/dtksh/ksh93/src/lib/libast/sfio/sfvprintf.c

@@ -90,7 +90,6 @@
 		goto pop_fa; \
 	  else	elt = (etype)arge; \
 	}
-#ifdef __ppc
 #define GETARGL(elt,arge,argf,args,etype,type,fmt,t_user,n_user) \
 	{ if(!argf) \
 		__va_copy( elt, va_arg(args,type) ); \
@@ -98,7 +97,6 @@
 		goto pop_fa; \
 	  else	__va_copy( elt, arge ); \
 	}
-#endif
 
 #if __STD_C
 sfvprintf(Sfio_t* f, const char* form, va_list args)
@@ -303,15 +301,9 @@ loop_fa :
 			GETARG(form,form,argf,args,char*,char*,'1',t_user,n_user);
 			if(!form)
 				form = "";
-#ifdef __ppc
 			GETARGL(argsp,argsp,argf,args,va_list*,va_list*,'2',t_user,n_user);
 			__va_copy( fa->args, args );
 			__va_copy( args, argsp );
-#else
-			GETARG(argsp,argsp,argf,args,va_list*,va_list*,'2',t_user,n_user);
-			memcpy((Void_t*)(&(fa->args)), (Void_t*)(&args), sizeof(va_list));
-			memcpy((Void_t*)(&args), (Void_t*)argsp, sizeof(va_list));
-#endif
 			fa->argf.p = argf;
 			fa->extf.p = extf;
 			fa->next = fast;
@@ -321,12 +313,8 @@ loop_fa :
 		default :	/* unknown directive */
 			if(extf)
 			{
-#ifdef __ppc
 				va_list	savarg; 	/* is this portable?   Sorry .. NO. */
 				__va_copy( savarg, args );
-#else
-				va_list	savarg = args;	/* is this portable? */
-#endif
 
 				GETARG(sp,astr,argf,args,char*,char*,fmt,t_user,n_user);
 				astr = NIL(char*);
@@ -334,11 +322,7 @@ loop_fa :
 				if((sp = astr) )
 					goto s_format;
 
-#ifdef __ppc
 				__va_copy( args, savarg ); /* extf failed, treat as if unmatched */
-#else
-				args = savarg;	/* extf failed, treat as if unmatched */
-#endif
 			}
 
 			/* treat as text */

cde/programs/dtksh/ksh93/src/lib/libast/string/tokscan.c

@@ -228,11 +228,7 @@ tokscan __PARAM__((register char* s, char** nxt, const char* fmt, ...), (va_alis
 		if (f = prv_f)
 		{
 			prv_f = 0;
-#ifdef __ppc
 			__va_copy( ap, prv_ap );
-#else
-			ap = prv_ap;
-#endif
 			continue;
 		}
 		goto done;
@@ -261,15 +257,9 @@ tokscan __PARAM__((register char* s, char** nxt, const char* fmt, ...), (va_alis
 		case ':':
 			prv_f = f;
 			f = va_arg(ap, char*);
-#ifdef __ppc
 			__va_copy( prv_ap, ap );
-			pap = va_arg(ap, va_list*)) );
-			__va_copy( ap, pap );
-#else
-			prv_ap = ap;
 			pap = va_arg(ap, va_list*);
-			memcpy(&ap, pap, sizeof(ap));
-#endif
+			__va_copy( ap, pap );
 			continue;
 		case 'c':
 			p_char = va_arg(ap, char*);