ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/IBUtils.pas
(Generate patch)

Comparing ibx/trunk/fbintf/IBUtils.pas (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

# Line 32 | Line 32
32   {************************************************************************}
33  
34   unit IBUtils;
35 + {$IFDEF MSWINDOWS}
36 + {$DEFINE WINDOWS}
37 + {$ENDIF}
38  
39   {$IFDEF FPC}
40   {$Mode Delphi}
# Line 40 | Line 43 | unit IBUtils;
43  
44   interface
45  
46 < uses
44 < {$IFDEF WINDOWS }
45 <  Windows,
46 < {$ELSE}
47 <  unix,
48 < {$ENDIF}
49 <  Classes, SysUtils;
46 > uses Classes, SysUtils;
47  
48   const
49    CRLF = #13 + #10;
# Line 55 | Line 52 | const
52    TAB  = #9;
53    NULL_TERMINATOR = #0;
54  
55 <  sqlReservedWords: array [0..166] of string = (
56 <  'ADD','ADMIN','ALL','ALTER','AND','ANY','AS','AT','AVG','BEGIN','BETWEEN','BIGINT','BIT_LENGTH','BLOB','BOTH',
57 < 'BY','CASE','CAST','CHAR','CHAR_LENGTH','CHARACTER','CHARACTER_LENGTH','CHECK','CLOSE','COLLATE','COLUMN',
58 < 'COMMIT','CONNECT','CONSTRAINT','COUNT','CREATE','CROSS','CURRENT','CURRENT_CONNECTION','CURRENT_DATE',
59 < 'CURRENT_ROLE','CURRENT_TIME','CURRENT_TIMESTAMP','CURRENT_TRANSACTION','CURRENT_USER','CURSOR','DATE',
60 < 'DAY','DEC','DECIMAL','DECLARE','DEFAULT','DELETE','DISCONNECT','DISTINCT','DOUBLE','DROP','ELSE','END',
61 < 'ESCAPE','EXECUTE','EXISTS','EXTERNAL','EXTRACT','FETCH','FILTER','FLOAT','FOR','FOREIGN','FROM','FULL',
62 < 'FUNCTION','GDSCODE','GLOBAL','GRANT','GROUP','HAVING','HOUR','IN','INDEX','INNER','INSENSITIVE','INSERT',
63 < 'INT','INTEGER','INTO','IS','JOIN','LEADING','LEFT','LIKE','LONG','LOWER','MAX','MAXIMUM_SEGMENT','MERGE',
64 < 'MIN','MINUTE','MONTH','NATIONAL','NATURAL','NCHAR','NO','NOT','NULL','NUMERIC','OCTET_LENGTH','OF','ON',
65 < 'ONLY','OPEN','OR','ORDER','OUTER','PARAMETER','PLAN','POSITION','POST_EVENT','PRECISION','PRIMARY',
66 < 'PROCEDURE','RDB$DB_KEY','REAL','RECORD_VERSION','RECREATE','RECURSIVE','REFERENCES','RELEASE','RETURNING_VALUES',
67 < 'RETURNS','REVOKE','RIGHT','ROLLBACK','ROW_COUNT','ROWS','SAVEPOINT','SECOND','SELECT','SENSITIVE',
68 < 'SET','SIMILAR','SMALLINT','SOME','SQLCODE','SQLSTATE','START','SUM','TABLE','THEN','TIME',
69 < 'TIMESTAMP','TO','TRAILING','TRIGGER','TRIM','UNION','UNIQUE','UPDATE','UPPER','USER','USING',
70 < 'VALUE','VALUES','VARCHAR','VARIABLE','VARYING','VIEW','WHEN','WHERE','WHILE','WITH','YEAR');
55 >  sqlReservedWords: array [0..197] of string = (
56 >  'ADD',
57 >  'ADMIN',
58 >  'ALL',
59 >  'ALTER',
60 >  'AND',
61 >  'ANY',
62 >  'AS',
63 >  'AT',
64 >  'AVG',
65 >  'BEGIN',
66 >  'BETWEEN',
67 >  'BIGINT',
68 >  'BIT_LENGTH',
69 >  'BLOB',
70 >  'BOOLEAN',
71 >  'BOTH',
72 >  'BY',
73 >  'CASE',
74 >  'CAST',
75 >  'CHAR',
76 >  'CHAR_LENGTH',
77 >  'CHARACTER',
78 >  'CHARACTER_LENGTH',
79 >  'CHECK',
80 >  'CLOSE',
81 >  'COLLATE',
82 >  'COLUMN',
83 >  'COMMIT',
84 >  'CONNECT',
85 >  'CONSTRAINT',
86 >  'CORR',
87 >  'COUNT',
88 >  'COVAR_POP',
89 >  'COVAR_SAMP',
90 >  'CREATE',
91 >  'CROSS',
92 >  'CURRENT',
93 >  'CURRENT_CONNECTION',
94 >  'CURRENT_DATE',
95 >  'CURRENT_ROLE',
96 >  'CURRENT_TIME',
97 >  'CURRENT_TIMESTAMP',
98 >  'CURRENT_TRANSACTION',
99 >  'CURRENT_USER',
100 >  'CURSOR',
101 >  'DATE',
102 >  'DAY',
103 >  'DEC',
104 >  'DECIMAL',
105 >  'DECLARE',
106 >  'DEFAULT',
107 >  'DELETE',
108 >  'DELETING',
109 >  'DETERMINISTIC',
110 >  'DISCONNECT',
111 >  'DISTINCT',
112 >  'DOUBLE',
113 >  'DROP',
114 >  'ELSE',
115 >  'END',
116 >  'ESCAPE',
117 >  'EXECUTE',
118 >  'EXISTS',
119 >  'EXTERNAL',
120 >  'EXTRACT',
121 >  'FALSE',
122 >  'FETCH',
123 >  'FILTER',
124 >  'FLOAT',
125 >  'FOR',
126 >  'FOREIGN',
127 >  'FROM',
128 >  'FULL',
129 >  'FUNCTION',
130 >  'GDSCODE',
131 >  'GLOBAL',
132 >  'GRANT',
133 >  'GROUP',
134 >  'HAVING',
135 >  'HOUR',
136 >  'IN',
137 >  'INDEX',
138 >  'INNER',
139 >  'INSENSITIVE',
140 >  'INSERT',
141 >  'INSERTING',
142 >  'INT',
143 >  'INTEGER',
144 >  'INTO',
145 >  'IS',
146 >  'JOIN',
147 >  'LEADING',
148 >  'LEFT',
149 >  'LIKE',
150 >  'LONG',
151 >  'LOWER',
152 >  'MAX',
153 >  'MAXIMUM_SEGMENT',
154 >  'MERGE',
155 >  'MIN',
156 >  'MINUTE',
157 >  'MONTH',
158 >  'NATIONAL',
159 >  'NATURAL',
160 >  'NCHAR',
161 >  'NO',
162 >  'NOT',
163 >  'NULL',
164 >  'NUMERIC',
165 >  'OCTET_LENGTH',
166 >  'OF',
167 >  'OFFSET',
168 >  'ON',
169 >  'ONLY',
170 >  'OPEN',
171 >  'OR',
172 >  'ORDER',
173 >  'OUTER',
174 >  'OVER',
175 >  'PARAMETER',
176 >  'PLAN',
177 >  'POSITION',
178 >  'POST_EVENT',
179 >  'PRECISION',
180 >  'PRIMARY',
181 >  'PROCEDURE',
182 >  'RDB$DB_KEY',
183 >  'RDB$RECORD_VERSION',
184 >  'REAL',
185 >  'RECORD_VERSION',
186 >  'RECREATE',
187 >  'RECURSIVE',
188 >  'REFERENCES',
189 >  'REGR_AVGX',
190 >  'REGR_AVGY',
191 >  'REGR_COUNT',
192 >  'REGR_INTERCEPT',
193 >  'REGR_R2',
194 >  'REGR_SLOPE',
195 >  'REGR_SXX',
196 >  'REGR_SXY',
197 >  'REGR_SYY',
198 >  'RELEASE',
199 >  'RETURN',
200 >  'RETURNING_VALUES',
201 >  'RETURNS',
202 >  'REVOKE',
203 >  'RIGHT',
204 >  'ROLLBACK',
205 >  'ROW',
206 >  'ROW_COUNT',
207 >  'ROWS',
208 >  'SAVEPOINT',
209 >  'SCROLL',
210 >  'SECOND',
211 >  'SELECT',
212 >  'SENSITIVE',
213 >  'SET',
214 >  'SIMILAR',
215 >  'SMALLINT',
216 >  'SOME',
217 >  'SQLCODE',
218 >  'SQLSTATE',
219 >  'SQLSTATE',
220 >  'START',
221 >  'STDDEV_POP',
222 >  'STDDEV_SAMP',
223 >  'SUM',
224 >  'TABLE',
225 >  'THEN',
226 >  'TIME',
227 >  'TIMESTAMP',
228 >  'TO',
229 >  'TRAILING',
230 >  'TRIGGER',
231 >  'TRIM',
232 >  'TRUE',
233 >  'UNION',
234 >  'UNIQUE',
235 >  'UNKNOWN',
236 >  'UPDATE',
237 >  'UPDATING',
238 >  'UPPER',
239 >  'USER',
240 >  'USING',
241 >  'VALUE',
242 >  'VALUES',
243 >  'VAR_POP',
244 >  'VAR_SAMP',
245 >  'VARCHAR',
246 >  'VARIABLE',
247 >  'VARYING',
248 >  'VIEW',
249 >  'WHEN',
250 >  'WHERE',
251 >  'WHILE',
252 >  'WITH',
253 >  'YEAR'
254 >  );
255  
256   function Max(n1, n2: Integer): Integer;
257   function Min(n1, n2: Integer): Integer;
258 < function RandomString(iLength: Integer): String;
258 > function RandomString(iLength: Integer): AnsiString;
259   function RandomInteger(iLow, iHigh: Integer): Integer;
260 < function StripString(st: String; CharsToStrip: String): String;
261 < function FormatIdentifier(Dialect: Integer; Value: String): String;
262 < function FormatIdentifierValue(Dialect: Integer; Value: String): String;
263 < function FormatIdentifierValueNC(Dialect: Integer; Value: String): String;
264 < function ExtractIdentifier(Dialect: Integer; Value: String): String;
265 < function QuoteIdentifier(Dialect: Integer; Value: String): String;
266 < function QuoteIdentifierIfNeeded(Dialect: Integer; Value: String): String;
267 < function Space2Underscore(s: string): string;
260 > function StripString(st: AnsiString; CharsToStrip: AnsiString): AnsiString;
261 > function FormatIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
262 > function FormatIdentifierValue(Dialect: Integer; Value: AnsiString): AnsiString;
263 > function FormatIdentifierValueNC(Dialect: Integer; Value: AnsiString): AnsiString;
264 > function ExtractIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
265 > function QuoteIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
266 > function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;
267 > function Space2Underscore(s: AnsiString): AnsiString;
268 > function SQLSafeString(const s: AnsiString): AnsiString;
269  
270   implementation
271  
# Line 103 | Line 285 | begin
285      result := n2;
286   end;
287  
288 < function RandomString(iLength: Integer): String;
288 > function RandomString(iLength: Integer): AnsiString;
289   begin
290    result := '';
291    while Length(result) < iLength do
# Line 117 | Line 299 | begin
299    result := Trunc(Random(iHigh - iLow)) + iLow;
300   end;
301  
302 < function StripString(st: String; CharsToStrip: String): String;
302 > function StripString(st: AnsiString; CharsToStrip: AnsiString): AnsiString;
303   var
304    i: Integer;
305   begin
# Line 128 | Line 310 | begin
310    end;
311   end;
312  
313 < function FormatIdentifier(Dialect: Integer; Value: String): String;
313 > function FormatIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
314   begin
315    Value := Trim(Value);
316    if Dialect = 1 then
# Line 141 | Line 323 | begin
323    Result := Value;
324   end;
325  
326 < function FormatIdentifierValue(Dialect: Integer; Value: String): String;
326 > function FormatIdentifierValue(Dialect: Integer; Value: AnsiString): AnsiString;
327   begin
328    Value := Trim(Value);
329    if Dialect = 1 then
# Line 160 | Line 342 | begin
342    Result := Value;
343   end;
344  
345 < function FormatIdentifierValueNC(Dialect: Integer; Value: String): String;
345 > function FormatIdentifierValueNC(Dialect: Integer; Value: AnsiString): AnsiString;
346   begin
347    Value := Trim(Value);
348    if Dialect = 1 then
# Line 179 | Line 361 | begin
361    Result := Value;
362   end;
363  
364 < function ExtractIdentifier(Dialect: Integer; Value: String): String;
364 > function ExtractIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
365   begin
366    Value := Trim(Value);
367    if Dialect = 1 then
# Line 198 | Line 380 | begin
380    Result := Value;
381   end;
382  
383 < function IsReservedWord(w: string): boolean;
383 > function IsReservedWord(w: AnsiString): boolean;
384   var i: integer;
385   begin
386       Result := true;
# Line 208 | Line 390 | begin
390       Result := false;
391   end;
392  
393 < function QuoteIdentifier(Dialect: Integer; Value: String): String;
393 > function QuoteIdentifier(Dialect: Integer; Value: AnsiString): AnsiString;
394   begin
395    if Dialect = 1 then
396      Value := AnsiUpperCase(Trim(Value))
# Line 217 | Line 399 | begin
399    Result := Value;
400   end;
401  
402 < function QuoteIdentifierIfNeeded(Dialect: Integer; Value: String): String;
402 > function QuoteIdentifierIfNeeded(Dialect: Integer; Value: AnsiString): AnsiString;
403   begin
404    if (Dialect = 3) and
405      ((AnsiUpperCase(Value) <> Value) or IsReservedWord(Value)) then
# Line 226 | Line 408 | begin
408      Result := Value
409   end;
410  
411 < function Space2Underscore(s: string): string;
411 > function Space2Underscore(s: AnsiString): AnsiString;
412   var
413     k: integer;
414   begin
# Line 236 | Line 418 | begin
418              Result[k] := '_';
419   end;
420  
421 + function SQLSafeString(const s: AnsiString): AnsiString;
422 + begin
423 +  Result := StringReplace(s,'''','''''',[rfReplaceAll]);
424 + end;
425  
426   end.

Diff Legend

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