From 866483f05ea0d1f0e659ac1e3be440123baf75e2 Mon Sep 17 00:00:00 2001
From: Mike Blumenkrantz <zmike@osg.samsung.com>
Date: Tue, 14 Oct 2014 15:21:44 -0400
Subject: [PATCH] embedding: cef_string_list_clear()

---
 ports/cef/string_list.rs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/ports/cef/string_list.rs b/ports/cef/string_list.rs
index d103f5b8da7..3f5424ace50 100644
--- a/ports/cef/string_list.rs
+++ b/ports/cef/string_list.rs
@@ -48,3 +48,17 @@ extern "C" fn cef_string_list_value(lt: *mut cef_string_list_t, index: c_int, va
         cef_string_utf8_set(mem::transmute((**cs).str), (**cs).length, value, 1)
     }
 }
+
+#[no_mangle]
+extern "C" fn cef_string_list_clear(lt: *mut cef_string_list_t) {
+    unsafe {
+        if fptr_is_null(mem::transmute(lt)) { return; }
+        let mut v: Box<Vec<*mut cef_string_t>> = mem::transmute(lt);
+        if v.len() == 0 { return; }
+        let mut cs;
+        while v.len() != 0 {
+            cs = v.pop();
+            cef_string_userfree_utf8_free(cs.unwrap());
+        }
+    }
+}