home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / Programming / Python2 / Python20_source / Python / codecs.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-10-25  |  10.0 KB  |  437 lines
  1. /* ------------------------------------------------------------------------
  2.  
  3.    Python Codec Registry and support functions
  4.  
  5. Written by Marc-Andre Lemburg (mal@lemburg.com).
  6.  
  7. Copyright (c) Corporation for National Research Initiatives.
  8.  
  9.    ------------------------------------------------------------------------ */
  10.  
  11. #include "Python.h"
  12. #include <ctype.h>
  13.  
  14. /* --- Globals ------------------------------------------------------------ */
  15.  
  16. static PyObject *_PyCodec_SearchPath;
  17. static PyObject *_PyCodec_SearchCache;
  18.  
  19. /* Flag used for lazy import of the standard encodings package */
  20. static int import_encodings_called = 0;
  21.  
  22. /* --- Codec Registry ----------------------------------------------------- */
  23.  
  24. /* Import the standard encodings package which will register the first
  25.    codec search function. 
  26.  
  27.    This is done in a lazy way so that the Unicode implementation does
  28.    not downgrade startup time of scripts not needing it.
  29.  
  30.    ImportErrors are silently ignored by this function. Only one try is
  31.    made.
  32.  
  33. */
  34.  
  35. static
  36. int import_encodings(void)
  37. {
  38.     PyObject *mod;
  39.     
  40.     import_encodings_called = 1;
  41.     mod = PyImport_ImportModule("encodings");
  42.     if (mod == NULL) {
  43.     if (PyErr_ExceptionMatches(PyExc_ImportError)) {
  44.         /* Ignore ImportErrors... this is done so that
  45.            distributions can disable the encodings package. Note
  46.            that other errors are not masked, e.g. SystemErrors
  47.            raised to inform the user of an error in the Python
  48.            configuration are still reported back to the user. */
  49.         PyErr_Clear();
  50.         return 0;
  51.     }
  52.     return -1;
  53.     }
  54.     Py_DECREF(mod);
  55.     return 0;
  56. }
  57.  
  58. int PyCodec_Register(PyObject *search_function)
  59. {
  60.     if (!import_encodings_called) {
  61.     if (import_encodings())
  62.         goto onError;
  63.     }
  64.     if (search_function == NULL) {
  65.     PyErr_BadArgument();
  66.     goto onError;
  67.     }
  68.     if (!PyCallable_Check(search_function)) {
  69.     PyErr_SetString(PyExc_TypeError,
  70.             "argument must be callable");
  71.     goto onError;
  72.     }
  73.     return PyList_Append(_PyCodec_SearchPath, search_function);
  74.  
  75.  onError:
  76.     return -1;
  77. }
  78.  
  79. /* Convert a string to a normalized Python string: all characters are
  80.    converted to lower case, spaces are replaced with underscores. */
  81.  
  82. static
  83. PyObject *normalizestring(const char *string)
  84. {
  85.     register size_t i;
  86.     size_t len = strlen(string);
  87.     char *p;
  88.     PyObject *v;
  89.     
  90.     if (len > INT_MAX) {
  91.         PyErr_SetString(PyExc_OverflowError, "string is too large");
  92.         return NULL;
  93.     }
  94.     
  95.     v = PyString_FromStringAndSize(NULL, (int)len);
  96.     if (v == NULL)
  97.     return NULL;
  98.     p = PyString_AS_STRING(v);
  99.     for (i = 0; i < len; i++) {
  100.         register char ch = string[i];
  101.         if (ch == ' ')
  102.             ch = '-';
  103.         else
  104.             ch = tolower(ch);
  105.     p[i] = ch;
  106.     }
  107.     return v;
  108. }
  109.  
  110. /* Lookup the given encoding and return a tuple providing the codec
  111.    facilities.
  112.  
  113.    The encoding string is looked up converted to all lower-case
  114.    characters. This makes encodings looked up through this mechanism
  115.    effectively case-insensitive.
  116.  
  117.    If no codec is found, a LookupError is set and NULL returned. 
  118.  
  119.    As side effect, this tries to load the encodings package, if not
  120.    yet done. This is part of the lazy load strategy for the encodings
  121.    package.
  122.  
  123. */
  124.  
  125. PyObject *_PyCodec_Lookup(const char *encoding)
  126. {
  127.     PyObject *result, *args = NULL, *v;
  128.     int i, len;
  129.  
  130.     if (encoding == NULL) {
  131.     PyErr_BadArgument();
  132.     goto onError;
  133.     }
  134.     if (_PyCodec_SearchCache == NULL || 
  135.     _PyCodec_SearchPath == NULL) {
  136.     PyErr_SetString(PyExc_SystemError,
  137.             "codec module not properly initialized");
  138.     goto onError;
  139.     }
  140.     if (!import_encodings_called) {
  141.     if (import_encodings())
  142.         goto onError;
  143.     }
  144.  
  145.     /* Convert the encoding to a normalized Python string: all
  146.        characters are converted to lower case, spaces and hyphens are
  147.        replaced with underscores. */
  148.     v = normalizestring(encoding);
  149.     if (v == NULL)
  150.     goto onError;
  151.     PyString_InternInPlace(&v);
  152.  
  153.     /* First, try to lookup the name in the registry dictionary */
  154.     result = PyDict_GetItem(_PyCodec_SearchCache, v);
  155.     if (result != NULL) {
  156.     Py_INCREF(result);
  157.     Py_DECREF(v);
  158.     return result;
  159.     }
  160.     
  161.     /* Next, scan the search functions in order of registration */
  162.     args = PyTuple_New(1);
  163.     if (args == NULL)
  164.     goto onError;
  165.     PyTuple_SET_ITEM(args,0,v);
  166.  
  167.     len = PyList_Size(_PyCodec_SearchPath);
  168.     if (len < 0)
  169.     goto onError;
  170.     if (len == 0) {
  171.     PyErr_SetString(PyExc_LookupError,
  172.             "no codec search functions registered: "
  173.             "can't find encoding");
  174.     goto onError;
  175.     }
  176.  
  177.     for (i = 0; i < len; i++) {
  178.     PyObject *func;
  179.     
  180.     func = PyList_GetItem(_PyCodec_SearchPath, i);
  181.     if (func == NULL)
  182.         goto onError;
  183.     result = PyEval_CallObject(func, args);
  184.     if (result == NULL)
  185.         goto onError;
  186.     if (result == Py_None) {
  187.         Py_DECREF(result);
  188.         continue;
  189.     }
  190.     if (!PyTuple_Check(result) || PyTuple_GET_SIZE(result) != 4) {
  191.         PyErr_SetString(PyExc_TypeError,
  192.                 "codec search functions must return 4-tuples");
  193.         Py_DECREF(result);
  194.         goto onError;
  195.     }
  196.     break;
  197.     }
  198.     if (i == len) {
  199.     /* XXX Perhaps we should cache misses too ? */
  200.     PyErr_SetString(PyExc_LookupError,
  201.             "unknown encoding");
  202.     goto onError;
  203.     }
  204.  
  205.     /* Cache and return the result */
  206.     PyDict_SetItem(_PyCodec_SearchCache, v, result);
  207.     Py_DECREF(args);
  208.     return result;
  209.  
  210.  onError:
  211.     Py_XDECREF(args);
  212.     return NULL;
  213. }
  214.  
  215. static
  216. PyObject *args_tuple(PyObject *object,
  217.              const char *errors)
  218. {
  219.     PyObject *args;
  220.     
  221.     args = PyTuple_New(1 + (errors != NULL));
  222.     if (args == NULL)
  223.     return NULL;
  224.     Py_INCREF(object);
  225.     PyTuple_SET_ITEM(args,0,object);
  226.     if (errors) {
  227.     PyObject *v;
  228.     
  229.     v = PyString_FromString(errors);
  230.     if (v == NULL) {
  231.         Py_DECREF(args);
  232.         return NULL;
  233.     }
  234.     PyTuple_SET_ITEM(args, 1, v);
  235.     }
  236.     return args;
  237. }
  238.  
  239. /* Build a codec by calling factory(stream[,errors]) or just
  240.    factory(errors) depending on whether the given parameters are
  241.    non-NULL. */
  242.  
  243. static
  244. PyObject *build_stream_codec(PyObject *factory,
  245.                  PyObject *stream,
  246.                  const char *errors)
  247. {
  248.     PyObject *args, *codec;
  249.  
  250.     args = args_tuple(stream, errors);
  251.     if (args == NULL)
  252.     return NULL;
  253.     
  254.     codec = PyEval_CallObject(factory, args);
  255.     Py_DECREF(args);
  256.     return codec;
  257. }
  258.  
  259. /* Convenience APIs to query the Codec registry. 
  260.    
  261.    All APIs return a codec object with incremented refcount.
  262.    
  263.  */
  264.  
  265. PyObject *PyCodec_Encoder(const char *encoding)
  266. {
  267.     PyObject *codecs;
  268.     PyObject *v;
  269.  
  270.     codecs = _PyCodec_Lookup(encoding);
  271.     if (codecs == NULL)
  272.     goto onError;
  273.     v = PyTuple_GET_ITEM(codecs,0);
  274.     Py_INCREF(v);
  275.     return v;
  276.  
  277.  onError:
  278.     return NULL;
  279. }
  280.  
  281. PyObject *PyCodec_Decoder(const char *encoding)
  282. {
  283.     PyObject *codecs;
  284.     PyObject *v;
  285.  
  286.     codecs = _PyCodec_Lookup(encoding);
  287.     if (codecs == NULL)
  288.     goto onError;
  289.     v = PyTuple_GET_ITEM(codecs,1);
  290.     Py_INCREF(v);
  291.     return v;
  292.  
  293.  onError:
  294.     return NULL;
  295. }
  296.  
  297. PyObject *PyCodec_StreamReader(const char *encoding,
  298.                    PyObject *stream,
  299.                    const char *errors)
  300. {
  301.     PyObject *codecs;
  302.  
  303.     codecs = _PyCodec_Lookup(encoding);
  304.     if (codecs == NULL)
  305.     goto onError;
  306.     return build_stream_codec(PyTuple_GET_ITEM(codecs,2),stream,errors);
  307.  
  308.  onError:
  309.     return NULL;
  310. }
  311.  
  312. PyObject *PyCodec_StreamWriter(const char *encoding,
  313.                    PyObject *stream,
  314.                    const char *errors)
  315. {
  316.     PyObject *codecs;
  317.  
  318.     codecs = _PyCodec_Lookup(encoding);
  319.     if (codecs == NULL)
  320.     goto onError;
  321.     return build_stream_codec(PyTuple_GET_ITEM(codecs,3),stream,errors);
  322.  
  323.  onError:
  324.     return NULL;
  325. }
  326.  
  327. /* Encode an object (e.g. an Unicode object) using the given encoding
  328.    and return the resulting encoded object (usually a Python string).
  329.  
  330.    errors is passed to the encoder factory as argument if non-NULL. */
  331.  
  332. PyObject *PyCodec_Encode(PyObject *object,
  333.              const char *encoding,
  334.              const char *errors)
  335. {
  336.     PyObject *encoder = NULL;
  337.     PyObject *args = NULL, *result;
  338.     PyObject *v;
  339.  
  340.     encoder = PyCodec_Encoder(encoding);
  341.     if (encoder == NULL)
  342.     goto onError;
  343.  
  344.     args = args_tuple(object, errors);
  345.     if (args == NULL)
  346.     goto onError;
  347.     
  348.     result = PyEval_CallObject(encoder,args);
  349.     if (result == NULL)
  350.     goto onError;
  351.  
  352.     if (!PyTuple_Check(result) || 
  353.     PyTuple_GET_SIZE(result) != 2) {
  354.     PyErr_SetString(PyExc_TypeError,
  355.             "encoder must return a tuple (object,integer)");
  356.     goto onError;
  357.     }
  358.     v = PyTuple_GET_ITEM(result,0);
  359.     Py_INCREF(v);
  360.     /* We don't check or use the second (integer) entry. */
  361.  
  362.     Py_DECREF(args);
  363.     Py_DECREF(encoder);
  364.     Py_DECREF(result);
  365.     return v;
  366.     
  367.  onError:
  368.     Py_XDECREF(args);
  369.     Py_XDECREF(encoder);
  370.     return NULL;
  371. }
  372.  
  373. /* Decode an object (usually a Python string) using the given encoding
  374.    and return an equivalent object (e.g. an Unicode object).
  375.  
  376.    errors is passed to the decoder factory as argument if non-NULL. */
  377.  
  378. PyObject *PyCodec_Decode(PyObject *object,
  379.              const char *encoding,
  380.              const char *errors)
  381. {
  382.     PyObject *decoder = NULL;
  383.     PyObject *args = NULL, *result = NULL;
  384.     PyObject *v;
  385.  
  386.     decoder = PyCodec_Decoder(encoding);
  387.     if (decoder == NULL)
  388.     goto onError;
  389.  
  390.     args = args_tuple(object, errors);
  391.     if (args == NULL)
  392.     goto onError;
  393.     
  394.     result = PyEval_CallObject(decoder,args);
  395.     if (result == NULL)
  396.     goto onError;
  397.     if (!PyTuple_Check(result) || 
  398.     PyTuple_GET_SIZE(result) != 2) {
  399.     PyErr_SetString(PyExc_TypeError,
  400.             "decoder must return a tuple (object,integer)");
  401.     goto onError;
  402.     }
  403.     v = PyTuple_GET_ITEM(result,0);
  404.     Py_INCREF(v);
  405.     /* We don't check or use the second (integer) entry. */
  406.  
  407.     Py_DECREF(args);
  408.     Py_DECREF(decoder);
  409.     Py_DECREF(result);
  410.     return v;
  411.     
  412.  onError:
  413.     Py_XDECREF(args);
  414.     Py_XDECREF(decoder);
  415.     Py_XDECREF(result);
  416.     return NULL;
  417. }
  418.  
  419. void _PyCodecRegistry_Init(void)
  420. {
  421.     if (_PyCodec_SearchPath == NULL)
  422.     _PyCodec_SearchPath = PyList_New(0);
  423.     if (_PyCodec_SearchCache == NULL)
  424.     _PyCodec_SearchCache = PyDict_New();
  425.     if (_PyCodec_SearchPath == NULL || 
  426.     _PyCodec_SearchCache == NULL)
  427.     Py_FatalError("can't initialize codec registry");
  428. }
  429.  
  430. void _PyCodecRegistry_Fini(void)
  431. {
  432.     Py_XDECREF(_PyCodec_SearchPath);
  433.     _PyCodec_SearchPath = NULL;
  434.     Py_XDECREF(_PyCodec_SearchCache);
  435.     _PyCodec_SearchCache = NULL;
  436. }
  437.