empty.bas

Go to the documentation of this file.

#INCLUDE ONCE "../fbdoc_options.bi"



SUB empty_declare CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__ & ": " & P->LineNo & " " & P->SubStr(P->NamTok))
END SUB



SUB empty_function CDECL(BYVAL P AS Parser PTR)
  WITH *P '&Parser* P;
    VAR nam = .SubStr(IIF(.NamTok[3] = .TOK_DOT, .NamTok + 6, .NamTok))
    Code(NL & __FUNCTION__ & ": " & .LineNo & " " & nam)
  END WITH
END SUB



SUB empty_enum CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_union CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_class CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_define CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_include CDECL(BYVAL P AS Parser PTR)
  WITH *P '&Parser* P;
    VAR nam = .SubStr(.NamTok)
    Code(NL & __FUNCTION__ & ": " & .LineNo & " " & nam)
    IF .InTree THEN .Include(TRIM(nam, """"))
  END WITH
END SUB



SUB empty_init CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_error CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_empty CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_exit CDECL(BYVAL P AS Parser PTR)
  Code(NL & __FUNCTION__)
END SUB



SUB empty_CTOR CDECL(BYVAL O AS Options PTR)
  PRINT NL & __FUNCTION__
END SUB



SUB empty_DTOR CDECL(BYVAL O AS Options PTR)
  PRINT NL & __FUNCTION__ & NL
END SUB



SUB EmitterInit CDECL(BYVAL Emi AS EmitterIF PTR, BYREF Par AS STRING) EXPORT
  WITH *Emi
    .CTOR_ = @empty_CTOR()
    .DTOR_ = @empty_DTOR()

    .Decl_ = @empty_declare()
    .Func_ = @empty_function()
    .Enum_ = @empty_enum()
    .Unio_ = @empty_union()
    .Clas_ = @empty_class()
    .Defi_ = @empty_define()
    .Incl_ = @empty_include()
    .Init_ = @empty_init()
   .Error_ = @empty_error()
   .Empty_ = @empty_empty()
    .Exit_ = @empty_exit()
  END WITH

  VAR a = INSTR(Par, !"\t-empty=")           ' get out parameter, if any
  IF a THEN
    a += 8
    VAR e = INSTR(a, Par, !"\t")
    IF 0 = e THEN e = LEN(Par) + 1
    PRINT "parameter is '" & MID(Par, a,  e - a) & "'"
    Par = LEFT(Par, a - 9) & MID(Par, e)
  END IF
END SUB