igor@153: 
igor@153: /*
igor@153:  *  export PS1='\[$($L3_HOME/l3prompt "v3#\!#$?#$UID#$$#$(/bin/date +%s)#$PWD#$RANDOM#")$(l3_save_last_line >& /dev/null)\]'$PS1
igor@153:  *  
igor@153:  *
igor@153:  *  l3prompt perl code:
igor@153:  *
igor@153:  *  my $string=$ARGV[0];
igor@153:  *  my $insert="\e[1K\e[10D";
igor@153:  *  my $max=5;
igor@153:  *
igor@153:  *  while (length($string) > $max) {
igor@153:  *      $res .= substr($string, 0, $max).$insert;
igor@153:  *      $string = substr($string, $max);
igor@153:  *  }
igor@153:  *  $res .= $string.$insert;
igor@153:  *  print "$res";
igor@153:  *
igor@153:  */
igor@153: #include <stdio.h>
igor@153: #define N 5
igor@153: #define BUF_SIZE N+1
igor@153: char* mixin="\e[1K\e[10D";
igor@153: char buf[BUF_SIZE];
igor@153: int main(int argc, char **argv)
igor@153: {
igor@153:     char *i,*j;
igor@153:     int n;
igor@153:     argc--;
igor@153:     argv++;
igor@153:     while (argc > 0) {
igor@153:         i=argv[0];
igor@153:         j=&buf[0];
igor@153:         n=0;
igor@153:         while(*i) {
igor@153:             *j=*i;i++;j++;
igor@153:             n++;
igor@153:             if (n==N) {
igor@153:                 *j=0;
igor@153:                 fputs(buf, stdout);
igor@153:                 fputs(mixin,stdout);
igor@153:                 j=&buf[0];
igor@153:                 n=0;
igor@153:             }
igor@153:         } 
igor@153:         *j=*i;
igor@153:         fputs (buf, stdout);
igor@153:         if (n) fputs(mixin,stdout);
igor@153:         argc--;
igor@153:         argv++;
igor@153:     };
igor@153: }