// Copyright (c) Microsoft Open Technologies, Inc. All Rights Reserved. Licensed under the Apache License, Version 2.0. See License.txt in the project root for license information. namespace Microsoft.FSharp.Core open System.Diagnostics open Microsoft.FSharp.Core open Microsoft.FSharp.Core.LanguagePrimitives.IntrinsicOperators open Microsoft.FSharp.Core.Operators open Microsoft.FSharp.Core.Operators.Checked open Microsoft.FSharp.Collections [] [] module String = let inline emptyIfNull str = if str = null then "" else str [] let concat sep (strings : seq) = System.String.Join(sep, Seq.toArray strings) [] let iter (f : (char -> unit)) (str:string) = let str = emptyIfNull str for i = 0 to str.Length - 1 do f str.[i] [] let iteri f (str:string) = let str = emptyIfNull str let f = OptimizedClosures.FSharpFunc<_,_,_>.Adapt(f) for i = 0 to str.Length - 1 do f.Invoke(i, str.[i]) [] let map (f: char -> char) (str:string) = let str = emptyIfNull str let res = new System.Text.StringBuilder(str.Length) str |> iter (fun c -> res.Append(f c) |> ignore); res.ToString() [] let mapi (f: int -> char -> char) (str:string) = let str = emptyIfNull str let res = new System.Text.StringBuilder(str.Length) let f = OptimizedClosures.FSharpFunc<_,_,_>.Adapt(f) str |> iteri (fun i c -> res.Append(f.Invoke(i, c)) |> ignore); res.ToString() [] let filter (f: char -> bool) (str:string) = let str = emptyIfNull str let res = new System.Text.StringBuilder(str.Length) str |> iter (fun c -> if f c then res.Append(c) |> ignore) res.ToString() [] let collect (f: char -> string) (str:string) = let str = emptyIfNull str let res = new System.Text.StringBuilder(str.Length) str |> iter (fun c -> res.Append(f c) |> ignore); res.ToString() [] let init (count:int) (initializer: int-> string) = if count < 0 then invalidArg "count" (SR.GetString(SR.inputMustBeNonNegative)) let res = new System.Text.StringBuilder(count) for i = 0 to count - 1 do res.Append(initializer i) |> ignore; res.ToString() [] let replicate (count:int) (str:string) = if count < 0 then invalidArg "count" (SR.GetString(SR.inputMustBeNonNegative)) let str = emptyIfNull str let res = new System.Text.StringBuilder(str.Length) for i = 0 to count - 1 do res.Append(str) |> ignore; res.ToString() [] let forall f (str:string) = let str = emptyIfNull str let rec check i = (i >= str.Length) || (f str.[i] && check (i+1)) check 0 [] let exists f (str:string) = let str = emptyIfNull str let rec check i = (i < str.Length) && (f str.[i] || check (i+1)) check 0 [] let length (str:string) = let str = emptyIfNull str str.Length