diff options
| author | Diego Nehab <diego@tecgraf.puc-rio.br> | 2004-01-19 15:38:33 +0000 |
|---|---|---|
| committer | Diego Nehab <diego@tecgraf.puc-rio.br> | 2004-01-19 15:38:33 +0000 |
| commit | f210508b2286dabfe53b1522ffad36eb8b823a3c (patch) | |
| tree | 5832e3e3adec51d77173b4d2992d0e2f39242be1 | |
| parent | 32a3b93512d946dfcfeaafb7e49162c844c4f3ce (diff) | |
| download | luasocket-f210508b2286dabfe53b1522ffad36eb8b823a3c.tar.gz luasocket-f210508b2286dabfe53b1522ffad36eb8b823a3c.tar.bz2 luasocket-f210508b2286dabfe53b1522ffad36eb8b823a3c.zip | |
Got rid of some of the typecasts...
| -rw-r--r-- | src/mime.c | 38 |
1 files changed, 19 insertions, 19 deletions
| @@ -21,8 +21,8 @@ | |||
| 21 | #define SP 0x20 | 21 | #define SP 0x20 |
| 22 | 22 | ||
| 23 | typedef unsigned char UC; | 23 | typedef unsigned char UC; |
| 24 | static const UC CRLF[2] = {CR, LF}; | 24 | static const char CRLF[2] = {CR, LF}; |
| 25 | static const UC EQCRLF[3] = {'=', CR, LF}; | 25 | static const char EQCRLF[3] = {'=', CR, LF}; |
| 26 | 26 | ||
| 27 | /*=========================================================================*\ | 27 | /*=========================================================================*\ |
| 28 | * Internal function prototypes. | 28 | * Internal function prototypes. |
| @@ -44,7 +44,7 @@ static void qpfill(UC *qpclass, UC *qpunbase); | |||
| 44 | static void qpquote(UC c, luaL_Buffer *buffer); | 44 | static void qpquote(UC c, luaL_Buffer *buffer); |
| 45 | static size_t qpdecode(UC c, UC *input, size_t size, luaL_Buffer *buffer); | 45 | static size_t qpdecode(UC c, UC *input, size_t size, luaL_Buffer *buffer); |
| 46 | static size_t qpencode(UC c, UC *input, size_t size, | 46 | static size_t qpencode(UC c, UC *input, size_t size, |
| 47 | const UC *marker, luaL_Buffer *buffer); | 47 | const char *marker, luaL_Buffer *buffer); |
| 48 | 48 | ||
| 49 | /* code support functions */ | 49 | /* code support functions */ |
| 50 | static luaL_reg func[] = { | 50 | static luaL_reg func[] = { |
| @@ -118,18 +118,18 @@ static int mime_global_fmt(lua_State *L) | |||
| 118 | const UC *last = input + size; | 118 | const UC *last = input + size; |
| 119 | int length = (int) luaL_checknumber(L, 2); | 119 | int length = (int) luaL_checknumber(L, 2); |
| 120 | int left = (int) luaL_optnumber(L, 3, length); | 120 | int left = (int) luaL_optnumber(L, 3, length); |
| 121 | const UC *marker = (UC *) luaL_optstring(L, 4, (char *) CRLF); | 121 | const char *marker = luaL_optstring(L, 4, CRLF); |
| 122 | luaL_Buffer buffer; | 122 | luaL_Buffer buffer; |
| 123 | luaL_buffinit(L, &buffer); | 123 | luaL_buffinit(L, &buffer); |
| 124 | while (input < last) { | 124 | while (input < last) { |
| 125 | luaL_putchar(&buffer, *input++); | 125 | luaL_putchar(&buffer, *input++); |
| 126 | if (--left <= 0) { | 126 | if (--left <= 0) { |
| 127 | luaL_addstring(&buffer, (char *) marker); | 127 | luaL_addstring(&buffer, marker); |
| 128 | left = length; | 128 | left = length; |
| 129 | } | 129 | } |
| 130 | } | 130 | } |
| 131 | if (!input && left < length) { | 131 | if (!input && left < length) { |
| 132 | luaL_addstring(&buffer, (char *) marker); | 132 | luaL_addstring(&buffer, marker); |
| 133 | left = length; | 133 | left = length; |
| 134 | } | 134 | } |
| 135 | luaL_pushresult(&buffer); | 135 | luaL_pushresult(&buffer); |
| @@ -352,7 +352,7 @@ static void qpquote(UC c, luaL_Buffer *buffer) | |||
| 352 | * Once we are sure, output the to the buffer, in the correct form. | 352 | * Once we are sure, output the to the buffer, in the correct form. |
| 353 | \*-------------------------------------------------------------------------*/ | 353 | \*-------------------------------------------------------------------------*/ |
| 354 | static size_t qpencode(UC c, UC *input, size_t size, | 354 | static size_t qpencode(UC c, UC *input, size_t size, |
| 355 | const UC *marker, luaL_Buffer *buffer) | 355 | const char *marker, luaL_Buffer *buffer) |
| 356 | { | 356 | { |
| 357 | input[size++] = c; | 357 | input[size++] = c; |
| 358 | /* deal with all characters we can have */ | 358 | /* deal with all characters we can have */ |
| @@ -362,7 +362,7 @@ static size_t qpencode(UC c, UC *input, size_t size, | |||
| 362 | case QP_CR: | 362 | case QP_CR: |
| 363 | if (size < 2) return size; | 363 | if (size < 2) return size; |
| 364 | if (input[1] == LF) { | 364 | if (input[1] == LF) { |
| 365 | luaL_addstring(buffer, (char *) marker); | 365 | luaL_addstring(buffer, marker); |
| 366 | return 0; | 366 | return 0; |
| 367 | } else qpquote(input[0], buffer); | 367 | } else qpquote(input[0], buffer); |
| 368 | break; | 368 | break; |
| @@ -372,7 +372,7 @@ static size_t qpencode(UC c, UC *input, size_t size, | |||
| 372 | /* if it is the last, quote it and we are done */ | 372 | /* if it is the last, quote it and we are done */ |
| 373 | if (input[1] == CR && input[2] == LF) { | 373 | if (input[1] == CR && input[2] == LF) { |
| 374 | qpquote(input[0], buffer); | 374 | qpquote(input[0], buffer); |
| 375 | luaL_addstring(buffer, (char *) marker); | 375 | luaL_addstring(buffer, marker); |
| 376 | return 0; | 376 | return 0; |
| 377 | } else luaL_putchar(buffer, input[0]); | 377 | } else luaL_putchar(buffer, input[0]); |
| 378 | break; | 378 | break; |
| @@ -401,7 +401,7 @@ static void qppad(UC *input, size_t size, luaL_Buffer *buffer) | |||
| 401 | if (qpclass[input[i]] == QP_PLAIN) luaL_putchar(buffer, input[i]); | 401 | if (qpclass[input[i]] == QP_PLAIN) luaL_putchar(buffer, input[i]); |
| 402 | else qpquote(input[i], buffer); | 402 | else qpquote(input[i], buffer); |
| 403 | } | 403 | } |
| 404 | luaL_addstring(buffer, (char *) EQCRLF); | 404 | luaL_addstring(buffer, EQCRLF); |
| 405 | } | 405 | } |
| 406 | 406 | ||
| 407 | /*-------------------------------------------------------------------------*\ | 407 | /*-------------------------------------------------------------------------*\ |
| @@ -420,7 +420,7 @@ static int mime_global_qp(lua_State *L) | |||
| 420 | const UC *input = (UC *) (lua_isnil(L, 1) ? NULL: | 420 | const UC *input = (UC *) (lua_isnil(L, 1) ? NULL: |
| 421 | luaL_checklstring(L, 1, &isize)); | 421 | luaL_checklstring(L, 1, &isize)); |
| 422 | const UC *last = input + isize; | 422 | const UC *last = input + isize; |
| 423 | const UC *marker = (UC *) luaL_optstring(L, 3, (char *) CRLF); | 423 | const char *marker = luaL_optstring(L, 3, CRLF); |
| 424 | luaL_Buffer buffer; | 424 | luaL_Buffer buffer; |
| 425 | luaL_buffinit(L, &buffer); | 425 | luaL_buffinit(L, &buffer); |
| 426 | while (input < last) | 426 | while (input < last) |
| @@ -530,7 +530,7 @@ static int mime_global_qpfmt(lua_State *L) | |||
| 530 | /* if there's no room in this line for the quoted char, | 530 | /* if there's no room in this line for the quoted char, |
| 531 | * output a soft line break now */ | 531 | * output a soft line break now */ |
| 532 | if (left <= 3) { | 532 | if (left <= 3) { |
| 533 | luaL_addstring(&buffer, (char *) EQCRLF); | 533 | luaL_addstring(&buffer, EQCRLF); |
| 534 | left = length; | 534 | left = length; |
| 535 | } | 535 | } |
| 536 | break; | 536 | break; |
| @@ -543,7 +543,7 @@ static int mime_global_qpfmt(lua_State *L) | |||
| 543 | default: | 543 | default: |
| 544 | /* if in last column, output a soft line break */ | 544 | /* if in last column, output a soft line break */ |
| 545 | if (left <= 1) { | 545 | if (left <= 1) { |
| 546 | luaL_addstring(&buffer, (char *) EQCRLF); | 546 | luaL_addstring(&buffer, EQCRLF); |
| 547 | left = length; | 547 | left = length; |
| 548 | } | 548 | } |
| 549 | } | 549 | } |
| @@ -551,7 +551,7 @@ static int mime_global_qpfmt(lua_State *L) | |||
| 551 | input++; | 551 | input++; |
| 552 | } | 552 | } |
| 553 | if (!input && left < length) { | 553 | if (!input && left < length) { |
| 554 | luaL_addstring(&buffer, (char *) EQCRLF); | 554 | luaL_addstring(&buffer, EQCRLF); |
| 555 | left = length; | 555 | left = length; |
| 556 | } | 556 | } |
| 557 | luaL_pushresult(&buffer); | 557 | luaL_pushresult(&buffer); |
| @@ -569,15 +569,15 @@ static int mime_global_qpfmt(lua_State *L) | |||
| 569 | \*-------------------------------------------------------------------------*/ | 569 | \*-------------------------------------------------------------------------*/ |
| 570 | #define eolcandidate(c) (c == CR || c == LF) | 570 | #define eolcandidate(c) (c == CR || c == LF) |
| 571 | static size_t eolconvert(UC c, UC *input, size_t size, | 571 | static size_t eolconvert(UC c, UC *input, size_t size, |
| 572 | const UC *marker, luaL_Buffer *buffer) | 572 | const char *marker, luaL_Buffer *buffer) |
| 573 | { | 573 | { |
| 574 | input[size++] = c; | 574 | input[size++] = c; |
| 575 | /* deal with all characters we can deal */ | 575 | /* deal with all characters we can deal */ |
| 576 | if (eolcandidate(input[0])) { | 576 | if (eolcandidate(input[0])) { |
| 577 | if (size < 2) return size; | 577 | if (size < 2) return size; |
| 578 | luaL_addstring(buffer, (char *) marker); | 578 | luaL_addstring(buffer, marker); |
| 579 | if (eolcandidate(input[1])) { | 579 | if (eolcandidate(input[1])) { |
| 580 | if (input[0] == input[1]) luaL_addstring(buffer, (char *) marker); | 580 | if (input[0] == input[1]) luaL_addstring(buffer, marker); |
| 581 | } else luaL_putchar(buffer, input[1]); | 581 | } else luaL_putchar(buffer, input[1]); |
| 582 | return 0; | 582 | return 0; |
| 583 | } else { | 583 | } else { |
| @@ -600,7 +600,7 @@ static int mime_global_eol(lua_State *L) | |||
| 600 | const UC *input = (UC *) (lua_isnil(L, 1)? NULL: | 600 | const UC *input = (UC *) (lua_isnil(L, 1)? NULL: |
| 601 | luaL_checklstring(L, 1, &isize)); | 601 | luaL_checklstring(L, 1, &isize)); |
| 602 | const UC *last = input + isize; | 602 | const UC *last = input + isize; |
| 603 | const UC *marker = (UC *) luaL_optstring(L, 3, (char *) CRLF); | 603 | const char *marker = luaL_optstring(L, 3, CRLF); |
| 604 | luaL_Buffer buffer; | 604 | luaL_Buffer buffer; |
| 605 | luaL_buffinit(L, &buffer); | 605 | luaL_buffinit(L, &buffer); |
| 606 | while (input < last) | 606 | while (input < last) |
| @@ -612,7 +612,7 @@ static int mime_global_eol(lua_State *L) | |||
| 612 | asize = eolconvert(*input++, atom, asize, marker, &buffer); | 612 | asize = eolconvert(*input++, atom, asize, marker, &buffer); |
| 613 | /* if there is something in atom, it's one character, and it | 613 | /* if there is something in atom, it's one character, and it |
| 614 | * is a candidate. so we output a new line */ | 614 | * is a candidate. so we output a new line */ |
| 615 | } else if (asize > 0) luaL_addstring(&buffer, (char *) marker); | 615 | } else if (asize > 0) luaL_addstring(&buffer, marker); |
| 616 | luaL_pushresult(&buffer); | 616 | luaL_pushresult(&buffer); |
| 617 | lua_pushlstring(L, (char *) atom, asize); | 617 | lua_pushlstring(L, (char *) atom, asize); |
| 618 | return 2; | 618 | return 2; |
