nasl_lex_ctxt.c File Reference

#include "nasl_lex_ctxt.h"
#include "nasl_func.h"
#include "nasl_global_ctxt.h"
#include "nasl_tree.h"
#include "nasl_var.h"
#include <glib.h>

Include dependency graph for nasl_lex_ctxt.c:

Go to the source code of this file.

Functions
void	init_nasl_library (lex_ctxt *)
	Adds "built-in" variable and function definitions to a context.
lex_ctxt *	init_empty_lex_ctxt ()
void	free_lex_ctxt (lex_ctxt *c)
void	dump_ctxt (lex_ctxt *c)

Function Documentation

dump_ctxt()

void dump_ctxt

(

lex_ctxt *

c

)

Definition at line 52 of file nasl_lex_ctxt.c.

{
  int i;
  named_nasl_var *v;
 
  printf ("--------<CTXT>--------\n");
  if (c->fct_ctxt)
    printf ("Is a function context\n");
  if (c->up_ctxt == NULL)
    printf ("Is the top level context\n");
  if (c->ret_val)
    {
      printf ("Return value\n");
      nasl_dump_tree (c->ret_val);
    }
 
  printf ("Variables:\n");
  for (i = 0; i < VAR_NAME_HASH; i++)
    for (v = c->ctx_vars.hash_elt[i]; v != NULL; v = v->next_var)
      printf ("%s\t", v->var_name);
  putchar ('\n');
 
  printf ("----------------------\n");
}

References struct_lex_ctxt::ctx_vars, struct_lex_ctxt::fct_ctxt, st_nasl_array::hash_elt, nasl_dump_tree(), st_n_nasl_var::next_var, struct_lex_ctxt::ret_val, struct_lex_ctxt::up_ctxt, st_n_nasl_var::var_name, and VAR_NAME_HASH.

Referenced by nasl_dump_ctxt().

Here is the call graph for this function:

Here is the caller graph for this function:

free_lex_ctxt()

void free_lex_ctxt

(

lex_ctxt *

c

)

Definition at line 43 of file nasl_lex_ctxt.c.

{
  deref_cell (c->ret_val);
  free_array (&c->ctx_vars);
  g_hash_table_destroy (c->functions);
  g_free (c);
}

References struct_lex_ctxt::ctx_vars, deref_cell(), free_array(), struct_lex_ctxt::functions, and struct_lex_ctxt::ret_val.

Referenced by exec_nasl_script(), nasl_func_call(), and nasl_lint().

Here is the call graph for this function:

Here is the caller graph for this function:

init_empty_lex_ctxt()

lex_ctxt * init_empty_lex_ctxt

(

void

)

Todo

Initialization of the library seems intuitively be necessary only once (involves "linking" the nasl functions to c code). Consider a "prototype" context that has to be created only once and of which copies are made when needed.

Definition at line 20 of file nasl_lex_ctxt.c.

{
  lex_ctxt *c = g_malloc0 (sizeof (lex_ctxt));
 
  c->ctx_vars.hash_elt = g_malloc0 (sizeof (named_nasl_var *) * VAR_NAME_HASH);
  c->ctx_vars.num_elt = NULL;
  c->ctx_vars.max_idx = 0;
  c->functions = g_hash_table_new_full (g_str_hash, g_str_equal, NULL,
                                        (GDestroyNotify) free_func);
  c->oid = NULL;
  c->ret_val = NULL;
  c->fct_ctxt = 0;

  init_nasl_library (c);
 
  return c;
}

References struct_lex_ctxt::ctx_vars, struct_lex_ctxt::fct_ctxt, free_func(), struct_lex_ctxt::functions, st_nasl_array::hash_elt, init_nasl_library(), st_nasl_array::max_idx, st_nasl_array::num_elt, struct_lex_ctxt::oid, struct_lex_ctxt::ret_val, and VAR_NAME_HASH.

Referenced by exec_nasl_script(), nasl_func_call(), and nasl_lint().

Here is the call graph for this function:

Here is the caller graph for this function:

init_nasl_library()

void init_nasl_library

(

lex_ctxt *

lexic

)

Adds "built-in" variable and function definitions to a context.

Definition at line 514 of file nasl_init.c.

{
  tree_cell tc;
  unsigned i;
 
  memset (&tc, 0, sizeof (tc));
 
  // Initialize constant integer terms
  tc.type = CONST_INT;
  for (i = 0; i < sizeof (libivars) / sizeof (libivars[0]) - 1; i++)
    {
      tc.x.i_val = libivars[i].val;
      if (add_named_var_to_ctxt (lexic, libivars[i].name, &tc) == NULL)
        {
          nasl_perror (lexic, "init_nasl_library: could not define var '%s'\n",
                       libivars[i].name);
          continue;
        }
    }
 
  // Initialize constant string terms
  tc.type = CONST_DATA;
  for (i = 0; i < sizeof (libsvars) / sizeof (libsvars[0]) - 1; i++)
    {
      tc.x.str_val = (char *) libsvars[i].val;
      tc.size = strlen (libsvars[i].val);
      if (add_named_var_to_ctxt (lexic, libsvars[i].name, &tc) == NULL)
        {
          nasl_perror (lexic, "init_nasl_library: could not define var '%s'\n",
                       libsvars[i].name);
          continue;
        }
    }
 
  // Add the "NULL" variable
  if (add_named_var_to_ctxt (lexic, "NULL", NULL) == NULL)
    nasl_perror (lexic, "init_nasl_library: could not define var 'NULL'\n");
}

References add_named_var_to_ctxt(), CONST_DATA, CONST_INT, TC::i_val, libivars, libsvars, name, nasl_perror(), TC::size, TC::str_val, TC::type, val, and TC::x.

Referenced by init_empty_lex_ctxt().

Here is the call graph for this function:

Here is the caller graph for this function: