Implement part header

runtime/vm/parser.cc

 // Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "vm/parser.h"
 
 #include "vm/bigint_operations.h"
 #include "vm/class_finalizer.h"
 #include "vm/compiler.h"
 #include "vm/compiler_stats.h"
@@ skipping 4335 matching lines @@
     metadata_pos = TokenPos();
     SkipMetadata();
   }
   if (IsLiteral("library") || IsLiteral("import") || IsLiteral("export")) {
     ErrorMsg("unexpected token '%s'", CurrentLiteral()->ToCString());
   }
   SetPosition(metadata_pos);
 }
 
 
+void Parser::ParsePartHeader() {
+  intptr_t metadata_pos = TokenPos();
+  SkipMetadata();
+  // TODO(hausner): Once support for old #source directive is removed
+  // from the compiler, add an error message here if we don't find
+  // a 'part of' directive.
+  if (IsLiteral("part")) {
+    ConsumeToken();
+    if (!IsLiteral("of")) {
+      ErrorMsg("'part of' expected");
+    }
+    ConsumeToken();
+    // TODO(hausner): Exact syntax of library name still unclear: identifier,
+    // qualified identifier or even multiple dots allowed? For now we just
+    // accept simple identifiers.
+    // The VM is not required to check that the library name matches the
+    // name of the current library, so we ignore it.
+    ExpectIdentifier("library name expected");
+    ExpectSemicolon();
+  } else {
+    SetPosition(metadata_pos);
+  }
+}
+
+
 void Parser::ParseTopLevel() {
   TRACE_PARSER("ParseTopLevel");
   // Collect the classes found at the top level in this growable array.
   // They need to be registered with class finalization after parsing
   // has been completed.
   Isolate* isolate = Isolate::Current();
   ObjectStore* object_store = isolate->object_store();
   const GrowableObjectArray& pending_classes =
       GrowableObjectArray::Handle(isolate, object_store->pending_classes());
   SetPosition(0);
   is_top_level_ = true;
   TopLevel top_level;
   Class& toplevel_class = Class::Handle(
       Class::New(String::Handle(Symbols::TopLevel()), script_, TokenPos()));
   toplevel_class.set_library(library_);
 
   if (is_library_source()) {
     ParseLibraryDefinition();
+  } else if (is_part_source()) {
+    ParsePartHeader();
   }
 
   while (true) {
     set_current_class(Class::Handle());  // No current class.
     SkipMetadata();
     if (CurrentToken() == Token::kCLASS) {
       ParseClassDefinition(pending_classes);
     } else if ((CurrentToken() == Token::kTYPEDEF) &&
                (LookaheadToken(1) != Token::kLPAREN)) {
       ParseFunctionTypeAlias(pending_classes);
@@ skipping 5287 matching lines @@
 void Parser::SkipQualIdent() {
   ASSERT(IsIdentifier());
   ConsumeToken();
   if (CurrentToken() == Token::kPERIOD) {
     ConsumeToken();  // Consume the kPERIOD token.
     ExpectIdentifier("identifier expected after '.'");
   }
 }
 
 }  // namespace dart