From c7df9c6c47855adcfd204100098e355358935dc3 Mon Sep 17 00:00:00 2001
From: Steve Zatz <slzatz@gmail.com>
Date: Sun, 10 May 2015 20:30:56 -0400
Subject: [PATCH] stmhal: Add os.rename function.
---
docs/library/os.rst | 4 ++++
stmhal/moduos.c | 17 +++++++++++++++++
stmhal/qstrdefsport.h | 1 +
3 files changed, 22 insertions(+)
diff --git a/docs/library/os.rst b/docs/library/os.rst
index df5ade327..e9b7d40bf 100644
--- a/docs/library/os.rst
+++ b/docs/library/os.rst
@@ -46,6 +46,10 @@ Functions
Remove a directory.
+.. function:: rename(old_path, new_path)
+
+ Rename a file.
+
.. function:: stat(path)
Get the status of a file or directory.
diff --git a/stmhal/moduos.c b/stmhal/moduos.c
index 9d6856b3e..24f2e0f1f 100644
--- a/stmhal/moduos.c
+++ b/stmhal/moduos.c
@@ -239,6 +239,22 @@ STATIC mp_obj_t os_remove(mp_obj_t path_o) {
}
STATIC MP_DEFINE_CONST_FUN_OBJ_1(os_remove_obj, os_remove);
+/// \function rename(old_path, new_path)
+/// Rename a file
+STATIC mp_obj_t os_rename(mp_obj_t path_in, mp_obj_t path_out) {
+ const char *old_path = mp_obj_str_get_str(path_in);
+ const char *new_path = mp_obj_str_get_str(path_out);
+ FRESULT res = f_rename(old_path, new_path);
+ switch (res) {
+ case FR_OK:
+ return mp_const_none;
+ default:
+ nlr_raise(mp_obj_new_exception_msg_varg(&mp_type_OSError, "Error renaming file '%s' to '%s'", old_path, new_path));
+ }
+
+}
+STATIC MP_DEFINE_CONST_FUN_OBJ_2(os_rename_obj, os_rename);
+
/// \function rmdir(path)
/// Remove a directory.
STATIC mp_obj_t os_rmdir(mp_obj_t path_o) {
@@ -368,6 +384,7 @@ STATIC const mp_map_elem_t os_module_globals_table[] = {
{ MP_OBJ_NEW_QSTR(MP_QSTR_listdir), (mp_obj_t)&os_listdir_obj },
{ MP_OBJ_NEW_QSTR(MP_QSTR_mkdir), (mp_obj_t)&os_mkdir_obj },
{ MP_OBJ_NEW_QSTR(MP_QSTR_remove), (mp_obj_t)&os_remove_obj },
+ { MP_OBJ_NEW_QSTR(MP_QSTR_rename),(mp_obj_t)&os_rename_obj},
{ MP_OBJ_NEW_QSTR(MP_QSTR_rmdir), (mp_obj_t)&os_rmdir_obj },
{ MP_OBJ_NEW_QSTR(MP_QSTR_stat), (mp_obj_t)&os_stat_obj },
{ MP_OBJ_NEW_QSTR(MP_QSTR_unlink), (mp_obj_t)&os_remove_obj }, // unlink aliases to remove
diff --git a/stmhal/qstrdefsport.h b/stmhal/qstrdefsport.h
index a8b52f346..c42ca734b 100644
--- a/stmhal/qstrdefsport.h
+++ b/stmhal/qstrdefsport.h
@@ -379,6 +379,7 @@ Q(chdir)
Q(getcwd)
Q(listdir)
Q(mkdir)
+Q(rename)
Q(remove)
Q(rmdir)
Q(unlink)
--
GitLab