added libimago
[eradicate] / libs / imago / libpng / pngmem.c
diff --git a/libs/imago/libpng/pngmem.c b/libs/imago/libpng/pngmem.c
new file mode 100644 (file)
index 0000000..afa3b77
--- /dev/null
@@ -0,0 +1,609 @@
+\r
+/* pngmem.c - stub functions for memory allocation\r
+ *\r
+ * Last changed in libpng 1.2.30 [August 15, 2008]\r
+ * For conditions of distribution and use, see copyright notice in png.h\r
+ * Copyright (c) 1998-2008 Glenn Randers-Pehrson\r
+ * (Version 0.96 Copyright (c) 1996, 1997 Andreas Dilger)\r
+ * (Version 0.88 Copyright (c) 1995, 1996 Guy Eric Schalnat, Group 42, Inc.)\r
+ *\r
+ * This file provides a location for all memory allocation.  Users who\r
+ * need special memory handling are expected to supply replacement\r
+ * functions for png_malloc() and png_free(), and to use\r
+ * png_create_read_struct_2() and png_create_write_struct_2() to\r
+ * identify the replacement functions.\r
+ */\r
+\r
+#define PNG_INTERNAL\r
+#include "png.h"\r
+#if defined(PNG_READ_SUPPORTED) || defined(PNG_WRITE_SUPPORTED)\r
+\r
+/* Borland DOS special memory handler */\r
+#if defined(__TURBOC__) && !defined(_Windows) && !defined(__FLAT__)\r
+/* if you change this, be sure to change the one in png.h also */\r
+\r
+/* Allocate memory for a png_struct.  The malloc and memset can be replaced\r
+   by a single call to calloc() if this is thought to improve performance. */\r
+png_voidp /* PRIVATE */\r
+png_create_struct(int type)\r
+{\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   return (png_create_struct_2(type, png_malloc_ptr_NULL, png_voidp_NULL));\r
+}\r
+\r
+/* Alternate version of png_create_struct, for use with user-defined malloc. */\r
+png_voidp /* PRIVATE */\r
+png_create_struct_2(int type, png_malloc_ptr malloc_fn, png_voidp mem_ptr)\r
+{\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+   png_size_t size;\r
+   png_voidp struct_ptr;\r
+\r
+   if (type == PNG_STRUCT_INFO)\r
+     size = png_sizeof(png_info);\r
+   else if (type == PNG_STRUCT_PNG)\r
+     size = png_sizeof(png_struct);\r
+   else\r
+     return (png_get_copyright(NULL));\r
+\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   if (malloc_fn != NULL)\r
+   {\r
+      png_struct dummy_struct;\r
+      png_structp png_ptr = &dummy_struct;\r
+      png_ptr->mem_ptr=mem_ptr;\r
+      struct_ptr = (*(malloc_fn))(png_ptr, (png_uint_32)size);\r
+   }\r
+   else\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+      struct_ptr = (png_voidp)farmalloc(size);\r
+   if (struct_ptr != NULL)\r
+      png_memset(struct_ptr, 0, size);\r
+   return (struct_ptr);\r
+}\r
+\r
+/* Free memory allocated by a png_create_struct() call */\r
+void /* PRIVATE */\r
+png_destroy_struct(png_voidp struct_ptr)\r
+{\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   png_destroy_struct_2(struct_ptr, png_free_ptr_NULL, png_voidp_NULL);\r
+}\r
+\r
+/* Free memory allocated by a png_create_struct() call */\r
+void /* PRIVATE */\r
+png_destroy_struct_2(png_voidp struct_ptr, png_free_ptr free_fn,\r
+    png_voidp mem_ptr)\r
+{\r
+#endif\r
+   if (struct_ptr != NULL)\r
+   {\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+      if (free_fn != NULL)\r
+      {\r
+         png_struct dummy_struct;\r
+         png_structp png_ptr = &dummy_struct;\r
+         png_ptr->mem_ptr=mem_ptr;\r
+         (*(free_fn))(png_ptr, struct_ptr);\r
+         return;\r
+      }\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+      farfree (struct_ptr);\r
+   }\r
+}\r
+\r
+/* Allocate memory.  For reasonable files, size should never exceed\r
+ * 64K.  However, zlib may allocate more then 64K if you don't tell\r
+ * it not to.  See zconf.h and png.h for more information. zlib does\r
+ * need to allocate exactly 64K, so whatever you call here must\r
+ * have the ability to do that.\r
+ *\r
+ * Borland seems to have a problem in DOS mode for exactly 64K.\r
+ * It gives you a segment with an offset of 8 (perhaps to store its\r
+ * memory stuff).  zlib doesn't like this at all, so we have to\r
+ * detect and deal with it.  This code should not be needed in\r
+ * Windows or OS/2 modes, and only in 16 bit mode.  This code has\r
+ * been updated by Alexander Lehmann for version 0.89 to waste less\r
+ * memory.\r
+ *\r
+ * Note that we can't use png_size_t for the "size" declaration,\r
+ * since on some systems a png_size_t is a 16-bit quantity, and as a\r
+ * result, we would be truncating potentially larger memory requests\r
+ * (which should cause a fatal error) and introducing major problems.\r
+ */\r
+\r
+png_voidp PNGAPI\r
+png_malloc(png_structp png_ptr, png_uint_32 size)\r
+{\r
+   png_voidp ret;\r
+\r
+   if (png_ptr == NULL || size == 0)\r
+      return (NULL);\r
+\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   if (png_ptr->malloc_fn != NULL)\r
+       ret = ((png_voidp)(*(png_ptr->malloc_fn))(png_ptr, (png_size_t)size));\r
+   else\r
+       ret = (png_malloc_default(png_ptr, size));\r
+   if (ret == NULL && (png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+       png_error(png_ptr, "Out of memory!");\r
+   return (ret);\r
+}\r
+\r
+png_voidp PNGAPI\r
+png_malloc_default(png_structp png_ptr, png_uint_32 size)\r
+{\r
+   png_voidp ret;\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+\r
+   if (png_ptr == NULL || size == 0)\r
+      return (NULL);\r
+\r
+#ifdef PNG_MAX_MALLOC_64K\r
+   if (size > (png_uint_32)65536L)\r
+   {\r
+      png_warning(png_ptr, "Cannot Allocate > 64K");\r
+      ret = NULL;\r
+   }\r
+   else\r
+#endif\r
+\r
+   if (size != (size_t)size)\r
+     ret = NULL;\r
+   else if (size == (png_uint_32)65536L)\r
+   {\r
+      if (png_ptr->offset_table == NULL)\r
+      {\r
+         /* try to see if we need to do any of this fancy stuff */\r
+         ret = farmalloc(size);\r
+         if (ret == NULL || ((png_size_t)ret & 0xffff))\r
+         {\r
+            int num_blocks;\r
+            png_uint_32 total_size;\r
+            png_bytep table;\r
+            int i;\r
+            png_byte huge * hptr;\r
+\r
+            if (ret != NULL)\r
+            {\r
+               farfree(ret);\r
+               ret = NULL;\r
+            }\r
+\r
+            if (png_ptr->zlib_window_bits > 14)\r
+               num_blocks = (int)(1 << (png_ptr->zlib_window_bits - 14));\r
+            else\r
+               num_blocks = 1;\r
+            if (png_ptr->zlib_mem_level >= 7)\r
+               num_blocks += (int)(1 << (png_ptr->zlib_mem_level - 7));\r
+            else\r
+               num_blocks++;\r
+\r
+            total_size = ((png_uint_32)65536L) * (png_uint_32)num_blocks+16;\r
+\r
+            table = farmalloc(total_size);\r
+\r
+            if (table == NULL)\r
+            {\r
+#ifndef PNG_USER_MEM_SUPPORTED\r
+               if ((png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+                  png_error(png_ptr, "Out Of Memory."); /* Note "O" and "M" */\r
+               else\r
+                  png_warning(png_ptr, "Out Of Memory.");\r
+#endif\r
+               return (NULL);\r
+            }\r
+\r
+            if ((png_size_t)table & 0xfff0)\r
+            {\r
+#ifndef PNG_USER_MEM_SUPPORTED\r
+               if ((png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+                  png_error(png_ptr,\r
+                    "Farmalloc didn't return normalized pointer");\r
+               else\r
+                  png_warning(png_ptr,\r
+                    "Farmalloc didn't return normalized pointer");\r
+#endif\r
+               return (NULL);\r
+            }\r
+\r
+            png_ptr->offset_table = table;\r
+            png_ptr->offset_table_ptr = farmalloc(num_blocks *\r
+               png_sizeof(png_bytep));\r
+\r
+            if (png_ptr->offset_table_ptr == NULL)\r
+            {\r
+#ifndef PNG_USER_MEM_SUPPORTED\r
+               if ((png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+                  png_error(png_ptr, "Out Of memory."); /* Note "O" and "M" */\r
+               else\r
+                  png_warning(png_ptr, "Out Of memory.");\r
+#endif\r
+               return (NULL);\r
+            }\r
+\r
+            hptr = (png_byte huge *)table;\r
+            if ((png_size_t)hptr & 0xf)\r
+            {\r
+               hptr = (png_byte huge *)((long)(hptr) & 0xfffffff0L);\r
+               hptr = hptr + 16L;  /* "hptr += 16L" fails on Turbo C++ 3.0 */\r
+            }\r
+            for (i = 0; i < num_blocks; i++)\r
+            {\r
+               png_ptr->offset_table_ptr[i] = (png_bytep)hptr;\r
+               hptr = hptr + (png_uint_32)65536L;  /* "+=" fails on TC++3.0 */\r
+            }\r
+\r
+            png_ptr->offset_table_number = num_blocks;\r
+            png_ptr->offset_table_count = 0;\r
+            png_ptr->offset_table_count_free = 0;\r
+         }\r
+      }\r
+\r
+      if (png_ptr->offset_table_count >= png_ptr->offset_table_number)\r
+      {\r
+#ifndef PNG_USER_MEM_SUPPORTED\r
+         if ((png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+            png_error(png_ptr, "Out of Memory."); /* Note "o" and "M" */\r
+         else\r
+            png_warning(png_ptr, "Out of Memory.");\r
+#endif\r
+         return (NULL);\r
+      }\r
+\r
+      ret = png_ptr->offset_table_ptr[png_ptr->offset_table_count++];\r
+   }\r
+   else\r
+      ret = farmalloc(size);\r
+\r
+#ifndef PNG_USER_MEM_SUPPORTED\r
+   if (ret == NULL)\r
+   {\r
+      if ((png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+         png_error(png_ptr, "Out of memory."); /* Note "o" and "m" */\r
+      else\r
+         png_warning(png_ptr, "Out of memory."); /* Note "o" and "m" */\r
+   }\r
+#endif\r
+\r
+   return (ret);\r
+}\r
+\r
+/* free a pointer allocated by png_malloc().  In the default\r
+   configuration, png_ptr is not used, but is passed in case it\r
+   is needed.  If ptr is NULL, return without taking any action. */\r
+\r
+void PNGAPI\r
+png_free(png_structp png_ptr, png_voidp ptr)\r
+{\r
+   if (png_ptr == NULL || ptr == NULL)\r
+      return;\r
+\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   if (png_ptr->free_fn != NULL)\r
+   {\r
+      (*(png_ptr->free_fn))(png_ptr, ptr);\r
+      return;\r
+   }\r
+   else png_free_default(png_ptr, ptr);\r
+}\r
+\r
+void PNGAPI\r
+png_free_default(png_structp png_ptr, png_voidp ptr)\r
+{\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+\r
+   if (png_ptr == NULL || ptr == NULL) return;\r
+\r
+   if (png_ptr->offset_table != NULL)\r
+   {\r
+      int i;\r
+\r
+      for (i = 0; i < png_ptr->offset_table_count; i++)\r
+      {\r
+         if (ptr == png_ptr->offset_table_ptr[i])\r
+         {\r
+            ptr = NULL;\r
+            png_ptr->offset_table_count_free++;\r
+            break;\r
+         }\r
+      }\r
+      if (png_ptr->offset_table_count_free == png_ptr->offset_table_count)\r
+      {\r
+         farfree(png_ptr->offset_table);\r
+         farfree(png_ptr->offset_table_ptr);\r
+         png_ptr->offset_table = NULL;\r
+         png_ptr->offset_table_ptr = NULL;\r
+      }\r
+   }\r
+\r
+   if (ptr != NULL)\r
+   {\r
+      farfree(ptr);\r
+   }\r
+}\r
+\r
+#else /* Not the Borland DOS special memory handler */\r
+\r
+/* Allocate memory for a png_struct or a png_info.  The malloc and\r
+   memset can be replaced by a single call to calloc() if this is thought\r
+   to improve performance noticably. */\r
+png_voidp /* PRIVATE */\r
+png_create_struct(int type)\r
+{\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   return (png_create_struct_2(type, png_malloc_ptr_NULL, png_voidp_NULL));\r
+}\r
+\r
+/* Allocate memory for a png_struct or a png_info.  The malloc and\r
+   memset can be replaced by a single call to calloc() if this is thought\r
+   to improve performance noticably. */\r
+png_voidp /* PRIVATE */\r
+png_create_struct_2(int type, png_malloc_ptr malloc_fn, png_voidp mem_ptr)\r
+{\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+   png_size_t size;\r
+   png_voidp struct_ptr;\r
+\r
+   if (type == PNG_STRUCT_INFO)\r
+      size = png_sizeof(png_info);\r
+   else if (type == PNG_STRUCT_PNG)\r
+      size = png_sizeof(png_struct);\r
+   else\r
+      return (NULL);\r
+\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   if (malloc_fn != NULL)\r
+   {\r
+      png_struct dummy_struct;\r
+      png_structp png_ptr = &dummy_struct;\r
+      png_ptr->mem_ptr=mem_ptr;\r
+      struct_ptr = (*(malloc_fn))(png_ptr, size);\r
+      if (struct_ptr != NULL)\r
+         png_memset(struct_ptr, 0, size);\r
+      return (struct_ptr);\r
+   }\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+\r
+#if defined(__TURBOC__) && !defined(__FLAT__)\r
+   struct_ptr = (png_voidp)farmalloc(size);\r
+#else\r
+# if defined(_MSC_VER) && defined(MAXSEG_64K)\r
+   struct_ptr = (png_voidp)halloc(size, 1);\r
+# else\r
+   struct_ptr = (png_voidp)malloc(size);\r
+# endif\r
+#endif\r
+   if (struct_ptr != NULL)\r
+      png_memset(struct_ptr, 0, size);\r
+\r
+   return (struct_ptr);\r
+}\r
+\r
+\r
+/* Free memory allocated by a png_create_struct() call */\r
+void /* PRIVATE */\r
+png_destroy_struct(png_voidp struct_ptr)\r
+{\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   png_destroy_struct_2(struct_ptr, png_free_ptr_NULL, png_voidp_NULL);\r
+}\r
+\r
+/* Free memory allocated by a png_create_struct() call */\r
+void /* PRIVATE */\r
+png_destroy_struct_2(png_voidp struct_ptr, png_free_ptr free_fn,\r
+    png_voidp mem_ptr)\r
+{\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+   if (struct_ptr != NULL)\r
+   {\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+      if (free_fn != NULL)\r
+      {\r
+         png_struct dummy_struct;\r
+         png_structp png_ptr = &dummy_struct;\r
+         png_ptr->mem_ptr=mem_ptr;\r
+         (*(free_fn))(png_ptr, struct_ptr);\r
+         return;\r
+      }\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+#if defined(__TURBOC__) && !defined(__FLAT__)\r
+      farfree(struct_ptr);\r
+#else\r
+# if defined(_MSC_VER) && defined(MAXSEG_64K)\r
+      hfree(struct_ptr);\r
+# else\r
+      free(struct_ptr);\r
+# endif\r
+#endif\r
+   }\r
+}\r
+\r
+/* Allocate memory.  For reasonable files, size should never exceed\r
+   64K.  However, zlib may allocate more then 64K if you don't tell\r
+   it not to.  See zconf.h and png.h for more information.  zlib does\r
+   need to allocate exactly 64K, so whatever you call here must\r
+   have the ability to do that. */\r
+\r
+png_voidp PNGAPI\r
+png_malloc(png_structp png_ptr, png_uint_32 size)\r
+{\r
+   png_voidp ret;\r
+\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   if (png_ptr == NULL || size == 0)\r
+      return (NULL);\r
+\r
+   if (png_ptr->malloc_fn != NULL)\r
+       ret = ((png_voidp)(*(png_ptr->malloc_fn))(png_ptr, (png_size_t)size));\r
+   else\r
+       ret = (png_malloc_default(png_ptr, size));\r
+   if (ret == NULL && (png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+       png_error(png_ptr, "Out of Memory!");\r
+   return (ret);\r
+}\r
+\r
+png_voidp PNGAPI\r
+png_malloc_default(png_structp png_ptr, png_uint_32 size)\r
+{\r
+   png_voidp ret;\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+\r
+   if (png_ptr == NULL || size == 0)\r
+      return (NULL);\r
+\r
+#ifdef PNG_MAX_MALLOC_64K\r
+   if (size > (png_uint_32)65536L)\r
+   {\r
+#ifndef PNG_USER_MEM_SUPPORTED\r
+      if ((png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+         png_error(png_ptr, "Cannot Allocate > 64K");\r
+      else\r
+#endif\r
+         return NULL;\r
+   }\r
+#endif\r
+\r
+ /* Check for overflow */\r
+#if defined(__TURBOC__) && !defined(__FLAT__)\r
+ if (size != (unsigned long)size)\r
+   ret = NULL;\r
+ else\r
+   ret = farmalloc(size);\r
+#else\r
+# if defined(_MSC_VER) && defined(MAXSEG_64K)\r
+ if (size != (unsigned long)size)\r
+   ret = NULL;\r
+ else\r
+   ret = halloc(size, 1);\r
+# else\r
+ if (size != (size_t)size)\r
+   ret = NULL;\r
+ else\r
+   ret = malloc((size_t)size);\r
+# endif\r
+#endif\r
+\r
+#ifndef PNG_USER_MEM_SUPPORTED\r
+   if (ret == NULL && (png_ptr->flags&PNG_FLAG_MALLOC_NULL_MEM_OK) == 0)\r
+      png_error(png_ptr, "Out of Memory");\r
+#endif\r
+\r
+   return (ret);\r
+}\r
+\r
+/* Free a pointer allocated by png_malloc().  If ptr is NULL, return\r
+   without taking any action. */\r
+void PNGAPI\r
+png_free(png_structp png_ptr, png_voidp ptr)\r
+{\r
+   if (png_ptr == NULL || ptr == NULL)\r
+      return;\r
+\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+   if (png_ptr->free_fn != NULL)\r
+   {\r
+      (*(png_ptr->free_fn))(png_ptr, ptr);\r
+      return;\r
+   }\r
+   else png_free_default(png_ptr, ptr);\r
+}\r
+void PNGAPI\r
+png_free_default(png_structp png_ptr, png_voidp ptr)\r
+{\r
+   if (png_ptr == NULL || ptr == NULL)\r
+      return;\r
+\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+\r
+#if defined(__TURBOC__) && !defined(__FLAT__)\r
+   farfree(ptr);\r
+#else\r
+# if defined(_MSC_VER) && defined(MAXSEG_64K)\r
+   hfree(ptr);\r
+# else\r
+   free(ptr);\r
+# endif\r
+#endif\r
+}\r
+\r
+#endif /* Not Borland DOS special memory handler */\r
+\r
+#if defined(PNG_1_0_X)\r
+#  define png_malloc_warn png_malloc\r
+#else\r
+/* This function was added at libpng version 1.2.3.  The png_malloc_warn()\r
+ * function will set up png_malloc() to issue a png_warning and return NULL\r
+ * instead of issuing a png_error, if it fails to allocate the requested\r
+ * memory.\r
+ */\r
+png_voidp PNGAPI\r
+png_malloc_warn(png_structp png_ptr, png_uint_32 size)\r
+{\r
+   png_voidp ptr;\r
+   png_uint_32 save_flags;\r
+   if (png_ptr == NULL) return (NULL);\r
+\r
+   save_flags = png_ptr->flags;\r
+   png_ptr->flags|=PNG_FLAG_MALLOC_NULL_MEM_OK;\r
+   ptr = (png_voidp)png_malloc((png_structp)png_ptr, size);\r
+   png_ptr->flags=save_flags;\r
+   return(ptr);\r
+}\r
+#endif\r
+\r
+png_voidp PNGAPI\r
+png_memcpy_check (png_structp png_ptr, png_voidp s1, png_voidp s2,\r
+   png_uint_32 length)\r
+{\r
+   png_size_t size;\r
+\r
+   size = (png_size_t)length;\r
+   if ((png_uint_32)size != length)\r
+      png_error(png_ptr, "Overflow in png_memcpy_check.");\r
+\r
+   return(png_memcpy (s1, s2, size));\r
+}\r
+\r
+png_voidp PNGAPI\r
+png_memset_check (png_structp png_ptr, png_voidp s1, int value,\r
+   png_uint_32 length)\r
+{\r
+   png_size_t size;\r
+\r
+   size = (png_size_t)length;\r
+   if ((png_uint_32)size != length)\r
+      png_error(png_ptr, "Overflow in png_memset_check.");\r
+\r
+   return (png_memset (s1, value, size));\r
+\r
+}\r
+\r
+#ifdef PNG_USER_MEM_SUPPORTED\r
+/* This function is called when the application wants to use another method\r
+ * of allocating and freeing memory.\r
+ */\r
+void PNGAPI\r
+png_set_mem_fn(png_structp png_ptr, png_voidp mem_ptr, png_malloc_ptr\r
+  malloc_fn, png_free_ptr free_fn)\r
+{\r
+   if (png_ptr != NULL)\r
+   {\r
+      png_ptr->mem_ptr = mem_ptr;\r
+      png_ptr->malloc_fn = malloc_fn;\r
+      png_ptr->free_fn = free_fn;\r
+   }\r
+}\r
+\r
+/* This function returns a pointer to the mem_ptr associated with the user\r
+ * functions.  The application should free any memory associated with this\r
+ * pointer before png_write_destroy and png_read_destroy are called.\r
+ */\r
+png_voidp PNGAPI\r
+png_get_mem_ptr(png_structp png_ptr)\r
+{\r
+   if (png_ptr == NULL) return (NULL);\r
+   return ((png_voidp)png_ptr->mem_ptr);\r
+}\r
+#endif /* PNG_USER_MEM_SUPPORTED */\r
+#endif /* PNG_READ_SUPPORTED || PNG_WRITE_SUPPORTED */\r