utils.sml

structure utils :> utils = 
struct
	
	fun listToString l toString =
		let
			fun listToString' [] _ = []
				| listToString' ((x :: xs) : 'a list) (toString : 'a -> string) = (toString x) :: (listToString' xs toString)

			val l' = listToString' l toString
		in
			"["^(String.concatWith "," l')^"]"
		end

	fun setMap f set compare =
		let
			val setToList = Splayset.listItems set
			val mappedSetToList = List.map f setToList

			val emptySet = Splayset.empty(compare)
		in
			Splayset.addList(emptySet, mappedSetToList)
		end

	fun setToString s toString =
		let
			val sToList = Splayset.listItems s

			fun setToString' [] _ = []
				| setToString' ((x :: xs) : 'a list) (toString : 'a -> string) = (toString x) :: (setToString' xs toString)
		
			val s' = setToString' sToList toString
		in
			"{"^(String.concatWith "," s')^"}"
		end

	fun intToString i = if i < 0 
						then 
							"-"^Int.toString(~i) 
						else 
							Int.toString(i)

	fun pairToString (a, b) aToString bToString =
		let
			val aStr = aToString a
			val bStr = bToString b
		in
			String.concat [
				"(",
				aStr,
				",",
				bStr,
				")"
			]
		end

	fun id x = x

	fun dictToString dict aToString bToString =
		let
			val dictList = Splaymap.listItems dict
		in
			listToString dictList (fn pair => 
				pairToString pair aToString bToString)
		end

	fun deleteEnterFromString str =
		String.substring(str, 0, (String.size str) - 1)
			handle Subscript => raise Fail "Error - deleteEnterFromString()"

end