/******************************************************************************
*
* Projet    : DilibSgml
* Module    : SgmlString
* Fichier   : SgmlFromFile.c
* Auteur    : Ducloy
*
****************************************************************************
*
* Copyright (c) 1998 CNRS/CRIN & INRIA Lorraine
* 
****************************************************************************
*	
*   Interfaces d'entrée/sortie simplifiés n'utilisant pas DamRecord
*
*       
*
****************************************************************************/
#include "SgmlNode.h"
#include "Buffer.h"

SgmlNode *SgmlFromFile(s)
     char *s;
{
  FILE *f1;
  static Buffer *bufLine=NULL;
  SgmlNode *result;
  char *line;

  result=NULL;
  if(!bufLine)bufLine=BufferCreate(10,10);
  if((f1=fopen(s, "r")))
    {
      if ((line=BufferFgets(bufLine,f1)))
	{
	  result=SgmlFromString(line);
	}
      fclose(f1);
    }
  return result;
}

SgmlNode *SgmlToFile(n,s)
     SgmlNode *n;
     char *s;
{
  FILE *f1;

  SgmlNode *result;
  result=NULL;

  if((f1=fopen(s, "w")))
    {
      result=n;
      SgmlFilePrint(f1,n);
      fputc('\n',f1);
      fclose(f1);
    }
  return result;
}