fbdoc_emit_lfn.bas

Go to the documentation of this file.

#INCLUDE ONCE "fbdoc_options.bi"
#INCLUDE ONCE "fbdoc_emit_lfn.bi"



FUNCTION startLFN(BYREF Path AS STRING) AS INTEGER
  VAR fnr = FREEFILE
  IF OPEN(Path & LFN_FILE FOR OUTPUT AS #fnr) THEN RETURN 0
  PRINT #fnr, "+++ List of Function Names +++"
  RETURN fnr
END FUNCTION


'SUB lfn_CTOR CDECL(BYVAL P AS Parser PTR)
      'IF 0 = Ocha THEN
        'MSG_LINE(OutPath & LFN_FILE)
        'Ocha = startLFN(OutPath)
        'IF 0 = Ocha THEN MSG_END("error (couldn't write)") : EXIT SUB
        'MSG_END("opened")
      'END IF
'END SUB


'SUB lfn_DTOR CDECL(BYVAL P AS Parser PTR)
'END SUB



SUB lfn_decl_ CDECL(BYVAL P AS Parser PTR)
  WITH *P '&Parser* P;
    SELECT CASE AS CONST *.StaTok
    CASE .TOK_SUB, .TOK_FUNC, .TOK_PROP
    CASE ELSE : EXIT SUB
    END SELECT : IF 0 = .NamTok ORELSE 0 = .FunTok THEN EXIT SUB
    .PtrCount = 0
    cNam(P)
    Code(LFN_SEP)
  END WITH
END SUB



SUB lfn_class_ CDECL(BYVAL P AS Parser PTR)
  WITH *P '&Parser* P;
    IF OPT->AllCallees THEN .parseBlockTyUn(@lfn_decl_())
  END WITH
END SUB



SUB lfn_func_ CDECL(BYVAL P AS Parser PTR) ' !!! ToDo member functions
  WITH *P '&Parser* P;
    SELECT CASE AS CONST *.StaTok
    CASE .TOK_SUB, .TOK_FUNC, .TOK_PROP
    CASE .TOK_CTOR : Code(.SubStr(.NamTok) & ".")
    CASE ELSE : EXIT SUB
    END SELECT
    .PtrCount = 0
    cNam(P)
    Code(LFN_SEP)
  END WITH
END SUB



SUB lfn_include CDECL(BYVAL P AS Parser PTR)
  WITH *P '&Parser* P;
    IF OPT->InTree THEN .Include(TRIM(.SubStr(.NamTok), """"))
  END WITH
END SUB




SUB init_lfn(BYVAL Emi AS EmitterIF PTR)
  WITH *Emi
    .Clas_ = @lfn_class_()
    .Unio_ = @lfn_class_()
    .Func_ = @lfn_func_()
    .Decl_ = @lfn_decl_()
    .Incl_ = @lfn_include()
  END WITH
END SUB