From 2985ff255ce9ae7736d27a903209d661ba638c75 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sun, 6 Jan 2008 13:38:03 +0100 Subject: Remove trailing blanks. * README-alpha: * TODO: * doc/idutils.texi: * libidu/scanners.c (set_uchar_ctype, ARGS, get_token_lisp): * src/Makefile.am: * src/fid.c (main): * src/lid.c (report_edit): * Makefile.cfg (local-checks-to-skip): Remove sc_trailing_blank, thus enabling that check. --- libidu/scanners.c | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'libidu/scanners.c') diff --git a/libidu/scanners.c b/libidu/scanners.c index 9efe16f..98343c4 100644 --- a/libidu/scanners.c +++ b/libidu/scanners.c @@ -333,8 +333,8 @@ clear_ushort_ctype (unsigned short *ctype, char const *chars, int type) static void set_uchar_ctype (unsigned char *ctype, char const *chars, int type) { - unsigned char *rct; - unsigned char const *uc; + unsigned char *rct; + unsigned char const *uc; rct = &ctype[1]; uc = (unsigned char const *) chars; @@ -1400,7 +1400,7 @@ get_token_perl (FILE *in_FILE, void const *args, int *flags) obstack_blank (&tokens_obstack, OFFSETOF_TOKEN_NAME); -top: +top: c = getc (in_FILE); while (ISBORING (c)) c = getc (in_FILE); @@ -1447,7 +1447,7 @@ top: } break; - default: + default: if (ISEOF (c)) { new_line = 1; @@ -1500,7 +1500,7 @@ top: { skip_doc = 0; } - else + else { state |= EQ; /* documentation = 1; */ } @@ -1606,7 +1606,7 @@ get_token_lisp (FILE *in_FILE, void const *args, int *flags) int c; obstack_blank (&tokens_obstack, OFFSETOF_TOKEN_NAME); - + top: c = getc (in_FILE); recheck: @@ -1615,23 +1615,23 @@ get_token_lisp (FILE *in_FILE, void const *args, int *flags) case EOF: obstack_free (&tokens_obstack, obstack_finish (&tokens_obstack)); return 0; - + case '(': case ')': case '\'': case '`': /* quote, quasiquote */ goto top; - + case ',': /* unquote */ c = getc (in_FILE); if (c == '@') /* unquote-splicing */ goto top; goto recheck; - + case ';': /* comment */ do { c = getc (in_FILE); } while ( (c != EOF) && (c != '\n')); goto top; - + case '"': /* string with/without ansi-C escapes*/ string: do { @@ -1667,11 +1667,11 @@ get_token_lisp (FILE *in_FILE, void const *args, int *flags) if (c != EOF) ungetc (c, in_FILE); goto ident; - + case '#': id = scanner_buffer; *id++ = c; - + c = getc (in_FILE); if (c == EOF) goto top; @@ -1732,12 +1732,12 @@ get_token_lisp (FILE *in_FILE, void const *args, int *flags) goto top; /* Ignore invalide #-construct */ goto top; - + case '[': case ']': /* EMACS vector aka # (...) in Scheme */ /* EMACS vector object vs Kawa ident */ /* rational: Kawa ident could not start with [ nor with ] */ goto top; - + default: if (is_IDENT1 (c)) { @@ -1785,7 +1785,7 @@ get_token_lisp (FILE *in_FILE, void const *args, int *flags) } } goto top; - + } #undef DG #undef LT -- cgit v1.2.3