diff options
Diffstat (limited to 'src/demos/nurbs/surfaceapp/PrintfFormat.java')
| -rwxr-xr-x | src/demos/nurbs/surfaceapp/PrintfFormat.java | 3090 |
1 files changed, 0 insertions, 3090 deletions
diff --git a/src/demos/nurbs/surfaceapp/PrintfFormat.java b/src/demos/nurbs/surfaceapp/PrintfFormat.java deleted file mode 100755 index 153460a..0000000 --- a/src/demos/nurbs/surfaceapp/PrintfFormat.java +++ /dev/null @@ -1,3090 +0,0 @@ -package demos.nurbs.surfaceapp; -// -// (c) 2000 Sun Microsystems, Inc. -// ALL RIGHTS RESERVED -// -// License Grant- -// -// -// Permission to use, copy, modify, and distribute this Software and its -// documentation for NON-COMMERCIAL or COMMERCIAL purposes and without fee is -// hereby granted. -// -// This Software is provided "AS IS". All express warranties, including any -// implied warranty of merchantability, satisfactory quality, fitness for a -// particular purpose, or non-infringement, are disclaimed, except to the extent -// that such disclaimers are held to be legally invalid. -// -// You acknowledge that Software is not designed, licensed or intended for use in -// the design, construction, operation or maintenance of any nuclear facility -// ("High Risk Activities"). Sun disclaims any express or implied warranty of -// fitness for such uses. -// -// Please refer to the file http://www.sun.com/policies/trademarks/ for further -// important trademark information and to -// http://java.sun.com/nav/business/index.html for further important licensing -// information for the Java Technology. -// - - -import java.util.Enumeration; -import java.util.Vector; -import java.util.Locale; -import java.text.DecimalFormatSymbols; - -/** - * PrintfFormat allows the formatting of an array of - * objects embedded within a string. Primitive types - * must be passed using wrapper types. The formatting - * is controlled by a control string. - *<p> - * A control string is a Java string that contains a - * control specification. The control specification - * starts at the first percent sign (%) in the string, - * provided that this percent sign - *<ol> - *<li>is not escaped protected by a matching % or is - * not an escape % character, - *<li>is not at the end of the format string, and - *<li>precedes a sequence of characters that parses as - * a valid control specification. - *</ol> - *</p><p> - * A control specification usually takes the form: - *<pre> % ['-+ #0]* [0..9]* { . [0..9]* }+ - * { [hlL] }+ [idfgGoxXeEcs] - *</pre> - * There are variants of this basic form that are - * discussed below.</p> - *<p> - * The format is composed of zero or more directives - * defined as follows: - *<ul> - *<li>ordinary characters, which are simply copied to - * the output stream; - *<li>escape sequences, which represent non-graphic - * characters; and - *<li>conversion specifications, each of which - * results in the fetching of zero or more arguments. - *</ul></p> - *<p> - * The results are undefined if there are insufficient - * arguments for the format. Usually an unchecked - * exception will be thrown. If the format is - * exhausted while arguments remain, the excess - * arguments are evaluated but are otherwise ignored. - * In format strings containing the % form of - * conversion specifications, each argument in the - * argument list is used exactly once.</p> - * <p> - * Conversions can be applied to the <code>n</code>th - * argument after the format in the argument list, - * rather than to the next unused argument. In this - * case, the conversion characer % is replaced by the - * sequence %<code>n</code>$, where <code>n</code> is - * a decimal integer giving the position of the - * argument in the argument list.</p> - * <p> - * In format strings containing the %<code>n</code>$ - * form of conversion specifications, each argument - * in the argument list is used exactly once.</p> - * - *<h4>Escape Sequences</h4> - *<p> - * The following table lists escape sequences and - * associated actions on display devices capable of - * the action. - *<table> - *<tr><th align=left>Sequence</th> - * <th align=left>Name</th> - * <th align=left>Description</th></tr> - *<tr><td>\\</td><td>backlash</td><td>None. - *</td></tr> - *<tr><td>\a</td><td>alert</td><td>Attempts to alert - * the user through audible or visible - * notification. - *</td></tr> - *<tr><td>\b</td><td>backspace</td><td>Moves the - * printing position to one column before - * the current position, unless the - * current position is the start of a line. - *</td></tr> - *<tr><td>\f</td><td>form-feed</td><td>Moves the - * printing position to the initial - * printing position of the next logical - * page. - *</td></tr> - *<tr><td>\n</td><td>newline</td><td>Moves the - * printing position to the start of the - * next line. - *</td></tr> - *<tr><td>\r</td><td>carriage-return</td><td>Moves - * the printing position to the start of - * the current line. - *</td></tr> - *<tr><td>\t</td><td>tab</td><td>Moves the printing - * position to the next implementation- - * defined horizontal tab position. - *</td></tr> - *<tr><td>\v</td><td>vertical-tab</td><td>Moves the - * printing position to the start of the - * next implementation-defined vertical - * tab position. - *</td></tr> - *</table></p> - *<h4>Conversion Specifications</h4> - *<p> - * Each conversion specification is introduced by - * the percent sign character (%). After the character - * %, the following appear in sequence:</p> - *<p> - * Zero or more flags (in any order), which modify the - * meaning of the conversion specification.</p> - *<p> - * An optional minimum field width. If the converted - * value has fewer characters than the field width, it - * will be padded with spaces by default on the left; - * t will be padded on the right, if the left- - * adjustment flag (-), described below, is given to - * the field width. The field width takes the form - * of a decimal integer. If the conversion character - * is s, the field width is the the minimum number of - * characters to be printed.</p> - *<p> - * An optional precision that gives the minumum number - * of digits to appear for the d, i, o, x or X - * conversions (the field is padded with leading - * zeros); the number of digits to appear after the - * radix character for the e, E, and f conversions, - * the maximum number of significant digits for the g - * and G conversions; or the maximum number of - * characters to be written from a string is s and S - * conversions. The precision takes the form of an - * optional decimal digit string, where a null digit - * string is treated as 0. If a precision appears - * with a c conversion character the precision is - * ignored. - * </p> - *<p> - * An optional h specifies that a following d, i, o, - * x, or X conversion character applies to a type - * short argument (the argument will be promoted - * according to the integral promotions and its value - * converted to type short before printing).</p> - *<p> - * An optional l (ell) specifies that a following - * d, i, o, x, or X conversion character applies to a - * type long argument.</p> - *<p> - * A field width or precision may be indicated by an - * asterisk (*) instead of a digit string. In this - * case, an integer argument supplised the field width - * precision. The argument that is actually converted - * is not fetched until the conversion letter is seen, - * so the the arguments specifying field width or - * precision must appear before the argument (if any) - * to be converted. If the precision argument is - * negative, it will be changed to zero. A negative - * field width argument is taken as a - flag, followed - * by a positive field width.</p> - * <p> - * In format strings containing the %<code>n</code>$ - * form of a conversion specification, a field width - * or precision may be indicated by the sequence - * *<code>m</code>$, where m is a decimal integer - * giving the position in the argument list (after the - * format argument) of an integer argument containing - * the field width or precision.</p> - * <p> - * The format can contain either numbered argument - * specifications (that is, %<code>n</code>$ and - * *<code>m</code>$), or unnumbered argument - * specifications (that is % and *), but normally not - * both. The only exception to this is that %% can - * be mixed with the %<code>n</code>$ form. The - * results of mixing numbered and unnumbered argument - * specifications in a format string are undefined.</p> - * - *<h4>Flag Characters</h4> - *<p> - * The flags and their meanings are:</p> - *<dl> - * <dt>'<dd> integer portion of the result of a - * decimal conversion (%i, %d, %f, %g, or %G) will - * be formatted with thousands' grouping - * characters. For other conversions the flag - * is ignored. The non-monetary grouping - * character is used. - * <dt>-<dd> result of the conversion is left-justified - * within the field. (It will be right-justified - * if this flag is not specified).</td></tr> - * <dt>+<dd> result of a signed conversion always - * begins with a sign (+ or -). (It will begin - * with a sign only when a negative value is - * converted if this flag is not specified.) - * <dt><space><dd> If the first character of a - * signed conversion is not a sign, a space - * character will be placed before the result. - * This means that if the space character and + - * flags both appear, the space flag will be - * ignored. - * <dt>#<dd> value is to be converted to an alternative - * form. For c, d, i, and s conversions, the flag - * has no effect. For o conversion, it increases - * the precision to force the first digit of the - * result to be a zero. For x or X conversion, a - * non-zero result has 0x or 0X prefixed to it, - * respectively. For e, E, f, g, and G - * conversions, the result always contains a radix - * character, even if no digits follow the radix - * character (normally, a decimal point appears in - * the result of these conversions only if a digit - * follows it). For g and G conversions, trailing - * zeros will not be removed from the result as - * they normally are. - * <dt>0<dd> d, i, o, x, X, e, E, f, g, and G - * conversions, leading zeros (following any - * indication of sign or base) are used to pad to - * the field width; no space padding is - * performed. If the 0 and - flags both appear, - * the 0 flag is ignored. For d, i, o, x, and X - * conversions, if a precision is specified, the - * 0 flag will be ignored. For c conversions, - * the flag is ignored. - *</dl> - * - *<h4>Conversion Characters</h4> - *<p> - * Each conversion character results in fetching zero - * or more arguments. The results are undefined if - * there are insufficient arguments for the format. - * Usually, an unchecked exception will be thrown. - * If the format is exhausted while arguments remain, - * the excess arguments are ignored.</p> - * - *<p> - * The conversion characters and their meanings are: - *</p> - *<dl> - * <dt>d,i<dd>The int argument is converted to a - * signed decimal in the style [-]dddd. The - * precision specifies the minimum number of - * digits to appear; if the value being - * converted can be represented in fewer - * digits, it will be expanded with leading - * zeros. The default precision is 1. The - * result of converting 0 with an explicit - * precision of 0 is no characters. - * <dt>o<dd> The int argument is converted to unsigned - * octal format in the style ddddd. The - * precision specifies the minimum number of - * digits to appear; if the value being - * converted can be represented in fewer - * digits, it will be expanded with leading - * zeros. The default precision is 1. The - * result of converting 0 with an explicit - * precision of 0 is no characters. - * <dt>x<dd> The int argument is converted to unsigned - * hexadecimal format in the style dddd; the - * letters abcdef are used. The precision - * specifies the minimum numberof digits to - * appear; if the value being converted can be - * represented in fewer digits, it will be - * expanded with leading zeros. The default - * precision is 1. The result of converting 0 - * with an explicit precision of 0 is no - * characters. - * <dt>X<dd> Behaves the same as the x conversion - * character except that letters ABCDEF are - * used instead of abcdef. - * <dt>f<dd> The floating point number argument is - * written in decimal notation in the style - * [-]ddd.ddd, where the number of digits after - * the radix character (shown here as a decimal - * point) is equal to the precision - * specification. A Locale is used to determine - * the radix character to use in this format. - * If the precision is omitted from the - * argument, six digits are written after the - * radix character; if the precision is - * explicitly 0 and the # flag is not specified, - * no radix character appears. If a radix - * character appears, at least 1 digit appears - * before it. The value is rounded to the - * appropriate number of digits. - * <dt>e,E<dd>The floating point number argument is - * written in the style [-]d.ddde{+-}dd - * (the symbols {+-} indicate either a plus or - * minus sign), where there is one digit before - * the radix character (shown here as a decimal - * point) and the number of digits after it is - * equal to the precision. A Locale is used to - * determine the radix character to use in this - * format. When the precision is missing, six - * digits are written after the radix character; - * if the precision is 0 and the # flag is not - * specified, no radix character appears. The - * E conversion will produce a number with E - * instead of e introducing the exponent. The - * exponent always contains at least two digits. - * However, if the value to be written requires - * an exponent greater than two digits, - * additional exponent digits are written as - * necessary. The value is rounded to the - * appropriate number of digits. - * <dt>g,G<dd>The floating point number argument is - * written in style f or e (or in sytle E in the - * case of a G conversion character), with the - * precision specifying the number of - * significant digits. If the precision is - * zero, it is taken as one. The style used - * depends on the value converted: style e - * (or E) will be used only if the exponent - * resulting from the conversion is less than - * -4 or greater than or equal to the precision. - * Trailing zeros are removed from the result. - * A radix character appears only if it is - * followed by a digit. - * <dt>c,C<dd>The integer argument is converted to a - * char and the result is written. - * - * <dt>s,S<dd>The argument is taken to be a string and - * bytes from the string are written until the - * end of the string or the number of bytes - * indicated by the precision specification of - * the argument is reached. If the precision - * is omitted from the argument, it is taken to - * be infinite, so all characters up to the end - * of the string are written. - * <dt>%<dd>Write a % character; no argument is - * converted. - *</dl> - *<p> - * If a conversion specification does not match one of - * the above forms, an IllegalArgumentException is - * thrown and the instance of PrintfFormat is not - * created.</p> - *<p> - * If a floating point value is the internal - * representation for infinity, the output is - * [+]Infinity, where Infinity is either Infinity or - * Inf, depending on the desired output string length. - * Printing of the sign follows the rules described - * above.</p> - *<p> - * If a floating point value is the internal - * representation for "not-a-number," the output is - * [+]NaN. Printing of the sign follows the rules - * described above.</p> - *<p> - * In no case does a non-existent or small field width - * cause truncation of a field; if the result of a - * conversion is wider than the field width, the field - * is simply expanded to contain the conversion result. - *</p> - *<p> - * The behavior is like printf. One exception is that - * the minimum number of exponent digits is 3 instead - * of 2 for e and E formats when the optional L is used - * before the e, E, g, or G conversion character. The - * optional L does not imply conversion to a long long - * double. </p> - * <p> - * The biggest divergence from the C printf - * specification is in the use of 16 bit characters. - * This allows the handling of characters beyond the - * small ASCII character set and allows the utility to - * interoperate correctly with the rest of the Java - * runtime environment.</p> - *<p> - * Omissions from the C printf specification are - * numerous. All the known omissions are present - * because Java never uses bytes to represent - * characters and does not have pointers:</p> - *<ul> - * <li>%c is the same as %C. - * <li>%s is the same as %S. - * <li>u, p, and n conversion characters. - * <li>%ws format. - * <li>h modifier applied to an n conversion character. - * <li>l (ell) modifier applied to the c, n, or s - * conversion characters. - * <li>ll (ell ell) modifier to d, i, o, u, x, or X - * conversion characters. - * <li>ll (ell ell) modifier to an n conversion - * character. - * <li>c, C, d,i,o,u,x, and X conversion characters - * apply to Byte, Character, Short, Integer, Long - * types. - * <li>f, e, E, g, and G conversion characters apply - * to Float and Double types. - * <li>s and S conversion characters apply to String - * types. - * <li>All other reference types can be formatted - * using the s or S conversion characters only. - *</ul> - * <p> - * Most of this specification is quoted from the Unix - * man page for the sprintf utility.</p> - * - * @author Allan Jacobs - * @version 1 - * Release 1: Initial release. - * Release 2: Asterisk field widths and precisions - * %n$ and *m$ - * Bug fixes - * g format fix (2 digits in e form corrupt) - * rounding in f format implemented - * round up when digit not printed is 5 - * formatting of -0.0f - * round up/down when last digits are 50000... - */ -public class PrintfFormat { - /** - * Constructs an array of control specifications - * possibly preceded, separated, or followed by - * ordinary strings. Control strings begin with - * unpaired percent signs. A pair of successive - * percent signs designates a single percent sign in - * the format. - * @param fmtArg Control string. - * @exception IllegalArgumentException if the control - * string is null, zero length, or otherwise - * malformed. - */ - public PrintfFormat(String fmtArg) - throws IllegalArgumentException { - this(Locale.getDefault(),fmtArg); - } - /** - * Constructs an array of control specifications - * possibly preceded, separated, or followed by - * ordinary strings. Control strings begin with - * unpaired percent signs. A pair of successive - * percent signs designates a single percent sign in - * the format. - * @param fmtArg Control string. - * @exception IllegalArgumentException if the control - * string is null, zero length, or otherwise - * malformed. - */ - public PrintfFormat(Locale locale,String fmtArg) - throws IllegalArgumentException { - dfs = new DecimalFormatSymbols(locale); - int ePos=0; - ConversionSpecification sFmt=null; - String unCS = this.nonControl(fmtArg,0); - if (unCS!=null) { - sFmt = new ConversionSpecification(); - sFmt.setLiteral(unCS); - vFmt.addElement(sFmt); - } - while(cPos!=-1 && cPos<fmtArg.length()) { - for (ePos=cPos+1; ePos<fmtArg.length(); - ePos++) { - char c=0; - c = fmtArg.charAt(ePos); - if (c == 'i') break; - if (c == 'd') break; - if (c == 'f') break; - if (c == 'g') break; - if (c == 'G') break; - if (c == 'o') break; - if (c == 'x') break; - if (c == 'X') break; - if (c == 'e') break; - if (c == 'E') break; - if (c == 'c') break; - if (c == 's') break; - if (c == '%') break; - } - ePos=Math.min(ePos+1,fmtArg.length()); - sFmt = new ConversionSpecification( - fmtArg.substring(cPos,ePos)); - vFmt.addElement(sFmt); - unCS = this.nonControl(fmtArg,ePos); - if (unCS!=null) { - sFmt = new ConversionSpecification(); - sFmt.setLiteral(unCS); - vFmt.addElement(sFmt); - } - } - } - /** - * Return a substring starting at - * <code>start</code> and ending at either the end - * of the String <code>s</code>, the next unpaired - * percent sign, or at the end of the String if the - * last character is a percent sign. - * @param s Control string. - * @param start Position in the string - * <code>s</code> to begin looking for the start - * of a control string. - * @return the substring from the start position - * to the beginning of the control string. - */ - private String nonControl(String s,int start) { - String ret=""; - cPos=s.indexOf("%",start); - if (cPos==-1) cPos=s.length(); - return s.substring(start,cPos); - } - /** - * Format an array of objects. Byte, Short, - * Integer, Long, Float, Double, and Character - * arguments are treated as wrappers for primitive - * types. - * @param o The array of objects to format. - * @return The formatted String. - */ - public String sprintf(Object[] o) { - Enumeration e = vFmt.elements(); - ConversionSpecification cs = null; - char c = 0; - int i=0; - StringBuffer sb=new StringBuffer(); - while (e.hasMoreElements()) { - cs = (ConversionSpecification) - e.nextElement(); - c = cs.getConversionCharacter(); - if (c=='\0') sb.append(cs.getLiteral()); - else if (c=='%') sb.append("%"); - else { - if (cs.isPositionalSpecification()) { - i=cs.getArgumentPosition()-1; - if (cs.isPositionalFieldWidth()) { - int ifw=cs.getArgumentPositionForFieldWidth()-1; - cs.setFieldWidthWithArg(((Integer)o[ifw]).intValue()); - } - if (cs.isPositionalPrecision()) { - int ipr=cs.getArgumentPositionForPrecision()-1; - cs.setPrecisionWithArg(((Integer)o[ipr]).intValue()); - } - } - else { - if (cs.isVariableFieldWidth()) { - cs.setFieldWidthWithArg(((Integer)o[i]).intValue()); - i++; - } - if (cs.isVariablePrecision()) { - cs.setPrecisionWithArg(((Integer)o[i]).intValue()); - i++; - } - } - if (o[i] instanceof Byte) - sb.append(cs.internalsprintf( - ((Byte)o[i]).byteValue())); - else if (o[i] instanceof Short) - sb.append(cs.internalsprintf( - ((Short)o[i]).shortValue())); - else if (o[i] instanceof Integer) - sb.append(cs.internalsprintf( - ((Integer)o[i]).intValue())); - else if (o[i] instanceof Long) - sb.append(cs.internalsprintf( - ((Long)o[i]).longValue())); - else if (o[i] instanceof Float) - sb.append(cs.internalsprintf( - ((Float)o[i]).floatValue())); - else if (o[i] instanceof Double) - sb.append(cs.internalsprintf( - ((Double)o[i]).doubleValue())); - else if (o[i] instanceof Character) - sb.append(cs.internalsprintf( - ((Character)o[i]).charValue())); - else if (o[i] instanceof String) - sb.append(cs.internalsprintf( - (String)o[i])); - else - sb.append(cs.internalsprintf( - o[i])); - if (!cs.isPositionalSpecification()) - i++; - } - } - return sb.toString(); - } - /** - * Format nothing. Just use the control string. - * @return the formatted String. - */ - public String sprintf() { - Enumeration e = vFmt.elements(); - ConversionSpecification cs = null; - char c = 0; - StringBuffer sb=new StringBuffer(); - while (e.hasMoreElements()) { - cs = (ConversionSpecification) - e.nextElement(); - c = cs.getConversionCharacter(); - if (c=='\0') sb.append(cs.getLiteral()); - else if (c=='%') sb.append("%"); - } - return sb.toString(); - } - /** - * Format an int. - * @param x The int to format. - * @return The formatted String. - * @exception IllegalArgumentException if the - * conversion character is f, e, E, g, G, s, - * or S. - */ - public String sprintf(int x) - throws IllegalArgumentException { - Enumeration e = vFmt.elements(); - ConversionSpecification cs = null; - char c = 0; - StringBuffer sb=new StringBuffer(); - while (e.hasMoreElements()) { - cs = (ConversionSpecification) - e.nextElement(); - c = cs.getConversionCharacter(); - if (c=='\0') sb.append(cs.getLiteral()); - else if (c=='%') sb.append("%"); - else sb.append(cs.internalsprintf(x)); - } - return sb.toString(); - } - /** - * Format an long. - * @param x The long to format. - * @return The formatted String. - * @exception IllegalArgumentException if the - * conversion character is f, e, E, g, G, s, - * or S. - */ - public String sprintf(long x) - throws IllegalArgumentException { - Enumeration e = vFmt.elements(); - ConversionSpecification cs = null; - char c = 0; - StringBuffer sb=new StringBuffer(); - while (e.hasMoreElements()) { - cs = (ConversionSpecification) - e.nextElement(); - c = cs.getConversionCharacter(); - if (c=='\0') sb.append(cs.getLiteral()); - else if (c=='%') sb.append("%"); - else sb.append(cs.internalsprintf(x)); - } - return sb.toString(); - } - /** - * Format a double. - * @param x The double to format. - * @return The formatted String. - * @exception IllegalArgumentException if the - * conversion character is c, C, s, S, - * d, d, x, X, or o. - */ - public String sprintf(double x) - throws IllegalArgumentException { - Enumeration e = vFmt.elements(); - ConversionSpecification cs = null; - char c = 0; - StringBuffer sb=new StringBuffer(); - while (e.hasMoreElements()) { - cs = (ConversionSpecification) - e.nextElement(); - c = cs.getConversionCharacter(); - if (c=='\0') sb.append(cs.getLiteral()); - else if (c=='%') sb.append("%"); - else sb.append(cs.internalsprintf(x)); - } - return sb.toString(); - } - /** - * Format a String. - * @param x The String to format. - * @return The formatted String. - * @exception IllegalArgumentException if the - * conversion character is neither s nor S. - */ - public String sprintf(String x) - throws IllegalArgumentException { - Enumeration e = vFmt.elements(); - ConversionSpecification cs = null; - char c = 0; - StringBuffer sb=new StringBuffer(); - while (e.hasMoreElements()) { - cs = (ConversionSpecification) - e.nextElement(); - c = cs.getConversionCharacter(); - if (c=='\0') sb.append(cs.getLiteral()); - else if (c=='%') sb.append("%"); - else sb.append(cs.internalsprintf(x)); - } - return sb.toString(); - } - /** - * Format an Object. Convert wrapper types to - * their primitive equivalents and call the - * appropriate internal formatting method. Convert - * Strings using an internal formatting method for - * Strings. Otherwise use the default formatter - * (use toString). - * @param x the Object to format. - * @return the formatted String. - * @exception IllegalArgumentException if the - * conversion character is inappropriate for - * formatting an unwrapped value. - */ - public String sprintf(Object x) - throws IllegalArgumentException { - Enumeration e = vFmt.elements(); - ConversionSpecification cs = null; - char c = 0; - StringBuffer sb=new StringBuffer(); - while (e.hasMoreElements()) { - cs = (ConversionSpecification) - e.nextElement(); - c = cs.getConversionCharacter(); - if (c=='\0') sb.append(cs.getLiteral()); - else if (c=='%') sb.append("%"); - else { - if (x instanceof Byte) - sb.append(cs.internalsprintf( - ((Byte)x).byteValue())); - else if (x instanceof Short) - sb.append(cs.internalsprintf( - ((Short)x).shortValue())); - else if (x instanceof Integer) - sb.append(cs.internalsprintf( - ((Integer)x).intValue())); - else if (x instanceof Long) - sb.append(cs.internalsprintf( - ((Long)x).longValue())); - else if (x instanceof Float) - sb.append(cs.internalsprintf( - ((Float)x).floatValue())); - else if (x instanceof Double) - sb.append(cs.internalsprintf( - ((Double)x).doubleValue())); - else if (x instanceof Character) - sb.append(cs.internalsprintf( - ((Character)x).charValue())); - else if (x instanceof String) - sb.append(cs.internalsprintf( - (String)x)); - else - sb.append(cs.internalsprintf(x)); - } - } - return sb.toString(); - } - /** - *<p> - * ConversionSpecification allows the formatting of - * a single primitive or object embedded within a - * string. The formatting is controlled by a - * format string. Only one Java primitive or - * object can be formatted at a time. - *<p> - * A format string is a Java string that contains - * a control string. The control string starts at - * the first percent sign (%) in the string, - * provided that this percent sign - *<ol> - *<li>is not escaped protected by a matching % or - * is not an escape % character, - *<li>is not at the end of the format string, and - *<li>precedes a sequence of characters that parses - * as a valid control string. - *</ol> - *<p> - * A control string takes the form: - *<pre> % ['-+ #0]* [0..9]* { . [0..9]* }+ - * { [hlL] }+ [idfgGoxXeEcs] - *</pre> - *<p> - * The behavior is like printf. One (hopefully the - * only) exception is that the minimum number of - * exponent digits is 3 instead of 2 for e and E - * formats when the optional L is used before the - * e, E, g, or G conversion character. The - * optional L does not imply conversion to a long - * long double. - */ - private class ConversionSpecification { - /** - * Constructor. Used to prepare an instance - * to hold a literal, not a control string. - */ - ConversionSpecification() { } - /** - * Constructor for a conversion specification. - * The argument must begin with a % and end - * with the conversion character for the - * conversion specification. - * @param fmtArg String specifying the - * conversion specification. - * @exception IllegalArgumentException if the - * input string is null, zero length, or - * otherwise malformed. - */ - ConversionSpecification(String fmtArg) - throws IllegalArgumentException { - if (fmtArg==null) - throw new NullPointerException(); - if (fmtArg.length()==0) - throw new IllegalArgumentException( - "Control strings must have positive"+ - " lengths."); - if (fmtArg.charAt(0)=='%') { - fmt = fmtArg; - pos=1; - setArgPosition(); - setFlagCharacters(); - setFieldWidth(); - setPrecision(); - setOptionalHL(); - if (setConversionCharacter()) { - if (pos==fmtArg.length()) { - if(leadingZeros&&leftJustify) - leadingZeros=false; - if(precisionSet&&leadingZeros){ - if(conversionCharacter=='d' - ||conversionCharacter=='i' - ||conversionCharacter=='o' - ||conversionCharacter=='x') - { - leadingZeros=false; - } - } - } - else - throw new IllegalArgumentException( - "Malformed conversion specification="+ - fmtArg); - } - else - throw new IllegalArgumentException( - "Malformed conversion specification="+ - fmtArg); - } - else - throw new IllegalArgumentException( - "Control strings must begin with %."); - } - /** - * Set the String for this instance. - * @param s the String to store. - */ - void setLiteral(String s) { - fmt = s; - } - /** - * Get the String for this instance. Translate - * any escape sequences. - * - * @return s the stored String. - */ - String getLiteral() { - StringBuffer sb=new StringBuffer(); - int i=0; - while (i<fmt.length()) { - if (fmt.charAt(i)=='\\') { - i++; - if (i<fmt.length()) { - char c=fmt.charAt(i); - switch(c) { - case 'a': - sb.append((char)0x07); - break; - case 'b': - sb.append('\b'); - break; - case 'f': - sb.append('\f'); - break; - case 'n': - sb.append(System.getProperty("line.separator")); - break; - case 'r': - sb.append('\r'); - break; - case 't': - sb.append('\t'); - break; - case 'v': - sb.append((char)0x0b); - break; - case '\\': - sb.append('\\'); - break; - } - i++; - } - else - sb.append('\\'); - } - else - i++; - } - return fmt; - } - /** - * Get the conversion character that tells what - * type of control character this instance has. - * - * @return the conversion character. - */ - char getConversionCharacter() { - return conversionCharacter; - } - /** - * Check whether the specifier has a variable - * field width that is going to be set by an - * argument. - * @return <code>true</code> if the conversion - * uses an * field width; otherwise - * <code>false</code>. - */ - boolean isVariableFieldWidth() { - return variableFieldWidth; - } - /** - * Set the field width with an argument. A - * negative field width is taken as a - flag - * followed by a positive field width. - * @param fw the field width. - */ - void setFieldWidthWithArg(int fw) { - if (fw<0) leftJustify = true; - fieldWidthSet = true; - fieldWidth = Math.abs(fw); - } - /** - * Check whether the specifier has a variable - * precision that is going to be set by an - * argument. - * @return <code>true</code> if the conversion - * uses an * precision; otherwise - * <code>false</code>. - */ - boolean isVariablePrecision() { - return variablePrecision; - } - /** - * Set the precision with an argument. A - * negative precision will be changed to zero. - * @param pr the precision. - */ - void setPrecisionWithArg(int pr) { - precisionSet = true; - precision = Math.max(pr,0); - } - /** - * Format an int argument using this conversion - * specification. - * @param s the int to format. - * @return the formatted String. - * @exception IllegalArgumentException if the - * conversion character is f, e, E, g, or G. - */ - String internalsprintf(int s) - throws IllegalArgumentException { - String s2 = ""; - switch(conversionCharacter) { - case 'd': - case 'i': - if (optionalh) - s2 = printDFormat((short)s); - else if (optionall) - s2 = printDFormat((long)s); - else - s2 = printDFormat(s); - break; - case 'x': - case 'X': - if (optionalh) - s2 = printXFormat((short)s); - else if (optionall) - s2 = printXFormat((long)s); - else - s2 = printXFormat(s); - break; - case 'o': - if (optionalh) - s2 = printOFormat((short)s); - else if (optionall) - s2 = printOFormat((long)s); - else - s2 = printOFormat(s); - break; - case 'c': - case 'C': - s2 = printCFormat((char)s); - break; - default: - throw new IllegalArgumentException( - "Cannot format a int with a format using a "+ - conversionCharacter+ - " conversion character."); - } - return s2; - } - /** - * Format a long argument using this conversion - * specification. - * @param s the long to format. - * @return the formatted String. - * @exception IllegalArgumentException if the - * conversion character is f, e, E, g, or G. - */ - String internalsprintf(long s) - throws IllegalArgumentException { - String s2 = ""; - switch(conversionCharacter) { - case 'd': - case 'i': - if (optionalh) - s2 = printDFormat((short)s); - else if (optionall) - s2 = printDFormat(s); - else - s2 = printDFormat((int)s); - break; - case 'x': - case 'X': - if (optionalh) - s2 = printXFormat((short)s); - else if (optionall) - s2 = printXFormat(s); - else - s2 = printXFormat((int)s); - break; - case 'o': - if (optionalh) - s2 = printOFormat((short)s); - else if (optionall) - s2 = printOFormat(s); - else - s2 = printOFormat((int)s); - break; - case 'c': - case 'C': - s2 = printCFormat((char)s); - break; - default: - throw new IllegalArgumentException( - "Cannot format a long with a format using a "+ - conversionCharacter+" conversion character."); - } - return s2; - } - /** - * Format a double argument using this conversion - * specification. - * @param s the double to format. - * @return the formatted String. - * @exception IllegalArgumentException if the - * conversion character is c, C, s, S, i, d, - * x, X, or o. - */ - String internalsprintf(double s) - throws IllegalArgumentException { - String s2 = ""; - switch(conversionCharacter) { - case 'f': - s2 = printFFormat(s); - break; - case 'E': - case 'e': - s2 = printEFormat(s); - break; - case 'G': - case 'g': - s2 = printGFormat(s); - break; - default: - throw new IllegalArgumentException("Cannot "+ - "format a double with a format using a "+ - conversionCharacter+" conversion character."); - } - return s2; - } - /** - * Format a String argument using this conversion - * specification. - * @param s the String to format. - * @return the formatted String. - * @exception IllegalArgumentException if the - * conversion character is neither s nor S. - */ - String internalsprintf(String s) - throws IllegalArgumentException { - String s2 = ""; - if(conversionCharacter=='s' - || conversionCharacter=='S') - s2 = printSFormat(s); - else - throw new IllegalArgumentException("Cannot "+ - "format a String with a format using a "+ - conversionCharacter+" conversion character."); - return s2; - } - /** - * Format an Object argument using this conversion - * specification. - * @param s the Object to format. - * @return the formatted String. - * @exception IllegalArgumentException if the - * conversion character is neither s nor S. - */ - String internalsprintf(Object s) { - String s2 = ""; - if(conversionCharacter=='s' - || conversionCharacter=='S') - s2 = printSFormat(s.toString()); - else - throw new IllegalArgumentException( - "Cannot format a String with a format using"+ - " a "+conversionCharacter+ - " conversion character."); - return s2; - } - /** - * For f format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. '+' character means that the conversion - * will always begin with a sign (+ or -). The - * blank flag character means that a non-negative - * input will be preceded with a blank. If both - * a '+' and a ' ' are specified, the blank flag - * is ignored. The '0' flag character implies that - * padding to the field width will be done with - * zeros instead of blanks. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the number of digits - * to appear after the radix character. Padding is - * with trailing 0s. - */ - private char[] fFormatDigits(double x) { - // int defaultDigits=6; - String sx,sxOut; - int i,j,k; - int n1In,n2In; - int expon=0; - boolean minusSign=false; - if (x>0.0) - sx = Double.toString(x); - else if (x<0.0) { - sx = Double.toString(-x); - minusSign=true; - } - else { - sx = Double.toString(x); - if (sx.charAt(0)=='-') { - minusSign=true; - sx=sx.substring(1); - } - } - int ePos = sx.indexOf('E'); - int rPos = sx.indexOf('.'); - if (rPos!=-1) n1In=rPos; - else if (ePos!=-1) n1In=ePos; - else n1In=sx.length(); - if (rPos!=-1) { - if (ePos!=-1) n2In = ePos-rPos-1; - else n2In = sx.length()-rPos-1; - } - else - n2In = 0; - if (ePos!=-1) { - int ie=ePos+1; - expon=0; - if (sx.charAt(ie)=='-') { - for (++ie; ie<sx.length(); ie++) - if (sx.charAt(ie)!='0') break; - if (ie<sx.length()) - expon=-Integer.parseInt(sx.substring(ie)); - } - else { - if (sx.charAt(ie)=='+') ++ie; - for (; ie<sx.length(); ie++) - if (sx.charAt(ie)!='0') break; - if (ie<sx.length()) - expon=Integer.parseInt(sx.substring(ie)); - } - } - int p; - if (precisionSet) p = precision; - else p = defaultDigits-1; - char[] ca1 = sx.toCharArray(); - char[] ca2 = new char[n1In+n2In]; - char[] ca3,ca4,ca5; - for (j=0; j<n1In; j++) - ca2[j] = ca1[j]; - i = j+1; - for (k=0; k<n2In; j++,i++,k++) - ca2[j] = ca1[i]; - if (n1In+expon<=0) { - ca3 = new char[-expon+n2In]; - for (j=0,k=0; k<(-n1In-expon); k++,j++) - ca3[j]='0'; - for (i=0; i<(n1In+n2In); i++,j++) - ca3[j]=ca2[i]; - } - else - ca3 = ca2; - boolean carry=false; - if (p<-expon+n2In) { - if (expon<0) i = p; - else i = p+n1In; - carry=checkForCarry(ca3,i); - if (carry) - carry=startSymbolicCarry(ca3,i-1,0); - } - if (n1In+expon<=0) { - ca4 = new char[2+p]; - if (!carry) ca4[0]='0'; - else ca4[0]='1'; - if(alternateForm||!precisionSet||precision!=0){ - ca4[1]='.'; - for(i=0,j=2;i<Math.min(p,ca3.length);i++,j++) - ca4[j]=ca3[i]; - for (; j<ca4.length; j++) ca4[j]='0'; - } - } - else { - if (!carry) { - if(alternateForm||!precisionSet - ||precision!=0) - ca4 = new char[n1In+expon+p+1]; - else - ca4 = new char[n1In+expon]; - j=0; - } - else { - if(alternateForm||!precisionSet - ||precision!=0) - ca4 = new char[n1In+expon+p+2]; - else - ca4 = new char[n1In+expon+1]; - ca4[0]='1'; - j=1; - } - for (i=0; i<Math.min(n1In+expon,ca3.length); i++,j++) - ca4[j]=ca3[i]; - for (; i<n1In+expon; i++,j++) - ca4[j]='0'; - if(alternateForm||!precisionSet||precision!=0){ - ca4[j]='.'; j++; - for (k=0; i<ca3.length && k<p; i++,j++,k++) - ca4[j]=ca3[i]; - for (; j<ca4.length; j++) ca4[j]='0'; - } - } - int nZeros=0; - if (!leftJustify && leadingZeros) { - int xThousands=0; - if (thousands) { - int xlead=0; - if (ca4[0]=='+'||ca4[0]=='-'||ca4[0]==' ') - xlead=1; - int xdp=xlead; - for (; xdp<ca4.length; xdp++) - if (ca4[xdp]=='.') break; - xThousands=(xdp-xlead)/3; - } - if (fieldWidthSet) - nZeros = fieldWidth-ca4.length; - if ((!minusSign&&(leadingSign||leadingSpace))||minusSign) - nZeros--; - nZeros-=xThousands; - if (nZeros<0) nZeros=0; - } - j=0; - if ((!minusSign&&(leadingSign||leadingSpace))||minusSign) { - ca5 = new char[ca4.length+nZeros+1]; - j++; - } - else - ca5 = new char[ca4.length+nZeros]; - if (!minusSign) { - if (leadingSign) ca5[0]='+'; - if (leadingSpace) ca5[0]=' '; - } - else - ca5[0]='-'; - for (i=0; i<nZeros; i++,j++) - ca5[j]='0'; - for (i=0; i<ca4.length; i++,j++) ca5[j]=ca4[i]; - - int lead=0; - if (ca5[0]=='+'||ca5[0]=='-'||ca5[0]==' ') - lead=1; - int dp=lead; - for (; dp<ca5.length; dp++) - if (ca5[dp]=='.') break; - int nThousands=(dp-lead)/3; - // Localize the decimal point. - if (dp<ca5.length) - ca5[dp]=dfs.getDecimalSeparator(); - char[] ca6 = ca5; - if (thousands && nThousands>0) { - ca6 = new char[ca5.length+nThousands+lead]; - ca6[0]=ca5[0]; - for (i=lead,k=lead; i<dp; i++) { - if (i>0 && (dp-i)%3==0) { - // ca6[k]=','; - ca6[k]=dfs.getGroupingSeparator(); - ca6[k+1]=ca5[i]; - k+=2; - } - else { - ca6[k]=ca5[i]; k++; - } - } - for (; i<ca5.length; i++,k++) { - ca6[k]=ca5[i]; - } - } - return ca6; - } - /** - * An intermediate routine on the way to creating - * an f format String. The method decides whether - * the input double value is an infinity, - * not-a-number, or a finite double and formats - * each type of input appropriately. - * @param x the double value to be formatted. - * @return the converted double value. - */ - private String fFormatString(double x) { - boolean noDigits=false; - char[] ca6,ca7; - if (Double.isInfinite(x)) { - if (x==Double.POSITIVE_INFINITY) { - if (leadingSign) ca6 = "+Inf".toCharArray(); - else if (leadingSpace) - ca6 = " Inf".toCharArray(); - else ca6 = "Inf".toCharArray(); - } - else - ca6 = "-Inf".toCharArray(); - noDigits = true; - } - else if (Double.isNaN(x)) { - if (leadingSign) ca6 = "+NaN".toCharArray(); - else if (leadingSpace) - ca6 = " NaN".toCharArray(); - else ca6 = "NaN".toCharArray(); - noDigits = true; - } - else - ca6 = fFormatDigits(x); - ca7 = applyFloatPadding(ca6,false); - return new String(ca7); - } - /** - * For e format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. '+' character means that the conversion - * will always begin with a sign (+ or -). The - * blank flag character means that a non-negative - * input will be preceded with a blank. If both a - * '+' and a ' ' are specified, the blank flag is - * ignored. The '0' flag character implies that - * padding to the field width will be done with - * zeros instead of blanks. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear after the radix character. - * Padding is with trailing 0s. - * - * The behavior is like printf. One (hopefully the - * only) exception is that the minimum number of - * exponent digits is 3 instead of 2 for e and E - * formats when the optional L is used before the - * e, E, g, or G conversion character. The optional - * L does not imply conversion to a long long - * double. - */ - private char[] eFormatDigits(double x,char eChar) { - char[] ca1,ca2,ca3; - // int defaultDigits=6; - String sx,sxOut; - int i,j,k,p; - int n1In,n2In; - int expon=0; - int ePos,rPos,eSize; - boolean minusSign=false; - if (x>0.0) - sx = Double.toString(x); - else if (x<0.0) { - sx = Double.toString(-x); - minusSign=true; - } - else { - sx = Double.toString(x); - if (sx.charAt(0)=='-') { - minusSign=true; - sx=sx.substring(1); - } - } - ePos = sx.indexOf('E'); - if (ePos==-1) ePos = sx.indexOf('e'); - rPos = sx.indexOf('.'); - if (rPos!=-1) n1In=rPos; - else if (ePos!=-1) n1In=ePos; - else n1In=sx.length(); - if (rPos!=-1) { - if (ePos!=-1) n2In = ePos-rPos-1; - else n2In = sx.length()-rPos-1; - } - else - n2In = 0; - if (ePos!=-1) { - int ie=ePos+1; - expon=0; - if (sx.charAt(ie)=='-') { - for (++ie; ie<sx.length(); ie++) - if (sx.charAt(ie)!='0') break; - if (ie<sx.length()) - expon=-Integer.parseInt(sx.substring(ie)); - } - else { - if (sx.charAt(ie)=='+') ++ie; - for (; ie<sx.length(); ie++) - if (sx.charAt(ie)!='0') break; - if (ie<sx.length()) - expon=Integer.parseInt(sx.substring(ie)); - } - } - if (rPos!=-1) expon += rPos-1; - if (precisionSet) p = precision; - else p = defaultDigits-1; - if (rPos!=-1 && ePos!=-1) - ca1=(sx.substring(0,rPos)+ - sx.substring(rPos+1,ePos)).toCharArray(); - else if (rPos!=-1) - ca1 = (sx.substring(0,rPos)+ - sx.substring(rPos+1)).toCharArray(); - else if (ePos!=-1) - ca1 = sx.substring(0,ePos).toCharArray(); - else - ca1 = sx.toCharArray(); - boolean carry=false; - int i0=0; - if (ca1[0]!='0') - i0 = 0; - else - for (i0=0; i0<ca1.length; i0++) - if (ca1[i0]!='0') break; - if (i0+p<ca1.length-1) { - carry=checkForCarry(ca1,i0+p+1); - if (carry) - carry = startSymbolicCarry(ca1,i0+p,i0); - if (carry) { - ca2 = new char[i0+p+1]; - ca2[i0]='1'; - for (j=0; j<i0; j++) ca2[j]='0'; - for (i=i0,j=i0+1; j<p+1; i++,j++) - ca2[j] = ca1[i]; - expon++; - ca1 = ca2; - } - } - if (Math.abs(expon)<100 && !optionalL) eSize=4; - else eSize=5; - if (alternateForm||!precisionSet||precision!=0) - ca2 = new char[2+p+eSize]; - else - ca2 = new char[1+eSize]; - if (ca1[0]!='0') { - ca2[0] = ca1[0]; - j=1; - } - else { - for (j=1; j<(ePos==-1?ca1.length:ePos); j++) - if (ca1[j]!='0') break; - if ((ePos!=-1 && j<ePos)|| - (ePos==-1 && j<ca1.length)) { - ca2[0] = ca1[j]; - expon -= j; - j++; - } - else { - ca2[0]='0'; - j=2; - } - } - if (alternateForm||!precisionSet||precision!=0) { - ca2[1] = '.'; - i=2; - } - else - i=1; - for (k=0; k<p && j<ca1.length; j++,i++,k++) - ca2[i] = ca1[j]; - for (;i<ca2.length-eSize; i++) - ca2[i] = '0'; - ca2[i++] = eChar; - if (expon<0) ca2[i++]='-'; - else ca2[i++]='+'; - expon = Math.abs(expon); - if (expon>=100) { - switch(expon/100) { - case 1: ca2[i]='1'; break; - case 2: ca2[i]='2'; break; - case 3: ca2[i]='3'; break; - case 4: ca2[i]='4'; break; - case 5: ca2[i]='5'; break; - case 6: ca2[i]='6'; break; - case 7: ca2[i]='7'; break; - case 8: ca2[i]='8'; break; - case 9: ca2[i]='9'; break; - } - i++; - } - switch((expon%100)/10) { - case 0: ca2[i]='0'; break; - case 1: ca2[i]='1'; break; - case 2: ca2[i]='2'; break; - case 3: ca2[i]='3'; break; - case 4: ca2[i]='4'; break; - case 5: ca2[i]='5'; break; - case 6: ca2[i]='6'; break; - case 7: ca2[i]='7'; break; - case 8: ca2[i]='8'; break; - case 9: ca2[i]='9'; break; - } - i++; - switch(expon%10) { - case 0: ca2[i]='0'; break; - case 1: ca2[i]='1'; break; - case 2: ca2[i]='2'; break; - case 3: ca2[i]='3'; break; - case 4: ca2[i]='4'; break; - case 5: ca2[i]='5'; break; - case 6: ca2[i]='6'; break; - case 7: ca2[i]='7'; break; - case 8: ca2[i]='8'; break; - case 9: ca2[i]='9'; break; - } - int nZeros=0; - if (!leftJustify && leadingZeros) { - int xThousands=0; - if (thousands) { - int xlead=0; - if (ca2[0]=='+'||ca2[0]=='-'||ca2[0]==' ') - xlead=1; - int xdp=xlead; - for (; xdp<ca2.length; xdp++) - if (ca2[xdp]=='.') break; - xThousands=(xdp-xlead)/3; - } - if (fieldWidthSet) - nZeros = fieldWidth-ca2.length; - if ((!minusSign&&(leadingSign||leadingSpace))||minusSign) - nZeros--; - nZeros-=xThousands; - if (nZeros<0) nZeros=0; - } - j=0; - if ((!minusSign&&(leadingSign || leadingSpace))||minusSign) { - ca3 = new char[ca2.length+nZeros+1]; - j++; - } - else - ca3 = new char[ca2.length+nZeros]; - if (!minusSign) { - if (leadingSign) ca3[0]='+'; - if (leadingSpace) ca3[0]=' '; - } - else - ca3[0]='-'; - for (k=0; k<nZeros; j++,k++) - ca3[j]='0'; - for (i=0; i<ca2.length && j<ca3.length; i++,j++) - ca3[j]=ca2[i]; - - int lead=0; - if (ca3[0]=='+'||ca3[0]=='-'||ca3[0]==' ') - lead=1; - int dp=lead; - for (; dp<ca3.length; dp++) - if (ca3[dp]=='.') break; - int nThousands=dp/3; - // Localize the decimal point. - if (dp < ca3.length) - ca3[dp] = dfs.getDecimalSeparator(); - char[] ca4 = ca3; - if (thousands && nThousands>0) { - ca4 = new char[ca3.length+nThousands+lead]; - ca4[0]=ca3[0]; - for (i=lead,k=lead; i<dp; i++) { - if (i>0 && (dp-i)%3==0) { - // ca4[k]=','; - ca4[k]=dfs.getGroupingSeparator(); - ca4[k+1]=ca3[i]; - k+=2; - } - else { - ca4[k]=ca3[i]; k++; - } - } - for (; i<ca3.length; i++,k++) - ca4[k]=ca3[i]; - } - return ca4; - } - /** - * Check to see if the digits that are going to - * be truncated because of the precision should - * force a round in the preceding digits. - * @param ca1 the array of digits - * @param icarry the index of the first digit that - * is to be truncated from the print - * @return <code>true</code> if the truncation forces - * a round that will change the print - */ - private boolean checkForCarry(char[] ca1,int icarry) { - boolean carry=false; - if (icarry<ca1.length) { - if (ca1[icarry]=='6'||ca1[icarry]=='7' - ||ca1[icarry]=='8'||ca1[icarry]=='9') carry=true; - else if (ca1[icarry]=='5') { - int ii=icarry+1; - for (;ii<ca1.length; ii++) - if (ca1[ii]!='0') break; - carry=ii<ca1.length; - if (!carry&&icarry>0) { - carry=(ca1[icarry-1]=='1'||ca1[icarry-1]=='3' - ||ca1[icarry-1]=='5'||ca1[icarry-1]=='7' - ||ca1[icarry-1]=='9'); - } - } - } - return carry; - } - /** - * Start the symbolic carry process. The process - * is not quite finished because the symbolic - * carry may change the length of the string and - * change the exponent (in e format). - * @param cLast index of the last digit changed - * by the round - * @param cFirst index of the first digit allowed - * to be changed by this phase of the round - * @return <code>true</code> if the carry forces - * a round that will change the print still - * more - */ - private boolean startSymbolicCarry( - char[] ca,int cLast,int cFirst) { - boolean carry=true; - for (int i=cLast; carry && i>=cFirst; i--) { - carry = false; - switch(ca[i]) { - case '0': ca[i]='1'; break; - case '1': ca[i]='2'; break; - case '2': ca[i]='3'; break; - case '3': ca[i]='4'; break; - case '4': ca[i]='5'; break; - case '5': ca[i]='6'; break; - case '6': ca[i]='7'; break; - case '7': ca[i]='8'; break; - case '8': ca[i]='9'; break; - case '9': ca[i]='0'; carry=true; break; - } - } - return carry; - } - /** - * An intermediate routine on the way to creating - * an e format String. The method decides whether - * the input double value is an infinity, - * not-a-number, or a finite double and formats - * each type of input appropriately. - * @param x the double value to be formatted. - * @param eChar an 'e' or 'E' to use in the - * converted double value. - * @return the converted double value. - */ - private String eFormatString(double x,char eChar) { - boolean noDigits=false; - char[] ca4,ca5; - if (Double.isInfinite(x)) { - if (x==Double.POSITIVE_INFINITY) { - if (leadingSign) ca4 = "+Inf".toCharArray(); - else if (leadingSpace) - ca4 = " Inf".toCharArray(); - else ca4 = "Inf".toCharArray(); - } - else - ca4 = "-Inf".toCharArray(); - noDigits = true; - } - else if (Double.isNaN(x)) { - if (leadingSign) ca4 = "+NaN".toCharArray(); - else if (leadingSpace) - ca4 = " NaN".toCharArray(); - else ca4 = "NaN".toCharArray(); - noDigits = true; - } - else - ca4 = eFormatDigits(x,eChar); - ca5 = applyFloatPadding(ca4,false); - return new String(ca5); - } - /** - * Apply zero or blank, left or right padding. - * @param ca4 array of characters before padding is - * finished - * @param noDigits NaN or signed Inf - * @return a padded array of characters - */ - private char[] applyFloatPadding( - char[] ca4,boolean noDigits) { - char[] ca5 = ca4; - if (fieldWidthSet) { - int i,j,nBlanks; - if (leftJustify) { - nBlanks = fieldWidth-ca4.length; - if (nBlanks > 0) { - ca5 = new char[ca4.length+nBlanks]; - for (i=0; i<ca4.length; i++) - ca5[i] = ca4[i]; - for (j=0; j<nBlanks; j++,i++) - ca5[i] = ' '; - } - } - else if (!leadingZeros || noDigits) { - nBlanks = fieldWidth-ca4.length; - if (nBlanks > 0) { - ca5 = new char[ca4.length+nBlanks]; - for (i=0; i<nBlanks; i++) - ca5[i] = ' '; - for (j=0; j<ca4.length; i++,j++) - ca5[i] = ca4[j]; - } - } - else if (leadingZeros) { - nBlanks = fieldWidth-ca4.length; - if (nBlanks > 0) { - ca5 = new char[ca4.length+nBlanks]; - i=0; j=0; - if (ca4[0]=='-') { ca5[0]='-'; i++; j++; } - for (int k=0; k<nBlanks; i++,k++) - ca5[i] = '0'; - for (; j<ca4.length; i++,j++) - ca5[i] = ca4[j]; - } - } - } - return ca5; - } - /** - * Format method for the f conversion character. - * @param x the double to format. - * @return the formatted String. - */ - private String printFFormat(double x) { - return fFormatString(x); - } - /** - * Format method for the e or E conversion - * character. - * @param x the double to format. - * @return the formatted String. - */ - private String printEFormat(double x) { - if (conversionCharacter=='e') - return eFormatString(x,'e'); - else - return eFormatString(x,'E'); - } - /** - * Format method for the g conversion character. - * - * For g format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. '+' character means that the conversion - * will always begin with a sign (+ or -). The - * blank flag character means that a non-negative - * input will be preceded with a blank. If both a - * '+' and a ' ' are specified, the blank flag is - * ignored. The '0' flag character implies that - * padding to the field width will be done with - * zeros instead of blanks. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear after the radix character. - * Padding is with trailing 0s. - * @param x the double to format. - * @return the formatted String. - */ - private String printGFormat(double x) { - String sx,sy,sz,ret; - int savePrecision=precision; - int i; - char[] ca4,ca5; - boolean noDigits=false; - if (Double.isInfinite(x)) { - if (x==Double.POSITIVE_INFINITY) { - if (leadingSign) ca4 = "+Inf".toCharArray(); - else if (leadingSpace) - ca4 = " Inf".toCharArray(); - else ca4 = "Inf".toCharArray(); - } - else - ca4 = "-Inf".toCharArray(); - noDigits = true; - } - else if (Double.isNaN(x)) { - if (leadingSign) ca4 = "+NaN".toCharArray(); - else if (leadingSpace) - ca4 = " NaN".toCharArray(); - else ca4 = "NaN".toCharArray(); - noDigits = true; - } - else { - if (!precisionSet) precision=defaultDigits; - if (precision==0) precision=1; - int ePos=-1; - if (conversionCharacter=='g') { - sx = eFormatString(x,'e').trim(); - ePos=sx.indexOf('e'); - } - else { - sx = eFormatString(x,'E').trim(); - ePos=sx.indexOf('E'); - } - i=ePos+1; - int expon=0; - if (sx.charAt(i)=='-') { - for (++i; i<sx.length(); i++) - if (sx.charAt(i)!='0') break; - if (i<sx.length()) - expon=-Integer.parseInt(sx.substring(i)); - } - else { - if (sx.charAt(i)=='+') ++i; - for (; i<sx.length(); i++) - if (sx.charAt(i)!='0') break; - if (i<sx.length()) - expon=Integer.parseInt(sx.substring(i)); - } - // Trim trailing zeros. - // If the radix character is not followed by - // a digit, trim it, too. - if (!alternateForm) { - if (expon>=-4 && expon<precision) - sy = fFormatString(x).trim(); - else - sy = sx.substring(0,ePos); - i=sy.length()-1; - for (; i>=0; i--) - if (sy.charAt(i)!='0') break; - if (i>=0 && sy.charAt(i)=='.') i--; - if (i==-1) sz="0"; - else if (!Character.isDigit(sy.charAt(i))) - sz=sy.substring(0,i+1)+"0"; - else sz=sy.substring(0,i+1); - if (expon>=-4 && expon<precision) - ret=sz; - else - ret=sz+sx.substring(ePos); - } - else { - if (expon>=-4 && expon<precision) - ret = fFormatString(x).trim(); - else - ret = sx; - } - // leading space was trimmed off during - // construction - if (leadingSpace) if (x>=0) ret = " "+ret; - ca4 = ret.toCharArray(); - } - // Pad with blanks or zeros. - ca5 = applyFloatPadding(ca4,false); - precision=savePrecision; - return new String(ca5); - } - /** - * Format method for the d conversion specifer and - * short argument. - * - * For d format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. A '+' character means that the conversion - * will always begin with a sign (+ or -). The - * blank flag character means that a non-negative - * input will be preceded with a blank. If both a - * '+' and a ' ' are specified, the blank flag is - * ignored. The '0' flag character implies that - * padding to the field width will be done with - * zeros instead of blanks. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the short to format. - * @return the formatted String. - */ - private String printDFormat(short x) { - return printDFormat(Short.toString(x)); - } - /** - * Format method for the d conversion character and - * long argument. - * - * For d format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. A '+' character means that the conversion - * will always begin with a sign (+ or -). The - * blank flag character means that a non-negative - * input will be preceded with a blank. If both a - * '+' and a ' ' are specified, the blank flag is - * ignored. The '0' flag character implies that - * padding to the field width will be done with - * zeros instead of blanks. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the long to format. - * @return the formatted String. - */ - private String printDFormat(long x) { - return printDFormat(Long.toString(x)); - } - /** - * Format method for the d conversion character and - * int argument. - * - * For d format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. A '+' character means that the conversion - * will always begin with a sign (+ or -). The - * blank flag character means that a non-negative - * input will be preceded with a blank. If both a - * '+' and a ' ' are specified, the blank flag is - * ignored. The '0' flag character implies that - * padding to the field width will be done with - * zeros instead of blanks. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the int to format. - * @return the formatted String. - */ - private String printDFormat(int x) { - return printDFormat(Integer.toString(x)); - } - /** - * Utility method for formatting using the d - * conversion character. - * @param sx the String to format, the result of - * converting a short, int, or long to a - * String. - * @return the formatted String. - */ - private String printDFormat(String sx) { - int nLeadingZeros=0; - int nBlanks=0,n=0; - int i=0,jFirst=0; - boolean neg = sx.charAt(0)=='-'; - if (sx.equals("0")&&precisionSet&&precision==0) - sx=""; - if (!neg) { - if (precisionSet && sx.length() < precision) - nLeadingZeros = precision-sx.length(); - } - else { - if (precisionSet&&(sx.length()-1)<precision) - nLeadingZeros = precision-sx.length()+1; - } - if (nLeadingZeros<0) nLeadingZeros=0; - if (fieldWidthSet) { - nBlanks = fieldWidth-nLeadingZeros-sx.length(); - if (!neg&&(leadingSign||leadingSpace)) - nBlanks--; - } - if (nBlanks<0) nBlanks=0; - if (leadingSign) n++; - else if (leadingSpace) n++; - n += nBlanks; - n += nLeadingZeros; - n += sx.length(); - char[] ca = new char[n]; - if (leftJustify) { - if (neg) ca[i++] = '-'; - else if (leadingSign) ca[i++] = '+'; - else if (leadingSpace) ca[i++] = ' '; - char[] csx = sx.toCharArray(); - jFirst = neg?1:0; - for (int j=0; j<nLeadingZeros; i++,j++) - ca[i]='0'; - for (int j=jFirst; j<csx.length; j++,i++) - ca[i] = csx[j]; - for (int j=0; j<nBlanks; i++,j++) - ca[i] = ' '; - } - else { - if (!leadingZeros) { - for (i=0; i<nBlanks; i++) - ca[i] = ' '; - if (neg) ca[i++] = '-'; - else if (leadingSign) ca[i++] = '+'; - else if (leadingSpace) ca[i++] = ' '; - } - else { - if (neg) ca[i++] = '-'; - else if (leadingSign) ca[i++] = '+'; - else if (leadingSpace) ca[i++] = ' '; - for (int j=0; j<nBlanks; j++,i++) - ca[i] = '0'; - } - for (int j=0; j<nLeadingZeros; j++,i++) - ca[i] = '0'; - char[] csx = sx.toCharArray(); - jFirst = neg?1:0; - for (int j=jFirst; j<csx.length; j++,i++) - ca[i] = csx[j]; - } - return new String(ca); - } - /** - * Format method for the x conversion character and - * short argument. - * - * For x format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. The '#' flag character means to lead with - * '0x'. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the short to format. - * @return the formatted String. - */ - private String printXFormat(short x) { - String sx=null; - if (x == Short.MIN_VALUE) - sx = "8000"; - else if (x < 0) { - String t; - if (x==Short.MIN_VALUE) - t = "0"; - else { - t = Integer.toString( - (~(-x-1))^Short.MIN_VALUE,16); - if (t.charAt(0)=='F'||t.charAt(0)=='f') - t = t.substring(16,32); - } - switch (t.length()) { - case 1: - sx = "800"+t; - break; - case 2: - sx = "80"+t; - break; - case 3: - sx = "8"+t; - break; - case 4: - switch (t.charAt(0)) { - case '1': - sx = "9"+t.substring(1,4); - break; - case '2': - sx = "a"+t.substring(1,4); - break; - case '3': - sx = "b"+t.substring(1,4); - break; - case '4': - sx = "c"+t.substring(1,4); - break; - case '5': - sx = "d"+t.substring(1,4); - break; - case '6': - sx = "e"+t.substring(1,4); - break; - case '7': - sx = "f"+t.substring(1,4); - break; - } - break; - } - } - else - sx = Integer.toString((int)x,16); - return printXFormat(sx); - } - /** - * Format method for the x conversion character and - * long argument. - * - * For x format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. The '#' flag character means to lead with - * '0x'. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the long to format. - * @return the formatted String. - */ - private String printXFormat(long x) { - String sx=null; - if (x == Long.MIN_VALUE) - sx = "8000000000000000"; - else if (x < 0) { - String t = Long.toString( - (~(-x-1))^Long.MIN_VALUE,16); - switch (t.length()) { - case 1: - sx = "800000000000000"+t; - break; - case 2: - sx = "80000000000000"+t; - break; - case 3: - sx = "8000000000000"+t; - break; - case 4: - sx = "800000000000"+t; - break; - case 5: - sx = "80000000000"+t; - break; - case 6: - sx = "8000000000"+t; - break; - case 7: - sx = "800000000"+t; - break; - case 8: - sx = "80000000"+t; - break; - case 9: - sx = "8000000"+t; - break; - case 10: - sx = "800000"+t; - break; - case 11: - sx = "80000"+t; - break; - case 12: - sx = "8000"+t; - break; - case 13: - sx = "800"+t; - break; - case 14: - sx = "80"+t; - break; - case 15: - sx = "8"+t; - break; - case 16: - switch (t.charAt(0)) { - case '1': - sx = "9"+t.substring(1,16); - break; - case '2': - sx = "a"+t.substring(1,16); - break; - case '3': - sx = "b"+t.substring(1,16); - break; - case '4': - sx = "c"+t.substring(1,16); - break; - case '5': - sx = "d"+t.substring(1,16); - break; - case '6': - sx = "e"+t.substring(1,16); - break; - case '7': - sx = "f"+t.substring(1,16); - break; - } - break; - } - } - else - sx = Long.toString(x,16); - return printXFormat(sx); - } - /** - * Format method for the x conversion character and - * int argument. - * - * For x format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. The '#' flag character means to lead with - * '0x'. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the int to format. - * @return the formatted String. - */ - private String printXFormat(int x) { - String sx=null; - if (x == Integer.MIN_VALUE) - sx = "80000000"; - else if (x < 0) { - String t = Integer.toString( - (~(-x-1))^Integer.MIN_VALUE,16); - switch (t.length()) { - case 1: - sx = "8000000"+t; - break; - case 2: - sx = "800000"+t; - break; - case 3: - sx = "80000"+t; - break; - case 4: - sx = "8000"+t; - break; - case 5: - sx = "800"+t; - break; - case 6: - sx = "80"+t; - break; - case 7: - sx = "8"+t; - break; - case 8: - switch (t.charAt(0)) { - case '1': - sx = "9"+t.substring(1,8); - break; - case '2': - sx = "a"+t.substring(1,8); - break; - case '3': - sx = "b"+t.substring(1,8); - break; - case '4': - sx = "c"+t.substring(1,8); - break; - case '5': - sx = "d"+t.substring(1,8); - break; - case '6': - sx = "e"+t.substring(1,8); - break; - case '7': - sx = "f"+t.substring(1,8); - break; - } - break; - } - } - else - sx = Integer.toString(x,16); - return printXFormat(sx); - } - /** - * Utility method for formatting using the x - * conversion character. - * @param sx the String to format, the result of - * converting a short, int, or long to a - * String. - * @return the formatted String. - */ - private String printXFormat(String sx) { - int nLeadingZeros = 0; - int nBlanks = 0; - if (sx.equals("0")&&precisionSet&&precision==0) - sx=""; - if (precisionSet) - nLeadingZeros = precision-sx.length(); - if (nLeadingZeros<0) nLeadingZeros=0; - if (fieldWidthSet) { - nBlanks = fieldWidth-nLeadingZeros-sx.length(); - if (alternateForm) nBlanks = nBlanks - 2; - } - if (nBlanks<0) nBlanks=0; - int n=0; - if (alternateForm) n+=2; - n += nLeadingZeros; - n += sx.length(); - n += nBlanks; - char[] ca = new char[n]; - int i=0; - if (leftJustify) { - if (alternateForm) { - ca[i++]='0'; ca[i++]='x'; - } - for (int j=0; j<nLeadingZeros; j++,i++) - ca[i]='0'; - char[] csx = sx.toCharArray(); - for (int j=0; j<csx.length; j++,i++) - ca[i] = csx[j]; - for (int j=0; j<nBlanks; j++,i++) - ca[i] = ' '; - } - else { - if (!leadingZeros) - for (int j=0; j<nBlanks; j++,i++) - ca[i] = ' '; - if (alternateForm) { - ca[i++]='0'; ca[i++]='x'; - } - if (leadingZeros) - for (int j=0; j<nBlanks; j++,i++) - ca[i] = '0'; - for (int j=0; j<nLeadingZeros; j++,i++) - ca[i]='0'; - char[] csx = sx.toCharArray(); - for (int j=0; j<csx.length; j++,i++) - ca[i] = csx[j]; - } - String caReturn=new String(ca); - if (conversionCharacter=='X') - caReturn = caReturn.toUpperCase(); - return caReturn; - } - /** - * Format method for the o conversion character and - * short argument. - * - * For o format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. The '#' flag character means that the - * output begins with a leading 0 and the precision - * is increased by 1. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the short to format. - * @return the formatted String. - */ - private String printOFormat(short x) { - String sx=null; - if (x == Short.MIN_VALUE) - sx = "100000"; - else if (x < 0) { - String t = Integer.toString( - (~(-x-1))^Short.MIN_VALUE,8); - switch (t.length()) { - case 1: - sx = "10000"+t; - break; - case 2: - sx = "1000"+t; - break; - case 3: - sx = "100"+t; - break; - case 4: - sx = "10"+t; - break; - case 5: - sx = "1"+t; - break; - } - } - else - sx = Integer.toString((int)x,8); - return printOFormat(sx); - } - /** - * Format method for the o conversion character and - * long argument. - * - * For o format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. The '#' flag character means that the - * output begins with a leading 0 and the precision - * is increased by 1. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the long to format. - * @return the formatted String. - */ - private String printOFormat(long x) { - String sx=null; - if (x == Long.MIN_VALUE) - sx = "1000000000000000000000"; - else if (x < 0) { - String t = Long.toString( - (~(-x-1))^Long.MIN_VALUE,8); - switch (t.length()) { - case 1: - sx = "100000000000000000000"+t; - break; - case 2: - sx = "10000000000000000000"+t; - break; - case 3: - sx = "1000000000000000000"+t; - break; - case 4: - sx = "100000000000000000"+t; - break; - case 5: - sx = "10000000000000000"+t; - break; - case 6: - sx = "1000000000000000"+t; - break; - case 7: - sx = "100000000000000"+t; - break; - case 8: - sx = "10000000000000"+t; - break; - case 9: - sx = "1000000000000"+t; - break; - case 10: - sx = "100000000000"+t; - break; - case 11: - sx = "10000000000"+t; - break; - case 12: - sx = "1000000000"+t; - break; - case 13: - sx = "100000000"+t; - break; - case 14: - sx = "10000000"+t; - break; - case 15: - sx = "1000000"+t; - break; - case 16: - sx = "100000"+t; - break; - case 17: - sx = "10000"+t; - break; - case 18: - sx = "1000"+t; - break; - case 19: - sx = "100"+t; - break; - case 20: - sx = "10"+t; - break; - case 21: - sx = "1"+t; - break; - } - } - else - sx = Long.toString(x,8); - return printOFormat(sx); - } - /** - * Format method for the o conversion character and - * int argument. - * - * For o format, the flag character '-', means that - * the output should be left justified within the - * field. The default is to pad with blanks on the - * left. The '#' flag character means that the - * output begins with a leading 0 and the precision - * is increased by 1. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is to - * add no padding. Padding is with blanks by - * default. - * - * The precision, if set, is the minimum number of - * digits to appear. Padding is with leading 0s. - * @param x the int to format. - * @return the formatted String. - */ - private String printOFormat(int x) { - String sx=null; - if (x == Integer.MIN_VALUE) - sx = "20000000000"; - else if (x < 0) { - String t = Integer.toString( - (~(-x-1))^Integer.MIN_VALUE,8); - switch (t.length()) { - case 1: - sx = "2000000000"+t; - break; - case 2: - sx = "200000000"+t; - break; - case 3: - sx = "20000000"+t; - break; - case 4: - sx = "2000000"+t; - break; - case 5: - sx = "200000"+t; - break; - case 6: - sx = "20000"+t; - break; - case 7: - sx = "2000"+t; - break; - case 8: - sx = "200"+t; - break; - case 9: - sx = "20"+t; - break; - case 10: - sx = "2"+t; - break; - case 11: - sx = "3"+t.substring(1); - break; - } - } - else - sx = Integer.toString(x,8); - return printOFormat(sx); - } - /** - * Utility method for formatting using the o - * conversion character. - * @param sx the String to format, the result of - * converting a short, int, or long to a - * String. - * @return the formatted String. - */ - private String printOFormat(String sx) { - int nLeadingZeros = 0; - int nBlanks = 0; - if (sx.equals("0")&&precisionSet&&precision==0) - sx=""; - if (precisionSet) - nLeadingZeros = precision-sx.length(); - if (alternateForm) nLeadingZeros++; - if (nLeadingZeros<0) nLeadingZeros=0; - if (fieldWidthSet) - nBlanks = fieldWidth-nLeadingZeros-sx.length(); - if (nBlanks<0) nBlanks=0; - int n=nLeadingZeros+sx.length()+nBlanks; - char[] ca = new char[n]; - int i; - if (leftJustify) { - for (i=0; i<nLeadingZeros; i++) ca[i]='0'; - char[] csx = sx.toCharArray(); - for (int j=0; j<csx.length; j++,i++) - ca[i] = csx[j]; - for (int j=0; j<nBlanks; j++,i++) ca[i] = ' '; - } - else { - if (leadingZeros) - for (i=0; i<nBlanks; i++) ca[i]='0'; - else - for (i=0; i<nBlanks; i++) ca[i]=' '; - for (int j=0; j<nLeadingZeros; j++,i++) - ca[i]='0'; - char[] csx = sx.toCharArray(); - for (int j=0; j<csx.length; j++,i++) - ca[i] = csx[j]; - } - return new String(ca); - } - /** - * Format method for the c conversion character and - * char argument. - * - * The only flag character that affects c format is - * the '-', meaning that the output should be left - * justified within the field. The default is to - * pad with blanks on the left. - * - * The field width is treated as the minimum number - * of characters to be printed. Padding is with - * blanks by default. The default width is 1. - * - * The precision, if set, is ignored. - * @param x the char to format. - * @return the formatted String. - */ - private String printCFormat(char x) { - int nPrint = 1; - int width = fieldWidth; - if (!fieldWidthSet) width = nPrint; - char[] ca = new char[width]; - int i=0; - if (leftJustify) { - ca[0] = x; - for (i=1; i<=width-nPrint; i++) ca[i]=' '; - } - else { - for (i=0; i<width-nPrint; i++) ca[i]=' '; - ca[i] = x; - } - return new String(ca); - } - /** - * Format method for the s conversion character and - * String argument. - * - * The only flag character that affects s format is - * the '-', meaning that the output should be left - * justified within the field. The default is to - * pad with blanks on the left. - * - * The field width is treated as the minimum number - * of characters to be printed. The default is the - * smaller of the number of characters in the the - * input and the precision. Padding is with blanks - * by default. - * - * The precision, if set, specifies the maximum - * number of characters to be printed from the - * string. A null digit string is treated - * as a 0. The default is not to set a maximum - * number of characters to be printed. - * @param x the String to format. - * @return the formatted String. - */ - private String printSFormat(String x) { - int nPrint = x.length(); - int width = fieldWidth; - if (precisionSet && nPrint>precision) - nPrint=precision; - if (!fieldWidthSet) width = nPrint; - int n=0; - if (width>nPrint) n+=width-nPrint; - if (nPrint>=x.length()) n+= x.length(); - else n+= nPrint; - char[] ca = new char[n]; - int i=0; - if (leftJustify) { - if (nPrint>=x.length()) { - char[] csx = x.toCharArray(); - for (i=0; i<x.length(); i++) ca[i]=csx[i]; - } - else { - char[] csx = - x.substring(0,nPrint).toCharArray(); - for (i=0; i<nPrint; i++) ca[i]=csx[i]; - } - for (int j=0; j<width-nPrint; j++,i++) - ca[i]=' '; - } - else { - for (i=0; i<width-nPrint; i++) ca[i]=' '; - if (nPrint>=x.length()) { - char[] csx = x.toCharArray(); - for (int j=0; j<x.length(); i++,j++) - ca[i]=csx[j]; - } - else { - char[] csx = - x.substring(0,nPrint).toCharArray(); - for (int j=0; j<nPrint; i++,j++) - ca[i]=csx[j]; - } - } - return new String(ca); - } - /** - * Check for a conversion character. If it is - * there, store it. - * * @return <code>true</code> if the conversion - * character is there, and - * <code>false</code> otherwise. - */ - private boolean setConversionCharacter() { - /* idfgGoxXeEcs */ - boolean ret = false; - conversionCharacter='\0'; - if (pos < fmt.length()) { - char c = fmt.charAt(pos); - if (c=='i'||c=='d'||c=='f'||c=='g'||c=='G' - || c=='o' || c=='x' || c=='X' || c=='e' - || c=='E' || c=='c' || c=='s' || c=='%') { - conversionCharacter = c; - pos++; - ret = true; - } - } - return ret; - } - /** - * Check for an h, l, or L in a format. An L is - * used to control the minimum number of digits - * in an exponent when using floating point - * formats. An l or h is used to control - * conversion of the input to a long or short, - * respectively, before formatting. If any of - * these is present, store them. - */ - private void setOptionalHL() { - optionalh=false; - optionall=false; - optionalL=false; - if (pos < fmt.length()) { - char c = fmt.charAt(pos); - if (c=='h') { optionalh=true; pos++; } - else if (c=='l') { optionall=true; pos++; } - else if (c=='L') { optionalL=true; pos++; } - } - } - /** - * Set the precision. - */ - private void setPrecision() { - int firstPos = pos; - precisionSet = false; - if (pos<fmt.length()&&fmt.charAt(pos)=='.') { - pos++; - if ((pos < fmt.length()) - && (fmt.charAt(pos)=='*')) { - pos++; - if (!setPrecisionArgPosition()) { - variablePrecision = true; - precisionSet = true; - } - return; - } - else { - while (pos < fmt.length()) { - char c = fmt.charAt(pos); - if (Character.isDigit(c)) pos++; - else break; - } - if (pos > firstPos+1) { - String sz = fmt.substring(firstPos+1,pos); - precision = Integer.parseInt(sz); - precisionSet = true; - } - } - } - } - /** - * Set the field width. - */ - private void setFieldWidth() { - int firstPos = pos; - fieldWidth = 0; - fieldWidthSet = false; - if ((pos < fmt.length()) - && (fmt.charAt(pos)=='*')) { - pos++; - if (!setFieldWidthArgPosition()) { - variableFieldWidth = true; - fieldWidthSet = true; - } - } - else { - while (pos < fmt.length()) { - char c = fmt.charAt(pos); - if (Character.isDigit(c)) pos++; - else break; - } - if (firstPos<pos && firstPos < fmt.length()) { - String sz = fmt.substring(firstPos,pos); - fieldWidth = Integer.parseInt(sz); - fieldWidthSet = true; - } - } - } - /** - * Store the digits <code>n</code> in %n$ forms. - */ - private void setArgPosition() { - int xPos; - for (xPos=pos; xPos<fmt.length(); xPos++) { - if (!Character.isDigit(fmt.charAt(xPos))) - break; - } - if (xPos>pos && xPos<fmt.length()) { - if (fmt.charAt(xPos)=='$') { - positionalSpecification = true; - argumentPosition= - Integer.parseInt(fmt.substring(pos,xPos)); - pos=xPos+1; - } - } - } - /** - * Store the digits <code>n</code> in *n$ forms. - */ - private boolean setFieldWidthArgPosition() { - boolean ret=false; - int xPos; - for (xPos=pos; xPos<fmt.length(); xPos++) { - if (!Character.isDigit(fmt.charAt(xPos))) - break; - } - if (xPos>pos && xPos<fmt.length()) { - if (fmt.charAt(xPos)=='$') { - positionalFieldWidth = true; - argumentPositionForFieldWidth= - Integer.parseInt(fmt.substring(pos,xPos)); - pos=xPos+1; - ret=true; - } - } - return ret; - } - /** - * Store the digits <code>n</code> in *n$ forms. - */ - private boolean setPrecisionArgPosition() { - boolean ret=false; - int xPos; - for (xPos=pos; xPos<fmt.length(); xPos++) { - if (!Character.isDigit(fmt.charAt(xPos))) - break; - } - if (xPos>pos && xPos<fmt.length()) { - if (fmt.charAt(xPos)=='$') { - positionalPrecision = true; - argumentPositionForPrecision= - Integer.parseInt(fmt.substring(pos,xPos)); - pos=xPos+1; - ret=true; - } - } - return ret; - } - boolean isPositionalSpecification() { - return positionalSpecification; - } - int getArgumentPosition() { return argumentPosition; } - boolean isPositionalFieldWidth() { - return positionalFieldWidth; - } - int getArgumentPositionForFieldWidth() { - return argumentPositionForFieldWidth; - } - boolean isPositionalPrecision() { - return positionalPrecision; - } - int getArgumentPositionForPrecision() { - return argumentPositionForPrecision; - } - /** - * Set flag characters, one of '-+#0 or a space. - */ - private void setFlagCharacters() { - /* '-+ #0 */ - thousands = false; - leftJustify = false; - leadingSign = false; - leadingSpace = false; - alternateForm = false; - leadingZeros = false; - for ( ; pos < fmt.length(); pos++) { - char c = fmt.charAt(pos); - if (c == '\'') thousands = true; - else if (c == '-') { - leftJustify = true; - leadingZeros = false; - } - else if (c == '+') { - leadingSign = true; - leadingSpace = false; - } - else if (c == ' ') { - if (!leadingSign) leadingSpace = true; - } - else if (c == '#') alternateForm = true; - else if (c == '0') { - if (!leftJustify) leadingZeros = true; - } - else break; - } - } - /** - * The integer portion of the result of a decimal - * conversion (i, d, u, f, g, or G) will be - * formatted with thousands' grouping characters. - * For other conversions the flag is ignored. - */ - private boolean thousands = false; - /** - * The result of the conversion will be - * left-justified within the field. - */ - private boolean leftJustify = false; - /** - * The result of a signed conversion will always - * begin with a sign (+ or -). - */ - private boolean leadingSign = false; - /** - * Flag indicating that left padding with spaces is - * specified. - */ - private boolean leadingSpace = false; - /** - * For an o conversion, increase the precision to - * force the first digit of the result to be a - * zero. For x (or X) conversions, a non-zero - * result will have 0x (or 0X) prepended to it. - * For e, E, f, g, or G conversions, the result - * will always contain a radix character, even if - * no digits follow the point. For g and G - * conversions, trailing zeros will not be removed - * from the result. - */ - private boolean alternateForm = false; - /** - * Flag indicating that left padding with zeroes is - * specified. - */ - private boolean leadingZeros = false; - /** - * Flag indicating that the field width is *. - */ - private boolean variableFieldWidth = false; - /** - * If the converted value has fewer bytes than the - * field width, it will be padded with spaces or - * zeroes. - */ - private int fieldWidth = 0; - /** - * Flag indicating whether or not the field width - * has been set. - */ - private boolean fieldWidthSet = false; - /** - * The minimum number of digits to appear for the - * d, i, o, u, x, or X conversions. The number of - * digits to appear after the radix character for - * the e, E, and f conversions. The maximum number - * of significant digits for the g and G - * conversions. The maximum number of bytes to be - * printed from a string in s and S conversions. - */ - private int precision = 0; - /** Default precision. */ - private final static int defaultDigits=6; - /** - * Flag indicating that the precision is *. - */ - private boolean variablePrecision = false; - /** - * Flag indicating whether or not the precision has - * been set. - */ - private boolean precisionSet = false; - /* - */ - private boolean positionalSpecification=false; - private int argumentPosition=0; - private boolean positionalFieldWidth=false; - private int argumentPositionForFieldWidth=0; - private boolean positionalPrecision=false; - private int argumentPositionForPrecision=0; - /** - * Flag specifying that a following d, i, o, u, x, - * or X conversion character applies to a type - * short int. - */ - private boolean optionalh = false; - /** - * Flag specifying that a following d, i, o, u, x, - * or X conversion character applies to a type lont - * int argument. - */ - private boolean optionall = false; - /** - * Flag specifying that a following e, E, f, g, or - * G conversion character applies to a type double - * argument. This is a noop in Java. - */ - private boolean optionalL = false; - /** Control string type. */ - private char conversionCharacter = '\0'; - /** - * Position within the control string. Used by - * the constructor. - */ - private int pos = 0; - /** Literal or control format string. */ - private String fmt; - } - /** Vector of control strings and format literals. */ - private Vector vFmt = new Vector(); - /** Character position. Used by the constructor. */ - private int cPos=0; - /** Character position. Used by the constructor. */ - private DecimalFormatSymbols dfs=null; -} |