lilalo
annotate l3prompt @ 153:0414adc06059
Создана программа l3prompt.c (аналог l3prompt, написанного на Perl).
Занимается тем, что разбивает строку на блоки
и вставляет между ними строки-разделители.
По сути это нужно, чтобы сделать приглашение невидимым.
Сишная версия работает в 2-3 раза быстрее чем перловая.
По умолчанию не инсталлируется.
Для использования нужно откомпилировать
и положить вместо l3prompt
gcc -o l3prompt l3prompt.c
mv l3prompt ~/.lilalo/
Занимается тем, что разбивает строку на блоки
и вставляет между ними строки-разделители.
По сути это нужно, чтобы сделать приглашение невидимым.
Сишная версия работает в 2-3 раза быстрее чем перловая.
По умолчанию не инсталлируется.
Для использования нужно откомпилировать
и положить вместо l3prompt
gcc -o l3prompt l3prompt.c
mv l3prompt ~/.lilalo/
author | igor@book.xt.vpn |
---|---|
date | Thu Dec 03 12:23:22 2009 +0200 (2009-12-03) |
parents | 658b4ea105c1 |
children |
rev | line source |
---|---|
igor@112 | 1 #!/usr/bin/perl |
igor@112 | 2 |
igor@117 | 3 my $string=$ARGV[0]; |
igor@114 | 4 my $insert="\e[1K\e[10D"; |
igor@114 | 5 my $max=5; |
igor@112 | 6 |
igor@112 | 7 while (length($string) > $max) { |
igor@112 | 8 $res .= substr($string, 0, $max).$insert; |
igor@112 | 9 $string = substr($string, $max); |
igor@112 | 10 } |
igor@112 | 11 $res .= $string.$insert; |
igor@114 | 12 print "$res"; |
igor@112 | 13 |