Ticket #2025: quote.jam

# quote.jam
#
# Copyright (c) 2007-2008
# Steven Watanabe
#
# Distributed under the Boost Software License, Version 1.0. (See
# accompanying file LICENSE_1_0.txt or copy at
# http://www.boost.org/LICENSE_1_0.txt

import regex ;

rule quote_string ( string )
{
  if ( [ regex.match (\".*\") : $(string) : 1 ] )
  {
    return $(string) ;
  }
  else
  {
    return \"$(string)\" ;
  }
}

rule double-quote ( string )
{
  if ( [ regex.match (\".*\") : $(string) : 1 ] )
  {
    return $(string) ;
  }
  else
  {
    return \"$(string)\" ;
  }
}