[PATCH 061/188] initial support for assembler symbols

From b44f2ceda7be1d4708374dcd07b3a17a1917e8f0 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Tue, 3 Mar 2020 10:34:57 -0500

git-svn-id: branches/wasm@46057 -

utils/wasmbin/watscanner.pas

@@ -38,6 +38,7 @@ type
     ofs       : integer;
     token     : TWatToken;
     resText   : string;
+    asmCmd    : string;
     procedure SetSource(const abuf: string);
     function Next: Boolean;
 
@@ -148,8 +149,26 @@ begin
 end;
 
 function TWatScanner.CommentIsSymbol(const cmt: string): Boolean;
+var
+  i: integer;
+  t: string;
+  v: string;
 begin
+  writeln('comment: "',cmt,'"');
   Result := false;
+  if (Pos(';;',cmt)<>1) then Exit;
+  i:=3;
+  ScanWhile(cmt, i, SpaceChars);
+  if (i>length(cmt)) or (cmt[i]<>'.') then Exit;
+
+  inc(i);
+  t := AnsiLowerCase(ScanTo(cmt, i, SpaceChars));
+  ScanWhile(cmt, i, SpaceChars);
+  v := ScanTo(cmt, i, SpaceChars);
+
+  asmCmd := t;
+  resText := v;
+  Result := true;
 end;
 
 procedure TWatScanner.SetSource(const abuf: string);