libfoundation: Add type checks to exported MCList functions.

peter-b · peter-b · commit 3c55877f0326 · 2015-10-07T21:28:41.000+01:00
diff --git a/libfoundation/src/foundation-list.cpp b/libfoundation/src/foundation-list.cpp
@@ -48,6 +48,9 @@ bool MCListCreateMutable(MCStringRef p_delimiter, MCListRef& r_list)
 
 bool MCListAppend(MCListRef self, MCValueRef p_value)
 {
+	__MCAssertIsList(self);
+	MCAssert(nil != p_value);
+
 	bool t_first = self->buffer == nil;
 	if (t_first)
 		if (!MCStringCreateMutable(0, self -> buffer))
@@ -88,7 +91,7 @@ bool MCListAppend(MCListRef self, MCValueRef p_value)
 
 bool MCListCopy(MCListRef self, MCListRef& r_list)
 {
-	MCAssert(self != nil);
+	__MCAssertIsList(self);
     
     // If we are immutable, just bump the reference count
     if (!self -> flags & kMCListFlagIsMutable)
@@ -122,6 +125,8 @@ bool MCListCopy(MCListRef self, MCListRef& r_list)
 
 bool MCListCopyAndRelease(MCListRef self, MCListRef& r_list)
 {
+	__MCAssertIsList(self);
+
     // If there are no other references, just clear the mutable flag
     if (self -> references == 1)
     {
@@ -139,6 +144,8 @@ bool MCListCopyAndRelease(MCListRef self, MCListRef& r_list)
 
 bool MCListCopyAsString(MCListRef self, MCStringRef& r_string)
 {
+	__MCAssertIsList(self);
+
 	MCStringRef t_string;
 	if (self -> buffer != nil)
 		t_string = self -> buffer;
@@ -163,6 +170,9 @@ bool MCListCopyAsStringAndRelease(MCListRef self, MCStringRef& r_string)
 
 bool MCListAppendFormat(MCListRef self, const char *p_format, ...)
 {
+	__MCAssertIsList(self);
+	MCAssert(nil != p_format);
+
 	bool t_success;
 	t_success = true;
 
@@ -185,6 +195,9 @@ bool MCListAppendFormat(MCListRef self, const char *p_format, ...)
 
 bool MCListAppendNativeChars(MCListRef self, const char_t *p_chars, uindex_t p_char_count)
 {
+	__MCAssertIsList(self);
+	MCAssert(p_chars != nil);
+
 	bool t_first = self->buffer == nil;
 	if (t_first)
 		if (!MCStringCreateMutable(0, self -> buffer))
@@ -203,6 +216,7 @@ bool MCListAppendSubstring(MCListRef self, MCStringRef p_string, MCRange p_range
 
 bool MCListIsEmpty(MCListRef self)
 {
+	__MCAssertIsList(self);
 	return self -> buffer == nil;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -48,6 +48,9 @@ bool MCListCreateMutable(MCStringRef p_delimiter, MCListRef& r_list)`
`48`	`48`
`49`	`49`	`bool MCListAppend(MCListRef self, MCValueRef p_value)`
`50`	`50`	`{`
	`51`	`+ __MCAssertIsList(self);`
	`52`	`+ MCAssert(nil != p_value);`
	`53`	`+`
`51`	`54`	`bool t_first = self->buffer == nil;`
`52`	`55`	`if (t_first)`
`53`	`56`	`if (!MCStringCreateMutable(0, self -> buffer))`
`@@ -88,7 +91,7 @@ bool MCListAppend(MCListRef self, MCValueRef p_value)`
`88`	`91`
`89`	`92`	`bool MCListCopy(MCListRef self, MCListRef& r_list)`
`90`	`93`	`{`
`91`		`- MCAssert(self != nil);`
	`94`	`+ __MCAssertIsList(self);`
`92`	`95`
`93`	`96`	`// If we are immutable, just bump the reference count`
`94`	`97`	`if (!self -> flags & kMCListFlagIsMutable)`
`@@ -122,6 +125,8 @@ bool MCListCopy(MCListRef self, MCListRef& r_list)`
`122`	`125`
`123`	`126`	`bool MCListCopyAndRelease(MCListRef self, MCListRef& r_list)`
`124`	`127`	`{`
	`128`	`+ __MCAssertIsList(self);`
	`129`	`+`
`125`	`130`	`// If there are no other references, just clear the mutable flag`
`126`	`131`	`if (self -> references == 1)`
`127`	`132`	`{`
`@@ -139,6 +144,8 @@ bool MCListCopyAndRelease(MCListRef self, MCListRef& r_list)`
`139`	`144`
`140`	`145`	`bool MCListCopyAsString(MCListRef self, MCStringRef& r_string)`
`141`	`146`	`{`
	`147`	`+ __MCAssertIsList(self);`
	`148`	`+`
`142`	`149`	`MCStringRef t_string;`
`143`	`150`	`if (self -> buffer != nil)`
`144`	`151`	`t_string = self -> buffer;`
`@@ -163,6 +170,9 @@ bool MCListCopyAsStringAndRelease(MCListRef self, MCStringRef& r_string)`
`163`	`170`
`164`	`171`	`bool MCListAppendFormat(MCListRef self, const char *p_format, ...)`
`165`	`172`	`{`
	`173`	`+ __MCAssertIsList(self);`
	`174`	`+ MCAssert(nil != p_format);`
	`175`	`+`
`166`	`176`	`bool t_success;`
`167`	`177`	`t_success = true;`
`168`	`178`
`@@ -185,6 +195,9 @@ bool MCListAppendFormat(MCListRef self, const char *p_format, ...)`
`185`	`195`
`186`	`196`	`bool MCListAppendNativeChars(MCListRef self, const char_t *p_chars, uindex_t p_char_count)`
`187`	`197`	`{`
	`198`	`+ __MCAssertIsList(self);`
	`199`	`+ MCAssert(p_chars != nil);`
	`200`	`+`
`188`	`201`	`bool t_first = self->buffer == nil;`
`189`	`202`	`if (t_first)`
`190`	`203`	`if (!MCStringCreateMutable(0, self -> buffer))`
`@@ -203,6 +216,7 @@ bool MCListAppendSubstring(MCListRef self, MCStringRef p_string, MCRange p_range`
`203`	`216`
`204`	`217`	`bool MCListIsEmpty(MCListRef self)`
`205`	`218`	`{`
	`219`	`+ __MCAssertIsList(self);`
`206`	`220`	`return self -> buffer == nil;`
`207`	`221`	`}`
`208`	`222`