@@ -294,42 +294,45 @@ sql_to_list(SQL) ->
294294 String when is_list (String ) ->
295295 {ok , String };
296296 Error ->
297- ? LOG_WARNING (" JMS message selector ~p is not UTF-8 encoded: ~p " ,
298- [JmsSelector , Error ]),
297+ ? LOG_WARNING (" SQL expression ~p is not UTF-8 encoded: ~p " ,
298+ [SQL , Error ]),
299299 error
300300 end .
301301
302- check_length (String )
303- when length (String ) > ? MAX_EXPRESSION_LENGTH ->
304- ? LOG_WARNING (" JMS message selector length ~b exceeds maximum length ~b " ,
305- [length (String ), ? MAX_EXPRESSION_LENGTH ]),
306- error ;
307- check_length (_ ) ->
308- ok .
302+ check_length (String ) ->
303+ Len = length (String ),
304+ case Len =< ? MAX_EXPRESSION_LENGTH of
305+ true ->
306+ ok ;
307+ false ->
308+ ? LOG_WARNING (" SQL expression length ~b exceeds maximum length ~b " ,
309+ [Len , ? MAX_EXPRESSION_LENGTH ]),
310+ error
311+ end .
309312
310313tokenize (String , SQL ) ->
311314 case rabbit_amqp_sql_lexer :string (String ) of
312315 {ok , Tokens , _EndLocation } ->
313316 {ok , Tokens };
314317 {error , {_Line , _Mod , ErrDescriptor }, _Location } ->
315- ? LOG_WARNING (" failed to scan JMS message selector '~ts ': ~tp " ,
316- [JmsSelector , ErrDescriptor ]),
318+ ? LOG_WARNING (" failed to scan SQL expression '~ts ': ~tp " ,
319+ [SQL , ErrDescriptor ]),
317320 error
318321 end .
319322
320323check_token_count (Tokens , SQL )
321324 when length (Tokens ) > ? MAX_TOKENS ->
322- ? LOG_WARNING (" JMS message selector '~ts ' with ~b tokens exceeds token limit ~b " ,
323- [JmsSelector , length (Tokens ), ? MAX_TOKENS ]),
325+ ? LOG_WARNING (" SQL expression '~ts ' with ~b tokens exceeds token limit ~b " ,
326+ [SQL , length (Tokens ), ? MAX_TOKENS ]),
324327 error ;
325328check_token_count (_ , _ ) ->
326329 ok .
327330
328331parse (Tokens , SQL ) ->
329332 case rabbit_amqp_sql_parser :parse (Tokens ) of
330333 {error , Reason } ->
331- ? LOG_WARNING (" failed to parse JMS message selector '~ts ': ~p " ,
332- [JmsSelector , Reason ]),
334+ ? LOG_WARNING (" failed to parse SQL expression '~ts ': ~p " ,
335+ [SQL , Reason ]),
333336 error ;
334337 Ok ->
335338 Ok
@@ -343,15 +346,10 @@ transform_ast(Ast0, SQL) ->
343346 end , Ast0 ) of
344347 Ast ->
345348 {ok , Ast }
346- catch {unsupported_field , Name } ->
347- ? LOG_WARNING (
348- " identifier ~ts in JMS message selector ~tp is unsupported" ,
349- [Name , JmsSelector ]),
350- error ;
351- {invalid_pattern , Reason } ->
349+ catch {invalid_pattern , Reason } ->
352350 ? LOG_WARNING (
353- " failed to parse LIKE pattern for JMS message selector ~tp : ~tp " ,
354- [ JmsSelector , Reason ]),
351+ " failed to parse LIKE pattern for SQL expression ~tp : ~tp " ,
352+ [ SQL , Reason ]),
355353 error
356354 end .
357355
0 commit comments