Utility functions for the GnuCash GUI

Files
file	gnc-ui-util.h
	utility functions for the GnuCash UI

Data Structures
struct	GNCPrintAmountInfo

Macros
#define	GNC_PREFS_GROUP_OPEN_SAVE   "dialogs.open-save"
#define	GNC_PREFS_GROUP_EXPORT   "dialogs.export-accounts"
#define	GNC_PREFS_GROUP_REPORT   "dialogs.report"
#define	GNC_PREF_AUTO_DECIMAL_POINT   "auto-decimal-point"
#define	GNC_PREF_AUTO_DECIMAL_PLACES   "auto-decimal-places"
#define	WLINK   'w'
#define	FLINK   'f'

Typedefs
typedef QofSession *(*	QofSessionCB) (void)

Enumerations
enum	GNCEquityType { EQUITY_OPENING_BALANCE, EQUITY_RETAINED_EARNINGS, NUM_EQUITY_TYPES }

Functions
gchar *	gnc_normalize_account_separator (const gchar *separator)
gboolean	gnc_reverse_balance (const Account *account)
void	gnc_set_use_equity_type_opening_balance_account (QofBook *book)
gboolean	gnc_using_equity_type_opening_balance_account (QofBook *book)
gchar *	gnc_get_default_directory (const gchar *section)
void	gnc_set_default_directory (const gchar *section, const gchar *directory)
QofBook *	gnc_get_current_book (void)
gboolean	gnc_is_new_book (void)
void	gnc_set_current_book_tax_name_type (gboolean name_changed, const gchar *tax_name, gboolean type_changed, const gchar *tax_type)
const gchar *	gnc_get_current_book_tax_name (void)
const gchar *	gnc_get_current_book_tax_type (void)
void	gnc_book_option_num_field_source_change_cb (gboolean num_action)
	Calls gnc_book_option_num_field_source_change to initiate registered callbacks when num_field_source book option changes so that registers/reports can update themselves; sets feature flag.
Account *	gnc_get_current_root_account (void)
gnc_commodity_table *	gnc_get_current_commodities (void)
gchar *	gnc_get_account_name_for_register (const Account *account)
	Get either the full name of the account or the simple name, depending on the configuration parameter general/register/show_leaf_account_names. More...
Account *	gnc_account_lookup_for_register (const Account *base_account, const gchar *name)
	Retrieve the account matching the given name starting from the descendants of base_account. More...
gchar *	gnc_get_account_name_for_split_register (const Account *account, gboolean show_leaf_accounts)
	Get either the full name of the account or the simple name, depending on the show_leaf_accounts. More...
const char *	gnc_get_reconcile_str (char reconciled_flag)
const char *	gnc_get_reconcile_valid_flags (void)
const char *	gnc_get_reconcile_flag_order (void)
const char *	gnc_get_doclink_valid_flags (void)
	Get a string containing documentation link valid flags. More...
const char *	gnc_get_doclink_flag_order (void)
	Get a string containing document link flag order. More...
const char *	gnc_get_doclink_str (char link_flag)
	Get a string representing the document link type. More...
Account *	gnc_find_or_create_equity_account (Account *root, GNCEquityType equity_type, gnc_commodity *currency)
gboolean	gnc_account_create_opening_balance (Account *account, gnc_numeric balance, time64 date, QofBook *book)
gnc_commodity *	gnc_locale_default_currency_nodefault (void)
	Returns the default currency of the current locale, or NULL if no sensible currency could be identified from the locale. More...
gnc_commodity *	gnc_locale_default_currency (void)
	Returns the default currency of the current locale. More...
gnc_commodity *	gnc_default_currency (void)
	Return the default currency set by the user. More...
gnc_commodity *	gnc_account_or_default_currency (const Account *account, gboolean *currency_from_account_found)
	Returns a gnc_commodity that is a currency, suitable for being a Transaction's currency. More...
gnc_commodity *	gnc_default_report_currency (void)
	Return the default currency for use in reports, as set by the user. More...
GNCPrintAmountInfo	gnc_default_print_info (gboolean use_symbol)
GNCPrintAmountInfo	gnc_commodity_print_info (const gnc_commodity *commodity, gboolean use_symbol)
GNCPrintAmountInfo	gnc_account_print_info (const Account *account, gboolean use_symbol)
GNCPrintAmountInfo	gnc_split_amount_print_info (Split *split, gboolean use_symbol)
GNCPrintAmountInfo	gnc_price_print_info (const gnc_commodity *curr, gboolean use_symbol)
GNCPrintAmountInfo	gnc_share_print_info_places (int decplaces)
GNCPrintAmountInfo	gnc_default_share_print_info (void)
GNCPrintAmountInfo	gnc_default_price_print_info (const gnc_commodity *curr)
GNCPrintAmountInfo	gnc_integral_print_info (void)
const char *	xaccPrintAmount (gnc_numeric val, GNCPrintAmountInfo info)
	Make a string representation of a gnc_numeric. More...
int	xaccSPrintAmount (char *buf, gnc_numeric val, GNCPrintAmountInfo info)
	Make a string representation of a gnc_numeric. More...
const gchar *	printable_value (gdouble val, gint denom)
gchar *	number_to_words (gdouble val, gint64 denom)
gchar *	numeric_to_words (gnc_numeric val)
gboolean	xaccParseAmount (const char *in_str, gboolean monetary, gnc_numeric *result, char **endstr)
	Parses in_str to obtain a numeric result. More...
gboolean	xaccParseAmountExtended (const char *in_str, gboolean monetary, gunichar negative_sign, gunichar decimal_point, gunichar group_separator, const char *ignore_list, gnc_numeric *result, char **endstr)
	Converts a string to a gnc_numeric. More...
gboolean	xaccParseAmountImport (const char *in_str, gboolean monetary, gnc_numeric *result, char **endstr, gboolean skip)
	Similar to xaccParseAmount, but with two differences. More...
gboolean	xaccParseAmountExtImport (const char *in_str, gboolean monetary, gunichar negative_sign, gunichar decimal_point, gunichar group_separator, const char *ignore_list, gnc_numeric *result, char **endstr)
	Similar to xaccParseAmountExtended, but will not automatically set a decimal point, regardless of what the user has set for this option. More...
const char *	gnc_print_amount_with_bidi_ltr_isolate (gnc_numeric val, GNCPrintAmountInfo info)
	Make a string representation of a gnc_numeric. More...
gchar *	gnc_wrap_text_with_bidi_ltr_isolate (const char *text)
	This function helps with GTK's use of 'Unicode Bidirectional Text Algorithm'. More...
void	gnc_ui_util_init (void)
void	gnc_ui_util_remove_registered_prefs (void)
gchar *	gnc_filter_text_for_control_chars (const gchar *incoming_text)
	Returns the incoming text removed of control characters. More...
void	gnc_filter_text_set_cursor_position (const gchar *incoming_text, const gchar *symbol, gint *cursor_position)
	Updates cursor_position after removal of currency symbols. More...
gchar *	gnc_filter_text_for_currency_symbol (const gchar *incoming_text, const gchar *symbol)
	Returns the incoming text removed of a currency symbol. More...
gchar *	gnc_filter_text_for_currency_commodity (const gnc_commodity *comm, const gchar *incoming_text, const gchar **symbol)
	Returns the incoming text removed of currency symbol. More...

Detailed Description

Function Documentation

gnc_account_lookup_for_register()

Account* gnc_account_lookup_for_register	(	const Account *	base_account,
		const gchar *	name
	)

Retrieve the account matching the given name starting from the descendants of base_account.

name is either considered to be the name of the leaf in the account tree or to be the full account path, depending on the configuration parameter general.register/show_leaf_account_names.

Parameters

base_account	The account to start the search at.
name	The name to search for.

Returns

A pointer to the account, or NULL if the account was not found.

gnc_account_or_default_currency()

gnc_commodity* gnc_account_or_default_currency	(	const Account *	account,
		gboolean *	currency_from_account_found
	)

Returns a gnc_commodity that is a currency, suitable for being a Transaction's currency.

The gnc_commodity is taken either from the current account, or from the next parent account that has a gnc_commodity that is a currency, or from gnc_default_currency().

If the given account or any of its parent account have a commodity that is a currency, it is returned and the gboolean currency_from_account_found is set to TRUE (if non-NULL). If neither this account nor any of its parent accounts have such a commodity, gnc_default_currency() is returned and the gboolean currency_from_account_found is set to FALSE (if non-NULL). This can be used to show an appropriate warning message.

If account is NULL, gnc_default_currency() is returned and currency_from_account_found is set to FALSE.

Parameters

account	The account where the currency should be looked up. May be NULL.
currency_from_account_found	A gboolean pointer that takes the output argument of whether the returned currency was found in the account. May be NULL.

Returns

A currency pointer (and never NULL).

Definition at line 810 of file gnc-ui-util.c.

{
    gnc_commodity *currency;
    if (!account)
    {
        if (currency_from_account_found)
            *currency_from_account_found = FALSE;
        return gnc_default_currency();
    }

    currency = gnc_account_get_currency_or_parent(account);
    if (currency)
    {
        if (currency_from_account_found)
            *currency_from_account_found = TRUE;
    }
    else
    {
        if (currency_from_account_found)
            *currency_from_account_found = FALSE;
        currency = gnc_default_currency();
    }
    return currency;
}

gnc_default_currency()

gnc_commodity* gnc_default_currency

(

void

)

Return the default currency set by the user.

If the user's preference is invalid, then this routine will return the default currency for the user's locale.

Returns

A pointer to a currency.

Definition at line 805 of file gnc-ui-util.c.

{
    return gnc_default_currency_common (user_default_currency, GNC_PREFS_GROUP_GENERAL);
}

gnc_default_report_currency()

gnc_commodity* gnc_default_report_currency

(

void

)

Return the default currency for use in reports, as set by the user.

If the user's preference is invalid, then this routine will return the default currency for the user's locale.

Returns

A pointer to a currency.

Definition at line 838 of file gnc-ui-util.c.

{
    return gnc_default_currency_common (user_report_currency, GNC_PREFS_GROUP_GENERAL_REPORT);
}

gnc_filter_text_for_control_chars()

gchar* gnc_filter_text_for_control_chars

(

const gchar *

incoming_text

)

Returns the incoming text removed of control characters.

Parameters

incoming_text

The text to filter

Returns

The incoming text filtered of control characters to be freed by the caller.

Definition at line 2212 of file gnc-ui-util.c.

{
    const char *ch;
    GString *filtered;
    gboolean cntrl = FALSE;
    gboolean text_found = FALSE;

    if (!text)
        return NULL;

    if (!g_utf8_validate (text, -1, NULL))
        return NULL;

    filtered = g_string_sized_new (strlen (text) + 1);

    ch = text;

    while (*ch)
    {
        gunichar uc = g_utf8_get_char (ch);

        // check for starting with control characters
        if (unichar_is_cntrl (uc) && !text_found)
        {
            ch = g_utf8_next_char (ch);
            continue;
        }
        // check for alpha, num and punctuation
        if (!unichar_is_cntrl (uc))
        {
            filtered = g_string_append_unichar (filtered, uc);
            text_found = TRUE;
        }
        // check for control characters after text
        if (unichar_is_cntrl (uc))
            cntrl = TRUE;

        ch = g_utf8_next_char (ch);

        if (cntrl) // if control characters in text replace with space
        {
            gunichar uc2 = g_utf8_get_char (ch);

            if (!unichar_is_cntrl (uc2))
                filtered = g_string_append_unichar (filtered, ' ');
        }
        cntrl = FALSE;
    }
    return g_string_free (filtered, FALSE);
}

gnc_filter_text_for_currency_commodity()

gchar* gnc_filter_text_for_currency_commodity	(	const gnc_commodity *	comm,
		const gchar *	incoming_text,
		const gchar **	symbol
	)

Returns the incoming text removed of currency symbol.

Parameters

comm	commodity of entry if known
incoming_text	The text to filter
symbol	return the symbol used

Returns

The incoming text with symbol removed to be freed by the caller

Definition at line 2320 of file gnc-ui-util.c.

{
    if (!incoming_text)
    {
        *symbol = NULL;
        return NULL;
    }

    if (!gnc_commodity_is_currency (comm))
    {
        *symbol = NULL;
        return g_strdup (incoming_text);
    }

    if (comm)
        *symbol = gnc_commodity_get_nice_symbol (comm);
    else
        *symbol = gnc_commodity_get_nice_symbol (gnc_default_currency ());

    return gnc_filter_text_for_currency_symbol (incoming_text, *symbol);
}

gnc_filter_text_for_currency_symbol()

gchar* gnc_filter_text_for_currency_symbol	(	const gchar *	incoming_text,
		const gchar *	symbol
	)

Returns the incoming text removed of a currency symbol.

Parameters

incoming_text	The text to filter
symbol	to remove
cursor_position	the position of cursor in the incoming text

Returns

The incoming text with symbol removed to be freed by the caller

Definition at line 2296 of file gnc-ui-util.c.

{
    gchar *ret_text = NULL;
    gchar **split;

    if (!incoming_text)
        return NULL;

    if (!symbol)
       return g_strdup (incoming_text);

    if (g_strrstr (incoming_text, symbol) == NULL)
        return g_strdup (incoming_text);

    split = g_strsplit (incoming_text, symbol, -1);

    ret_text = g_strjoinv (NULL, split);

    g_strfreev (split);
    return ret_text;
}

gnc_filter_text_set_cursor_position()

void gnc_filter_text_set_cursor_position	(	const gchar *	incoming_text,
		const gchar *	symbol,
		gint *	cursor_position
	)

Updates cursor_position after removal of currency symbols.

Parameters

incoming_text	The text to filter
symbol	to remove
cursor_position	the position of cursor in the incoming text

Returns

nothing

Definition at line 2264 of file gnc-ui-util.c.

{
    gint text_len;
    gint num = 0;

    if (*cursor_position == 0)
        return;

    if (!incoming_text || !symbol)
        return;

    if (g_strrstr (incoming_text, symbol) == NULL)
        return;

    text_len = g_utf8_strlen (incoming_text, -1);

    for (gint x = 0; x < text_len; x++)
    {
        gchar *temp = g_utf8_offset_to_pointer (incoming_text, x);

        if (g_str_has_prefix (temp, symbol))
            num++;

        if (g_strrstr (temp, symbol) == NULL)
            break;
    }
    *cursor_position = *cursor_position - (num * g_utf8_strlen (symbol, -1));
}

gnc_get_account_name_for_register()

gchar* gnc_get_account_name_for_register

(

const Account *

account

)

Get either the full name of the account or the simple name, depending on the configuration parameter general/register/show_leaf_account_names.

Parameters

account

The account to retrieve the name for.

Returns

A newly allocated string.

Definition at line 446 of file gnc-ui-util.c.

{
    gboolean show_leaf_accounts;
    show_leaf_accounts = gnc_prefs_get_bool(GNC_PREFS_GROUP_GENERAL_REGISTER,
                                            GNC_PREF_SHOW_LEAF_ACCT_NAMES);

    return gnc_get_account_name_for_split_register(account, show_leaf_accounts);
}

gnc_get_account_name_for_split_register()

gchar* gnc_get_account_name_for_split_register	(	const Account *	account,
		gboolean	show_leaf_accounts
	)

Get either the full name of the account or the simple name, depending on the show_leaf_accounts.

Parameters

account	The account to retrieve the name for.
show_leaf_accounts	Whether the full name will be returned.

Returns

A newly allocated string.

Definition at line 437 of file gnc-ui-util.c.

{
    if (show_leaf_accounts)
        return g_strdup (xaccAccountGetName (account));
    else
        return gnc_account_get_full_name (account);
}

gnc_get_doclink_flag_order()

const char* gnc_get_doclink_flag_order

(

void

)

Get a string containing document link flag order.

Returns

a string containing the document link flag change order

Definition at line 548 of file gnc-ui-util.c.

{
    static const char flags[] = { FLINK, WLINK, ' ', 0 };
    return flags;
}

gnc_get_doclink_str()

const char* gnc_get_doclink_str

(

char

link_flag

)

Get a string representing the document link type.

Parameters

link_flag

The flag to convert into a string

Returns

the i18n'd doclink string

Definition at line 524 of file gnc-ui-util.c.

{
    switch (link_flag)
    {
    case WLINK:
        return C_("Document Link flag for 'web'", "w");
    case FLINK:
        return C_("Document Link flag for 'file'", "f");
    case ' ':
        return " ";
    default:
        PERR("Bad link flag");
        return NULL;
    }
}

gnc_get_doclink_valid_flags()

const char* gnc_get_doclink_valid_flags

(

void

)

Get a string containing documentation link valid flags.

Returns

a string containing the list of valid link_flags

Definition at line 541 of file gnc-ui-util.c.

{
    static const char flags[] = { FLINK, WLINK, ' ', 0 };
    return flags;
}

gnc_locale_default_currency()

gnc_commodity* gnc_locale_default_currency

(

void

)

Returns the default currency of the current locale.

WATCH OUT: If no currency could be identified from the locale, this one returns "USD", but this will have nothing to do with the actual locale.

Definition at line 759 of file gnc-ui-util.c.

{
    gnc_commodity * currency = gnc_locale_default_currency_nodefault ();

    return (currency ? currency :
            gnc_commodity_table_lookup (gnc_get_current_commodities (),
                                        GNC_COMMODITY_NS_CURRENCY, "USD"));
}

gnc_locale_default_currency_nodefault()

gnc_commodity* gnc_locale_default_currency_nodefault

(

void

)

Returns the default currency of the current locale, or NULL if no sensible currency could be identified from the locale.

Definition at line 744 of file gnc-ui-util.c.

{
    gnc_commodity * currency;
    gnc_commodity_table *table;
    const char *code;

    table = gnc_get_current_commodities ();
    code = gnc_locale_default_iso_currency_code ();

    currency = gnc_commodity_table_lookup (table, GNC_COMMODITY_NS_CURRENCY, code);

    return (currency ? currency : NULL);
}

gnc_print_amount_with_bidi_ltr_isolate()

const char* gnc_print_amount_with_bidi_ltr_isolate	(	gnc_numeric	val,
		GNCPrintAmountInfo	info
	)

Make a string representation of a gnc_numeric.

Warning, the gnc_numeric is not checked for validity and the returned char* may point to random garbage.

This is the same as xaccPrintAmount but wraps the output with BiDi left to right isolate if a symbol is displayed.

Definition at line 1481 of file gnc-ui-util.c.

{
    /* hack alert -- this is not thread safe ... */
    static char buf[BUFLEN];
    static const char ltr_isolate[] = { 0xe2, 0x81, 0xa6 };
    static const char ltr_pop_isolate[] = { 0xe2, 0x81, 0xa9 };
    size_t offset = info.use_symbol ? 3 : 0;

    if (!gnc_commodity_is_currency (info.commodity))
        offset = 0;

    memset (buf, 0, BUFLEN);
    if (!xaccSPrintAmount (buf + offset, val, info))
    {
        buf[0] = '\0';
        return buf;
    };

    if (offset == 0)
        return buf;

    memcpy (buf, ltr_isolate, 3);

    if (buf[BUFLEN - 4] == '\0')
    {
        size_t length = strlen (buf);
        memcpy (buf + length, ltr_pop_isolate, 3);
    }
    else
    {
        buf[BUFLEN - 1] = '\0';
        memcpy (buf + BUFLEN - 4, ltr_pop_isolate, 3);

        PWARN("buffer length %d exceeded, string truncated was %s", BUFLEN, buf);
    }
    /* its OK to return buf, since we declared it static
       and is immediately g_strdup'd */
    return buf;
}

gnc_wrap_text_with_bidi_ltr_isolate()

gchar* gnc_wrap_text_with_bidi_ltr_isolate

(

const char *

text

)

This function helps with GTK's use of 'Unicode Bidirectional Text Algorithm'.

To keep the format of the text, this function wraps the text with a BiDi isolate charatcter and a BiDi closing character.

This helps with monetary values in RTL languages that display the currency symbol.

xaccParseAmount()

gboolean xaccParseAmount	(	const char *	in_str,
		gboolean	monetary,
		gnc_numeric *	result,
		char **	endstr
	)

Parses in_str to obtain a numeric result.

The routine will parse as much of in_str as it can to obtain a single number. The number is parsed using the current locale information and the 'monetary' flag. The routine will return TRUE if it successfully parsed a number and FALSE otherwise. If TRUE is returned and result is non-NULL, the value of the parsed number is stored in *result. If FALSE is returned, *result is unchanged. If TRUE is returned and endstr is non-NULL, the location of the first character in in_str not used by the parser will be returned in *endstr. If FALSE is returned and endstr is non-NULL, *endstr will point to in_str.

Definition at line 2060 of file gnc-ui-util.c.

{
    return xaccParseAmountBasicInternal (in_str, monetary, auto_decimal_enabled,
                                         result, endstr, FALSE);
}

xaccParseAmountExtended()

gboolean xaccParseAmountExtended	(	const char *	in_str,
		gboolean	monetary,
		gunichar	negative_sign,
		gunichar	decimal_point,
		gunichar	group_separator,
		const char *	ignore_list,
		gnc_numeric *	result,
		char **	endstr
	)

Converts a string to a gnc_numeric.

The caller must provide all the locale-specific information.

ignore_list is a list of characters that are completely ignored while processing the input string. If ignore_list is NULL, nothing is ignored.

Definition at line 2078 of file gnc-ui-util.c.

{
    return xaccParseAmountInternal (in_str, monetary, negative_sign,
                                    decimal_point, group_separator,
                                    ignore_list, auto_decimal_enabled,
                                    result, endstr);
}

xaccParseAmountExtImport()

gboolean xaccParseAmountExtImport	(	const char *	in_str,
		gboolean	monetary,
		gunichar	negative_sign,
		gunichar	decimal_point,
		gunichar	group_separator,
		const char *	ignore_list,
		gnc_numeric *	result,
		char **	endstr
	)

Similar to xaccParseAmountExtended, but will not automatically set a decimal point, regardless of what the user has set for this option.

Primarily meant for cases where numbers are coming into gnucash that are not typed in by the user (like via csv import).

Definition at line 2090 of file gnc-ui-util.c.

{
    return xaccParseAmountInternal (in_str, monetary, negative_sign,
                                    decimal_point, group_separator,
                                    ignore_list, FALSE,
                                    result, endstr);
}

xaccParseAmountImport()

gboolean xaccParseAmountImport	(	const char *	in_str,
		gboolean	monetary,
		gnc_numeric *	result,
		char **	endstr,
		gboolean	skip
	)

Similar to xaccParseAmount, but with two differences.

• it exposes a flag to indicate whether the locale's positive sign (or in absence the '+') character is ignored. Setting skip to TRUE will cause the function to ignore any positive sign. Setting it to FALSE, and positive signs will be treated as unrecognized characters. xaccParseAmount will run as if skip is FALSE for compatibility reasons (gnc-expression-parser depends on this behaviour).
• The other important difference with xaccParseAmount is that this function will never apply automatic decimal point logc, whereas xaccParseAmount will follow the automatic decimal point preference as set by the user.

Definition at line 2068 of file gnc-ui-util.c.

{
    return xaccParseAmountBasicInternal (in_str, monetary, FALSE,
                                         result, endstr, skip);
}

xaccPrintAmount()

const char* xaccPrintAmount	(	gnc_numeric	val,
		GNCPrintAmountInfo	info
	)

Make a string representation of a gnc_numeric.

Warning, the gnc_numeric is not checked for validity and the returned char* may point to random garbage.

Definition at line 1468 of file gnc-ui-util.c.

{
    /* hack alert -- this is not thread safe ... */
    static char buf[BUFLEN];

    if (!xaccSPrintAmount (buf, val, info))
        buf[0] = '\0';

    /* its OK to return buf, since we declared it static */
    return buf;
}

xaccSPrintAmount()

int xaccSPrintAmount	(	char *	bufp,
		gnc_numeric	val,
		GNCPrintAmountInfo	info
	)

Make a string representation of a gnc_numeric.

Warning, the gnc_numeric is not checked for validity and the contents of the buffer will be unchanged. It is up to the calling function to ensure that buf is large enough for the results.

Parameters

bufp	Should be at least 64 chars.

Definition at line 1337 of file gnc-ui-util.c.

{
    struct lconv *lc;

    char *orig_bufp = bufp;
    const char *currency_symbol;
    const char *sign;

    char cs_precedes;
    char sep_by_space;
    char sign_posn;

    gboolean print_sign = TRUE;
    gboolean print_absolute = FALSE;

    if (!bufp)
        return 0;

    lc = gnc_localeconv();
    if (info.use_locale)
        if (gnc_numeric_negative_p (val))
        {
            cs_precedes  = lc->n_cs_precedes;
            sep_by_space = lc->n_sep_by_space;
        }
        else
        {
            cs_precedes  = lc->p_cs_precedes;
            sep_by_space = lc->p_sep_by_space;
        }
    else
    {
        cs_precedes = TRUE;
        sep_by_space = TRUE;
    }

    if (info.commodity && info.use_symbol)
    {
        currency_symbol = gnc_commodity_get_nice_symbol (info.commodity);
        if (!gnc_commodity_is_iso (info.commodity))
        {
            cs_precedes  = FALSE;
            sep_by_space = TRUE;
        }
    }
    else /* !info.use_symbol || !info.commodity */
        currency_symbol = "";

    if (gnc_numeric_negative_p (val))
    {
        sign = lc->negative_sign;
        sign_posn = lc->n_sign_posn;
    }
    else
    {
        sign = lc->positive_sign;
        sign_posn = lc->p_sign_posn;
    }

    if (gnc_numeric_zero_p (val) || (sign == NULL) || (sign[0] == 0))
        print_sign = FALSE;

    /* See if we print sign now */
    if (print_sign && (sign_posn == 1))
        bufp = g_stpcpy(bufp, sign);

    /* Now see if we print currency */
    if (cs_precedes)
    {
        /* See if we print sign now */
        if (print_sign && (sign_posn == 3))
            bufp = g_stpcpy(bufp, sign);

        if (info.use_symbol)
        {
            bufp = g_stpcpy(bufp, currency_symbol);
            if (sep_by_space)
                bufp = g_stpcpy(bufp, " ");
        }

        /* See if we print sign now */
        if (print_sign && (sign_posn == 4))
            bufp = g_stpcpy(bufp, sign);
    }

    /* Now see if we print parentheses */
    if (print_sign && (sign_posn == 0))
    {
        bufp = g_stpcpy(bufp, "(");
        print_absolute = TRUE;
    }

    /* Now print the value */
    bufp += PrintAmountInternal(bufp,
                                print_absolute ? gnc_numeric_abs(val) : val,
                                &info);

    /* Now see if we print parentheses */
    if (print_sign && (sign_posn == 0))
        bufp = g_stpcpy(bufp, ")");

    /* Now see if we print currency */
    if (!cs_precedes)
    {
        /* See if we print sign now */
        if (print_sign && (sign_posn == 3))
            bufp = g_stpcpy(bufp, sign);

        if (info.use_symbol)
        {
            if (sep_by_space)
                bufp = g_stpcpy(bufp, " ");
            bufp = g_stpcpy(bufp, currency_symbol);
        }

        /* See if we print sign now */
        if (print_sign && (sign_posn == 4))
            bufp = g_stpcpy(bufp, sign);
    }

    /* See if we print sign now */
    if (print_sign && (sign_posn == 2))
        bufp = g_stpcpy(bufp, sign);

    /* return length of printed string */
    return (bufp - orig_bufp);
}