Drop support for XP < 9

See xp-framework/rfc#341

ChangeLog.md

@@ -3,6 +3,12 @@ XP Compiler ChangeLog
 
 ## ?.?.? / ????-??-??
 
+## 7.0.0 / 2021-10-21
+
+* Made compatible with XP 11 - @thekid
+* Implemented xp-framework/rfc#341, dropping compatibility with XP 9
+  (@thekid)
+
 ## 6.11.0 / 2021-10-06
 
 * Merged PR #125: Support `new T(...)` callable syntax - @thekid

src/main/php/xp/compiler/Input.class.php

@@ -14,7 +14,7 @@ abstract class Input implements \IteratorAggregate {
    */
   public static function newInstance($arg) {
     if ('-' === $arg) {
-      return new FromStream(Console::$in->getStream(), '-');
+      return new FromStream(Console::$in->stream(), '-');
     } else if (is_array($arg)) {
       return new FromInputs($arg);
     } else if (is_file($arg)) {

src/main/php/xp/compiler/Output.class.php

@@ -14,7 +14,7 @@ public static function newInstance($arg) {
     if (null === $arg) {
       return new CompileOnly();
     } else if ('-' === $arg) {
-      return new ToStream(Console::$out->getStream());
+      return new ToStream(Console::$out->stream());
     } else if (strstr($arg, '.php')) {
       return new ToFile($arg);
     } else if (strstr($arg, '.xar')) {

src/test/php/lang/ast/unittest/cli/InputTest.class.php

@@ -26,7 +26,7 @@ public function cleanup() {
 
   #[Test]
   public function from_stdin() {
-    Assert::equals(new FromStream(Console::$in->getStream(), '-'), Input::newInstance('-'));
+    Assert::equals(new FromStream(Console::$in->stream(), '-'), Input::newInstance('-'));
   }
 
   #[Test]

src/test/php/lang/ast/unittest/cli/OutputTest.class.php

@@ -34,7 +34,7 @@ public function compile_only() {
 
   #[Test]
   public function to_stdin() {
-    Assert::equals(new ToStream(Console::$out->getStream()), Output::newInstance('-'));
+    Assert::equals(new ToStream(Console::$out->stream()), Output::newInstance('-'));
   }
 
   #[Test]

src/test/php/lang/ast/unittest/emit/TransformationsTest.class.php

@@ -52,13 +52,18 @@ public function __construct(int $id) {
   public function generates_string_representation() {
     $t= $this->type('#[Repr] class <T> {
       private int $id;
+      private string $name;
 
-      public function __construct(int $id) {
+      public function __construct(int $id, string $name) {
         $this->id= $id;
+        $this->name= $name;
       }
     }');
     Assert::true($t->hasMethod('toString'));
-    Assert::equals("T@[\n  id => 1\n]", $t->getMethod('toString')->invoke($t->newInstance(1)));
+    Assert::equals(
+      "T@[\n  id => 1\n  name => \"Test\"\n]",
+      $t->getMethod('toString')->invoke($t->newInstance(1, 'Test'))
+    );
   }
 
   #[Test, Values([['id', 1], ['name', 'Test']])]
@@ -80,12 +85,20 @@ public function __construct(int $id, string $name) {
   public function generates_both() {
     $t= $this->type('#[Repr, Getters] class <T> {
       private int $id;
+      private string $name;
 
-      public function __construct(int $id) {
+      public function __construct(int $id, string $name) {
         $this->id= $id;
+        $this->name= $name;
       }
     }');
-    Assert::equals(1, $t->getMethod('id')->invoke($t->newInstance(1)));
-    Assert::equals("T@[\n  id => 1\n]", $t->getMethod('toString')->invoke($t->newInstance(1)));
+
+    $instance= $t->newInstance(1, 'Test');
+    Assert::equals(1, $t->getMethod('id')->invoke($instance));
+    Assert::equals('Test', $t->getMethod('name')->invoke($instance));
+    Assert::equals(
+      "T@[\n  id => 1\n  name => \"Test\"\n]",
+      $t->getMethod('toString')->invoke($instance)
+    );
   }
 }