1 /* 2 * Continuation.h - Continuation object. 3 * 4 * Copyright (c) 2009 Higepon(Taro Minowa) <higepon@users.sourceforge.jp> 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 17 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 18 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 19 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 20 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 21 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 22 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 23 * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 24 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 25 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 26 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 27 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 28 * 29 * $Id: Continuation.h 261 2008-07-25 06:16:44Z higepon $ 30 */ 31 32 #ifndef SCHEME_CONTINUATION_ 33 #define SCHEME_CONTINUATION_ 34 35 namespace scheme { 36 37 class VM; 38 39 class Continuation EXTEND_GC 40 { 41 public: Continuation(Object stack,Object shiftSize,Object winders)42 Continuation(Object stack, Object shiftSize, Object winders) : 43 stack_(stack), 44 shiftSize_(shiftSize), 45 winders_(winders) 46 { 47 } 48 49 // no virtual constructer for size 50 stack()51 Object stack() const { return stack_; } shiftSize()52 Object shiftSize() const { return shiftSize_; } winders()53 Object winders() const { return winders_; } 54 55 private: 56 Object stack_; 57 Object shiftSize_; 58 Object winders_; 59 }; 60 61 } // namespace scheme 62 63 #endif // SCHEME_CONTINUATION_ 64