1 /* 2 * FaslWriter.h - 3 * 4 * Copyright (c) 2010 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: FaslWriter.h 261 2008-07-25 06:16:44Z higepon $ 30 */ 31 32 #ifndef SCHEME_FASL_WRITER_ 33 #define SCHEME_FASL_WRITER_ 34 35 #include "scheme.h" 36 #include "Fasl.h" 37 38 namespace scheme { 39 40 class FaslWriter EXTEND_GC 41 { 42 public: 43 FaslWriter(BinaryOutputPort* outputPort); 44 45 void put(Object obj); 46 private: 47 bool isInteresting(Object obj); 48 void scanSharedObjects(Object obj); 49 void putList(Object list); 50 void emitU8(uint8_t value); 51 void emitU16(uint16_t value); 52 void emitU32(uint32_t value); 53 void emitU64(uint64_t value); 54 void emitString(const ucs4string& string); 55 void emitShortAsciiString(const ucs4string& string); 56 void putDatum(Object obj); 57 58 EqHashTable* sharedObjects_; 59 ObjectVector sharedObjectVector_; 60 BinaryOutputPort* outputPort_; 61 62 int uid_; 63 }; 64 65 }; // namespace scheme 66 67 #endif // SCHEME_FASL_WRITER_ 68