version 1.6, 1996/09/15 18:59:07 |
version 1.7, 1996/11/25 00:19:27 |
|
|
/* $OpenBSD$ */ |
/* $OpenBSD$ */ |
/* $NetBSD: eval.c,v 1.5 1996/01/13 23:25:23 pk Exp $ */ |
/* $NetBSD: eval.c,v 1.7 1996/11/10 21:21:29 pk Exp $ */ |
|
|
/* |
/* |
* Copyright (c) 1989, 1993 |
* Copyright (c) 1989, 1993 |
|
|
k = strlen(lquote); |
k = strlen(lquote); |
while (k--) |
while (k--) |
putback(lquote[k]); |
putback(lquote[k]); |
putback(','); |
putback(COMMA); |
} |
} |
k = strlen(rquote); |
k = strlen(rquote); |
while (k--) |
while (k--) |
|
|
case '*': |
case '*': |
for (n = argc - 1; n > 2; n--) { |
for (n = argc - 1; n > 2; n--) { |
pbstr(argv[n]); |
pbstr(argv[n]); |
putback(','); |
putback(COMMA); |
} |
} |
pbstr(argv[2]); |
pbstr(argv[2]); |
break; |
break; |
|
case '@': |
|
for (n = argc - 1; n > 2; n--) { |
|
pbstr(rquote); |
|
pbstr(argv[n]); |
|
pbstr(lquote); |
|
putback(COMMA); |
|
} |
|
pbstr(rquote); |
|
pbstr(argv[2]); |
|
pbstr(lquote); |
|
break; |
default: |
default: |
putback(*p); |
putback(*p); |
putback('$'); |
putback('$'); |