1 /* 2 * TestingFileBinaryInputPort.h - 3 * 4 * Copyright (c) 2008 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: TestingFileBinaryOutputPort.h 261 2008-07-25 06:16:44Z higepon $ 30 */ 31 32 #ifndef SCHEME_TESTING_FILEBINARY_INPUTPORT_ 33 #define SCHEME_TESTING_FILEBINARY_INPUTPORT_ 34 35 #include "scheme.h" 36 37 namespace scheme { 38 39 // use global variable for test 40 // Because we can't refer the instance. (GC needs it). 41 extern bool portIsClosed; 42 43 class TestingFileBinaryInputPort : public FileBinaryInputPort 44 { 45 public: TestingFileBinaryInputPort(ucs4string file)46 TestingFileBinaryInputPort(ucs4string file) : FileBinaryInputPort(file) 47 { 48 portIsClosed = false; 49 } 50 ~TestingFileBinaryInputPort()51 virtual ~TestingFileBinaryInputPort() 52 { 53 close(); 54 } 55 close()56 int close() 57 { 58 portIsClosed = true; 59 return 0; 60 } 61 62 }; 63 64 } // namespace scheme 65 66 #endif // SCHEME_TESTING_FILEBINARY_INPUTPORT_ 67