Changes between Version 5 and Version 6 of Doc/panc/dml/functions

Timestamp:

Mar 3, 2007, 4:38:23 PM (17 years ago)

Author:

/O=GRID-FR/C=FR/O=CNRS/OU=LAL/CN=Charles Loomis

Comment:

--

Doc/panc/dml/functions

@@ -9 +9 @@
 
 {{{
-"/test" = "[" + base64_decode("aGVsbG8gd29ybGQ=") + "]"; 
-# will be the string "[hello world]" 
+'/test' = '[' + base64_decode("aGVsbG8gd29ybGQ=") + ']'; 
+# will be the string '[hello world]' 
 }}}
 
@@ -17 +17 @@
 This function returns a clone (copy) of the given argument. 
 
-=== create( name:string, . . . ) : nlist ===
+=== create( name:string, ... ) : nlist ===
 
 This function returns the named list which is the result of the execution of the structure template identified 
@@ -41 +41 @@
 This function prints the given message on stdout when debugging is enabled with the DEBUG USER 
 flag. 
+
 {{{
 # print the value of x if it is positive 
-if (x > 0) 
-debug("x is positive: " + to_string(x)); 
+if (x > 0) debug("x is positive: " + to_string(x)); 
 }}}
 
@@ -50 +50 @@
 
 This function deletes the element identified by the ”variable expression” (i.e. variable name with optional 
-subscript such as foo or foo[123] or foo[123][”abc”]. . . ). 
+subscript such as foo or foo[123] or foo[123][”abc”]). 
+
 {{{
 # the following will put the list ("a", "c") at path "/x" 
 "/x" = { 
-x = list("a", "b", "c"); 
-delete(x[1]); 
-return(x); 
-}; 
-}}}
-
-=== error( message:string ) ===
+  x = list("a", "b", "c"); 
+  delete(x[1]); 
+  return(x); 
+}; 
+}}}
+
+=== error( msg:string ) ===
 
 This function prints the given message on stderr and aborts the compilation. 
@@ -66 +67 @@
 {{{
 # user function requiring one long argument 
-define function foo = { 
-if (argc != 1) 
-error("foo(): wrong number of arguments: " + to_string(argc)); 
-if (!is_long(argv[0])) 
-error("foo(): argument is not a long"); 
+function foo = { 
+
+  if (argc != 1) error("foo(): wrong number of arguments: " + to_string(argc)); 
+
+  if (!is_long(argv[0])) error("foo(): argument is not a long"); 
+
 # normal processing... 
 }; 
@@ -111 +113 @@
 ok = first(numlist, k, v); 
 while (ok) { 
-sum = sum + v; 
-ok = next(numlist, k, v); 
+  sum = sum + v; 
+  ok = next(numlist, k, v); 
 }; 
 # sum will be 15 
+
 # put the list of all the keys of table inside keys 
 table = nlist("a", 1, "b", 2, "c", 3); 
 keys = list(); 
 ok = first(table, k, v); 
-while (ok) { 
-keys[length(keys)] = k;ok = next(table, k, v);
+  while (ok) { 
+  keys[length(keys)] = k;
+  ok = next(table, k, v);
 }; 
 # keys will be ("a", "b", "c") 
@@ -215 +219 @@
 This function checks if the given argument has a null value (i.e. is anything but null). 
 
+=== is_number( arg:element ) : boolean ===
+
+Returns true if the argument is either a long or double property.
+
 === is_property( arg:element ) : boolean ===
 
@@ -234 +242 @@
 {{{
 "/table" = nlist("red", 0xf00, "green", 0x0f0, "blue", 0x00f); 
+
 "/keys" = { 
-tbl = value("/table"); 
-res = ""; 
-len = length(tbl); 
-idx = 0; 
-while (idx < len) { 
-res = res + key(tbl, idx) + " "; 
-idx = idx + 1; 
-}; 
-if (length(res) > 0) 
-splice(res, -1, 1); 
-return(res); 
+
+  tbl = value("/table"); 
+  res = ""; 
+  len = length(tbl); 
+  idx = 0; 
+  while (idx < len) { 
+    res = res + key(tbl, idx) + " "; 
+    idx = idx + 1; 
+  }; 
+
+  if (length(res) > 0) splice(res, -1, 1); 
+  return(res); 
 }; 
 # /keys will be the string "red green blue" 
@@ -287 +297 @@
 # IPv4 address in dotted number notation 
 type ipv4 = string with { 
-result = matches(self, ’ˆ(\d+)\.(\d+)\.(\d+)\.(\d+)$’); 
-if (length(result) == 0) 
-return("bad string"); 
-i = 1; 
-while (i <= 4) { 
-x = to_long(result[i]); 
-if (x > 255) 
-return("chunk " + to_string(i) + " too big: " + result[i]); 
-i = i + 1; 
-}; 
-return(true); 
+  result = matches(self, ’ˆ(\d+)\.(\d+)\.(\d+)\.(\d+)$’); 
+  if (length(result) == 0) 
+  return("bad string"); 
+  i = 1; 
+  while (i <= 4) { 
+    x = to_long(result[i]); 
+    if (x > 255) return("chunk " + to_string(i) + " too big: " + result[i]); 
+    i = i + 1; 
+  };
+  return(true); 
 }; 
 }}}
@@ -421 +430 @@
 # we add one DNS server to the current list 
 # (we need to use list() because merge() requires lists) 
-"/system/dns/servers" = merge(value("/system/dns/servers"), 
-list("137.138.16.5")); 
+"/system/dns/servers" = merge(value("/system/dns/servers"), list("137.138.16.5")); 
 # the RAM of this machine is the same as the machine foo 
 "/hardware/memory/size" = value("//foo/hardware/memory/size");