tree_cell *
get_hostname (lex_ctxt * lexic)
{
  struct arglist *script_infos = lexic->script_infos;
  char *hostname = (char *) plug_get_hostname (script_infos);
  tree_cell *retc;

  if (hostname == NULL)
    return NULL;

  retc = alloc_tree_cell (0, NULL);
  retc->type = CONST_STR;
  retc->size = strlen (hostname);
  retc->x.str_val = estrdup (hostname);
  return retc;
}