/* $XConsortium: Dispatch.cc /main/2 1996/06/11 16:49:03 cde-hal $
 *
 * (c) Copyright 1996 Digital Equipment Corporation.
 * (c) Copyright 1996 Hewlett-Packard Company.
 * (c) Copyright 1996 International Business Machines Corp.
 * (c) Copyright 1996 Sun Microsystems, Inc.
 * (c) Copyright 1996 Novell, Inc. 
 * (c) Copyright 1996 FUJITSU LIMITED.
 * (c) Copyright 1996 Hitachi.
 */

/* exported interfaces... */
#include "Dispatch.h"

/* imported interfaces... */
#include <assert.h>
#include <string.h>

#include "SGMLName.h"
#include "EntityScope.h"
#include "Token.h"
#include "FlexBuffer.h"
#include "SGMLDefn.h"
#include "SearchPath.h"

#include "OLAF.h"

Task *Dispatch::TaskObject = NULL;
Stack<int> *Dispatch::IgnoreStack = NULL;
int Dispatch::level = 0;
static EntityScope entity_stack;
Token*  Dispatch::tok = new Token();

char* Dispatch::f_file = NULL;
int   Dispatch::f_line = 0;

const char *Dispatch::tmpdir = NULL;
const char *Dispatch::srcdir = NULL;
SearchPath *Dispatch::search_path_table = NULL;

int Dispatch::tocgen_only = 0;

//---------------------------------------------------------------------
void
Dispatch::token(TOKEN_TYPE tokType, unsigned char *Name )
{

  tok->setFileLine(f_file, f_line);

  switch(tokType){
  case START:
    level++;
    tok->StoreStartTag( Name, level );

    if ( tok->LookupAttr( OLAF::OL_Ignore ) 
	 || tok->LookupAttr( OLAF::OL_ShortTitle ) )  {
      IgnoreStack->push ( level );
    }

    break;

  case END:
    tok->StoreEndTag ( Name, level );
    level--;
    break;
    
  case INTERNAL_ENTITY:
    tok->StoreEntity( Name , INTERNAL_ENTITY);
    break;
    
  case EXTERNAL_ENTITY:
    tok->StoreEntity( Name , EXTERNAL_ENTITY);

    SGMLDefn *sgml_rec;
    sgml_rec = entity_stack.LookupEntity( SGMLName::intern((char*)Name) );

    if(sgml_rec){
      tok->SetEntityValue( sgml_rec );
    }else{
      tok->reportError(Token::Internal, Token::Fatal,
		      "Unable to find entity definition for %.50s", Name);
    }
    break;
  }
  

  TaskObject->markup( *tok );

  if ( tokType == END ) {
    if ( !IgnoreStack->empty() ) {

      int topelement = IgnoreStack->top();
      if ( topelement == tok->level() ) {
	topelement = IgnoreStack->pop();
      }
    }
  }

  delete tok;
  tok = new Token();
}



//---------------------------------------------------------------------
void Dispatch::setRoot( Task *t, Stack<int> *istack)
{
  assert(TaskObject == NULL);
  TaskObject = t;

  assert(IgnoreStack == NULL);
  IgnoreStack = istack;
  
}

//---------------------------------------------------------------------
SGMLDefn *
Dispatch::entity_ref( const char *ent_name )
{
  int ent_num;
  ent_num = SGMLName::intern(ent_name);
  SGMLDefn *sgml_rec = entity_stack.LookupEntity( ent_num );
  return sgml_rec;
}

  
//---------------------------------------------------------------------
void
Dispatch::entity_decl( SGMLDefn *defn )
{
  EntityList *escope = entity_stack.GetTopEntities();

  assert(escope != NULL);

  /*
   * first clone up an SGMLDefn record for storage purposes
   */
  
  SGMLDefn *sgmlRec = new SGMLDefn();
  *sgmlRec = *defn;

  escope->insert( sgmlRec );
}

//---------------------------------------------------------------------
void
Dispatch::file(const char *f)
{
  delete f_file;
  f_file = new char[strlen(f)+1];
  strcpy(f_file, f);

  
  /*
   * put directory of f_file into the search path also 
   */
  if(search_path_table){
    // perform dirname first
    char *dirname = strdup( f_file );
    char *p = strrchr( dirname, '/' );
    if ( p ) {
      *p = '\0';
    }
    else {
      strcpy( dirname,"." );
    }
    
    search_path_table->replace_file_scope( dirname );
    delete dirname;
  }
}

//---------------------------------------------------------------------
void
Dispatch::subdoc_start()
{
  EntityList *newrec = new EntityList();
  entity_stack.push ( newrec );
}

//---------------------------------------------------------------------
void
Dispatch::subdoc_end()
{
  EntityList *rec = entity_stack.pop();
    
  if ( !rec ) {
    throw(Unexpected("SUBDOC end tag is not matched"));
  }

  delete rec;

}