stringify and universal cast-to-string deprecation

modules/internal/ChapelArray.chpl

@@ -2089,8 +2089,8 @@ module ChapelArray {
   // How to cast arrays to strings
   pragma "no doc"
   operator :(x: [], type t:string) {
-    use IO;
-    return stringify(x);
+    import IO.FormattedIO.format;
+    return try! "%t".format(x);
   }
 
   pragma "no doc"

modules/internal/ChapelDomain.chpl

@@ -1292,9 +1292,10 @@ module ChapelDomain {
      */
     proc dim(d : int) {
       use HaltWrappers;
+      import IO.FormattedIO.format;
       if boundsChecking then
         if (d < 0 || d >= rank) then
-          HaltWrappers.boundsCheckHalt("dim(" + d:string + ") is out-of-bounds; must be 0.." + (rank-1):string);
+          HaltWrappers.boundsCheckHalt(try! "dim(%t) is out-of-bounds; must be 0..%t".format(d, rank-1));
       return _value.dsiDim(d);
     }
 
@@ -1642,10 +1643,11 @@ module ChapelDomain {
         It is an error if `idx` is not a valid index in `arr`.
       */
       proc initialize(arr: [?d], idx, in value: arr.eltType) {
+        import IO.FormattedIO.format;
 
         // Check to make sure value and array element types match.
         if arr.eltType != value.type then
-          compilerError('Initialization value type \'' + value:string +
+          compilerError('Initialization value type \'' + value.type:string +
                         '\' does not match array element type \'' +
                         arr.eltType:string + '\'');
 
@@ -1669,15 +1671,14 @@ module ChapelDomain {
                'the domain being resized');
 
         if !arr.domain.contains(idx) then
-          halt('Array index out of bounds: ' + idx:string);
+          halt(try! 'Array index out of bounds: %t'.format(idx));
 
         // Get a reference to the array slot.
         ref elem = arr[idx];
 
         if _checks {
           if isElementInitialized(arr, idx) {
-            halt('Element at array index \'' + idx:string + '\' ' +
-                 'is already initialized');
+            halt(try! "Element at array index '%t' is already initialized".format(idx));
           }
         }
 
@@ -2594,8 +2595,8 @@ module ChapelDomain {
       if canResolveMethod(val._value, "doiToString") {
         return val._value.doiToString();
       } else {
-        use IO;
-        return stringify(val);
+        import IO.FormattedIO.format;
+        return try! "%t".format(val);
       }
     }
 

modules/internal/DefaultRectangular.chpl

@@ -2176,12 +2176,12 @@ module DefaultRectangular {
   //
   private proc complexTransferComm(A, B, stridelevels:int(32), dstStride, srcStride, count, AFirst, BFirst) {
     if debugDefaultDistBulkTransfer {
-      chpl_debug_writeln("BulkTransferStride with values:\n",
-                         "\tLocale        = ", stringify(here.id), "\n",
-                         "\tStride levels = ", stringify(stridelevels), "\n",
-                         "\tdstStride     = ", stringify(dstStride), "\n",
-                         "\tsrcStride     = ", stringify(srcStride), "\n",
-                         "\tcount         = ", stringify(count));
+      chpl_debug_writeln(try! """BulkTransferStride with values:\n
+                         \tLocale        = %t\n
+                         \tStride levels = %t\n
+                         \tdstStride     = %t\n
+                         \tsrcStride     = %t\n
+                         \tcount         = %t\n""".format(here.id, stridelevels, dstStride, srcStride, count));
     }
 
     const AO = A.getDataIndex(AFirst, getShifted = false);

modules/internal/DefaultSparse.chpl

@@ -598,6 +598,35 @@ module DefaultSparse {
     }
   }
 
+  // proc DefaultSparseDom.doiToString(): string {
+  //   var s = "{";
+  //   if rank == 1 {
+  //     if (_nnz >= 1) {
+  //       s += _indices(0):string;
+  //       for i in 1.._nnz-1 {
+  //         s += " " + _indices(i):string;
+  //       }
+  //     }
+  //     s += "}";
+  //   } else {
+  //     s += "\n";
+  //     if (_nnz >= 1) {
+  //       var prevInd = _indices(0);
+  //       s += " " + prevInd;
+  //       for i in 1.._nnz-1 {
+  //         if (prevInd(0) != _indices(i)(0)) {
+  //           s += "\n";
+  //         }
+  //         prevInd = _indices(i);
+  //         s += " " + prevInd:string;
+  //       }
+  //       s += "\n";
+  //     }
+  //     s += "}\n";
+  //   }
+  //   return s;
+  // }
+
 
   proc DefaultSparseArr.dsiSerialWrite(f) throws {
     if (rank == 1) {

modules/internal/StringCasts.chpl

@@ -56,6 +56,24 @@ module StringCasts {
     return false;
   }
 
+  // homogenous tuples of primitive type
+  operator :(x: ?k*?t, type s:string) where isPrimitiveType(t) && isHomogeneousTupleType(x.type) {
+    var ret = "(";
+    for param i in 0..#k {
+      if i != 0 then ret += ", ";
+      if (x[i].type == c_string) {
+        try! {
+          ret += createStringWithNewBuffer(x[i]);
+        }
+      }
+      else {
+        ret += x[i]:string;
+      }
+    }
+    ret += ")";
+    return ret;
+  }
+
   //
   // int
   //

modules/packages/SortedMap.chpl

@@ -343,7 +343,7 @@ module SortedMap {
       var found: bool;
       (found, result) = _set.lowerBound((k, nil));
       if !found || comparator.compare(result[0], k) != 0 then
-        boundsCheckHalt("sortedMap index " + k:string + " out of bounds");
+        boundsCheckHalt(try! "sortedMap index %t out of bounds".format(k));
       return result[1]!.val;
     }
     /*
@@ -356,7 +356,7 @@ module SortedMap {
       var found: bool;
       (found, result) = _set.lowerBound((k, nil));
       if !found || comparator.compare(result[0], k) != 0 then
-        boundsCheckHalt("sortedMap index " + k:string + " out of bounds");
+        boundsCheckHalt(try! "sortedMap index %t out of bounds".format(k));
 
       _set.remove((k, nil));
 

modules/packages/SortedSet/Treap.chpl

@@ -368,7 +368,7 @@ module Treap {
     proc _getReference(element: eltType) ref {
       var node = _findRef(_root, element);
       if node == nil then
-        boundsCheckHalt("index " + element:string + " out of bounds");
+        boundsCheckHalt(try! "index %t out of bounds".format(element));
       ref result = node!.element;
       return result;
     }
@@ -384,7 +384,7 @@ module Treap {
     proc const _getValue(element: eltType) const {
       var node = _find(_root, element);
       if node == nil then
-        boundsCheckHalt("index " + element:string + " out of bounds");
+        boundsCheckHalt(try! "index %t out of bounds".format(element));
       var result = node!.element;
       return result;
     }