/*
 * $Id$
 */

//*******************************************************************
// incl.prg: Az INCL oszt ly implement ci˘ja.
// 1999, Csisz r Levente

//*******************************************************************
#include "debug.ch"

//*******************************************************************
#include "objgen.ch"

#include "lreader.och"
#include "freader.och"

#define _INCL_PRG_
#define _IMPLEMENT_ONEW_

#include "incl.och"

//*******************************************************************

implement oinit(lreader,includeList,maxInclDeep)
   super:oinit()
   this:lreader:=lreader
   this:includeList:=includeList
   this:maxInclDeep:=maxInclDeep
return this

//*******************************************************************
implement openIncludeFile(filename)
// Ret: 0: sikerlt, 1: nyit si hiba, 2: nem tal lhat˘, 3: tŁl sok
//      egym sba skatuly z s.
// Ha a name tartalmaz path-t, akkor megn‚zi a kurrens direktoriban 
// is, egy‚bk‚nt pedig csak az includeList-ben.

local fr,l

   if (this:maxInclDeep>0 .and.;
       len(LREADER.(this:lreader):readerStack)>=this:maxInclDeep)
      return 3
   endif
      
   // Œgy k‚tszer is j”n hibazenet, egyszer az freader-t“l, egyszer
   // pedig a hparser-t“l, de ez nem baj.
   // Mj.: Ha csak egy zenetet akarunk, akkor az freader 
   //      hibazeneteit ‚rtelmezni kell, ‚s hparser(include) 
   //      hibazenetekk‚ alakĄtani.
   fr:=C.FREADER:onew(LREADER.(this:lreader):errorStream)
   
   l:=len(FREADER.fr:errorStream)
   
   if (!dirFName(filename)=="")
      FREADER.fr:dOpen({""},filename)
      if (FREADER.fr:isError(l))
         // Nem sikerlt megnyitni.
         return 1
      endif
   endif
   
   if (!FREADER.fr:isOpen())
      FREADER.fr:dOpen(this:includeList,filename)
   endif
   
   if (FREADER.fr:isError(l))
      // Nem sikerlt megnyitni.
      return 1
   endif

   if (!FREADER.fr:isOpen())
      return 2
   endif

   // Itt kell bef–zni a l ncba.
      
   LREADER.(this:lreader):pushReader(fr)

   PDEBUG(outstd("include: "+filename))

return 0
//*******************************************************************