X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fidentifier.c;h=f1c22ef1b567223579586ca8ac6f24fd3f4e3722;hb=9ade26c8349b4434008c46cf09bc7473ec743972;hp=4b613bb480edb5555cb1532176d745182345c0c4;hpb=afdf3096926b561f4e6511c10fcf73fc6796b9d2;p=pspp-builds.git

diff --git a/src/data/identifier.c b/src/data/identifier.c
index 4b613bb4..f1c22ef1 100644
--- a/src/data/identifier.c
+++ b/src/data/identifier.c
@@ -1,5 +1,5 @@
 /* PSPP - a program for statistical analysis.
-   Copyright (C) 1997-9, 2000, 2005, 2009, 2010 Free Software Foundation, Inc.
+   Copyright (C) 1997-9, 2000, 2005, 2009, 2010, 2011 Free Software Foundation, Inc.
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -23,15 +23,10 @@
 
 #include "data/identifier.h"
 
-#include <assert.h>
 #include <string.h>
 #include <unictype.h>
-#include <unistr.h>
 
 #include "libpspp/assertion.h"
-#include "libpspp/cast.h"
-#include "libpspp/i18n.h"
-#include "libpspp/message.h"
 
 #include "gl/c-ctype.h"
 
@@ -319,20 +314,3 @@ lex_id_to_token (struct substring id)
 
   return T_ID;
 }
-
-/* Returns the name for the given keyword token type. */
-const char *
-lex_id_name (enum token_type token)
-{
-  const struct keyword *kw;
-
-  for (kw = keywords; kw < &keywords[keyword_cnt]; kw++)
-    if (kw->token == token)
-      {
-        /* A "struct substring" is not guaranteed to be
-           null-terminated, as our caller expects, but in this
-           case it always will be. */
-        return ss_data (kw->identifier);
-      }
-  NOT_REACHED ();
-}