-- (c) Copyright - See License.txt

--

namespace text

--****

-- == Text Manipulation

-- **Page Contents**

--

-- <>

--

--****

-- === Routines

include std/filesys.e

include std/types.e

include std/sequence.e

include std/io.e

include std/search.e

include std/convert.e

include std/serialize.e

include std/pretty.e

include std/error.e

include std/eds.e

include std/convert.e

--****

-- Signature:

-- function sprintf(sequence format, object values)

--

-- Description:

-- This is exactly the same as [[:printf]](), except that the output is returned as a sequence

-- of characters, rather than being sent to a file or device.

--

-- Parameters:

-- # ##format## : a sequence, the text to print. This text may contain format specifiers.

-- # ##values## : usually, a sequence of values. It should have as many elements as format specifiers in ##format##, as these values will be substituted to the specifiers.

--

-- Returns:

-- A **sequence**, of printable characters, representing ##format## with the values in ##values## spliced in.

--

-- Comments:

--

-- ##printf(fn, st, x)## is equivalent to ##puts(fn, sprintf(st, x))##.

--

-- Some typical uses of ##sprintf()## are:

--

-- # Converting numbers to strings.

-- # Creating strings to pass to system().

-- # Creating formatted error messages that can be passed to a common error message handler.

--

-- Example 1:

--

-- s = sprintf("%08d", 12345)

-- -- s is "00012345"

--

--

-- See Also:

-- [[:printf]], [[:sprint]], [[:format]]

--**

-- Returns the representation of any Euphoria object as a string of characters.

--

-- Parameters:

-- # ##x## : Any Euphoria object.

--

-- Returns:

-- A **sequence**, a string representation of ##x##.

--

-- Comments:

--

-- This is exactly the same as ##print(fn, x)##, except that the output is returned as a sequence of characters, rather

-- than being sent to a file or device. x can be any Euphoria object.

--

-- The atoms contained within ##x## will be displayed to a maximum of 10 significant digits,

-- just as with [[:print]]().

--

-- Example 1:

--

-- s = sprint(12345)

-- -- s is "12345"

--

--

-- Example 2:

--

-- s = sprint({10,20,30}+5)

-- -- s is "{15,25,35}"

--

--

-- See Also:

-- [[:sprintf]], [[:printf]]

-- Return the string representation of any Euphoria data object.

-- This is the same as the output from print(1, x) or '?', but it's

-- returned as a string sequence rather than printed.

sequence s

else

else

end if

else

end if

end if

end function

--**

-- Trim all items in the supplied set from the leftmost (start or head) of a sequence.

--

-- Parameters:

-- # ##source## : the sequence to trim.

-- # ##what## : the set of item to trim from ##source## (defaults to " \t\r\n").

-- # ##ret_index## : If zero (the default) returns the trimmed sequence, otherwise

-- it returns the index of the leftmost item **not** in ##what##.

--

-- Returns:

-- A **sequence**, if ##ret_index## is zero, which is the trimmed version of ##source##\\

-- A **integer**, if ##ret_index## is not zero, which is index of the leftmost

-- element in ##source## that is not in ##what##.

--

-- Example 1:

--

-- object s

-- s = trim_head("\r\nSentence read from a file\r\n", "\r\n")

-- -- s is "Sentence read from a file\r\n"

-- s = trim_head("\r\nSentence read from a file\r\n", "\r\n", TRUE)

-- -- s is 3

--

--

--

-- See Also:

-- [[:trim_tail]], [[:trim]], [[:pad_head]]

integer lpos

end if

end if

else

end if

end function

--**

-- Trim all items in the supplied set from the rightmost (end or tail) of a sequence.

--

-- Parameters:

-- # ##source## : the sequence to trim.

-- # ##what## : the set of item to trim from ##source## (defaults to " \t\r\n").

-- # ##ret_index## : If zero (the default) returns the trimmed sequence, otherwise

-- it returns the index of the rightmost item **not** in ##what##.

--

-- Returns:

-- A **sequence**, if ##ret_index## is zero, which is the trimmed version of ##source##\\

-- A **integer**, if ##ret_index## is not zero, which is index of the rightmost

-- element in ##source## that is not in ##what##.

--

-- Example 1:

--

-- object s

-- s = trim_tail("\r\nSentence read from a file\r\n", "\r\n")

-- -- s is "\r\nSentence read from a file"

-- s = trim_tail("\r\nSentence read from a file\r\n", "\r\n", TRUE)

-- -- s is 27

--

--

-- See Also:

-- [[:trim_head]], [[:trim]], [[:pad_tail]]

integer rpos

end if

end if

else

end if

end function

--**

-- Trim all items in the supplied set from both the left end (head/start) and right end (tail/end)

-- of a sequence.

--

-- Parameters:

-- # ##source## : the sequence to trim.

-- # ##what## : the set of item to trim from ##source## (defaults to " \t\r\n").

-- # ##ret_index## : If zero (the default) returns the trimmed sequence, otherwise

-- it returns a 2-element sequence containing the index of the

-- leftmost item and rightmost item **not** in ##what##.

--

-- Returns:

-- A **sequence**, if ##ret_index## is zero, which is the trimmed version of ##source##\\

-- A **2-element sequence**, if ##ret_index## is not zero, in the form {left_index, right_index}.

--

-- Example 1:

--

-- object s

-- s = trim("\r\nSentence read from a file\r\n", "\r\n")

-- -- s is "Sentence read from a file"

-- s = trim("\r\nSentence read from a file\r\n", "\r\n", TRUE)

-- -- s is {3,27}

--

--

-- See Also:

-- [[:trim_head]], [[:trim_tail]]

integer rpos

integer lpos

end if

end if

end if

else

end if

end if

end if

end if

end function

object cpdata

integer pos

sequence kv

sequence cp_source

sequence cp_db

end if

end if

end if

end if

end if

end if

end if

end if

else

-- See if its in the database.

end if

end if

end if

end if

end function

--**

-- Sets the table of lowercase and uppercase characters that is used by

-- [[:lower]] and [[:upper]]

--

-- Parameters:

-- # ##en## : The name of the encoding represented by these character sets

-- # ##lc## : The set of lowercase characters

-- # ##uc## : The set of upper case characters

--

--

-- Comments:

-- * ##lc## and ##uc## must be the same length.

-- * If no parameters are given, the default ASCII table is set.

--

-- Example 1:

--

-- set_encoding_properties( "Elvish", "aeiouy", "AEIOUY")

--

--

-- Example 1:

--

-- set_encoding_properties( "1251") -- Loads a predefined code page.

--

--

-- See Also:

-- [[:lower]], [[:upper]], [[:get_encoding_properties]]

integer res

end if

end if

end if

end if

--**

-- Gets the table of lowercase and uppercase characters that is used by

-- [[:lower]] and [[:upper]]

--

-- Parameters:

-- none

--

-- Returns:

-- A **sequence**, containing three items.\\

-- {Encoding_Name, LowerCase_Set, UpperCase_Set}

--

-- Example 1:

--

-- encode_sets = get_encoding_properties()

--

--

-- See Also:

-- [[:lower]], [[:upper]], [[:set_encoding_properties]]

--

end function

include std/dll.e

include std/machine.e

include std/types.e

atom

user32 = open_dll( "user32.dll"),

api_CharLowerBuff = define_c_func(user32, "CharLowerBuffA", {C_POINTER, C_INT}, C_INT),

api_CharUpperBuff = define_c_func(user32, "CharUpperBuffA", {C_POINTER, C_INT}, C_INT),

tm_size = 1024,

temp_mem = allocate(1024)

function change_case(object x, object api)

sequence changed_text

integer single_char = 0

integer len

if not string(x) then

if atom(x) then

if x = 0 then

return 0

end if

x = {x}

single_char = 1

else

for i = 1 to length(x) do

x[i] = change_case(x[i], api)

end for

return x

end if

end if

if length(x) = 0 then

return x

end if

if length(x) >= tm_size then

tm_size = length(x) + 1

free(temp_mem)

temp_mem = allocate(tm_size)

end if

poke(temp_mem, x)

len = c_func(api, {temp_mem, length(x)} )

if len < 1 then

len = length(x)

end if

changed_text = peek({temp_mem, len})

if single_char then

return changed_text[1]

else

return changed_text

end if

end function

end ifdef

--**

-- Convert an atom or sequence to lower case.

--

-- Parameters:

-- # ##x## : Any Euphoria object.

--

-- Returns:

-- A **sequence**, the lowercase version of ##x##

--

-- Comments:

-- * For Windows systems, this uses the current code page for conversion

-- * For non-Windows, this only works on ASCII characters. It alters characters in

-- the 'a'..'z' range. If you need to do case conversion with other encodings

-- use the [[:set_encoding_properties]] first.

-- * ##x## may be a sequence of any shape, all atoms of which will be acted upon.

--

-- **WARNING**, When using ASCII encoding, this can also affect floating point

-- numbers in the range 65 to 90.

--

-- Example 1:

--

-- s = lower("Euphoria")

-- -- s is "euphoria"

--

-- a = lower('B')

-- -- a is 'b'

--

-- s = lower({"Euphoria", "Programming"})

-- -- s is {"euphoria", "programming"}

--

--

-- See Also:

-- [[:upper]], [[:proper]], [[:set_encoding_properties]], [[:get_encoding_properties]]

-- convert atom or sequence to lower case

end if

return change_case(x, api_CharLowerBuff)

elsedef

end ifdef

end function

--**

-- Convert an atom or sequence to upper case.

--

-- Parameters:

-- # ##x## : Any Euphoria object.

--

-- Returns:

-- A **sequence**, the uppercase version of ##x##

--

-- Comments:

-- * For Windows systems, this uses the current code page for conversion

-- * For non-Windows, this only works on ASCII characters. It alters characters in

-- the 'a'..'z' range. If you need to do case conversion with other encodings

-- use the [[:set_encoding_properties]] first.

-- * ##x## may be a sequence of any shape, all atoms of which will be acted upon.

--

-- **WARNING**, When using ASCII encoding, this can also affects floating point

-- numbers in the range 97 to 122.

--

-- Example 1:

--

-- s = upper("Euphoria")

-- -- s is "EUPHORIA"

--

-- a = upper('b')

-- -- a is 'B'

--

-- s = upper({"Euphoria", "Programming"})

-- -- s is {"EUPHORIA", "PROGRAMMING"}

--

--

-- See Also:

-- [[:lower]], [[:proper]], [[:set_encoding_properties]], [[:get_encoding_properties]]

-- convert atom or sequence to upper case

end if

return change_case(x, api_CharUpperBuff)

elsedef

end ifdef

end function

--**

-- Convert a text sequence to capitalized words.

--

-- Parameters:

-- # ##x## : A text sequence.

--

-- Returns:

-- A **sequence**, the Capitalized Version of ##x##

--

-- Comments:

-- A text sequence is one in which all elements are either characters or

-- text sequences. This means that if a non-character is found in the input,

-- it is not converted. However this rule only applies to elements on the

-- same level, meaning that sub-sequences could be converted if they are

-- actually text sequences.

--

--

-- Example 1:

--

-- s = proper("euphoria programming language")

-- -- s is "Euphoria Programming Language"

-- s = proper("EUPHORIA PROGRAMMING LANGUAGE")

-- -- s is "Euphoria Programming Language"

-- s = proper({"EUPHORIA PROGRAMMING", "language", "rapid dEPLOYMENT", "sOfTwArE"})

-- -- s is {"Euphoria Programming", "Language", "Rapid Deployment", "Software"}

-- s = proper({'a', 'b', 'c'})

-- -- s is {'A', 'b', c'} -- "Abc"

-- s = proper({'a', 'b', 'c', 3.1472})

-- -- s is {'a', 'b', c', 3.1472} -- Unchanged because it contains a non-character.

-- s = proper({"abc", 3.1472})

-- -- s is {"Abc", 3.1472} -- The embedded text sequence is converted.

--

--

-- See Also:

-- [[:lower]] [[:upper]]

-- Converts text to lowercase and makes each word start with an uppercase.

integer pos

integer inword

integer convert

sequence res

-- Check for upper case

-- Not upper, so check for lower case

-- Not lower so check for digits

-- n.b. digits have no effect on if its in a word or not.

-- not digit so check for special word chars

else

end if

end if

else

-- start of word, so convert only lower to upper.

end if

end if

end if

else

-- Upper, but as we are in a word convert it to lower.

else

end if

end if

end if

else

-- A non-integer means this is NOT a text sequence, so

-- only convert sub-sequences.

-- Restore any values that might have been converted.

end if

-- Turn conversion off for the rest of this level.

end if

end if

end if

end function

--**

-- Converts a string containing Key/Value pairs into a set of

-- sequences, one per K/V pair.

--

-- Parameters:

-- # ##source## : a text sequence, containing the representation of the key/values.

-- # ##pair_delim## : an object containing a list of elements that delimit one

-- key/value pair from the next. The defaults are semi-colon (;)

-- and comma (,).

-- # ##kv_delim## : an object containing a list of elements that delimit the

-- key from its value. The defaults are colon (:) and equal (=).

-- # ##quotes## : an object containing a list of elements that can be used to

-- enclose either keys or values that contain delimiters or

-- whitespace. The defaults are double-quote ("), single-quote (')

-- and back-quote (`)

-- # ##whitespace## : an object containing a list of elements that are regarded

-- as whitespace characters. The defaults are space, tab, new-line,

-- and carriage-return.

-- # ##haskeys## : an integer containing true or false. The default is true. When

-- ##true##, the ##kv_delim## values are used to separate keys from values, but

-- when ##false## it is assumed that each 'pair' is actually just a value.

--

-- Returns:

-- A **sequence**, of pairs. Each pair is in the form {key, value}.

--

-- Comments:

--

-- String representations of atoms are not converted, either in the key or value part, but returned as any regular string instead.

--

-- If ##haskeys## is ##true##, but a substring only holds what appears to be a value, the key

-- is synthesized as ##p[n]##, where ##n## is the number of the pair. See example #2.

--

-- By default, pairs can be delimited by either a comma or semi-colon ",;" and

-- a key is delimited from its value by either an equal or a colon "=:".

-- Whitespace between pairs, and between delimiters is ignored.

--

-- If you need to have one of the delimiters in the value data, enclose it in

-- quotation marks. You can use any of single, double and back quotes, which

-- also means you can quote quotation marks themselves. See example #3.

--

-- It is possible that the value data itself is a nested set of pairs. To do

-- this enclose the value in parentheses. Nested sets can nested to any level.

-- See example #4.

--

-- If a sub-list has only data values and not keys, enclose it in either braces

-- or square brackets. See example #5.

-- If you need to have a bracket as the first character in a data value, prefix

-- it with a tilde. Actually a leading tilde will always just be stripped off

-- regardless of what it prefixes. See example #6.

--

-- Example 1:

--

-- s = keyvalues("foo=bar, qwe=1234, asdf='contains space, comma, and equal(=)'")

-- -- s is { {"foo", "bar"}, {"qwe", "1234"}, {"asdf", "contains space, comma, and equal(=)"}}

--

--

-- Example 2:

--

-- s = keyvalues("abc fgh=ijk def")

-- -- s is { {"p[1]", "abc"}, {"fgh", "ijk"}, {"p[3]", "def"} }

--

--

-- Example 3:

--

-- s = keyvalues("abc=`'quoted'`")

-- -- s is { {"abc", "'quoted'"} }

--

--

-- Example 4:

--

-- s = keyvalues("colors=(a=black, b=blue, c=red)")

-- -- s is { {"colors", {{"a", "black"}, {"b", "blue"},{"c", "red"}} } }

-- s = keyvalues("colors=(black=[0,0,0], blue=[0,0,FF], red=[FF,0,0])")

-- -- s is { {"colors", {{"black",{"0", "0", "0"}}, {"blue",{"0", "0", "FF"}},{"red", {"FF","0","0"}}}} }

--

--

-- Example 5:

--

-- s = keyvalues("colors=[black, blue, red]")

-- -- s is { {"colors", { "black", "blue", "red"} } }

--

--

-- Example 6:

--

-- s = keyvalues("colors=~[black, blue, red]")

-- -- s is { {"colors", "[black, blue, red]"} } }

-- -- The following is another way to do the same.

-- s = keyvalues("colors=`[black, blue, red]`")

-- -- s is { {"colors", "[black, blue, red]"} } }

--

object kv_delim = ":=", object quotes = "\"'`",

object whitespace = " \t\n\r", integer haskeys = 1)

sequence lKeyValues

sequence value_

sequence key_

sequence lAllDelim

sequence lWhitePair

sequence lStartBracket

sequence lEndBracket

sequence lBracketed

integer lQuote

integer pos_

integer lChar

integer lBPos

integer lWasKV

end if

end if

end if

end if

end if

-- ignore leading whitespace

end if

-- Get key. Ends at any of unquoted whitespace or unquoted delimiter

-- End of quoted span

-- Start of quoted span

end if

end if

end if

-- ignore next whitespace

end if

end if

else

end if

end if

-- ignore next whitespace

end if

-- Get value. Ends at any of unquoted whitespace or unquoted delimiter

-- End of quoted span

-- Start of quoted span

end if

end if

end if

-- ignore next whitespace

end if

end if

end if

end if

end if

end if

end if

end if

end if

end if

end if

else

end if

end if

end if

else

end if

end function

--**

-- Escape special characters in a string

--

-- Parameters:

-- # ##s##: string to escape

-- # ##what##: sequence of characters to escape

-- defaults to escaping a double quote.

--

-- Returns:

-- An escaped ##sequence## representing ##s##.

--

-- Example 1:

--

-- sequence s = escape("John \"Mc\" Doe")

-- puts(1, s)

-- -- output is: John \"Mc\" Doe

--

--

-- See Also:

-- [[:quote]]

--

end if

end function

--**

-- Return a quoted version of the first argument.

--

-- Parameters:

-- # ##text_in## : The string or set of strings to quote.

-- # ##quote_pair## : A sequence of two strings. The first string is the opening

-- quote to use, and the second string is the closing quote to use.

-- The default is {"\"", "\""} which means that the output will be

-- enclosed by double-quotation marks.

-- # ##esc## : A single escape character. If this is not negative (the default),

-- then this is used to 'escape' any embedded quote characters and

-- 'esc' characters already in the ##text_in## string.

-- # ##sp## : A list of zero or more special characters. The ##text_in## is only

-- quoted if it contains any of the special characters. The default

-- is "" which means that the ##text_in## is always quoted.

--

-- Returns:

-- A **sequence**, the quoted version of ##text_in##.

--

-- Example 1:

--

-- -- Using the defaults. Output enclosed in double-quotes, no escapes and no specials.

-- s = quote("The small man")

-- -- 's' now contains '"the small man"' including the double-quote characters.

--

--

-- Example 2:

--

-- s = quote("The small man", {"(", ")"} )

-- -- 's' now contains '(the small man)'

--

--

-- Example 3:

--

-- s = quote("The (small) man", {"(", ")"}, '~' )

-- -- 's' now contains '(The ~(small~) man)'

--

--

-- Example 4:

--

-- s = quote("The (small) man", {"(", ")"}, '~', "#" )

-- -- 's' now contains "the (small) man"

-- -- because the input did not contain a '#' character.

--

--

-- Example 5:

--

-- s = quote("The #1 (small) man", {"(", ")"}, '~', "#" )

-- -- 's' now contains '(the #1 ~(small~) man)'

-- -- because the input did contain a '#' character.

--

--

-- Example 6:

--

-- -- input is a set of strings...

-- s = quote({"a b c", "def", "g hi"},)

-- -- 's' now contains three quoted strings: '"a b c"', '"def"', and '"g hi"'

--

--

-- See Also:

-- [[:escape]]

--

t_text sp = "" )

end if

end if

end if

end if

-- Only quote the input if it contains any of the items in 'sp'

end if

-- Contains none of them, so just return the input untouched.

end if

-- If the input already contains a quote, replace them with esc-quote,

-- but make sure that if the input already contains esc-quote that all

-- embedded escapes are replaced with esc-esc first.

end if

end if

-- Simple case where both open and close quote are the same.

end if

end if

else

match(quote_pair[2], text_in) then

end if

end if

end if

end if

end if

end if

end function

--**

-- Removes 'quotation' text from the argument.

--

-- Parameters:

-- # ##text_in## : The string or set of strings to de-quote.

-- # ##quote_pairs## : A set of one or more sub-sequences of two strings,

-- or an atom representing a single character to be used as

-- both the open and close quotes.

-- The first string in each sub-sequence is the opening

-- quote to look for, and the second string is the closing quote.

-- The default is {{{"\"", "\""}}} which means that the output is

-- 'quoted' if it is enclosed by double-quotation marks.

-- # ##esc## : A single escape character. If this is not negative (the default),

-- then this is used to 'escape' any embedded occurrences of the

-- quote characters. In which case the 'escape' character is also

-- removed.

--

-- Returns:

-- A **sequence**, the original text but with 'quote' strings stripped of quotes.

--

-- Example 1:

--

-- -- Using the defaults.

-- s = dequote("\"The small man\"")

-- -- 's' now contains "The small man"

--

--

-- Example 2:

--

-- -- Using the defaults.

-- s = dequote("(The small ?(?) man)", {{"(",")"}}, '?')

-- -- 's' now contains "The small () man"

--

--

end if

end if

end if

end if

-- If the text begins and ends with a quote-pair then strip them off and

-- remove the 'escape' from any 'escaped' quote_pairs within the text.

else

end if

entry

end if

end if

end function

--**

-- Formats a set of arguments in to a string based on a supplied pattern.

--

-- Parameters:

-- # ##format_pattern## : A sequence: the pattern string that contains zero or more tokens.

-- # ##arg_list## : An object: Zero or more arguments used in token replacement.

--

-- Returns:

-- A string **sequence**, the original ##format_pattern## but with tokens replaced by

-- corresponding arguments.

--

-- Comments:

-- The ##format_pattern## string contains text and argument tokens. The resulting string

-- is the same as the format string except that each token is replaced by an

-- item from the argument list.

--

-- A token has the form **##[]##**, where is are optional qualifier codes.

--

-- The qualifier. #### is a set of zero or more codes that modify the default

-- way that the argument is used to replace the token. The default replacement

-- method is to convert the argument to its shortest string representation and

-- use that to replace the token. This may be modified by the following codes,

-- which can occur in any order.

-- |= Qualifier |= Usage |

-- | N | ('N' is an integer) The index of the argument to use|

-- | {id} | Uses the argument that begins with "id=" where "id" \\

-- is an identifier name. |

-- | %envvar% | Uses the Environment Symbol 'envar' as an argument |

-- | w | For string arguments, if capitalizes the first\\

-- letter in each word |

-- | u | For string arguments, it converts it to upper case. |

-- | l | For string arguments, it converts it to lower case. |

-- | < | For numeric arguments, it left justifies it. |

-- | > | For string arguments, it right justifies it. |

-- | c | Centers the argument. |

-- | z | For numbers, it zero fills the left side. |

-- | :S | ('S' is an integer) The maximum size of the\\

-- resulting field. Also, if 'S' begins with '0' the\\

-- field will be zero-filled if the argument is an integer|

-- | .N | ('N' is an integer) The number of digits after\\

-- the decimal point |

-- | + | For positive numbers, show a leading plus sign |

-- | ( | For negative numbers, enclose them in parentheses |

-- | b | For numbers, causes zero to be all blanks |

-- | s | If the resulting field would otherwise be zero\\

-- length, this ensures that at least one space occurs\\

-- between this token's field |

-- | t | After token replacement, the resulting string up to this point is trimmed. |

-- | X | Outputs integer arguments using hexadecimal digits. |

-- | B | Outputs integer arguments using binary digits. |

-- | ? | The corresponding argument is a set of two strings. This\\

-- uses the first string if the previous token's argument is\\

-- not the value 1 or a zero-length string, otherwise it\\

-- uses the second string. |

-- | [ | Does not use any argument. Outputs a left-square-bracket symbol |

-- | ,X | Insert thousands separators. The is the character\\

-- to use. If this is a dot "." then the decimal point\\

-- is rendered using a comma. Does not apply to zero-filled\\

-- fields. \\

-- N.B. if hex or binary output was specified, the \\

-- separators are every 4 digits otherwise they are \\

-- every three digits. |

--

-- Clearly, certain combinations of these qualifier codes do not make sense and in

-- those situations, the rightmost clashing code is used and the others are ignored.

--

-- Any tokens in the format that have no corresponding argument are simply removed

-- from the result. Any arguments that are not used in the result are ignored.

--

-- Any sequence argument that is not a string will be converted to its

-- //pretty// format before being used in token replacement.

--

-- If a token is going to be replaced by a zero-length argument, all white space

-- following the token until the next non-whitespace character is not copied to

-- the result string.

--

-- Examples:

--

-- format("Cannot open file '[]' - code []", {"/usr/temp/work.dat", 32})

-- -- "Cannot open file '/usr/temp/work.dat' - code 32"

--

-- format("Err-[2], Cannot open file '[1]'", {"/usr/temp/work.dat", 32})

-- -- "Err-32, Cannot open file '/usr/temp/work.dat'"

--

-- format("[4w] [3z:2] [6] [5l] [2z:2], [1:4]", {2009,4,21,"DAY","MONTH","of"})

-- -- "Day 21 of month 04, 2009"

--

-- format("The answer is [:6.2]%", {35.22341})

-- -- "The answer is 35.22%"

--

-- format("The answer is [.6]", {1.2345})

-- -- "The answer is 1.234500"

--

-- format("The answer is [,,.2]", {1234.56})

-- -- "The answer is 1,234.56"

--

-- format("The answer is [,..2]", {1234.56})

-- -- "The answer is 1.234,56"

--

-- format("The answer is [,:.2]", {1234.56})

-- -- "The answer is 1:234.56"

--

-- format("[] [?]", {5, {"cats", "cat"}})

-- -- "5 cats"

--

-- format("[] [?]", {1, {"cats", "cat"}})

-- -- "1 cat"

--

-- format("[<:4]", {"abcdef"})

-- -- "abcd"

--

-- format("[>:4]", {"abcdef"})

-- -- "cdef"

--

-- format("[>:8]", {"abcdef"})

-- -- " abcdef"

--

-- format("seq is []", {{1.2, 5, "abcdef", {3}}})

-- -- `seq is {1.2,5,"abcdef",{3}}`

--

-- format("Today is [{day}], the [{date}]", {"date=10/Oct/2012", "day=Wednesday"})

-- -- "Today is Wednesday, the 10/Oct/2012"

--

--

-- See Also:

-- [[:sprintf]]

--

sequence result

integer in_token

integer tch

integer i

integer tstart

integer tend

integer cap

integer align

integer psign

integer msign

integer zfill

integer bwz

integer spacer

integer alt

integer width

integer decs

integer pos

integer argn

integer argl

integer trimming

integer hexout

integer binout

integer tsep

object prevargv

object currargv

sequence idname

object envsym

object envvar

end if

else

end if

else

case ']' then

case '[' then

end if

case 'w', 'u', 'l' then

case 'b' then

case 's' then

case 't' then

case 'z' then

case 'X' then

case 'B' then

case 'c', '<', '>' then

case '+' then

case '(' then

case '?' then

case ':' then

end if

end if

case '.' then

end if

case '{' then

-- Use a named argument.

end if