fbdoc_emit_lfn.bas

Go to the documentation of this file.

#INCLUDE ONCE "fbdoc_options.bi"



SUB lfn_CTOR CDECL(BYVAL O AS Options PTR)
  WITH *O
    IF 0 = LEN(.LfnPnN) THEN .LfnPnN = .OutPath & LFN_FILE
    MSG_LINE(.LfnPnN)
    .Ocha = FREEFILE
    IF OPEN(.LfnPnN FOR OUTPUT AS #.Ocha) THEN
      .Ocha = 0
      MSG_CONT("error (couldn't write)")
    ELSE
      PRINT #.Ocha, "+++ List of Function Names +++"
      MSG_CONT("opened")
    END IF
  END WITH
END SUB


SUB lfn_DTOR CDECL(BYVAL O AS Options PTR)
  CLOSE O->Ocha
  MSG_CONT(O->LfnPnN & "written")
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
    .CTOR_ = @lfn_CTOR()
    .DTOR_ = @lfn_DTOR()

    .Clas_ = @lfn_class_()
    .Unio_ = @lfn_class_()
    .Func_ = @lfn_func_()
    .Decl_ = @lfn_decl_()
    .Incl_ = @lfn_include()
  END WITH
END SUB