artem3213212/AGPascalTokenizer
1
0
Fork 0
Code Issues 3 Pull Requests Releases Wiki Activity

add utils functions

Browse Source
This commit is contained in:
Artem3213212
2018-10-28 19:21:06 +02:00
parent 23b4341d2e
commit dfd4a5e4bd
2 changed files with 35 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
AG.PascalTokenizer.pas
View File

@@ -3,7 +3,7 @@ unit AG.PascalTokenizer;
interface
uses
{$IFDEF FPC}fgl,{$ELSE}System.Generics.Collections,System.{$ENDIF}SysUtils,{$IFNDEF FPC}System.{$ENDIF}Classes;
{$IFDEF FPC}fgl,SysUtils,Classes{$ELSE}System.Generics.Collections,System.SysUtils,System.Classes{$ENDIF};
{$IFDEF FPC}
{$mode Delphi}
@@ -85,7 +85,7 @@ var
function is_comment(s: string): boolean;
begin
// TODO
Result:=(s.startswith('{') or s.startswith('(*') or s.startswith('//'));
end;
function is_name(s: string): boolean;
@@ -107,7 +107,7 @@ end;
function is_string(s: string): boolean;
begin
// TODO
Result:=s.StartsWith(#39);
end;
function TPasTokenizer._do_readable(): boolean;