src/Pure/library.ML
changeset 40925 7abeb749ae99
parent 40733 a71f786d20da
child 40930 500171e7aa59
equal deleted inserted replaced
40924:a9be7f26b4e6 40925:7abeb749ae99
   725 fun unenclose str = String.substring (str, 1, size str - 2);
   725 fun unenclose str = String.substring (str, 1, size str - 2);
   726 
   726 
   727 (*simple quoting (does not escape special chars)*)
   727 (*simple quoting (does not escape special chars)*)
   728 val quote = enclose "\"" "\"";
   728 val quote = enclose "\"" "\"";
   729 
   729 
   730 (*space_implode "..." (explode "hello") = "h...e...l...l...o"*)
   730 (*space_implode "..." (space_explode "hello") = "h...e...l...l...o"*)
   731 fun space_implode a bs = implode (separate a bs);
   731 fun space_implode a bs = implode (separate a bs);
   732 
   732 
   733 val commas = space_implode ", ";
   733 val commas = space_implode ", ";
   734 val commas_quote = commas o map quote;
   734 val commas_quote = commas o map quote;
   735 
   735