calcread.c
上传用户:qaz666999
上传日期:2022-08-06
资源大小:2570k
文件大小:4k
源码类别:

数学计算

开发平台:

Unix_Linux

  1. /* Readline support for calc program.
  2. Copyright 2000, 2001 Free Software Foundation, Inc.
  3. This file is part of the GNU MP Library.
  4. This program is free software; you can redistribute it and/or modify it under
  5. the terms of the GNU General Public License as published by the Free Software
  6. Foundation; either version 3 of the License, or (at your option) any later
  7. version.
  8. This program is distributed in the hope that it will be useful, but WITHOUT ANY
  9. WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
  10. PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  11. You should have received a copy of the GNU General Public License along with
  12. this program.  If not, see http://www.gnu.org/licenses/.  */
  13. #include "calc-common.h"
  14. #if WITH_READLINE
  15. #include <stdio.h>   /* for FILE for old versions of readline/readline.h */
  16. #include <stdlib.h>  /* for free */
  17. #include <string.h>  /* for strdup */
  18. #include <unistd.h>  /* for isatty */
  19. #include <readline/readline.h>
  20. #include <readline/history.h>
  21. #include "gmp.h"
  22. /* change this to "#define TRACE(x) x" for a few diagnostics */
  23. #define TRACE(x)
  24. #define MIN(x,y) ((x) < (y) ? (x) : (y))
  25. char *
  26. calc_completion_entry (const char *text, int state)
  27. {
  28.   static int  index, len;
  29.   char  *name;
  30.   if (!state)
  31.     {
  32.       index = 0;
  33.       len = strlen (text);
  34.     }
  35.   TRACE (printf ("calc_completion_entry %s %d, index=%d len=%dn",
  36.  text, state, index, len));
  37.   while ((name = calc_keywords[index].name) != NULL)
  38.     {
  39.       index++;
  40.       if (memcmp (name, text, len) == 0)
  41. return (strdup (name));
  42.     }
  43.   return NULL;
  44. }
  45. void
  46. calc_init_readline (void)
  47. {
  48.   /* By default use readline when the input is a tty.  It's a bit contrary
  49.      to the GNU interface conventions to make the behaviour depend on where
  50.      the input is coming from, but this is pretty convenient.  */
  51.   if (calc_option_readline == -1)
  52.     {
  53.       calc_option_readline = isatty (fileno (stdin));
  54.       TRACE (printf ("calc_option_readline %dn", calc_option_readline));
  55.     }
  56.   if (calc_option_readline)
  57.     {
  58.       printf ("GNU MP demo calculator program, gmp version %sn", gmp_version);
  59.       printf ("Type "help" for help.n");
  60.       rl_readline_name = "gmp-calc";
  61.       rl_completion_entry_function = calc_completion_entry;
  62.     }
  63. }
  64. /* This function is supposed to return YY_NULL to indicate EOF, but that
  65.    constant is only in calclex.c and we don't want to clutter calclex.l with
  66.    this readline stuff, so instead just hard code 0 for YY_NULL.  That's
  67.    it's defined value on unix anyway.  */
  68. int
  69. calc_input (char *buf, size_t max_size)
  70. {
  71.   if (calc_option_readline)
  72.     {
  73.       static char    *line = NULL;
  74.       static size_t  line_size = 0;
  75.       static size_t  upto = 0;
  76.       size_t         copy_size;
  77.       if (upto >= line_size)
  78. {
  79.   if (line != NULL)
  80.     free (line);
  81.   line = readline (calc_more_input ? "more> " : "> ");
  82.   calc_more_input = 1;
  83.   if (line == NULL)
  84.     return 0;
  85.   TRACE (printf ("readline: %sn", line));
  86.   if (line[0] != '')
  87.     add_history (line);
  88.   line_size = strlen (line);
  89.   line[line_size] = 'n';
  90.   line_size++;
  91.   upto = 0;
  92. }
  93.       copy_size = MIN (line_size-upto, max_size);
  94.       memcpy (buf, line+upto, copy_size);
  95.       upto += copy_size;
  96.       return copy_size;
  97.     }
  98.   else
  99.     {
  100.       /* not readline */
  101.       return fread (buf, 1, max_size, stdin);
  102.     }
  103. }
  104. /* This redefined input() might let a traditional lex use the readline
  105.    support here.  Apparently POSIX doesn't specify whether an override like
  106.    this will work, so maybe it'll work or maybe it won't.  This function is
  107.    also not particularly efficient, but don't worry about that, since flex
  108.    is the preferred parser.  */
  109. int
  110. input (void)
  111. {
  112.   char  c;
  113.   if (calc_input (&c, 1) != 1)
  114.     return EOF;
  115.   else
  116.     return (int) c;
  117. }
  118. #endif /* WITH_READLINE */