truffle: truffle/com.oracle.truffle.sl/src/com/oracle/truffle/sl/parser/Scanner.java annotate

annotate truffle/com.oracle.truffle.sl/src/com/oracle/truffle/sl/parser/Scanner.java @ 22157:dc83cc1f94f2

Using fully qualified imports

author	Jaroslav Tulach <jaroslav.tulach@oracle.com>
date	Wed, 16 Sep 2015 11:33:22 +0200
parents	503529c65456
children	6050fb3fc842

rev	line source
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	1 /*
13821 b16ec83edc73 Documentation and more refactoring of Simple Language Christian Wimmer <christian.wimmer@oracle.com> parents: 13763 diff changeset	2 * Copyright (c) 2012, 2014, Oracle and/or its affiliates. All rights reserved.
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	4 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	5 * The Universal Permissive License (UPL), Version 1.0
22065 503529c65456 Remove trailing whitespace from UPL license Tom Rodriguez <tom.rodriguez@oracle.com> parents: 21997 diff changeset	6 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	7 * Subject to the condition set forth below, permission is hereby granted to any
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	8 * person obtaining a copy of this software, associated documentation and/or
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	9 * data (collectively the "Software"), free of charge and under any and all
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	10 * copyright rights in the Software, and any and all patent rights owned or
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	11 * freely licensable by each licensor hereunder covering either (i) the
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	12 * unmodified Software as contributed to or provided by such licensor, or (ii)
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	13 * the Larger Works (as defined below), to deal in both
22065 503529c65456 Remove trailing whitespace from UPL license Tom Rodriguez <tom.rodriguez@oracle.com> parents: 21997 diff changeset	14 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	15 * (a) the Software, and
22065 503529c65456 Remove trailing whitespace from UPL license Tom Rodriguez <tom.rodriguez@oracle.com> parents: 21997 diff changeset	16 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	17 * (b) any piece of software and/or hardware listed in the lrgrwrks.txt file if
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	18 * one is included with the Software each a "Larger Work" to which the Software
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	19 * is contributed by such licensors),
22065 503529c65456 Remove trailing whitespace from UPL license Tom Rodriguez <tom.rodriguez@oracle.com> parents: 21997 diff changeset	20 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	21 * without restriction, including without limitation the rights to copy, create
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	22 * derivative works of, display, perform, and distribute the Software and make,
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	23 * use, sell, offer for sale, import, export, have made, and have sold the
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	24 * Software and the Larger Work(s), and to sublicense the foregoing rights on
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	25 * either these or other terms.
22065 503529c65456 Remove trailing whitespace from UPL license Tom Rodriguez <tom.rodriguez@oracle.com> parents: 21997 diff changeset	26 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	27 * This license is subject to the following condition:
22065 503529c65456 Remove trailing whitespace from UPL license Tom Rodriguez <tom.rodriguez@oracle.com> parents: 21997 diff changeset	28 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	29 * The above copyright notice and either this complete permission notice or at a
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	30 * minimum a reference to the UPL must be included in all copies or substantial
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	31 * portions of the Software.
22065 503529c65456 Remove trailing whitespace from UPL license Tom Rodriguez <tom.rodriguez@oracle.com> parents: 21997 diff changeset	32 *
21997 c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	33 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	34 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	35 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	36 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	37 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	38 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
c07e64ecb528 Update SL copyright headers to use UPL Gilles Duboscq <gilles.m.duboscq@oracle.com> parents: 21951 diff changeset	39 * SOFTWARE.
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	40 */
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	41
13763 cad8bed1a1ac Fix Eclipse formatter issues Christian Wimmer <christian.wimmer@oracle.com> parents: 13761 diff changeset	42 // The content of this file is automatically generated. DO NOT EDIT.
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	43
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	44 package com.oracle.truffle.sl.parser;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	45
22157 dc83cc1f94f2 Using fully qualified imports Jaroslav Tulach <jaroslav.tulach@oracle.com> parents: 22065 diff changeset	46 import java.io.IOException;
dc83cc1f94f2 Using fully qualified imports Jaroslav Tulach <jaroslav.tulach@oracle.com> parents: 22065 diff changeset	47 import java.io.InputStream;
dc83cc1f94f2 Using fully qualified imports Jaroslav Tulach <jaroslav.tulach@oracle.com> parents: 22065 diff changeset	48 import java.io.RandomAccessFile;
dc83cc1f94f2 Using fully qualified imports Jaroslav Tulach <jaroslav.tulach@oracle.com> parents: 22065 diff changeset	49 import java.util.HashMap;
dc83cc1f94f2 Using fully qualified imports Jaroslav Tulach <jaroslav.tulach@oracle.com> parents: 22065 diff changeset	50 import java.util.Map;
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	51
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	52 // Checkstyle: stop
7517 b6743d7eb8d4 disabled auto-formatting of generated code Doug Simon <doug.simon@oracle.com> parents: 7292 diff changeset	53 // @formatter:off
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	54 class Token {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	55
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	56 public int kind; // token kind
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	57 public int pos; // token position in bytes in the source text (starting at 0)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	58 public int charPos; // token position in characters in the source text (starting at 0)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	59 public int col; // token column (starting at 1)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	60 public int line; // token line (starting at 1)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	61 public String val; // token value
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	62 public Token next; // ML 2005-03-11 Peek tokens are kept in linked list
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	63 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	64
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	65 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	66 // Buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	67 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	68 class Buffer {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	69
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	70 // This Buffer supports the following cases:
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	71 // 1) seekable stream (file)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	72 // a) whole stream in buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	73 // b) part of stream in buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	74 // 2) non seekable stream (network, console)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	75
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	76 public static final int EOF = Character.MAX_VALUE + 1;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	77 private static final int MIN_BUFFER_LENGTH = 1024; // 1KB
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	78 private static final int MAX_BUFFER_LENGTH = MIN_BUFFER_LENGTH * 64; // 64KB
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	79 private byte[] buf; // input buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	80 private int bufStart; // position of first byte in buffer relative to input stream
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	81 private int bufLen; // length of buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	82 private int fileLen; // length of input stream (may change if stream is no file)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	83 private int bufPos; // current position in buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	84 private RandomAccessFile file; // input stream (seekable)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	85 private InputStream stream; // growing input stream (e.g.: console, network)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	86
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	87 public Buffer(InputStream s) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	88 stream = s;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	89 fileLen = bufLen = bufStart = bufPos = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	90 buf = new byte[MIN_BUFFER_LENGTH];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	91 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	92
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	93 public Buffer(String fileName) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	94 try {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	95 file = new RandomAccessFile(fileName, "r");
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	96 fileLen = (int) file.length();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	97 bufLen = Math.min(fileLen, MAX_BUFFER_LENGTH);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	98 buf = new byte[bufLen];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	99 bufStart = Integer.MAX_VALUE; // nothing in buffer so far
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	100 if (fileLen > 0)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	101 setPos(0); // setup buffer to position 0 (start)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	102 else
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	103 bufPos = 0; // index 0 is already after the file, thus setPos(0) is invalid
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	104 if (bufLen == fileLen)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	105 Close();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	106 } catch (IOException e) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	107 throw new FatalError("Could not open file " + fileName);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	108 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	109 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	110
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	111 // don't use b after this call anymore
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	112 // called in UTF8Buffer constructor
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	113 protected Buffer(Buffer b) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	114 buf = b.buf;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	115 bufStart = b.bufStart;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	116 bufLen = b.bufLen;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	117 fileLen = b.fileLen;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	118 bufPos = b.bufPos;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	119 file = b.file;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	120 stream = b.stream;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	121 // keep finalize from closing the file
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	122 b.file = null;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	123 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	124
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	125 @Override
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	126 protected void finalize() throws Throwable {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	127 super.finalize();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	128 Close();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	129 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	130
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	131 protected void Close() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	132 if (file != null) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	133 try {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	134 file.close();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	135 file = null;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	136 } catch (IOException e) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	137 throw new FatalError(e.getMessage());
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	138 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	139 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	140 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	141
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	142 public int Read() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	143 if (bufPos < bufLen) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	144 return buf[bufPos++] & 0xff; // mask out sign bits
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	145 } else if (getPos() < fileLen) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	146 setPos(getPos()); // shift buffer start to pos
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	147 return buf[bufPos++] & 0xff; // mask out sign bits
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	148 } else if (stream != null && ReadNextStreamChunk() > 0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	149 return buf[bufPos++] & 0xff; // mask out sign bits
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	150 } else {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	151 return EOF;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	152 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	153 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	154
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	155 public int Peek() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	156 int curPos = getPos();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	157 int ch = Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	158 setPos(curPos);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	159 return ch;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	160 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	161
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	162 // beg .. begin, zero-based, inclusive, in byte
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	163 // end .. end, zero-based, exclusive, in byte
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	164 public String GetString(int beg, int end) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	165 int len = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	166 char[] buffer = new char[end - beg];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	167 int oldPos = getPos();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	168 setPos(beg);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	169 while (getPos() < end)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	170 buffer[len++] = (char) Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	171 setPos(oldPos);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	172 return new String(buffer, 0, len);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	173 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	174
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	175 public int getPos() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	176 return bufPos + bufStart;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	177 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	178
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	179 public void setPos(int value) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	180 if (value >= fileLen && stream != null) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	181 // Wanted position is after buffer and the stream
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	182 // is not seek-able e.g. network or console,
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	183 // thus we have to read the stream manually till
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	184 // the wanted position is in sight.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	185 while (value >= fileLen && ReadNextStreamChunk() > 0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	186 // nothing to do...
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	187 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	188 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	189
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	190 if (value < 0 \|\| value > fileLen) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	191 throw new FatalError("buffer out of bounds access, position: " + value);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	192 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	193
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	194 if (value >= bufStart && value < bufStart + bufLen) { // already in buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	195 bufPos = value - bufStart;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	196 } else if (file != null) { // must be swapped in
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	197 try {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	198 file.seek(value);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	199 bufLen = file.read(buf);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	200 bufStart = value;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	201 bufPos = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	202 } catch (IOException e) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	203 throw new FatalError(e.getMessage());
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	204 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	205 } else {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	206 // set the position to the end of the file, Pos will return fileLen.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	207 bufPos = fileLen - bufStart;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	208 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	209 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	210
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	211 // Read the next chunk of bytes from the stream, increases the buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	212 // if needed and updates the fields fileLen and bufLen.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	213 // Returns the number of bytes read.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	214 private int ReadNextStreamChunk() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	215 int free = buf.length - bufLen;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	216 if (free == 0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	217 // in the case of a growing input stream
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	218 // we can neither seek in the stream, nor can we
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	219 // foresee the maximum length, thus we must adapt
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	220 // the buffer size on demand.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	221 byte[] newBuf = new byte[bufLen * 2];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	222 System.arraycopy(buf, 0, newBuf, 0, bufLen);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	223 buf = newBuf;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	224 free = bufLen;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	225 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	226
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	227 int read;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	228 try {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	229 read = stream.read(buf, bufLen, free);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	230 } catch (IOException ioex) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	231 throw new FatalError(ioex.getMessage());
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	232 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	233
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	234 if (read > 0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	235 fileLen = bufLen = (bufLen + read);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	236 return read;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	237 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	238 // end of stream reached
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	239 return 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	240 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	241 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	242
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	243 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	244 // UTF8Buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	245 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	246 class UTF8Buffer extends Buffer {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	247
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	248 UTF8Buffer(Buffer b) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	249 super(b);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	250 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	251
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	252 @Override
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	253 public int Read() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	254 int ch;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	255 do {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	256 ch = super.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	257 // until we find a utf8 start (0xxxxxxx or 11xxxxxx)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	258 } while ((ch >= 128) && ((ch & 0xC0) != 0xC0) && (ch != EOF));
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	259 if (ch < 128 \|\| ch == EOF) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	260 // nothing to do, first 127 chars are the same in ascii and utf8
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	261 // 0xxxxxxx or end of file character
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	262 } else if ((ch & 0xF0) == 0xF0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	263 // 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	264 int c1 = ch & 0x07;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	265 ch = super.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	266 int c2 = ch & 0x3F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	267 ch = super.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	268 int c3 = ch & 0x3F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	269 ch = super.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	270 int c4 = ch & 0x3F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	271 ch = (((((c1 << 6) \| c2) << 6) \| c3) << 6) \| c4;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	272 } else if ((ch & 0xE0) == 0xE0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	273 // 1110xxxx 10xxxxxx 10xxxxxx
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	274 int c1 = ch & 0x0F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	275 ch = super.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	276 int c2 = ch & 0x3F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	277 ch = super.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	278 int c3 = ch & 0x3F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	279 ch = (((c1 << 6) \| c2) << 6) \| c3;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	280 } else if ((ch & 0xC0) == 0xC0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	281 // 110xxxxx 10xxxxxx
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	282 int c1 = ch & 0x1F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	283 ch = super.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	284 int c2 = ch & 0x3F;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	285 ch = (c1 << 6) \| c2;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	286 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	287 return ch;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	288 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	289 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	290
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	291 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	292 // StartStates -- maps characters to start states of tokens
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	293 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	294 class StartStates {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	295
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	296 private static class Elem {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	297
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	298 public int key, val;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	299 public Elem next;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	300
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	301 public Elem(int key, int val) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	302 this.key = key;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	303 this.val = val;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	304 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	305 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	306
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	307 private Elem[] tab = new Elem[128];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	308
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	309 public void set(int key, int val) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	310 Elem e = new Elem(key, val);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	311 int k = key % 128;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	312 e.next = tab[k];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	313 tab[k] = e;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	314 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	315
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	316 public int state(int key) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	317 Elem e = tab[key % 128];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	318 while (e != null && e.key != key)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	319 e = e.next;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	320 return e == null ? 0 : e.val;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	321 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	322 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	323
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	324 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	325 // Scanner
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	326 // -----------------------------------------------------------------------------------
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	327 @SuppressWarnings({"rawtypes", "unchecked"})
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	328 public class Scanner {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	329
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	330 static final char EOL = '\n';
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	331 static final int eofSym = 0;
18411 dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	332 static final int maxT = 31;
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	333 static final int noSym = 31;
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	334
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	335
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	336 public Buffer buffer; // scanner buffer
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	337
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	338 Token t; // current token
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	339 int ch; // current input character
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	340 int pos; // byte position of current character
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	341 int charPos; // position by unicode characters starting with 0
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	342 int col; // column number of current character
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	343 int line; // line number of current character
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	344 int oldEols; // EOLs that appeared in a comment;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	345 static final StartStates start; // maps initial token character to start state
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	346 static final Map literals; // maps literal strings to literal kinds
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	347
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	348 Token tokens; // list of tokens already peeked (first token is a dummy)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	349 Token pt; // current peek token
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	350
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	351 char[] tval = new char[16]; // token text used in NextToken(), dynamically enlarged
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	352 int tlen; // length of current token
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	353
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	354 static {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	355 start = new StartStates();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	356 literals = new HashMap();
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	357 for (int i = 65; i <= 90; ++i) start.set(i, 1);
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	358 for (int i = 97; i <= 122; ++i) start.set(i, 1);
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	359 for (int i = 49; i <= 57; ++i) start.set(i, 4);
18411 dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	360 start.set(34, 2);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	361 start.set(48, 5);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	362 start.set(40, 6);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	363 start.set(44, 7);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	364 start.set(41, 8);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	365 start.set(123, 9);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	366 start.set(125, 10);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	367 start.set(59, 11);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	368 start.set(124, 12);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	369 start.set(38, 14);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	370 start.set(60, 26);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	371 start.set(62, 27);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	372 start.set(61, 28);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	373 start.set(33, 19);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	374 start.set(43, 21);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	375 start.set(45, 22);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	376 start.set(42, 23);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	377 start.set(47, 24);
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	378 start.set(46, 25);
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	379 start.set(Buffer.EOF, -1);
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	380 literals.put("function", new Integer(4));
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	381 literals.put("break", new Integer(10));
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	382 literals.put("continue", new Integer(12));
13821 b16ec83edc73 Documentation and more refactoring of Simple Language Christian Wimmer <christian.wimmer@oracle.com> parents: 13763 diff changeset	383 literals.put("while", new Integer(13));
b16ec83edc73 Documentation and more refactoring of Simple Language Christian Wimmer <christian.wimmer@oracle.com> parents: 13763 diff changeset	384 literals.put("if", new Integer(14));
b16ec83edc73 Documentation and more refactoring of Simple Language Christian Wimmer <christian.wimmer@oracle.com> parents: 13763 diff changeset	385 literals.put("else", new Integer(15));
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	386 literals.put("return", new Integer(16));
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	387
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	388 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	389
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	390 public Scanner(String fileName) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	391 buffer = new Buffer(fileName);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	392 Init();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	393 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	394
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	395 public Scanner(InputStream s) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	396 buffer = new Buffer(s);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	397 Init();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	398 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	399
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	400 void Init() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	401 pos = -1;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	402 line = 1;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	403 col = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	404 charPos = -1;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	405 oldEols = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	406 NextCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	407 if (ch == 0xEF) { // check optional byte order mark for UTF-8
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	408 NextCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	409 int ch1 = ch;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	410 NextCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	411 int ch2 = ch;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	412 if (ch1 != 0xBB \|\| ch2 != 0xBF) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	413 throw new FatalError("Illegal byte order mark at start of file");
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	414 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	415 buffer = new UTF8Buffer(buffer);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	416 col = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	417 charPos = -1;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	418 NextCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	419 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	420 pt = tokens = new Token(); // first token is a dummy
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	421 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	422
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	423 void NextCh() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	424 if (oldEols > 0) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	425 ch = EOL;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	426 oldEols--;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	427 } else {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	428 pos = buffer.getPos();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	429 // buffer reads unicode chars, if UTF8 has been detected
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	430 ch = buffer.Read();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	431 col++;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	432 charPos++;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	433 // replace isolated '\r' by '\n' in order to make
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	434 // eol handling uniform across Windows, Unix and Mac
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	435 if (ch == '\r' && buffer.Peek() != '\n')
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	436 ch = EOL;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	437 if (ch == EOL) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	438 line++;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	439 col = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	440 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	441 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	442
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	443 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	444
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	445 void AddCh() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	446 if (tlen >= tval.length) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	447 char[] newBuf = new char[2 * tval.length];
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	448 System.arraycopy(tval, 0, newBuf, 0, tval.length);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	449 tval = newBuf;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	450 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	451 if (ch != Buffer.EOF) {
18411 dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	452 tval[tlen++] = (char)ch;
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	453
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	454 NextCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	455 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	456 }
7517 b6743d7eb8d4 disabled auto-formatting of generated code Doug Simon <doug.simon@oracle.com> parents: 7292 diff changeset	457
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	458
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	459 boolean Comment0() {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	460 int level = 1, pos0 = pos, line0 = line, col0 = col, charPos0 = charPos;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	461 NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	462 if (ch == '/') {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	463 NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	464 for(;;) {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	465 if (ch == 10) {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	466 level--;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	467 if (level == 0) { oldEols = line - line0; NextCh(); return true; }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	468 NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	469 } else if (ch == Buffer.EOF) return false;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	470 else NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	471 }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	472 } else {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	473 buffer.setPos(pos0); NextCh(); line = line0; col = col0; charPos = charPos0;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	474 }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	475 return false;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	476 }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	477
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	478 boolean Comment1() {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	479 int level = 1, pos0 = pos, line0 = line, col0 = col, charPos0 = charPos;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	480 NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	481 if (ch == '*') {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	482 NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	483 for(;;) {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	484 if (ch == '*') {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	485 NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	486 if (ch == '/') {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	487 level--;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	488 if (level == 0) { oldEols = line - line0; NextCh(); return true; }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	489 NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	490 }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	491 } else if (ch == Buffer.EOF) return false;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	492 else NextCh();
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	493 }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	494 } else {
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	495 buffer.setPos(pos0); NextCh(); line = line0; col = col0; charPos = charPos0;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	496 }
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	497 return false;
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	498 }
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	499
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	500
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	501 void CheckLiteral() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	502 String val = t.val;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	503
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	504 Object kind = literals.get(val);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	505 if (kind != null) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	506 t.kind = ((Integer) kind).intValue();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	507 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	508 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	509
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	510 Token NextToken() {
18411 dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	511 while (ch == ' ' \|\|
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	512 ch >= 9 && ch <= 10 \|\| ch == 13
7848 698cd036a1ca Added a ternary operator to simple language to test short circuit specialization. Christian Humer <christian.humer@gmail.com> parents: 7530 diff changeset	513 ) NextCh();
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	514 if (ch == '/' && Comment0() \|\|ch == '/' && Comment1()) return NextToken();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	515 int recKind = noSym;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	516 int recEnd = pos;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	517 t = new Token();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	518 t.pos = pos;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	519 t.col = col;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	520 t.line = line;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	521 t.charPos = charPos;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	522 int state = start.state(ch);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	523 tlen = 0;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	524 AddCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	525
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	526 loop: for (;;) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	527 switch (state) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	528 case -1: {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	529 t.kind = eofSym;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	530 break loop;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	531 } // NextCh already done
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	532 case 0: {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	533 if (recKind != noSym) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	534 tlen = recEnd - t.pos;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	535 SetScannerBehindT();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	536 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	537 t.kind = recKind;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	538 break loop;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	539 } // NextCh already done
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	540 case 1:
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	541 recEnd = pos; recKind = 1;
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	542 if (ch >= '0' && ch <= '9' \|\| ch >= 'A' && ch <= 'Z' \|\| ch >= 'a' && ch <= 'z') {AddCh(); state = 1; break;}
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	543 else {t.kind = 1; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	544 case 2:
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	545 if (ch <= 9 \|\| ch >= 11 && ch <= 12 \|\| ch >= 14 && ch <= '!' \|\| ch >= '#' && ch <= '[' \|\| ch >= ']' && ch <= 65535) {AddCh(); state = 2; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	546 else if (ch == '"') {AddCh(); state = 3; break;}
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	547 else {state = 0; break;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	548 case 3:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	549 {t.kind = 2; break loop;}
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	550 case 4:
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	551 recEnd = pos; recKind = 3;
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	552 if (ch >= '0' && ch <= '9') {AddCh(); state = 4; break;}
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	553 else {t.kind = 3; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	554 case 5:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	555 {t.kind = 3; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	556 case 6:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	557 {t.kind = 5; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	558 case 7:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	559 {t.kind = 6; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	560 case 8:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	561 {t.kind = 7; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	562 case 9:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	563 {t.kind = 8; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	564 case 10:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	565 {t.kind = 9; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	566 case 11:
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	567 {t.kind = 11; break loop;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	568 case 12:
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	569 if (ch == '\|') {AddCh(); state = 13; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	570 else {state = 0; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	571 case 13:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	572 {t.kind = 17; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	573 case 14:
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	574 if (ch == '&') {AddCh(); state = 15; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	575 else {state = 0; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	576 case 15:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	577 {t.kind = 18; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	578 case 16:
13821 b16ec83edc73 Documentation and more refactoring of Simple Language Christian Wimmer <christian.wimmer@oracle.com> parents: 13763 diff changeset	579 {t.kind = 20; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	580 case 17:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	581 {t.kind = 22; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	582 case 18:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	583 {t.kind = 23; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	584 case 19:
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	585 if (ch == '=') {AddCh(); state = 20; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	586 else {state = 0; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	587 case 20:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	588 {t.kind = 24; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	589 case 21:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	590 {t.kind = 25; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	591 case 22:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	592 {t.kind = 26; break loop;}
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	593 case 23:
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	594 {t.kind = 27; break loop;}
7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	595 case 24:
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	596 {t.kind = 28; break loop;}
12754 7311354f5bf8 SL: fixed eclipse formatter problems. Christian Humer <christian.humer@gmail.com> parents: 12752 diff changeset	597 case 25:
18411 dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	598 {t.kind = 30; break loop;}
dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	599 case 26:
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	600 recEnd = pos; recKind = 19;
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	601 if (ch == '=') {AddCh(); state = 16; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	602 else {t.kind = 19; break loop;}
18411 dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	603 case 27:
13821 b16ec83edc73 Documentation and more refactoring of Simple Language Christian Wimmer <christian.wimmer@oracle.com> parents: 13763 diff changeset	604 recEnd = pos; recKind = 21;
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	605 if (ch == '=') {AddCh(); state = 17; break;}
13821 b16ec83edc73 Documentation and more refactoring of Simple Language Christian Wimmer <christian.wimmer@oracle.com> parents: 13763 diff changeset	606 else {t.kind = 21; break loop;}
18411 dc2e000bed40 SL: add basic support for creating objects and accessing properties Andreas Woess <andreas.woess@jku.at> parents: 16512 diff changeset	607 case 28:
13761 7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	608 recEnd = pos; recKind = 29;
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	609 if (ch == '=') {AddCh(); state = 18; break;}
7c418666c6c9 Refactoring and cleanup of Simple Language (more to come soon) Christian Wimmer <christian.wimmer@oracle.com> parents: 12754 diff changeset	610 else {t.kind = 29; break loop;}
7292 213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	611
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	612 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	613 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	614 t.val = new String(tval, 0, tlen);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	615 return t;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	616 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	617
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	618 private void SetScannerBehindT() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	619 buffer.setPos(t.pos);
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	620 NextCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	621 line = t.line;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	622 col = t.col;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	623 charPos = t.charPos;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	624 for (int i = 0; i < tlen; i++)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	625 NextCh();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	626 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	627
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	628 // get the next token (possibly a token already seen during peeking)
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	629 public Token Scan() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	630 if (tokens.next == null) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	631 return NextToken();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	632 } else {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	633 pt = tokens = tokens.next;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	634 return tokens;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	635 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	636 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	637
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	638 // get the next token, ignore pragmas
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	639 public Token Peek() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	640 do {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	641 if (pt.next == null) {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	642 pt.next = NextToken();
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	643 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	644 pt = pt.next;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	645 } while (pt.kind > maxT); // skip pragmas
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	646
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	647 return pt;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	648 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	649
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	650 // make sure that peeking starts at current scan position
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	651 public void ResetPeek() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	652 pt = tokens;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	653 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	654
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	655 // The following methods are used for the CLNG Editor and will be called with java.Reflection.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	656 // If the editor won't be used these 3 functions are obsolete,
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	657 // otherwise changes within the signature of the methods will result in Syntax Highlighting not working properly
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	658 // anymore.
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	659
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	660 // get the offset of the next Token
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	661 public int getPeekTokenOffset() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	662 return pt.pos;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	663 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	664
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	665 // get the String value of the Token
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	666 public String getPeekTokenVal() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	667 return pt.val;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	668 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	669
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	670 // get the Kind value of the Token
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	671 public int getPeekTokenKind() {
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	672 return pt.kind;
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	673 }
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	674
213c1297a814 Simple Language: A simple dynamic programming language to demonstrate Truffle features Christian Wimmer <christian.wimmer@oracle.com> parents: diff changeset	675 } // end Scanner

Mercurial > hg > truffle

annotate truffle/com.oracle.truffle.sl/src/com/oracle/truffle/sl/parser/Scanner.java @ 22157:dc83cc1f94f2