Changeset 3991 for neercs


Ignore:
Timestamp:
Nov 21, 2009, 4:34:04 PM (11 years ago)
Author:
Jean-Yves Lamoureux
Message:
  • Indentation / comments
File:
1 edited

Legend:

Unmodified
Added
Removed
  • neercs/trunk/src/term.c

    r3990 r3991  
    126126
    127127static int handle_single_char(unsigned char c, int *x, int *y,
    128                                struct screen_list *screen_list,
    129                                struct screen *sc);
     128                              struct screen_list *screen_list,
     129                              struct screen *sc);
    130130
    131131static int handle_single_char(unsigned char c, int *x, int *y,
    132                                struct screen_list *screen_list,
    133                                struct screen *sc)
     132                              struct screen_list *screen_list,
     133                              struct screen *sc)
    134134{
    135135    if (c == '\r')
     
    160160            *x = *x - 1;
    161161    }
    162     else if (c == '\x0b') /* Vertical tab */
    163     {
     162    else if (c == '\x0b')
     163    {
     164        /* Vertical tab */
     165        /* Not sure about the real meaning of it, just y++ for now */
    164166        if (*y < caca_get_canvas_height(sc->cv))
    165             *y = *y + 1; 
    166     }   
     167            *y = *y + 1;
     168    }
    167169    else if (c == '\x0e')
    168170    {
     
    178180        sc->conv_state.glr[0] = 0;
    179181    }
    180     else 
    181     {
    182         return 1;   
    183     }
    184         return 0;
     182    else
     183    {
     184        return 1;
     185    }
     186    return 0;
    185187
    186188}
     
    237239        }
    238240
    239         if(!handle_single_char(buffer[i], &x, &y, screen_list, sc))
    240         {}
     241        if (!handle_single_char(buffer[i], &x, &y, screen_list, sc))
     242        {
     243        }
    241244
    242245
    243246        /* If there are not enough characters to parse the escape sequence,
    244247           wait until the next try. We require 3. */
    245        
    246     else if (buffer[i] == '\033' && i + 2 >= size)
    247         break;
     248
     249        else if (buffer[i] == '\033' && i + 2 >= size)
     250            break;
    248251
    249252        /* Single Shift Select of G2 Character Set (SS2: 0x8e): affects next
    250253           character only */
    251     else if (buffer[i] == '\033' && buffer[i + 1] == 'N')
    252     {
    253         sc->conv_state.ss = 2;
    254         skip += 1;
    255     }
     254        else if (buffer[i] == '\033' && buffer[i + 1] == 'N')
     255        {
     256            sc->conv_state.ss = 2;
     257            skip += 1;
     258        }
    256259        /* Reverse Index (RI) go up one line, reverse scroll if necessary */
    257     else if (buffer[i] == '\033' && buffer[i + 1] == 'M')
    258     {
    259         /* FIXME : not sure about the meaning of 'go up one line' and 'if
    260            necessary' words. Implemented as a scroller only. */
    261         for (j = bottom - 1; j > top; j--)
    262         {
    263             for (k = 0; k < width; k++)
    264             {
    265                 caca_put_char(sc->cv, k, j, caca_get_char(sc->cv, k, j - 1));
    266                 caca_put_attr(sc->cv, k, j, caca_get_attr(sc->cv, k, j - 1));
    267             }
    268         }
    269         caca_draw_line(sc->cv, 0, top - 1, width - 1, top - 1, ' ');
    270         skip += 1;
    271     }
     260        else if (buffer[i] == '\033' && buffer[i + 1] == 'M')
     261        {
     262            /* FIXME : not sure about the meaning of 'go up one line' and 'if
     263               necessary' words. Implemented as a scroller only. */
     264            for (j = bottom - 1; j > top; j--)
     265            {
     266                for (k = 0; k < width; k++)
     267                {
     268                    caca_put_char(sc->cv, k, j,
     269                                  caca_get_char(sc->cv, k, j - 1));
     270                    caca_put_attr(sc->cv, k, j,
     271                                  caca_get_attr(sc->cv, k, j - 1));
     272                }
     273            }
     274            caca_draw_line(sc->cv, 0, top - 1, width - 1, top - 1, ' ');
     275            skip += 1;
     276        }
    272277
    273278        /* Single Shift Select of G3 Character Set (SS2: 0x8f): affects next
    274279           character only */
    275     else if (buffer[i] == '\033' && buffer[i + 1] == 'O')
    276     {
    277         sc->conv_state.ss = 3;
    278         skip += 1;
    279     }
     280        else if (buffer[i] == '\033' && buffer[i + 1] == 'O')
     281        {
     282            sc->conv_state.ss = 3;
     283            skip += 1;
     284        }
    280285
    281286        /* LOCKING-SHIFT TWO (LS2), ISO 2022, ECMA-48 (1986), ISO 6429 : 1988 */
    282     else if (buffer[i] == '\033' && buffer[i + 1] == 'n')
    283     {
    284         sc->conv_state.glr[0] = 2;
    285         skip += 1;
    286     }
     287        else if (buffer[i] == '\033' && buffer[i + 1] == 'n')
     288        {
     289            sc->conv_state.glr[0] = 2;
     290            skip += 1;
     291        }
    287292
    288293        /* LOCKING-SHIFT THREE (LS3) ISO 2022, ECMA-48 (1986), ISO 6429 : 1988
    289294         */
    290     else if (buffer[i] == '\033' && buffer[i + 1] == 'o')
    291     {
    292         sc->conv_state.glr[0] = 3;
    293         skip += 1;
    294     }
     295        else if (buffer[i] == '\033' && buffer[i + 1] == 'o')
     296        {
     297            sc->conv_state.glr[0] = 3;
     298            skip += 1;
     299        }
    295300
    296301        /* RESET TO INITIAL STATE (RIS), ECMA-48 (1986), ISO 6429 : 1988 */
    297     else if (buffer[i] == '\033' && buffer[i + 1] == 'c')
    298     {
    299         sc->dfg = CACA_DEFAULT;
    300         sc->dbg = CACA_DEFAULT;
    301 
    302         caca_set_color_ansi(sc->cv, sc->dfg, sc->dbg);
    303         sc->clearattr = caca_get_attr(sc->cv, -1, -1);
    304         ansi_parse_grcm(sc, 1, &dummy);
    305 
    306         reset_conv_state(sc);
    307         skip += 1;
    308     }
     302        else if (buffer[i] == '\033' && buffer[i + 1] == 'c')
     303        {
     304            sc->dfg = CACA_DEFAULT;
     305            sc->dbg = CACA_DEFAULT;
     306
     307            caca_set_color_ansi(sc->cv, sc->dfg, sc->dbg);
     308            sc->clearattr = caca_get_attr(sc->cv, -1, -1);
     309            ansi_parse_grcm(sc, 1, &dummy);
     310
     311            reset_conv_state(sc);
     312            skip += 1;
     313        }
    309314
    310315        /* Coding Method Delimiter (CMD), ECMA-48 (1991), ISO/IEC 6429:1992
    311316           (ISO IR 189) */
    312     else if (buffer[i] == '\033' && buffer[i + 1] == 'd')
    313     {
    314         reset_conv_state(sc);
    315         skip += 1;
    316     }
     317        else if (buffer[i] == '\033' && buffer[i + 1] == 'd')
     318        {
     319            reset_conv_state(sc);
     320            skip += 1;
     321        }
    317322
    318323        /* GZDM4, G0-Designators, multi, 94^n chars [grandfathered short form
    319324           from ISO 2022:1986] */
    320     else if (buffer[i] == '\033' && buffer[i + 1] == '$'
    321              && (buffer[i + 2] >= '@') && (buffer[i + 2] <= 'C'))
    322     {
    323         sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 2]);
    324         skip += 2;
    325     }
     325        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     326                 && (buffer[i + 2] >= '@') && (buffer[i + 2] <= 'C'))
     327        {
     328            sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 2]);
     329            skip += 2;
     330        }
    326331
    327332        /* GnDMx Gn-Designators, 9x^n chars; need one more char to distinguish
    328333           these */
    329     else if (buffer[i] == '\033' && buffer[i + 1] == '$' && (i + 3 >= size))
    330         break;
     334        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     335                 && (i + 3 >= size))
     336            break;
    331337
    332338        /* GZD4 G0-Designator, 94 chars */
    333     else if (buffer[i] == '\033' && buffer[i + 1] == '(')
    334     {
    335         sc->conv_state.gn[0] = buffer[i + 2];
    336         skip += 2;
    337     }
     339        else if (buffer[i] == '\033' && buffer[i + 1] == '(')
     340        {
     341            sc->conv_state.gn[0] = buffer[i + 2];
     342            skip += 2;
     343        }
    338344
    339345        /* G1D4 G1-Designator, 94 chars */
    340     else if (buffer[i] == '\033' && buffer[i + 1] == ')')
    341     {
    342         sc->conv_state.gn[1] = buffer[i + 2];
    343         skip += 2;
    344     }
     346        else if (buffer[i] == '\033' && buffer[i + 1] == ')')
     347        {
     348            sc->conv_state.gn[1] = buffer[i + 2];
     349            skip += 2;
     350        }
    345351
    346352        /* G2D4 G2-Designator, 94 chars */
    347     else if (buffer[i] == '\033' && buffer[i + 1] == '*')
    348     {
    349         sc->conv_state.gn[2] = buffer[i + 2];
    350         skip += 2;
    351     }
     353        else if (buffer[i] == '\033' && buffer[i + 1] == '*')
     354        {
     355            sc->conv_state.gn[2] = buffer[i + 2];
     356            skip += 2;
     357        }
    352358
    353359        /* G3D4 G3-Designator, 94 chars */
    354     else if (buffer[i] == '\033' && buffer[i + 1] == '+')
    355     {
    356         sc->conv_state.gn[3] = buffer[i + 2];
    357         skip += 2;
    358     }
     360        else if (buffer[i] == '\033' && buffer[i + 1] == '+')
     361        {
     362            sc->conv_state.gn[3] = buffer[i + 2];
     363            skip += 2;
     364        }
    359365
    360366        /* G2D6 G2-Designator, 96 chars */
    361     else if (buffer[i] == '\033' && buffer[i + 1] == '.')
    362     {
    363         sc->conv_state.gn[2] = LITERAL2CHAR('.', buffer[i + 2]);
    364         skip += 2;
    365     }
     367        else if (buffer[i] == '\033' && buffer[i + 1] == '.')
     368        {
     369            sc->conv_state.gn[2] = LITERAL2CHAR('.', buffer[i + 2]);
     370            skip += 2;
     371        }
    366372
    367373        /* G3D6 G3-Designator, 96 chars */
    368     else if (buffer[i] == '\033' && buffer[i + 1] == '/')
    369     {
    370         sc->conv_state.gn[3] = LITERAL2CHAR('.', buffer[i + 2]);
    371         skip += 2;
    372     }
     374        else if (buffer[i] == '\033' && buffer[i + 1] == '/')
     375        {
     376            sc->conv_state.gn[3] = LITERAL2CHAR('.', buffer[i + 2]);
     377            skip += 2;
     378        }
    373379
    374380        /* GZDM4 G0-Designator, 94^n chars */
    375     else if (buffer[i] == '\033' && buffer[i + 1] == '$'
    376              && buffer[i + 2] == '(')
    377     {
    378         sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 3]);
    379         skip += 3;
    380     }
     381        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     382                 && buffer[i + 2] == '(')
     383        {
     384            sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 3]);
     385            skip += 3;
     386        }
    381387
    382388        /* G1DM4 G1-Designator, 94^n chars */
    383     else if (buffer[i] == '\033' && buffer[i + 1] == '$'
    384              && buffer[i + 2] == ')')
    385     {
    386         sc->conv_state.gn[1] = LITERAL2CHAR('$', buffer[i + 3]);
    387         skip += 3;
    388     }
     389        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     390                 && buffer[i + 2] == ')')
     391        {
     392            sc->conv_state.gn[1] = LITERAL2CHAR('$', buffer[i + 3]);
     393            skip += 3;
     394        }
    389395
    390396        /* G2DM4 G2-Designator, 94^n chars */
    391     else if (buffer[i] == '\033' && buffer[i + 1] == '$'
    392              && buffer[i + 2] == '*')
    393     {
    394         sc->conv_state.gn[2] = LITERAL2CHAR('$', buffer[i + 3]);
    395         skip += 3;
    396     }
     397        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     398                 && buffer[i + 2] == '*')
     399        {
     400            sc->conv_state.gn[2] = LITERAL2CHAR('$', buffer[i + 3]);
     401            skip += 3;
     402        }
    397403
    398404        /* G3DM4 G3-Designator, 94^n chars */
    399     else if (buffer[i] == '\033' && buffer[i + 1] == '$'
    400              && buffer[i + 2] == '+')
    401     {
    402         sc->conv_state.gn[3] = LITERAL2CHAR('$', buffer[i + 3]);
    403         skip += 3;
    404     }
     405        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     406                 && buffer[i + 2] == '+')
     407        {
     408            sc->conv_state.gn[3] = LITERAL2CHAR('$', buffer[i + 3]);
     409            skip += 3;
     410        }
    405411
    406412        /* G2DM6 G2-Designator, 96^n chars */
    407     else if (buffer[i] == '\033' && buffer[i + 1] == '$'
    408              && buffer[i + 2] == '.')
    409     {
    410         sc->conv_state.gn[2] = LITERAL3CHAR('$', '.', buffer[i + 3]);
    411         skip += 3;
    412     }
     413        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     414                 && buffer[i + 2] == '.')
     415        {
     416            sc->conv_state.gn[2] = LITERAL3CHAR('$', '.', buffer[i + 3]);
     417            skip += 3;
     418        }
    413419
    414420        /* G3DM6 G3-Designator, 96^n chars */
    415     else if (buffer[i] == '\033' && buffer[i + 1] == '$'
    416              && buffer[i + 2] == '/')
    417     {
    418         sc->conv_state.gn[3] = LITERAL3CHAR('$', '.', buffer[i + 3]);
    419         skip += 3;
    420     }
    421     else if (buffer[i] == '\033' && buffer[i + 1] == '#')
    422     {
    423         debug("ansi private '#' sequence\n");
    424 
    425         switch (buffer[i + 2])
    426         {
    427         case '8':              /* DECALN Fills the entire screen area with
     421        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
     422                 && buffer[i + 2] == '/')
     423        {
     424            sc->conv_state.gn[3] = LITERAL3CHAR('$', '.', buffer[i + 3]);
     425            skip += 3;
     426        }
     427        else if (buffer[i] == '\033' && buffer[i + 1] == '#')
     428        {
     429            debug("ansi private '#' sequence\n");
     430
     431            switch (buffer[i + 2])
     432            {
     433            case '8':          /* DECALN Fills the entire screen area with
    428434                                   uppercase Es for screen focus and
    429435                                   alignment. */
    430             for (j = 0; j < height; j++)
    431             {
    432                 for (k = 0; k < width; k++)
    433                 {
    434                     caca_put_char(sc->cv, k, j, 'E');
    435                 }
    436             }
    437             skip += 2;
    438             break;
    439 
    440         default:
    441             debug("Unknow private sequence 'ESC#%c'\n", buffer[i + 2]);
    442             continue;
    443         }
    444 
    445     }
     436                for (j = 0; j < height; j++)
     437                {
     438                    for (k = 0; k < width; k++)
     439                    {
     440                        caca_put_char(sc->cv, k, j, 'E');
     441                    }
     442                }
     443                skip += 2;
     444                break;
     445
     446            default:
     447                debug("Unknow private sequence 'ESC#%c'\n", buffer[i + 2]);
     448                continue;
     449            }
     450
     451        }
    446452        /* Interpret escape commands, as per Standard ECMA-48 "Control
    447453           Functions for Coded Character Sets", 5.4. Control sequences. */
    448     else if (buffer[i] == '\033' && buffer[i + 1] == '[')
    449     {
    450         unsigned int argc = 0, argv[101];
    451         unsigned int param, inter, junk, final;
    452 
    453 
    454         /* Compute offsets to parameter bytes, intermediate bytes and to the
    455            final byte. Only the final byte is mandatory, there can be zero of
    456            the others. 0 param=2 inter final final+1
    457            +-----+------------------+---------------------+-----------------+
    458            | CSI | parameter bytes | intermediate bytes | final byte | | |
    459            0x30 - 0x3f | 0x20 - 0x2f | 0x40 - 0x7e | | ^[[ | 0123456789:;<=>?
    460            | SPC !"#$%&'()*+,-./ | azAZ@[\]^_`{|}~ |
    461            +-----+------------------+---------------------+-----------------+ */
    462         param = 2;
    463 
    464         /* vttest use to interleave normal characters (\014 CR or \010 BS)
    465            into CSI sequences, either directly after ESC[ or after param.
    466            Can't find anything related to this in any documentation nor XTerm
    467            sources, thought. */
    468 
    469         for (junk = param; i + junk < size; junk++)
    470             if (buffer[i + junk] < 0x20)
    471             {
    472                 handle_single_char(buffer[i + junk], &x, &y, screen_list, sc);
    473             }
    474             else
    475             {
    476                 break;
    477             }
    478 
    479         /* Intermediate offset */
    480         for (inter = junk; i + inter < size; inter++)
    481             if (buffer[i + inter] < 0x30 || buffer[i + inter] > 0x3f)
    482             {
    483                 break;
    484             }
    485         /* Interleaved character */
    486         for (junk = inter; i + junk < size; junk++)
    487             if (buffer[i + junk] < 0x20)
    488             {
    489                 handle_single_char(buffer[i + junk], &x, &y, screen_list, sc);
    490             }
    491             else
    492             {
    493                 break;
    494             }
    495 
    496         /* Final Byte offset */
    497         for (final = junk; i + final < size; final++)
    498             if (buffer[i + final] < 0x20 || buffer[i + final] > 0x2f)
    499             {
    500                 break;
    501             }
    502         if (i + final >= size
    503             || buffer[i + final] < 0x40 || buffer[i + final] > 0x7e)
    504         {
    505             debug("ansi Invalid Final Byte (%d %c)\n", buffer[i + final],
    506                   buffer[i + final]);
    507             break;              /* Invalid Final Byte */
    508         }
    509 
    510         skip += final;
    511 
    512         /* Sanity checks */
    513         if (param < inter && buffer[i + param] >= 0x3c)
    514         {
    515             /* Private sequence, only parse what we know */
    516             debug("ansi import: private sequence \"^[[%.*s\"",
    517                   final - param + 1, buffer + i + param);
    518             continue;           /* Private sequence, skip it entirely */
    519         }
    520 
    521         if (final - param > 100)
    522             continue;           /* Suspiciously long sequence, skip it */
    523 
    524         /* Parse parameter bytes as per ECMA-48 5.4.2: Parameter string format
    525          */
    526         if (param < inter)
    527         {
    528             argv[0] = 0;
    529             for (j = param; j < inter; j++)
    530             {
    531                 if (buffer[i + j] == ';')
    532                     argv[++argc] = 0;
    533                 else if (buffer[i + j] >= '0' && buffer[i + j] <= '9')
    534                     argv[argc] = 10 * argv[argc] + (buffer[i + j] - '0');
    535             }
    536             argc++;
    537         }
    538 
    539         /* Interpret final byte. The code representations are given in ECMA-48
    540            5.4: Control sequences, and the code definitions are given in
    541            ECMA-48 8.3: Definition of control functions. */
    542         debug("ansi import: command '%c'", buffer[i + final]);
    543         switch (buffer[i + final])
    544         {
    545         case 'A':              /* CUU (0x41) - Cursor Up */
    546             y -= argc ? argv[0] : 1;
    547             if (y < 0)
    548                 y = 0;
    549             break;
    550         case 'B':              /* CUD (0x42) - Cursor Down */
    551             y += argc ? argv[0] : 1;
    552             break;
    553         case 'C':              /* CUF (0x43) - Cursor Right */
    554             x += argc ? argv[0] : 1;
    555             break;
    556         case 'D':              /* CUB (0x44) - Cursor Left */
    557             x -= argc ? argv[0] : 1;
    558             if (x < 0)
    559                 x = 0;
    560             break;
    561         case 'G':              /* CHA (0x47) - Cursor Character Absolute */
    562             x = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
    563             break;
    564         case 'H':              /* CUP (0x48) - Cursor Position */
    565             x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
    566             y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
    567             debug("ansi CUP : Cursor at %dx%d\n", x, y);
    568             break;
    569         case 'J':              /* ED (0x4a) - Erase In Page */
    570             savedattr = caca_get_attr(sc->cv, -1, -1);
    571             caca_set_attr(sc->cv, sc->clearattr);
    572             if (!argc || argv[0] == 0)
    573             {
    574                 caca_draw_line(sc->cv, x, y, width, y, ' ');
    575                 caca_fill_box(sc->cv, 0, y + 1, width, height - 1, ' ');
    576             }
    577             else if (argv[0] == 1)
    578             {
    579                 caca_fill_box(sc->cv, 0, 0, width, y, ' ');
    580                 caca_draw_line(sc->cv, 0, y, x, y, ' ');
    581             }
    582             else if (argv[0] == 2)
    583             {
    584                 // x = y = 0;
    585                 caca_fill_box(sc->cv, 0, 0, width, height, ' ');
    586             }
    587             caca_set_attr(sc->cv, savedattr);
    588             break;
    589         case 'K':              /* EL (0x4b) - Erase In Line */
    590             debug("ansi EL : cursor at %dx%d\n", x, y);
    591             if (!argc || argv[0] == 0)
    592             {
    593                 caca_draw_line(sc->cv, x, y, width, y, ' ');
    594             }
    595             else if (argv[0] == 1)
    596             {
    597                 caca_draw_line(sc->cv, 0, y, x, y, ' ');
    598             }
    599             else if (argv[0] == 2)
    600             {
    601                 caca_draw_line(sc->cv, 0, y, width, y, ' ');
    602             }
    603             break;
    604         case 'L':              /* IL - Insert line */
    605             {
    606                 unsigned int nb_lines = argc ? argv[0] : 1;
    607                 for (j = bottom - 1; j >= (unsigned int)y + nb_lines; j--)
    608                 {
    609                     for (k = 0; k < width; k++)
    610                     {
    611                         caca_put_char(sc->cv, k, j,
    612                                       caca_get_char(sc->cv, k, j - nb_lines));
    613                         caca_put_attr(sc->cv, k, j,
    614                                       caca_get_attr(sc->cv, k, j - nb_lines));
    615                     }
    616                     caca_draw_line(sc->cv, 0, j - nb_lines, width,
    617                                    j - nb_lines, ' ');
    618                 }
    619             }
    620             break;
    621         case 'P':              /* DCH (0x50) - Delete Character */
    622             if (!argc || argv[0] == 0)
    623                 argv[0] = 1;    /* echo -ne 'foobar\r\e[0P\n' */
    624             /* Jylam : Start from x, not 0 */
    625             for (j = x; (unsigned int)(j + argv[0]) < width; j++)
    626             {
    627                 caca_put_char(sc->cv, j, y,
    628                               caca_get_char(sc->cv, j + argv[0], y));
    629                 caca_put_attr(sc->cv, j, y,
    630                               caca_get_attr(sc->cv, j + argv[0], y));
    631             }
    632             break;              /* Jylam: this one was missing I guess */
    633 #if 0
    634             savedattr = caca_get_attr(sc->cv, -1, -1);
    635             caca_set_attr(sc->cv, sc->clearattr);
    636             for (; (unsigned int)j < width; j++)
    637                 caca_put_char(sc->cv, j, y, ' ');
    638             caca_set_attr(sc->cv, savedattr);
    639 #endif
    640         case 'X':              /* ECH (0x58) - Erase Character */
    641             if (argc && argv[0])
    642             {
     454        else if (buffer[i] == '\033' && buffer[i + 1] == '[')
     455        {
     456            unsigned int argc = 0, argv[101];
     457            unsigned int param, inter, junk, final;
     458
     459
     460            /* Compute offsets to parameter bytes, intermediate bytes and to
     461               the final byte. Only the final byte is mandatory, there can be
     462               zero of the others. 0 param=2 inter final final+1
     463               +-----+------------------+---------------------+-----------------+
     464               | CSI | parameter bytes | intermediate bytes | final byte | | |
     465               0x30 - 0x3f | 0x20 - 0x2f | 0x40 - 0x7e | | ^[[ | 0123456789:;<=>?
     466               | SPC !"#$%&'()*+,-./ | azAZ@[\]^_`{|}~ |
     467               +-----+------------------+---------------------+-----------------+ */
     468            param = 2;
     469
     470            /* vttest use to interleave normal characters (\014 CR or \010 BS)
     471               into CSI sequences, either directly after ESC[ or after param.
     472               Can't find anything related to this in any documentation nor
     473               XTerm sources, thought. */
     474
     475            for (junk = param; i + junk < size; junk++)
     476                if (buffer[i + junk] < 0x20)
     477                {
     478                    handle_single_char(buffer[i + junk], &x, &y, screen_list,
     479                                       sc);
     480                }
     481                else
     482                {
     483                    break;
     484                }
     485
     486            /* Intermediate offset */
     487            for (inter = junk; i + inter < size; inter++)
     488                if (buffer[i + inter] < 0x30 || buffer[i + inter] > 0x3f)
     489                {
     490                    break;
     491                }
     492            /* Interleaved character */
     493            for (junk = inter; i + junk < size; junk++)
     494                if (buffer[i + junk] < 0x20)
     495                {
     496                    handle_single_char(buffer[i + junk], &x, &y, screen_list,
     497                                       sc);
     498                }
     499                else
     500                {
     501                    break;
     502                }
     503
     504            /* Final Byte offset */
     505            for (final = junk; i + final < size; final++)
     506                if (buffer[i + final] < 0x20 || buffer[i + final] > 0x2f)
     507                {
     508                    break;
     509                }
     510            if (i + final >= size
     511                || buffer[i + final] < 0x40 || buffer[i + final] > 0x7e)
     512            {
     513                debug("ansi Invalid Final Byte (%d %c)\n", buffer[i + final],
     514                      buffer[i + final]);
     515                break;          /* Invalid Final Byte */
     516            }
     517
     518            skip += final;
     519
     520            /* Sanity checks */
     521            if (param < inter && buffer[i + param] >= 0x3c)
     522            {
     523                /* Private sequence, only parse what we know */
     524                debug("ansi import: private sequence \"^[[%.*s\"",
     525                      final - param + 1, buffer + i + param);
     526                continue;       /* Private sequence, skip it entirely */
     527            }
     528
     529            if (final - param > 100)
     530                continue;       /* Suspiciously long sequence, skip it */
     531
     532            /* Parse parameter bytes as per ECMA-48 5.4.2: Parameter string
     533               format */
     534            if (param < inter)
     535            {
     536                argv[0] = 0;
     537                for (j = param; j < inter; j++)
     538                {
     539                    if (buffer[i + j] == ';')
     540                        argv[++argc] = 0;
     541                    else if (buffer[i + j] >= '0' && buffer[i + j] <= '9')
     542                        argv[argc] = 10 * argv[argc] + (buffer[i + j] - '0');
     543                }
     544                argc++;
     545            }
     546
     547            /* Interpret final byte. The code representations are given in
     548               ECMA-48 5.4: Control sequences, and the code definitions are
     549               given in ECMA-48 8.3: Definition of control functions. */
     550            debug("ansi import: command '%c'", buffer[i + final]);
     551            switch (buffer[i + final])
     552            {
     553            case 'A':          /* CUU (0x41) - Cursor Up */
     554                y -= argc ? argv[0] : 1;
     555                if (y < 0)
     556                    y = 0;
     557                break;
     558            case 'B':          /* CUD (0x42) - Cursor Down */
     559                y += argc ? argv[0] : 1;
     560                break;
     561            case 'C':          /* CUF (0x43) - Cursor Right */
     562                x += argc ? argv[0] : 1;
     563                break;
     564            case 'D':          /* CUB (0x44) - Cursor Left */
     565                x -= argc ? argv[0] : 1;
     566                if (x < 0)
     567                    x = 0;
     568                break;
     569            case 'G':          /* CHA (0x47) - Cursor Character Absolute */
     570                x = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
     571                break;
     572            case 'H':          /* CUP (0x48) - Cursor Position */
     573                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
     574                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
     575                debug("ansi CUP : Cursor at %dx%d\n", x, y);
     576                break;
     577            case 'J':          /* ED (0x4a) - Erase In Page */
    643578                savedattr = caca_get_attr(sc->cv, -1, -1);
    644579                caca_set_attr(sc->cv, sc->clearattr);
    645                 caca_draw_line(sc->cv, x, y, x + argv[0] - 1, y, ' ');
     580                if (!argc || argv[0] == 0)
     581                {
     582                    caca_draw_line(sc->cv, x, y, width, y, ' ');
     583                    caca_fill_box(sc->cv, 0, y + 1, width, height - 1, ' ');
     584                }
     585                else if (argv[0] == 1)
     586                {
     587                    caca_fill_box(sc->cv, 0, 0, width, y, ' ');
     588                    caca_draw_line(sc->cv, 0, y, x, y, ' ');
     589                }
     590                else if (argv[0] == 2)
     591                {
     592                    // x = y = 0;
     593                    caca_fill_box(sc->cv, 0, 0, width, height, ' ');
     594                }
    646595                caca_set_attr(sc->cv, savedattr);
    647             }
    648         case 'd':              /* VPA (0x64) - Line Position Absolute */
    649             y = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
    650             break;
    651         case 'f':              /* HVP (0x66) - Character And Line Position */
    652             x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
    653             y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
    654             break;
    655         case 'r':              /* FIXME */
    656             if (argc == 2)      /* DCSTBM - Set top and bottom margin */
    657             {
    658                 debug("DCSTBM %d %d", argv[0], argv[1]);
    659                 top = argv[0];
    660                 bottom = argv[1];
     596                break;
     597            case 'K':          /* EL (0x4b) - Erase In Line */
     598                debug("ansi EL : cursor at %dx%d\n", x, y);
     599                if (!argc || argv[0] == 0)
     600                {
     601                    caca_draw_line(sc->cv, x, y, width, y, ' ');
     602                }
     603                else if (argv[0] == 1)
     604                {
     605                    caca_draw_line(sc->cv, 0, y, x, y, ' ');
     606                }
     607                else if (argv[0] == 2)
     608                {
     609                    caca_draw_line(sc->cv, 0, y, width, y, ' ');
     610                }
     611                break;
     612            case 'L':          /* IL - Insert line */
     613                {
     614                    unsigned int nb_lines = argc ? argv[0] : 1;
     615                    for (j = bottom - 1; j >= (unsigned int)y + nb_lines; j--)
     616                    {
     617                        for (k = 0; k < width; k++)
     618                        {
     619                            caca_put_char(sc->cv, k, j,
     620                                          caca_get_char(sc->cv, k,
     621                                                        j - nb_lines));
     622                            caca_put_attr(sc->cv, k, j,
     623                                          caca_get_attr(sc->cv, k,
     624                                                        j - nb_lines));
     625                        }
     626                        caca_draw_line(sc->cv, 0, j - nb_lines, width,
     627                                       j - nb_lines, ' ');
     628                    }
     629                }
     630                break;
     631            case 'P':          /* DCH (0x50) - Delete Character */
     632                if (!argc || argv[0] == 0)
     633                    argv[0] = 1;        /* echo -ne 'foobar\r\e[0P\n' */
     634                /* Jylam : Start from x, not 0 */
     635                for (j = x; (unsigned int)(j + argv[0]) < width; j++)
     636                {
     637                    caca_put_char(sc->cv, j, y,
     638                                  caca_get_char(sc->cv, j + argv[0], y));
     639                    caca_put_attr(sc->cv, j, y,
     640                                  caca_get_attr(sc->cv, j + argv[0], y));
     641                }
     642                break;          /* Jylam: this one was missing I guess */
     643#if 0
     644                savedattr = caca_get_attr(sc->cv, -1, -1);
     645                caca_set_attr(sc->cv, sc->clearattr);
     646                for (; (unsigned int)j < width; j++)
     647                    caca_put_char(sc->cv, j, y, ' ');
     648                caca_set_attr(sc->cv, savedattr);
     649#endif
     650            case 'X':          /* ECH (0x58) - Erase Character */
     651                if (argc && argv[0])
     652                {
     653                    savedattr = caca_get_attr(sc->cv, -1, -1);
     654                    caca_set_attr(sc->cv, sc->clearattr);
     655                    caca_draw_line(sc->cv, x, y, x + argv[0] - 1, y, ' ');
     656                    caca_set_attr(sc->cv, savedattr);
     657                }
     658            case 'd':          /* VPA (0x64) - Line Position Absolute */
     659                y = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
     660                break;
     661            case 'f':          /* HVP (0x66) - Character And Line Position */
     662                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
     663                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
     664                break;
     665            case 'r':          /* FIXME */
     666                if (argc == 2)  /* DCSTBM - Set top and bottom margin */
     667                {
     668                    debug("DCSTBM %d %d", argv[0], argv[1]);
     669                    top = argv[0];
     670                    bottom = argv[1];
     671                }
     672                else
     673                    debug("ansi import: command r with %d params", argc);
     674                break;
     675            case 'h':          /* SM (0x68) - FIXME */
     676                debug("ansi import: set mode %i", argc ? (int)argv[0] : -1);
     677                break;
     678            case 'l':          /* RM (0x6c) - FIXME */
     679                debug("ansi import: reset mode %i", argc ? (int)argv[0] : -1);
     680                break;
     681            case 'm':          /* SGR (0x6d) - Select Graphic Rendition */
     682                if (argc)
     683                    ansi_parse_grcm(sc, argc, argv);
     684                else
     685                    ansi_parse_grcm(sc, 1, &dummy);
     686                break;
     687            case 's':          /* Private (save cursor position) */
     688                save_x = x;
     689                save_y = y;
     690                break;
     691            case 'u':          /* Private (reload cursor position) */
     692                x = save_x;
     693                y = save_y;
     694                break;
     695            default:
     696                debug("ansi import: unknown command \"^[[%.*s\"",
     697                      final - param + 1, buffer + i + param);
     698                break;
     699            }
     700        }
     701
     702        /* Parse OSC stuff. */
     703        else if (buffer[i] == '\033' && buffer[i + 1] == ']')
     704        {
     705            char *string;
     706            unsigned int command = 0;
     707            unsigned int mode = 2, semicolon, final;
     708
     709            for (semicolon = mode; i + semicolon < size; semicolon++)
     710            {
     711                if (buffer[i + semicolon] < '0' || buffer[i + semicolon] > '9')
     712                    break;
     713                command = 10 * command + (buffer[i + semicolon] - '0');
     714            }
     715
     716            if (i + semicolon >= size || buffer[i + semicolon] != ';')
     717                break;          /* Invalid Mode */
     718
     719            for (final = semicolon + 1; i + final < size; final++)
     720                if (buffer[i + final] < 0x20)
     721                    break;
     722
     723            if (i + final >= size || buffer[i + final] != '\a')
     724                break;          /* Not enough data or no bell found */
     725            /* FIXME: XTerm also reacts to <ESC><backslash> and <ST> */
     726            /* FIXME: differenciate between not enough data (try again) and
     727               invalid data (print shit) */
     728
     729            skip += final;
     730
     731            string = malloc(final - (semicolon + 1) + 1);
     732            memcpy(string, buffer + i + (semicolon + 1),
     733                   final - (semicolon + 1));
     734            string[final - (semicolon + 1)] = '\0';
     735            debug("ansi import: got OSC command %i string '%s'", command,
     736                  string);
     737            if (command == 0 || command == 2)
     738            {
     739                if (sc->title)
     740                    free(sc->title);
     741                sc->title = string;
    661742            }
    662743            else
    663                 debug("ansi import: command r with %d params", argc);
    664             break;
    665         case 'h':              /* SM (0x68) - FIXME */
    666             debug("ansi import: set mode %i", argc ? (int)argv[0] : -1);
    667             break;
    668         case 'l':              /* RM (0x6c) - FIXME */
    669             debug("ansi import: reset mode %i", argc ? (int)argv[0] : -1);
    670             break;
    671         case 'm':              /* SGR (0x6d) - Select Graphic Rendition */
    672             if (argc)
    673                 ansi_parse_grcm(sc, argc, argv);
     744                free(string);
     745        }
     746
     747        /* Get the character we’re going to paste */
     748        else
     749        {
     750            size_t bytes;
     751
     752            if (i + 6 < size)
     753            {
     754                ch = caca_utf8_to_utf32((char const *)(buffer + i), &bytes);
     755            }
    674756            else
    675                 ansi_parse_grcm(sc, 1, &dummy);
    676             break;
    677         case 's':              /* Private (save cursor position) */
    678             save_x = x;
    679             save_y = y;
    680             break;
    681         case 'u':              /* Private (reload cursor position) */
    682             x = save_x;
    683             y = save_y;
    684             break;
    685         default:
    686             debug("ansi import: unknown command \"^[[%.*s\"",
    687                   final - param + 1, buffer + i + param);
    688             break;
    689         }
    690     }
    691 
    692         /* Parse OSC stuff. */
    693     else if (buffer[i] == '\033' && buffer[i + 1] == ']')
    694     {
    695         char *string;
    696         unsigned int command = 0;
    697         unsigned int mode = 2, semicolon, final;
    698 
    699         for (semicolon = mode; i + semicolon < size; semicolon++)
    700         {
    701             if (buffer[i + semicolon] < '0' || buffer[i + semicolon] > '9')
    702                 break;
    703             command = 10 * command + (buffer[i + semicolon] - '0');
    704         }
    705 
    706         if (i + semicolon >= size || buffer[i + semicolon] != ';')
    707             break;              /* Invalid Mode */
    708 
    709         for (final = semicolon + 1; i + final < size; final++)
    710             if (buffer[i + final] < 0x20)
    711                 break;
    712 
    713         if (i + final >= size || buffer[i + final] != '\a')
    714             break;              /* Not enough data or no bell found */
    715         /* FIXME: XTerm also reacts to <ESC><backslash> and <ST> */
    716         /* FIXME: differenciate between not enough data (try again) and
    717            invalid data (print shit) */
    718 
    719         skip += final;
    720 
    721         string = malloc(final - (semicolon + 1) + 1);
    722         memcpy(string, buffer + i + (semicolon + 1), final - (semicolon + 1));
    723         string[final - (semicolon + 1)] = '\0';
    724         debug("ansi import: got OSC command %i string '%s'", command, string);
    725         if (command == 0 || command == 2)
    726         {
    727             if (sc->title)
    728                 free(sc->title);
    729             sc->title = string;
    730         }
    731         else
    732             free(string);
    733     }
    734 
    735         /* Get the character we’re going to paste */
    736     else
    737     {
    738         size_t bytes;
    739 
    740         if (i + 6 < size)
    741         {
    742             ch = caca_utf8_to_utf32((char const *)(buffer + i), &bytes);
    743         }
    744         else
    745         {
    746             /* Add a trailing zero to what we're going to read */
    747             char tmp[7];
    748             memcpy(tmp, buffer + i, size - i);
    749             tmp[size - i] = '\0';
    750             ch = caca_utf8_to_utf32(tmp, &bytes);
    751         }
    752 
    753         if (!bytes)
    754         {
    755             /* If the Unicode is invalid, assume it was latin1. */
    756             ch = buffer[i];
    757             bytes = 1;
    758         }
    759 
    760         /* very incomplete ISO-2022 implementation tailored to DEC ACS */
    761         if (sc->conv_state.cs == '@')
    762         {
    763             if (((ch > ' ') && (ch <= '~'))
    764                 &&
    765                 (sc->conv_state.
    766                  gn[sc->conv_state.ss ? sc->conv_state.
    767                     gn[sc->conv_state.ss] : sc->conv_state.glr[0]] == '0'))
    768             {
    769                 ch = dec_acs(ch);
    770             }
    771             else if (((ch > 0x80) && (ch < 0xff))
    772                      && (sc->conv_state.gn[sc->conv_state.glr[1]] == '0'))
    773             {
    774                 ch = dec_acs(ch + ' ' - 0x80);
    775             }
    776         }
    777         sc->conv_state.ss = 0;  /* no single-shift (GL) */
    778 
    779         wch = caca_utf32_is_fullwidth(ch) ? 2 : 1;
    780 
    781         skip += bytes - 1;
    782     }
    783 
    784     /* Wrap long lines or grow horizontally */
    785     while ((unsigned int)x + wch > width)
    786     {
    787         x -= width;
    788         y++;
    789     }
    790 
    791     /* Scroll or grow vertically */
    792     if ((unsigned int)y >= bottom)
    793     {
    794         int lines = (y - bottom) + 1;
    795 
    796         savedattr = caca_get_attr(sc->cv, -1, -1);
    797 
    798         for (j = top - 1; j + lines < bottom; j++)
    799         {
    800             for (k = 0; k < width; k++)
    801             {
    802                 caca_put_char(sc->cv, k, j,
    803                               caca_get_char(sc->cv, k, j + lines));
    804                 caca_put_attr(sc->cv, k, j,
    805                               caca_get_attr(sc->cv, k, j + lines));
    806             }
    807         }
    808         caca_set_attr(sc->cv, sc->clearattr);
    809         caca_fill_box(sc->cv, 0, bottom - lines, width, bottom - 1, ' ');
    810         y -= lines;
    811         caca_set_attr(sc->cv, savedattr);
    812     }
     757            {
     758                /* Add a trailing zero to what we're going to read */
     759                char tmp[7];
     760                memcpy(tmp, buffer + i, size - i);
     761                tmp[size - i] = '\0';
     762                ch = caca_utf8_to_utf32(tmp, &bytes);
     763            }
     764
     765            if (!bytes)
     766            {
     767                /* If the Unicode is invalid, assume it was latin1. */
     768                ch = buffer[i];
     769                bytes = 1;
     770            }
     771
     772            /* very incomplete ISO-2022 implementation tailored to DEC ACS */
     773            if (sc->conv_state.cs == '@')
     774            {
     775                if (((ch > ' ') && (ch <= '~'))
     776                    &&
     777                    (sc->
     778                     conv_state.gn[sc->conv_state.ss ? sc->
     779                                   conv_state.gn[sc->conv_state.ss] : sc->
     780                                   conv_state.glr[0]] == '0'))
     781                {
     782                    ch = dec_acs(ch);
     783                }
     784                else if (((ch > 0x80) && (ch < 0xff))
     785                         && (sc->conv_state.gn[sc->conv_state.glr[1]] == '0'))
     786                {
     787                    ch = dec_acs(ch + ' ' - 0x80);
     788                }
     789            }
     790            sc->conv_state.ss = 0;      /* no single-shift (GL) */
     791
     792            wch = caca_utf32_is_fullwidth(ch) ? 2 : 1;
     793
     794            skip += bytes - 1;
     795        }
     796
     797        /* Wrap long lines or grow horizontally */
     798        while ((unsigned int)x + wch > width)
     799        {
     800            x -= width;
     801            y++;
     802        }
     803
     804        /* Scroll or grow vertically */
     805        if ((unsigned int)y >= bottom)
     806        {
     807            int lines = (y - bottom) + 1;
     808
     809            savedattr = caca_get_attr(sc->cv, -1, -1);
     810
     811            for (j = top - 1; j + lines < bottom; j++)
     812            {
     813                for (k = 0; k < width; k++)
     814                {
     815                    caca_put_char(sc->cv, k, j,
     816                                  caca_get_char(sc->cv, k, j + lines));
     817                    caca_put_attr(sc->cv, k, j,
     818                                  caca_get_attr(sc->cv, k, j + lines));
     819                }
     820            }
     821            caca_set_attr(sc->cv, sc->clearattr);
     822            caca_fill_box(sc->cv, 0, bottom - lines, width, bottom - 1, ' ');
     823            y -= lines;
     824            caca_set_attr(sc->cv, savedattr);
     825        }
    813826
    814827        /* Now paste our character, if any */
Note: See TracChangeset for help on using the changeset viewer.