Roll libxslt to ac341cbd792ee572941cc9a66e73800219a1a386

third_party/libxslt/libxslt/functions.c

 /*
  * functions.c: Implementation of the XSLT extra functions
  *
  * Reference:
  *   http://www.w3.org/TR/1999/REC-xslt-19991116
  *
  * See Copyright for the status of this software.
  *
  * daniel@veillard.com
  * Bjorn Reese <breese@users.sourceforge.net> for number formatting
@@ skipping 585 matching lines @@
  * Implement the format-number() XSLT function
  *   string format-number(number, string, string?)
  */
 void
 xsltFormatNumberFunction(xmlXPathParserContextPtr ctxt, int nargs)
 {
     xmlXPathObjectPtr numberObj = NULL;
     xmlXPathObjectPtr formatObj = NULL;
     xmlXPathObjectPtr decimalObj = NULL;
     xsltStylesheetPtr sheet;
-    xsltDecimalFormatPtr formatValues;
+    xsltDecimalFormatPtr formatValues = NULL;
     xmlChar *result;
+    const xmlChar *ncname;
+    const xmlChar *prefix = NULL;
+    const xmlChar *nsUri = NULL;
     xsltTransformContextPtr tctxt;
 
     tctxt = xsltXPathGetTransformContext(ctxt);
-    if (tctxt == NULL)
+    if ((tctxt == NULL) || (tctxt->inst == NULL))
         return;
     sheet = tctxt->style;
     if (sheet == NULL)
         return;
     formatValues = sheet->decimalFormat;
 
     switch (nargs) {
     case 3:
         CAST_TO_STRING;
         decimalObj = valuePop(ctxt);
-        formatValues = xsltDecimalFormatGetByName(sheet, decimalObj->stringval);
+        ncname = xsltSplitQName(sheet->dict, decimalObj->stringval, &prefix);
+        if (prefix != NULL) {
+            xmlNsPtr ns = xmlSearchNs(tctxt->inst->doc, tctxt->inst, prefix);
+            if (ns == NULL) {
+                xsltTransformError(tctxt, NULL, NULL,
+                    "format-number : No namespace found for QName '%s:%s'\n",
+                    prefix, ncname);
+                sheet->errors++;
+                ncname = NULL;
+            }
+            nsUri = ns->href;
+        }
+        if (ncname != NULL) {
+            formatValues = xsltDecimalFormatGetByQName(sheet, nsUri, ncname);
+        }
         if (formatValues == NULL) {
             xsltTransformError(tctxt, NULL, NULL,
                     "format-number() : undeclared decimal format '%s'\n",
                     decimalObj->stringval);
         }
         /* Intentional fall-through */
     case 2:
         CAST_TO_STRING;
         formatObj = valuePop(ctxt);
         CAST_TO_NUMBER;
@@ skipping 346 matching lines @@
                          xsltFormatNumberFunction);
     xmlXPathRegisterFunc(ctxt, (const xmlChar *) "generate-id",
                          xsltGenerateIdFunction);
     xmlXPathRegisterFunc(ctxt, (const xmlChar *) "system-property",
                          xsltSystemPropertyFunction);
     xmlXPathRegisterFunc(ctxt, (const xmlChar *) "element-available",
                          xsltElementAvailableFunction);
     xmlXPathRegisterFunc(ctxt, (const xmlChar *) "function-available",
                          xsltFunctionAvailableFunction);
 }