comparison src/paranormal/libcalc/parser.c @ 1978:fa9f85cebade

s/vfs_/aud_vfs_/g

1977:5a6b60ceaa0f

int yylex (YYSTYPE *yylval, void *yyparam) {
  int c;
  parser_control *pc = (parser_control *) yyparam;
  
  /* Ignore whitespace, get first nonwhite character. */
  while ((c = vfs_getc (pc->input)) == ' ' || c == '\t' || c == '\n');
  
  /* End of input ? */
  if (c == EOF)
    return 0;

  /* Char starts a number => parse the number. */
  if (isdigit (c)) {
    vfs_fseek (pc->input, -1, SEEK_CUR); /* Put the char back. */
    {
      char *old_locale, *saved_locale;

      old_locale = setlocale (LC_ALL, NULL);
      saved_locale = g_strdup (old_locale);
      setlocale (LC_ALL, "C");
      sscanf (((VFSBuffer *)(pc->input->handle))->iter, "%lf", &yylval->d_value);

      while (isdigit(c) || c == '.')
      {
        c = vfs_getc(pc->input);
      }

      vfs_fseek(pc->input, -1, SEEK_CUR);

      setlocale (LC_ALL, saved_locale);
      g_free (saved_locale);
    }
    return NUMBER;

    
    do {
      sym_name = g_string_append_c (sym_name, c);

      /* Get another character. */
      c = vfs_getc (pc->input);
    } while (c != EOF && isalnum (c));
    
    vfs_fseek (pc->input, -1, SEEK_CUR);

    yylval->s_value = sym_name->str;
    
    g_string_free (sym_name, FALSE);
    

  parser_control pc;
  VFSFile *stream;

  g_return_val_if_fail(str != NULL && dict != NULL, NULL);

  stream = vfs_buffer_new_from_string ( (char *) str );

  pc.input = stream;
  pc.expr = expr_new ();
  pc.dict = dict;

    /* Check for error. */
    expr_free (pc.expr);
    pc.expr = NULL;
  }

  vfs_fclose (stream);

  return pc.expr;
}

1978:fa9f85cebade

int yylex (YYSTYPE *yylval, void *yyparam) {
  int c;
  parser_control *pc = (parser_control *) yyparam;
  
  /* Ignore whitespace, get first nonwhite character. */
  while ((c = aud_vfs_getc (pc->input)) == ' ' || c == '\t' || c == '\n');
  
  /* End of input ? */
  if (c == EOF)
    return 0;

  /* Char starts a number => parse the number. */
  if (isdigit (c)) {
    aud_vfs_fseek (pc->input, -1, SEEK_CUR); /* Put the char back. */
    {
      char *old_locale, *saved_locale;

      old_locale = setlocale (LC_ALL, NULL);
      saved_locale = g_strdup (old_locale);
      setlocale (LC_ALL, "C");
      sscanf (((VFSBuffer *)(pc->input->handle))->iter, "%lf", &yylval->d_value);

      while (isdigit(c) || c == '.')
      {
        c = aud_vfs_getc(pc->input);
      }

      aud_vfs_fseek(pc->input, -1, SEEK_CUR);

      setlocale (LC_ALL, saved_locale);
      g_free (saved_locale);
    }
    return NUMBER;

    
    do {
      sym_name = g_string_append_c (sym_name, c);

      /* Get another character. */
      c = aud_vfs_getc (pc->input);
    } while (c != EOF && isalnum (c));
    
    aud_vfs_fseek (pc->input, -1, SEEK_CUR);

    yylval->s_value = sym_name->str;
    
    g_string_free (sym_name, FALSE);
    

  parser_control pc;
  VFSFile *stream;

  g_return_val_if_fail(str != NULL && dict != NULL, NULL);

  stream = aud_vfs_buffer_new_from_string ( (char *) str );

  pc.input = stream;
  pc.expr = expr_new ();
  pc.dict = dict;

    /* Check for error. */
    expr_free (pc.expr);
    pc.expr = NULL;
  }

  aud_vfs_fclose (stream);

  return pc.expr;
}