Delete trailing whitespace at end of lines.
[pspp-builds.git] / src / language / utilities / echo.c
index 5405d060f0da33694ab24e7b157836915893853b..7e582cb4af03c0c80a359948ead1441d41631faa 100644 (file)
@@ -1,7 +1,6 @@
 /* PSPP - computes sample statistics. -*-c-*-
 
    Copyright (C) 2005 Free Software Foundation, Inc.
-   Written by John Darrington 2005
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License as
 
 /* Echos a string to the output stream */
 int
-cmd_echo (struct dataset *ds UNUSED)
+cmd_echo (struct lexer *lexer, struct dataset *ds UNUSED)
 {
   struct tab_table *tab;
 
-  if (token != T_STRING) 
+  if (lex_token (lexer) != T_STRING)
     return CMD_FAILURE;
-  
+
   tab = tab_create(1, 1, 0);
 
   tab_dim (tab, tab_natural_dimensions);
   tab_flags (tab, SOMF_NO_TITLE );
 
-  tab_text(tab, 0, 0, 0, ds_cstr (&tokstr));
+  tab_text(tab, 0, 0, 0, ds_cstr (lex_tokstr (lexer)));
 
   tab_submit(tab);