added examples from scala#12039 with workarround against scala#14245

Author: rssh

compiler/test/dotty/tools/dotc/CompilationTests.scala

@@ -207,7 +207,8 @@ class CompilationTests {
       compileFile("tests/run-custom-args/defaults-serizaliable-no-forwarders.scala", defaultOptions and "-Xmixin-force-forwarders:false"),
       compileFilesInDir("tests/run-custom-args/erased", defaultOptions.and("-language:experimental.erasedDefinitions")),
       compileFilesInDir("tests/run-custom-args/fatal-warnings", defaultOptions.and("-Xfatal-warnings")),
-      compileDir("tests/run-custom-args/Xmacro-settings", defaultOptions.and("-Xmacro-settings:one,two,three")),
+      compileDir("tests/run-custom-args/Xmacro-settings/simple", defaultOptions.and("-Xmacro-settings:one,two,three")),
+      compileDir("tests/run-custom-args/Xmacro-settings/compileTimeEnv", defaultOptions.and("-Xmacro-settings:a,b=1,c.b.a=x.y.z=1,myLogger.level=INFO")),
       compileFilesInDir("tests/run-deep-subtype", allowDeepSubtypes),
       compileFilesInDir("tests/run", defaultOptions.and("-Ysafe-init"))
     ).checkRuns()

tests/run-custom-args/Xmacro-settings/compileTimeEnv.check

@@ -0,0 +1,6 @@
+I'm a info msg
+I'm a warn msg
+a = []
+b = [1]
+c.b.a = [x.y.z=1]
+wat is not defined

tests/run-custom-args/Xmacro-settings/compileTimeEnv/Logging.scala

@@ -0,0 +1,36 @@
+import scala.compiletime.*
+import scala.quoted.*
+
+
+object Logging {
+
+  // Just use your imagination for now :)
+  private inline val Trace = 0
+  private inline val Debug = 1
+  private inline val Info  = 2
+  private inline val Warn  = 3
+
+  private transparent inline def chosenThreshold: Int = ${
+     choosenTresholdImpl
+  }
+
+
+  private def choosenTresholdImpl(using Quotes):Expr[Int] =
+    import quotes.reflect.*
+    MacroEnv.getInMacro("myLogger.level") match
+        case Some("TRACE") => Expr(Trace)
+        case Some("DEBUG") => Expr(Debug)
+        case Some("INFO")  => Expr(Info)
+        case Some("WARN")  => Expr(Warn)
+        case Some(x)       => report.errorAndAbort("Unsupported logging level: " + x)
+        case None          => Expr(Trace)
+
+  private inline def log(inline lvl: Int, inline msg: String): Unit =
+    inline if lvl >= chosenThreshold then println(msg)
+
+  inline def trace(inline msg: String): Unit = log(Trace, msg)
+  inline def debug(inline msg: String): Unit = log(Debug, msg)
+  inline def info (inline msg: String): Unit = log(Info , msg)
+  inline def warn (inline msg: String): Unit = log(Warn , msg)
+}
+

tests/run-custom-args/Xmacro-settings/compileTimeEnv/MacroEnv.scala

@@ -0,0 +1,25 @@
+import scala.quoted.*
+
+object MacroEnv {
+
+ inline def get(inline key:String):Option[String] = ${
+    getImpl('key)
+ }
+
+ def getImpl(key:Expr[String])(using Quotes):Expr[Option[String]] = {
+    import quotes.reflect.*
+    val retval = getInMacro(key.valueOrAbort)
+    Expr(retval)
+ }
+
+ def getInMacro(key:String)(using Quotes):Option[String] = {
+    import quotes.reflect.*
+    val keyEq = key + "="
+    CompilationInfo.XmacroSettings.collectFirst{
+      case v if v == key => ""
+      case v if v.startsWith(keyEq) =>
+                  v.substring(keyEq.length)
+    }
+ }
+
+}

tests/run-custom-args/Xmacro-settings/compileTimeEnv/Test.scala

@@ -0,0 +1,30 @@
+import scala.compiletime.*
+
+object Test {
+  import Logging.*
+
+  def main(args: Array[String]): Unit = {
+     runLog()
+     runBasic()
+  }
+
+  def runLog(): Unit = {
+    trace("I'm a trace msg")
+    debug("I'm a debug msg")
+    info("I'm a info msg")
+    warn("I'm a warn msg")
+  }
+
+  def runBasic(): Unit = {
+    printEnv("a")    
+    printEnv("b")    
+    printEnv("c.b.a")    
+    printEnv("wat")    
+  }
+
+  inline def printEnv(inline k: String): Unit =
+    MacroEnv.get(k) match
+      case Some(v) => println(s"$k = [$v]")
+      case None    => println(k + " is not defined")
+
+}