[amx-netlinx-common] r23 committed - - Readded program_name statements, as they won't compile without them ...

3 views
Skip to first unread message

amx-netli...@googlecode.com

unread,
May 12, 2010, 12:30:23 PM5/12/10
to netlinx-comm...@googlegroups.com
Revision: 23
Author: trueamx
Date: Wed May 12 09:29:43 2010
Log: - Readded program_name statements, as they won't compile without them
(useful for debugging)
- Fixed compile bug in last commit in String.axi (sorry)
http://code.google.com/p/amx-netlinx-common/source/detail?r=23

Modified:
/trunk/Debug.axi
/trunk/Math.axi
/trunk/String.axi
/trunk/array.axi
/trunk/unixtime.axi

=======================================
--- /trunk/Debug.axi Wed May 12 09:20:43 2010
+++ /trunk/Debug.axi Wed May 12 09:29:43 2010
@@ -24,8 +24,9 @@
* tab-width: 4 columns: 80
*/

-#if_not_defined __NCL_DEBUG_LIB
-#define __NCL_DEBUG_LIB
+program_name='Debug'
+#if_not_defined __NCL_LIB_DEBUG
+#define __NCL_LIB_DEBUG


define_device
@@ -73,7 +74,7 @@
println("'Debug level set to ', debug_get_level_string(x)")
debug_level = x
} else {
- debug_msg(DEBUG_WARN, "'Invalid debug level, defaulting to ',
+ debug_msg(DEBUG_WARN, "'Invalid debug level, defaulting to ',
debug_get_level_string(DEBUG_ERROR)")
debug_set_level(DEBUG_ERROR)
}
@@ -99,8 +100,8 @@
while (start < len) {
end = min_value(start + 131, len)
while (end > start + 80) {
- if ((x[end] > $08 &&
- x[end] < $0E) ||
+ if ((x[end] > $08 &&
+ x[end] < $0E) ||
(x[end] > $1B && x[end] < $21)) {
end++
break
=======================================
--- /trunk/Math.axi Wed May 12 09:20:43 2010
+++ /trunk/Math.axi Wed May 12 09:29:43 2010
@@ -23,8 +23,9 @@
* tab-width: 4 columns: 80
*/

-#if_not_defined __NCL_MATH_LIB
-#define __NCL_MATH_LIB
+program_name='Math'
+#if_not_defined __NCL_LIB_MATH
+#define __NCL_LIB_MATH


define_constant
=======================================
--- /trunk/String.axi Wed May 12 09:20:43 2010
+++ /trunk/String.axi Wed May 12 09:29:43 2010
@@ -26,9 +26,9 @@
* tab-width: 4 columns: 80
*/

-#if_not_defined __NCL_STRING_LIB
-#define __NCL_STRING_LIB
-
+program_name='String'
+#if_not_defined __NCL_LIB_STRING
+#define __NCL_LIB_STRING

define_constant
STRING_RETURN_SIZE_LIMIT = 1024 // Maximum string return size
@@ -579,7 +579,7 @@
define_function char[STRING_RETURN_SIZE_LIMIT] remove_string_by_length(
char a[], integer len)
{
- return remove_string(str, left_string(a, len), 1)
+ return remove_string(a, left_string(a, len), 1)
}


=======================================
--- /trunk/array.axi Wed May 12 09:20:43 2010
+++ /trunk/array.axi Wed May 12 09:29:43 2010
@@ -24,8 +24,9 @@
* tab-width: 4 columns: 80
*/

-#if_not_defined __NCL_ARRAY_LIB
-#define __NCL_ARRAY_LIB
+program_name='array'
+#if_not_defined __NCL_LIB_ARRAY
+#define __NCL_LIB_ARRAY

/**
* Finds the index for an matching entry in an array.
=======================================
--- /trunk/unixtime.axi Wed May 12 09:20:43 2010
+++ /trunk/unixtime.axi Wed May 12 09:29:43 2010
@@ -38,8 +38,9 @@
* tab-width: 4, columns: 120
*/

-#if_not_defined __NCL_UNIXTIME_LIB
-#define __NCL_UNIXTIME_LIB
+program_name='unixtime'
+#if_not_defined __NCL_LIB_UNIXTIME
+#define __NCL_LIB_UNIXTIME

/*
* REQUIRES STRING LIBRARY
Reply all
Reply to author
Forward
0 new messages