]> git.jsancho.org Git - guile-irrlicht.git/commitdiff
fix char related code
authorJavier Sancho <jsf@jsancho.org>
Wed, 13 May 2020 18:29:23 +0000 (20:29 +0200)
committerJavier Sancho <jsf@jsancho.org>
Wed, 13 May 2020 18:29:23 +0000 (20:29 +0200)
14 files changed:
src/animated-mesh-md2.cpp
src/driver-types.cpp
src/file-archive.cpp
src/file-system.cpp
src/gui-environment.cpp
src/gui-skin.cpp
src/material-flags.cpp
src/material-types.cpp
src/material.cpp
src/primitive-types.cpp
src/scene-manager.cpp
src/vertex3d.cpp
src/video-driver.cpp
src/wchar.cpp

index 11e680fb11fd06e89b108972a1ad579302884d9c..141a634b486df0220ac7c1e51a611deda2086568 100644 (file)
@@ -28,7 +28,7 @@ using namespace irr;
 scene::EMD2_ANIMATION_TYPE
 scm_to_md2_animation_type (SCM md2_animation_type)
 {
-  char* flag = scm_to_utf8_stringn (scm_symbol_to_string (md2_animation_type), NULL);
+  char* flag = scm_to_utf8_string (scm_symbol_to_string (md2_animation_type));
   if (!strcmp (flag, "stand"))
     {
       return scene::EMAT_STAND;
index d18ecfa34952f9404ed41140146d85465ef50307..3486251f27bad3365021e61d4a5a7de6ed2e73f9 100644 (file)
@@ -28,7 +28,7 @@ using namespace irr;
 video::E_DRIVER_TYPE
 scm_to_driver_type (SCM driver_type)
 {
-  char* driverType = scm_to_utf8_stringn (scm_symbol_to_string (driver_type), NULL);
+  char* driverType = scm_to_utf8_string (scm_symbol_to_string (driver_type));
   if (!strcmp (driverType, "null"))
     {
       return video::EDT_NULL;
index 1527520bf850e0484979c97735d00a16b5d796f9..ffaac4285265080c377e30cf654db6477f8601c5 100644 (file)
@@ -28,7 +28,7 @@ using namespace irr;
 io::E_FILE_ARCHIVE_TYPE
 scm_to_file_archive_type (SCM file_archive_type)
 {
-  char* type = scm_to_utf8_stringn (scm_symbol_to_string (file_archive_type), NULL);
+  char* type = scm_to_utf8_string (scm_symbol_to_string (file_archive_type));
   if (!strcmp (type, "zip"))
     {
       return io::EFAT_ZIP;
index fe9b062d6e060b3fd268dfb0fb17526d5a18c189..afb9f0b95af39dff8979de7ea62a00cce5a13bdc 100644 (file)
@@ -46,11 +46,11 @@ IFileSystem_addFileArchive (SCM file_system,
 
   return scm_from_bool
     (((io::IFileSystem*)scm_to_irr_pointer (file_system))->
-     addFileArchive (scm_to_utf8_stringn (filename, NULL),
+     addFileArchive (scm_to_utf8_string (filename),
                      scm_to_bool (ignore_case),
                      scm_to_bool (ignore_paths),
                      scm_to_file_archive_type (archive_type),
-                     scm_to_utf8_stringn (password, NULL),
+                     scm_to_utf8_string (password),
                      retArchiveReference));
 }
 
index 1ee3e5d9212c18009efab2fbdc222fbc5e04dee1..ae2e087eaa5edf77d65a3132541878faa9735c70 100644 (file)
@@ -186,7 +186,7 @@ IGUIEnvironment_getFont (SCM gui_environment,
 {
   gui::IGUIFont* font =
     ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
-    getFont (scm_to_utf8_stringn (filename, NULL));
+    getFont (scm_to_utf8_string (filename));
   return scm_from_pointer ((void*)font, NULL);
 }
 
index fae5c3dd142c22c89e5ea8f1b9808a8da70e6687..6e4f66e8a88a4823316f08bca462ae49a4feed3d 100644 (file)
@@ -80,7 +80,7 @@ init_gui_skin (void)
 gui::EGUI_DEFAULT_COLOR
 scm_to_default_color (SCM default_color)
 {
-  char* color = scm_to_utf8_stringn (scm_symbol_to_string (default_color), NULL);
+  char* color = scm_to_utf8_string (scm_symbol_to_string (default_color));
   if (!strcmp (color, "3d-dark-shadow"))
     {
       return gui::EGDC_3D_DARK_SHADOW;
@@ -191,7 +191,7 @@ scm_to_default_color (SCM default_color)
 gui::EGUI_DEFAULT_FONT
 scm_to_default_font (SCM default_font)
 {
-  char* font = scm_to_utf8_stringn (scm_symbol_to_string (default_font), NULL);
+  char* font = scm_to_utf8_string (scm_symbol_to_string (default_font));
   if (!strcmp (font, "default"))
     {
       return gui::EGDF_DEFAULT;
index 0b28f00d31e6d98c97022aada9f218b9244e8669..5b0c93ae1b284e060b20c6898477c13ade753859 100644 (file)
@@ -27,7 +27,7 @@ using namespace irr;
 video::E_MATERIAL_FLAG
 scm_to_material_flag (SCM material_flag)
 {
-  char* flag = scm_to_utf8_stringn (scm_symbol_to_string (material_flag), NULL);
+  char* flag = scm_to_utf8_string (scm_symbol_to_string (material_flag));
   if (!strcmp (flag, "wireframe"))
     {
       return video::EMF_WIREFRAME;
index 19511f888bb5df97193c5ef0bcefa59945d34d1a..5faad7374f1fbc42879f9a1d60ccfb811f5c5947 100644 (file)
@@ -28,7 +28,7 @@ using namespace irr;
 video::E_MATERIAL_TYPE
 scm_to_material_type (SCM material_type)
 {
-  char* type = scm_to_utf8_stringn (scm_symbol_to_string (material_type), NULL);
+  char* type = scm_to_utf8_string (scm_symbol_to_string (material_type));
   if (!strcmp (type, "solid"))
     {
       return video::EMT_SOLID;
index 72467acc7f39572b50a8c3f53ccc0404b1fd8578..7c2eb0e6569370363d79dcd473d98b43e167fe5a 100644 (file)
@@ -128,7 +128,7 @@ init_material (void)
 video::E_ANTI_ALIASING_MODE
 scm_to_anti_aliasing_mode (SCM anti_aliasing_mode)
 {
-  char* mode = scm_to_utf8_stringn (scm_symbol_to_string (anti_aliasing_mode), NULL);
+  char* mode = scm_to_utf8_string (scm_symbol_to_string (anti_aliasing_mode));
   if (!strcmp (mode, "off"))
     {
       return video::EAAM_OFF;
@@ -167,7 +167,7 @@ scm_to_anti_aliasing_mode (SCM anti_aliasing_mode)
 video::E_BLEND_OPERATION
 scm_to_blend_operation (SCM blend_operation)
 {
-  char* operation = scm_to_utf8_stringn (scm_symbol_to_string (blend_operation), NULL);
+  char* operation = scm_to_utf8_string (scm_symbol_to_string (blend_operation));
   if (!strcmp (operation, "none"))
     {
       return video::EBO_NONE;
@@ -218,7 +218,7 @@ scm_to_blend_operation (SCM blend_operation)
 video::E_COLOR_MATERIAL
 scm_to_color_material (SCM color_material)
 {
-  char* material = scm_to_utf8_stringn (scm_symbol_to_string (color_material), NULL);
+  char* material = scm_to_utf8_string (scm_symbol_to_string (color_material));
   if (!strcmp (material, "none"))
     {
       return video::ECM_NONE;
@@ -253,7 +253,7 @@ scm_to_color_material (SCM color_material)
 video::E_COLOR_PLANE
 scm_to_color_plane (SCM color_plane)
 {
-  char* plane = scm_to_utf8_stringn (scm_symbol_to_string (color_plane), NULL);
+  char* plane = scm_to_utf8_string (scm_symbol_to_string (color_plane));
   if (!strcmp (plane, "none"))
     {
       return video::ECP_NONE;
@@ -292,7 +292,7 @@ scm_to_color_plane (SCM color_plane)
 video::E_COMPARISON_FUNC
 scm_to_comparison_func (SCM comparison_func)
 {
-  char* func = scm_to_utf8_stringn (scm_symbol_to_string (comparison_func), NULL);
+  char* func = scm_to_utf8_string (scm_symbol_to_string (comparison_func));
   if (!strcmp (func, "never"))
     {
       return video::ECFN_NEVER;
@@ -335,7 +335,7 @@ scm_to_comparison_func (SCM comparison_func)
 video::E_POLYGON_OFFSET
 scm_to_polygon_offset (SCM polygon_offset)
 {
-  char* offset = scm_to_utf8_stringn (scm_symbol_to_string (polygon_offset), NULL);
+  char* offset = scm_to_utf8_string (scm_symbol_to_string (polygon_offset));
   if (!strcmp (offset, "back"))
     {
       return video::EPO_BACK;
index 9704803ad49ad2319a50412274a232f6c4e6d963..7f4db7f192f72421c6f0a0e3e06450d3b6767457 100644 (file)
@@ -28,7 +28,7 @@ using namespace irr;
 scene::E_PRIMITIVE_TYPE
 scm_to_primitive_type (SCM primitive_type)
 {
-  char* type = scm_to_utf8_stringn (scm_symbol_to_string (primitive_type), NULL);
+  char* type = scm_to_utf8_string (scm_symbol_to_string (primitive_type));
   if (!strcmp (type, "points"))
     {
       return scene::EPT_POINTS;
index f120955316230e1cc5fa58cf9515c4a3b3deb825..815b83a8d9d21bcb6d21c8dc449399c89b9306c3 100644 (file)
@@ -323,7 +323,7 @@ ISceneManager_getMesh (SCM scene_manager,
                        SCM filename)
 {
   scene::ISceneManager* smgr = (scene::ISceneManager*) scm_to_irr_pointer (scene_manager);
-  scene::IAnimatedMesh* mesh = smgr->getMesh(scm_to_utf8_stringn (filename, NULL));
+  scene::IAnimatedMesh* mesh = smgr->getMesh(scm_to_utf8_string (filename));
   return scm_from_pointer ((void*) mesh, NULL);
 }
 
index 9b7a1e874d7408a59f1c2f9ae2fff68185a3034f..2bc305c524f5624146bd3e92d6d15cc759b50c87 100644 (file)
@@ -60,7 +60,7 @@ init_vertex3d (void)
 video::E_VERTEX_TYPE
 scm_to_vertex_type (SCM vertex_type)
 {
-  char* type = scm_to_utf8_stringn (scm_symbol_to_string (vertex_type), NULL);
+  char* type = scm_to_utf8_string (scm_symbol_to_string (vertex_type));
   if (!strcmp (type, "standard"))
     {
       return video::EVT_STANDARD;
index b52b24f6e2b9593a916d1c94f35f6fc0a0ce6af3..45e8358e9a60ed294ba1cf390651f9d15e6d2458 100644 (file)
@@ -119,7 +119,7 @@ IVideoDriver_getTexture (SCM video_driver,
                          SCM filename)
 {
   video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
-  video::ITexture* texture = driver->getTexture (scm_to_utf8_stringn (filename, NULL));
+  video::ITexture* texture = driver->getTexture (scm_to_utf8_string (filename));
   return scm_from_pointer ((void*) texture, NULL);
 }
 
@@ -160,7 +160,7 @@ init_video_driver (void)
 video::E_TRANSFORMATION_STATE
 scm_to_transformation_state (SCM transformation_state)
 {
-  char* state = scm_to_utf8_stringn (scm_symbol_to_string (transformation_state), NULL);
+  char* state = scm_to_utf8_string (scm_symbol_to_string (transformation_state));
   if (!strcmp (state, "view"))
     {
       return video::ETS_VIEW;
index a41a00313569681ab7de4d97dff80519aa881c05..e9c98ed8478d305bcd40bf1bc396d3db85c4156b 100644 (file)
 #include "wchar.h"
 
 SCM
-scm_from_wide_char_string (const wchar_t* wtext)
+scm_from_wide_char_string (const wchar_t* text)
 {
-  size_t nbytes = wcslen (wtext) + 1;
-  char* ctext = (char*)malloc (nbytes);
-  wcstombs (ctext, wtext, nbytes);
-  return scm_from_utf8_string (ctext);
+  return scm_from_utf32_string ((const scm_t_wchar*) text);
 }
 
 const wchar_t*
 scm_to_wide_char_string (SCM text)
 {
-  char* ctext = scm_to_utf8_stringn (text, NULL);
-  wchar_t* wtext = (wchar_t*)malloc ((strlen (ctext) + 1) * sizeof (wchar_t));
-  mbstowcs (wtext, ctext, strlen (ctext) + 1);
-  return wtext;
+  return (const wchar_t*) scm_to_utf32_string (text);
 }