[ViewVC] Diff of: public/ibx/branches/udr/client/IBUtils.pas

Comparing ibx/trunk/fbintf/IBUtils.pas (file contents):
Revision 120 by tony, Mon Jan 22 13:58:20 2018 UTC vs.
Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC

+interface
-<
+uses Classes, SysUtils;
->
+uses Classes, SysUtils, IB;
+const
+  CRLF = #13 + #10;
+  TAB  = #9;
+  NULL_TERMINATOR = #0;
-<
+  sqlReservedWords: array [0..197] of string = (
->
+  sqlReservedWords: array [0..198] of string = (
+  'ADD',
+  'ADMIN',
+  'ALL',
+  'INTO',
+  'IS',
+  'JOIN',
-+
+  'KEY',
+  'LEADING',
+  'LEFT',
+  'LIKE',
+function SQLSafeString(const s: AnsiString): AnsiString;
+function IsSQLIdentifier(Value: AnsiString): boolean;
+function ExtractConnectString(const CreateSQL: AnsiString; var ConnectString: AnsiString): boolean;
-+
+function MakeConnectString(ServerName, DatabaseName: AnsiString; Protocol: TProtocol;
-+
+              PortNo: AnsiString = ''): AnsiString;
-+
+function ParseConnectString(ConnectString: AnsiString;
-+
+              var ServerName, DatabaseName: AnsiString; var Protocol: TProtocolAll;
-+
+              var PortNo: AnsiString): boolean;
-+
+function GetProtocol(ConnectString: AnsiString): TProtocolAll;
+implementation
+    RegexObj.Expression := '^ *CREATE +(DATABASE|SCHEMA) +''(.*)''';
+    Result := RegexObj.Exec(CreateSQL);
+    if Result then
-<
+      ConnectString := system.copy(CreateSQL,RegexObj.MatchPos[2],RegexObj.MatchLen[2]);
->
+      ConnectString := RegexObj.Match[2];
+  finally
+    RegexObj.Free;
+  end;
+end;
-+
-+
+function ParseConnectString(ConnectString: AnsiString; var ServerName,
-+
+  DatabaseName: AnsiString; var Protocol: TProtocolAll; var PortNo: AnsiString
-+
+  ): boolean;
-+
-+
+  function GetProtocol(scheme: AnsiString): TProtocolAll;
-+
+  begin
-+
+    scheme := AnsiUpperCase(scheme);
-+
+    if scheme = 'INET' then
-+
+      Result := inet
-+
+    else
-+
+    if scheme = 'INET4' then
-+
+      Result := inet4
-+
+    else
-+
+    if scheme = 'INET6' then
-+
+      Result := inet6
-+
+    else
-+
+    if scheme = 'XNET' then
-+
+      Result := xnet
-+
+    else
-+
+    if scheme = 'WNET' then
-+
+      Result := wnet
-+
+  end;
-+
-+
+var RegexObj: TRegExpr;
-+
+begin
-+
+  ServerName := '';
-+
+  DatabaseName := ConnectString;
-+
+  PortNo := '';
-+
+  Protocol := unknownProtocol;
-+
+  RegexObj := TRegExpr.Create;
-+
+  try
-+
+    {extact database file spec}
-+
+    RegexObj.ModifierG := false; {turn off greedy matches}
-+
+    RegexObj.Expression := '^([a-zA-Z46]+)://([a-zA-Z0-9\-\.]*)(|:[0-9a-zA-Z\-]+)/(.*)$';
-+
+    Result := RegexObj.Exec(ConnectString);
-+
+    if Result then
-+
+    begin
-+
+      {URL type connect string}
-+
+      Protocol := GetProtocol(RegexObj.Match[1]);
-+
+      ServerName := RegexObj.Match[2];
-+
+      if RegexObj.MatchLen[3] > 0 then
-+
+        PortNo := system.Copy(ConnectString,RegexObj.MatchPos[3]+1,RegexObj.MatchLen[3]-1);
-+
+      DatabaseName := RegexObj.Match[4];
-+
+      if ServerName = '' then
-+
+        DatabaseName := '/' + DatabaseName;
-+
+    end
-+
+    else
-+
+    begin
-+
+      {URL type connect string - local loop}
-+
+      RegexObj.Expression := '^([a-zA-Z46]+)://(.*)$';
-+
+      Result := RegexObj.Exec(ConnectString);
-+
+      if Result then
-+
+      begin
-+
+        Protocol := GetProtocol(RegexObj.Match[1]);
-+
+        DatabaseName := RegexObj.Match[2];
-+
+      end
-+
+      else
-+
+      begin
-+
+        RegexObj.Expression := '^([a-zA-Z]:\\.*)';
-+
+        Result := RegexObj.Exec(ConnectString);
-+
+        if Result then
-+
+          Protocol := Local {Windows with leading drive ID}
-+
+        else
-+
+        begin
-+
+          RegexObj.Expression := '^([a-zA-Z0-9\-\.]+)(|/[0-9a-zA-Z\-]+):(.*)$';
-+
+          Result := RegexObj.Exec(ConnectString);
-+
+          if Result then
-+
+          begin
-+
+            {Legacy TCP Format}
-+
+            ServerName := RegexObj.Match[1];
-+
+            if RegexObj.MatchLen[2] > 0 then
-+
+              PortNo := system.Copy(ConnectString,RegexObj.MatchPos[2]+1,RegexObj.MatchLen[2]-1);
-+
+            DatabaseName := RegexObj.Match[3];
-+
+            Protocol := TCP;
-+
+          end
-+
+          else
-+
+          begin
-+
+            RegexObj.Expression := '^\\\\([a-zA-Z0-9\-\.]+)(|@[0-9a-zA-Z\-]+)\\(.*)$';
-+
+            Result := RegexObj.Exec(ConnectString);
-+
+            if Result then
-+
+            begin
-+
+              {Netbui}
-+
+              ServerName := RegexObj.Match[1];
-+
+              if RegexObj.MatchLen[2] > 0 then
-+
+                PortNo := system.Copy(ConnectString,RegexObj.MatchPos[2]+1,RegexObj.MatchLen[2]-1);
-+
+              DatabaseName := RegexObj.Match[3];
-+
+              Protocol := NamedPipe
-+
+            end
-+
+            else
-+
+            begin
-+
+              Result := true;
-+
+              Protocol := Local; {Assume local}
-+
+            end;
-+
+          end;
-+
+        end;
-+
+      end;
-+
+    end;
-+
+  finally
-+
+    RegexObj.Free;
-+
+  end;
-+
+end;
-+
-+
+function GetProtocol(ConnectString: AnsiString): TProtocolAll;
-+
+var ServerName,
-+
+    DatabaseName: AnsiString;
-+
+    PortNo: AnsiString;
-+
+begin
-+
+  ParseConnectString(ConnectString,ServerName,DatabaseName,Result,PortNo);
-+
+end;
-+
+{$ELSE}
-<
+{cruder version of above for old versions of Delphi}
->
+{cruder version of above for Delphi. Older versions lack regular expression
->
+ handling.}
+function ExtractConnectString(const CreateSQL: AnsiString;
+  var ConnectString: AnsiString): boolean;
+var i: integer;
+    end;
+  end;
+end;
-+
-+
+function GetProtocol(ConnectString: AnsiString): TProtocolAll;
-+
+begin
-+
+  Result := unknownProtocol; {not implemented for Delphi}
-+
+end;
-+
-+
+function ParseConnectString(ConnectString: AnsiString;
-+
+              var ServerName, DatabaseName: AnsiString; var Protocol: TProtocolAll;
-+
+              var PortNo: AnsiString): boolean;
-+
+begin
-+
+  Result := false;
-+
+end;
-+
+{$ENDIF}
-+
+{Make a connect string in format appropriate protocol}
-+
-+
+function MakeConnectString(ServerName, DatabaseName: AnsiString;
-+
+  Protocol: TProtocol; PortNo: AnsiString): AnsiString;
-+
-+
+  function FormatURL: AnsiString;
-+
+  begin
-+
+    if (ServerName = '') and (Pos('/',DatabaseName) <= 1) then
-+
+      Result := DatabaseName
-+
+    else
-+
+      Result := ServerName + '/' + DatabaseName;
-+
+  end;
-+
-+
+begin
-+
+  if PortNo <> '' then
-+
+    case Protocol of
-+
+    NamedPipe:
-+
+      ServerName := ServerName + '@' + PortNo;
-+
+    Local,
-+
+    SPX,
-+
+    xnet: {do nothing};
-+
+    TCP:
-+
+      ServerName := ServerName + '/' + PortNo;
-+
+    else
-+
+      ServerName := ServerName + ':' + PortNo;
-+
+    end;
-+
-+
+  case Protocol of
-+
+    TCP:        Result := ServerName + ':' + DatabaseName; {do not localize}
-+
+    SPX:        Result := ServerName + '@' + DatabaseName; {do not localize}
-+
+    NamedPipe:  Result := '\\' + ServerName + '\' + DatabaseName; {do not localize}
-+
+    Local:      Result := DatabaseName; {do not localize}
-+
+    inet:       Result := 'inet://' + FormatURL; {do not localize}
-+
+    inet4:       Result := 'inet4://' + FormatURL; {do not localize}
-+
+    inet6:       Result := 'inet6://' + FormatURL; {do not localize}
-+
+    wnet:       Result := 'wnet://' + FormatURL; {do not localize}
-+
+    xnet:       Result := 'xnet://' + FormatURL;  {do not localize}
-+
+  end;
-+
+end;
-+
+{Format an SQL Identifier according to SQL Dialect with encapsulation if necessary}
+function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing ibx/trunk/fbintf/IBUtils.pas (file contents): Revision 120 by tony, Mon Jan 22 13:58:20 2018 UTC vs. Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC

Diff Legend

Comparing ibx/trunk/fbintf/IBUtils.pas (file contents):
Revision 120 by tony, Mon Jan 22 13:58:20 2018 UTC vs.
Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC