fbdoc_options.bi

Go to the documentation of this file.

#INCLUDE ONCE "dir.bi"
#INCLUDE ONCE "fbdoc_parser.bi"

CONST _
  LFN_FILE = "fbdoc.lfn" _ 
 , LFN_SEP = !"\n"         



#DEFINE ERROUT(_T_) PRINT #OPT->Efnr, PROJ_NAME & ": " & _T_


#DEFINE MSG_LINE(_T_) PRINT #OPT->Efnr, NL; SPC(38 - LEN(_T_)); _T_; " -->";


#DEFINE MSG_CONT(_T_) PRINT #OPT->Efnr, " " & _T_;


#DEFINE MSG_END(_T_) PRINT #OPT->Efnr, _T_



TYPE Options
  
  ENUM RunModes

    
    ERROR_MESSAGE

    
    HELP_MESSAGE

    
    VERSION_MESSAGE

    
    GEANY_MODE

    
    DEF_MODE

    
    FILE_MODE

    
    LIST_MODE

    
    SYNT_MODE

  END ENUM

  
  ENUM TypesStyle
    C_STYLE  
    FB_STYLE 
  END ENUM

  
  ENUM CaseModes
    CASE_ORIGN 
    CASE_LOWER 
    CASE_MIXED 
    CASE_UPPER 
  END ENUM

  AS STRING _
          Errr = "" _ 
     , InFiles = "" _ 
   , StartPath = "" _ 
    , FileIncl = "" _ 
     , OutPath = "" _ 
      , LfnPnN = ""   

  AS RunModes      RunMode = DEF_MODE 
  AS TypesStyle      Types = FB_STYLE 
  AS Parser PTR       Pars = 0        
  AS EmitterTypes  EmitTyp = C_SOURCE 
  AS CaseModes    CaseMode = CASE_ORIGN 
  AS EmitterIF PTR  EmitIF = 0        
  AS ANY PTR    DllEmitter = 0        
#IFDEF __FB_UNIX__
'&ZSTRING_PTR DirUp = "../";  //!< sequence to get one directory up
'&/* tricky declaration for Doxygen (it miss-interpretes the @ character)
  AS ZSTRING PTR     DirUp = @"../"
#ELSE
  AS ZSTRING PTR     DirUp = @"..\"
'&*/
#ENDIF
  AS INTEGER _
       Asterix = 0 _ 
       , DoCom = 0 _ 
  , AllCallees = 0 _ 
  , InRecursiv = 0 _ 
      , InTree = 0 _ 
       , Level = 0 _ 
        , Efnr = 0 _ 
        , Ocha = 0   
  AS UBYTE _
    JoComm = ASC("*") _ 
  , AdLine = ASC("&")   
  AS EmitFunc _
    CreateFunction _  
  , CreateVariable    

  DECLARE CONSTRUCTOR()
  DECLARE DESTRUCTOR()
  DECLARE FUNCTION parseCLI() AS RunModes
  DECLARE FUNCTION parseOptpara(BYREF Idx AS INTEGER) AS STRING
  DECLARE FUNCTION chooseEmitter(BYREF F AS STRING, BYREF AS STRING) as EmitterIF PTR
  DECLARE SUB FileModi()
  DECLARE SUB doFile(BYREF AS STRING)
  DECLARE FUNCTION checkDir(BYREF AS STRING) AS INTEGER
  DECLARE FUNCTION scanFiles(BYREF AS STRING, BYREF AS STRING) AS STRING
  DECLARE FUNCTION addPath(BYREF AS STRING, BYREF AS STRING) AS STRING
END TYPE

'&typedef Options* Options_PTR; //!< Doxygen internal (ignore this).

COMMON SHARED AS Options PTR OPT

' Forward declaration of internal emitter init functions
DECLARE SUB init_csource(BYVAL AS EmitterIF PTR)
DECLARE SUB init_doxy(BYVAL AS EmitterIF PTR)
DECLARE SUB init_gtk(BYVAL AS EmitterIF PTR)
DECLARE SUB init_lfn(BYVAL AS EmitterIF PTR)
DECLARE SUB init_syntax(BYVAL AS EmitterIF PTR)