fbdoc_parser.bi

Go to the documentation of this file.

#INCLUDE ONCE "fbdoc_emitters.bi"

#IF __FB_OUT_DLL__ OR DEFINED(__FB_DOC_PLUGIN__)
 
  #DEFINE Code(_T_) P->writeOut(_T_)
  #PRINT compiling __FB_DOC_PLUGIN__
'&/*
#ELSE
 #DEFINE Code(_T_) PRINT #OPT->Ocha, _T_;
'&*/
#ENDIF


'&typedef Parser* Parser_PTR; //!< Doxygen internal (ignore this).

TYPE Parser
Public:


  ENUM ParserTokens
    MSG_STOP = -1 
    MSG_ERROR     
    TOK_EOS   
    TOK_BRCLO 
    TOK_COMMA 

    TOK_KLOPN 
    TOK_KLCLO 
    TOK_DOT   
    TOK_MEOP  
    TOK_3DOT  
    TOK_QUOTE 
    TOK_LATTE 
    TOK_BROPN 
    TOK_EQUAL 

    TOK_ABST  
    TOK_ALIA  
    TOK_AS    
    TOK_BYRE  
    TOK_BYVA  
    TOK_CAST  
    TOK_CDEC  
    TOK_CLAS  
    TOK_COMM  
    TOK_CONS  
    TOK_DECL  
    TOK_DEFI  
    TOK_DIM   
    TOK_END   
    TOK_ENUM  
    TOK_EXDS  
    TOK_EMAC  
    TOK_EXRN  
    TOK_EXPO  
    TOK_INCL  
    TOK_LIB   
    TOK_MACR  
    TOK_WITH  
    TOK_NAMS  
    TOK_ONCE  
    TOK_OVER  
    TOK_PASC  
    TOK_PRIV  
    TOK_PROT  
    TOK_RDIM  
    TOK_PTR   
    TOK_PEEK  
    TOK_PUBL  
    TOK_SCOP  
    TOK_SHAR  
    TOK_PRES  
    TOK_STAT  
    TOK_STCL  
    TOK_TYPE  
    TOK_UNIO  
    TOK_VAR   
    TOK_VIRT  

    TOK_FUNC  
    TOK_FILD  
    TOK_OPER  
    TOK_PROP  
    TOK_SUB   
    TOK_CTOR  
    TOK_DTOR  

    TOK_BYTE  
    TOK_DOUB  
    TOK_INT   
    TOK_LONG  
    TOK_LINT  
    TOK_STRI  
    TOK_SHOR  
    TOK_SING  
    TOK_UBYT  
    TOK_ULNG  
    TOK_ULIN  
    TOK_UINT  
    TOK_USHO  
    TOK_WSTR  
    TOK_ZSTR  
    TOK_ANY   
    TOK_WORD  

    TOK_COMSL 
    TOK_COMML 
  END ENUM


  AS STRING _
    InPath = "" _ 
  , Fnam _        
  , Buf _         
  , ErrMsg _      
  , Tok _         
  , BlockNam      





  AS LONG PTR _
    StaTok, _  
    NamTok, _  
    DimTok, _  
    IniTok, _  
    BitTok, _  
    TypTok, _  
    ShaTok, _  
    PtrTok, _  
    Co1Tok, _  
    Co2Tok, _  
    FunTok, _  
    CalTok, _  
    AliTok, _  
    As_Tok, _  
    ParTok, _  
    By_Tok, _  
    DivTok, _  
    Tk1, _     
    EndTok, _   
    UserTok    




  AS LONG _
    Po, _         
    Fin, _        
    PtrCount, _   
    SrcBgn, _     
    LineNo, _     
    LevelCount, _ 
    InTree,     _ 
    ListCount     



  DECLARE CONSTRUCTOR(BYVAL AS EmitterIF PTR)


  DECLARE SUB File_(BYREF AS STRING, BYVAL AS INTEGER)
  DECLARE SUB StdIn()
  DECLARE SUB Include(BYVAL AS STRING)
  DECLARE SUB writeOut(BYREF AS STRING)



  DECLARE PROPERTY CurTok() AS LONG PTR
  DECLARE PROPERTY BitIni() AS STRING
  DECLARE PROPERTY SubStr() AS STRING
  DECLARE PROPERTY SubStr(BYVAL AS LONG PTR) AS STRING



  DECLARE SUB parseListNam(BYVAL AS EmitFunc)
  DECLARE SUB parseListNamTyp(BYVAL AS EmitFunc)
  DECLARE SUB parseListPara(BYVAL AS EmitFunc)
  DECLARE SUB parseBlockEnum(BYVAL AS EmitFunc)
  DECLARE SUB parseBlockTyUn(BYVAL AS EmitFunc)


Private:


  ENUM EoS_Modi
    TO_END_BLOCK  
    TO_END        
    TO_EOL        
    TO_COLON      
  END ENUM


  AS LONG _
    ToLast    

  AS LONG PTR _
    Tk, _     
    A, _      
    L         

  AS EmitterIF PTR Emit  




  DECLARE SUB pre_parse()
  DECLARE PROPERTY USubStr() AS STRING
  DECLARE FUNCTION getToken() AS INTEGER
  DECLARE FUNCTION tokenize(BYVAL AS EoS_Modi) AS INTEGER
  DECLARE FUNCTION Errr(BYREF AS STRING) AS INTEGER

  DECLARE FUNCTION demuxNam(BYVAL AS INTEGER = TOK_WORD, BYVAL AS INTEGER = 0) AS INTEGER
  DECLARE FUNCTION demuxTyp(BYVAL AS INTEGER = 0) AS INTEGER
  DECLARE FUNCTION demuxDecl() AS INTEGER

  DECLARE FUNCTION skipOverColon() AS INTEGER
  DECLARE FUNCTION skipOverBrclo() AS INTEGER
  DECLARE FUNCTION skipOverComma() AS INTEGER

  DECLARE FUNCTION VAR_() AS INTEGER
  DECLARE FUNCTION TYPE_() AS INTEGER
  DECLARE FUNCTION ENUM_() AS INTEGER
  DECLARE FUNCTION UNION_() AS INTEGER
  DECLARE FUNCTION FUNCTION_() AS INTEGER
  DECLARE FUNCTION DECLARE_() AS INTEGER
  DECLARE FUNCTION INCLUDE_() AS INTEGER
  DECLARE FUNCTION DEFINE_() AS INTEGER
  DECLARE FUNCTION MACRO_() AS INTEGER


END TYPE



#MACRO SCAN_QUOTE(Buf,Po)
  VAR esc = IIF(Po, IIF(Buf[Po - 1] = ASC("!"), 1, 0), 0)
  DO
    Po += 1
    SELECT CASE AS CONST Buf[Po]
    CASE 0, ASC(!"\n") : Po -= 1 : EXIT DO
    CASE ASC("\") : IF esc THEN Po += 1
    CASE ASC("""") : IF Buf[Po + 1] = ASC("""") THEN Po += 1 ELSE EXIT DO
    END SELECT
  LOOP
#ENDMACRO



#MACRO SCAN_SL_COMM(Buf,Po)
  DO
    Po += 1
    SELECT CASE AS CONST Buf[Po]
    CASE 0, ASC(!"\n") : EXIT DO
    END SELECT
  LOOP
#ENDMACRO