1324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver/* 2324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * [The "BSD license"] 3324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * Copyright (c) 2010 Terence Parr 4324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * All rights reserved. 5324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * 6324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * Redistribution and use in source and binary forms, with or without 7324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * modification, are permitted provided that the following conditions 8324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * are met: 9324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * 1. Redistributions of source code must retain the above copyright 10324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * notice, this list of conditions and the following disclaimer. 11324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * 2. Redistributions in binary form must reproduce the above copyright 12324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * notice, this list of conditions and the following disclaimer in the 13324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * documentation and/or other materials provided with the distribution. 14324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * 3. The name of the author may not be used to endorse or promote products 15324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * derived from this software without specific prior written permission. 16324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * 17324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 18324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 19324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 21324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 22324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 23324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 24324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 25324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 26324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 27324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver */ 28324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverpackage org.antlr.codegen; 29324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 30324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverimport org.antlr.analysis.Label; 31324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverimport org.antlr.tool.AttributeScope; 32324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverimport org.antlr.tool.Grammar; 33324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverimport org.antlr.tool.RuleLabelScope; 34324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 35324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruverpublic class Perl5Target extends Target { 36324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver public Perl5Target() { 37324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver targetCharValueEscape['$'] = "\\$"; 38324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver targetCharValueEscape['@'] = "\\@"; 39324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver targetCharValueEscape['%'] = "\\%"; 40324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver AttributeScope.tokenScope.addAttribute("self", null); 41324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver RuleLabelScope.predefinedLexerRulePropertiesScope.addAttribute("self", null); 42324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } 43324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 44324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver public String getTargetCharLiteralFromANTLRCharLiteral(final CodeGenerator generator, 45324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver final String literal) { 46324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver final StringBuffer buf = new StringBuffer(10); 47324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 48324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver final int c = Grammar.getCharValueFromGrammarCharLiteral(literal); 49324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver if (c < Label.MIN_CHAR_VALUE) { 50324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append("\\x{0000}"); 51324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } else if (c < targetCharValueEscape.length && 52324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver targetCharValueEscape[c] != null) { 53324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append(targetCharValueEscape[c]); 54324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } else if (Character.UnicodeBlock.of((char) c) == 55324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver Character.UnicodeBlock.BASIC_LATIN && 56324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver !Character.isISOControl((char) c)) { 57324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver // normal char 58324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append((char) c); 59324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } else { 60324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver // must be something unprintable...use \\uXXXX 61324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver // turn on the bit above max "\\uFFFF" value so that we pad with zeros 62324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver // then only take last 4 digits 63324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver String hex = Integer.toHexString(c | 0x10000).toUpperCase().substring(1, 5); 64324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append("\\x{"); 65324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append(hex); 66324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append("}"); 67324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } 68324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 69324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver if (buf.indexOf("\\") == -1) { 70324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver // no need for interpolation, use single quotes 71324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.insert(0, '\''); 72324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append('\''); 73324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } else { 74324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver // need string interpolation 75324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.insert(0, '\"'); 76324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver buf.append('\"'); 77324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } 78324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 79324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver return buf.toString(); 80324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } 81324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 82324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver public String encodeIntAsCharEscape(final int v) { 83324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver final int intValue; 84324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver if ((v & 0x8000) == 0) { 85324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver intValue = v; 86324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } else { 87324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver intValue = -(0x10000 - v); 88324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } 89324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver 90324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver return String.valueOf(intValue); 91324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver } 92324c4644fee44b9898524c09511bd33c3f12e2dfBen Gruver} 93