开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
TEST_Parse_typedef.txt
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：1k
源码类别：

Email服务器

开发平台：

Delphi

TEST_Parse_typedef.txt：源码内容
  1.   TXPStubParser = class
  2.   protected
  3.     funitName: string;
  4.     lex: TParser;
  5.     fSrcStream: TStream;
  6.     fParseNodeList: TList;
  7.     procedure SetSrcStream(NewStream: TStream);
  8.     procedure NewClassNode(NameOfNode: string);
  9.     procedure NewPubMethodIdent(NameOfMethod: string);
  10.     procedure NewPvtMethodIdent(NameOfMethod: string);
  11.     procedure NewPrtMethodIdent(NameOfMethod: string);
  12.     function Get_Token(lex: TParser): lex_token;
  13.     function Parse_Unit_Heading(lex: TParser): lex_token;
  14.     function Parse_const_Paragraph(lex: TParser): lex_token;
  15.     function Parse_type_Paragraph(lex: TParser): lex_token;
  16.     function Parse_var_paragraph(lex: TParser): lex_token;
  17.     function Parse_uses_clause(lex: TParser): lex_token;
  18.     function Parse_typedef(ident: string; lex: TParser): lex_token;
  19.     function Parse_tobject_derived(token: lex_token; lex: TParser): lex_token;
  20.     function Parse_derived(ident: string; lex: TParser): lex_token;
  21.     function SyncToken(target: token_enum; lex: TParser): lex_token;
  22.   public
  23.     constructor Create; virtual;
  24.     destructor Destroy; override;
  25.     procedure Parse;
  26.     property SrcStream: TStream read fSrcStream write SetSrcStream;
  27.     property unitName: string read funitName write funitName;
  28.     property ParseNodeList: TList read fParseNodeList write fParseNodeList;
  29.   end;