hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

deleted unneeded code

Browse Source
This commit is contained in:
hyung-hwan 2018-02-17 16:09:44 +00:00
parent 22127d384f
commit 093ee93a3c
1 changed files with 13 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lib/read.c
View File

@ -754,16 +754,22 @@ static int get_sharp_token (hcl_t* hcl)
* #bBBBB binary * #bBBBB binary
* #oOOOO octal * #oOOOO octal
* #xXXXX hexadecimal * #xXXXX hexadecimal
* #nil
* #true * #true
* #false * #false
* #include * #include
* #\C * character * #\C character
* #\xHHHH * unicode * #\XHHHH unicode character
* #\uHHHH * #\xHHHH unicode character
* #( ) * array * #\UHHHH unicode character
* #[ ] * byte array * #\uHHHH unicode character
* #{ } * dictionary * #\EDDD error
* #< > -- xxx * #\eDDD error
* #\PHHH smptr
* #\pHHH smptr
* #( ) array
* #[ ] byte array
* #{ } dictionary
*/ */
switch (c) switch (c)
@ -780,27 +786,6 @@ static int get_sharp_token (hcl_t* hcl)
if (get_radix_number (hcl, c, radix) <= -1) return -1; if (get_radix_number (hcl, c, radix) <= -1) return -1;
break; break;
#if 0
/* i changed mind. i don't want to have #t for true and #f for false. */
case 't':
ADD_TOKEN_CHAR (hcl, '#');
ADD_TOKEN_CHAR (hcl, 't');
GET_CHAR_TO (hcl, c);
if (!is_delimiter(c)) goto long_name;
unget_char (hcl, &hcl->c->lxc);
SET_TOKEN_TYPE (hcl, HCL_IOTOK_TRUE);
break;
case 'f':
ADD_TOKEN_CHAR (hcl, '#');
ADD_TOKEN_CHAR (hcl, 'f');
GET_CHAR_TO (hcl, c);
if (!is_delimiter(c)) goto long_name;
unget_char (hcl, &hcl->c->lxc);
SET_TOKEN_TYPE (hcl, HCL_IOTOK_FALSE);
break;
#endif
case '\\': /* character literal */ case '\\': /* character literal */
ADD_TOKEN_CHAR (hcl, '#'); ADD_TOKEN_CHAR (hcl, '#');
ADD_TOKEN_CHAR (hcl, '\\'); ADD_TOKEN_CHAR (hcl, '\\');