X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=src%2Flexer%2Fterm_checker.cpp;fp=src%2Flexer%2Fterm_checker.cpp;h=e91020ae3521d6788f8650eba1bbdd4b261a5573;hb=fb54afeb9b80fe7fe397eb5f53bd85c7397c179f;hp=780cd3cbd8cdf3c605829db6322a63b316a3a80c;hpb=eb55313c7cd2418f40ac496a2c246e21d91bced4;p=simplecms%2Futakata.git

diff --git a/src/lexer/term_checker.cpp b/src/lexer/term_checker.cpp
index 780cd3c..e91020a 100755
--- a/src/lexer/term_checker.cpp
+++ b/src/lexer/term_checker.cpp
@@ -266,3 +266,27 @@ bool term::Boolean::operator()(reader::IReader* reader, unsigned int* size) {
   }
   return false;
 }
+
+// 宣言のコメントを参照してください。
+bool term::DatumComment::operator()(reader::IReader* reader,
+                                    unsigned int* size) {
+  unicode::UniString code(unicode::Convert(
+      reader->Peek(kDatumCommentReadSize)));
+  if (code == unicode::Convert("#;")) {
+    *size = kDatumCommentReadSize;
+    return true;
+  }
+  return false;
+}
+
+// 宣言のコメントを参照してください。
+bool term::SpecialComment::operator()(reader::IReader* reader,
+                                    unsigned int* size) {
+  unicode::UniString code(unicode::Convert(
+      reader->Peek(kSpecialCommentReadSize)));
+  if (code == unicode::Convert("#!r6rs")) {
+    *size = kSpecialCommentReadSize;
+    return true;
+  }
+  return false;
+}