-
tcsh
não tem funções; então isso é um negativo. A estratégia geral é criar um script separado e chamar isso como um programa externo (para algumas coisas, comoalias
, umsource
também funcionará). -
Bem, isso não é realmente uma pergunta; Posso confirmar que suas observações estão corretas :-) Adicionar
COMP_POINT
pode não ser difícil; na verdade, aqui está o patch (que é NÃO testado muito bem):diff --git i/tc.const.c w/tc.const.c index c472acc..1a69fee 100644 --- i/tc.const.c +++ w/tc.const.c @@ -469,6 +469,8 @@ Char STRPROGRAM_ENVIRONMENT[] = { 'P', 'R', 'O', 'G', 'R', 'A', 'M', #endif /* _OSD_POSIX */ Char STRCOMMAND_LINE[] = { 'C', 'O', 'M', 'M', 'A', 'N', 'D', '_', 'L', 'I', 'N', 'E', '
' }; +Char STRCOMP_POINT[] = { 'C', 'O', 'M', 'P', '_', 'P', 'O', 'I', 'N', 'T', + '%pre%' }; #ifdef WARP Char STRwarp[] = { 'w', 'a', 'r', 'p', '%pre%' }; diff --git i/tw.comp.c w/tw.comp.c index 03da837..101962f 100644 --- i/tw.comp.c +++ w/tw.comp.c @@ -635,9 +635,12 @@ tw_complete(const Char *line, Char **word, Char **pat, int looking, eChar *suf) default: abort(); /* Cannot happen */ } + tsetenv(STRCOMMAND_LINE, line); + tsetenv(STRCOMP_POINT, str2short(xasprintf("%d", (char) CursorH))); res = tw_result(com, pat); Unsetenv(STRCOMMAND_LINE); + Unsetenv(STRCOMP_POINT); cleanup_until(buf); return res; }diff --git i/tc.const.c w/tc.const.c index c472acc..1a69fee 100644 --- i/tc.const.c +++ w/tc.const.c @@ -469,6 +469,8 @@ Char STRPROGRAM_ENVIRONMENT[] = { 'P', 'R', 'O', 'G', 'R', 'A', 'M', #endif /* _OSD_POSIX */ Char STRCOMMAND_LINE[] = { 'C', 'O', 'M', 'M', 'A', 'N', 'D', '_', 'L', 'I', 'N', 'E', '%pre%' }; +Char STRCOMP_POINT[] = { 'C', 'O', 'M', 'P', '_', 'P', 'O', 'I', 'N', 'T', + '%pre%' }; #ifdef WARP Char STRwarp[] = { 'w', 'a', 'r', 'p', '%pre%' }; diff --git i/tw.comp.c w/tw.comp.c index 03da837..101962f 100644 --- i/tw.comp.c +++ w/tw.comp.c @@ -635,9 +635,12 @@ tw_complete(const Char *line, Char **word, Char **pat, int looking, eChar *suf) default: abort(); /* Cannot happen */ } + tsetenv(STRCOMMAND_LINE, line); + tsetenv(STRCOMP_POINT, str2short(xasprintf("%d", (char) CursorH))); res = tw_result(com, pat); Unsetenv(STRCOMMAND_LINE); + Unsetenv(STRCOMP_POINT); cleanup_until(buf); return res; }
Você provavelmente quer levar isso para a lista de discussão tcsh , no entanto.