gistfile1.txt

REM ** Clear/truncate/empty an array;

Local object &Object;
Local array of object &ArrObject = CreateArrayRept(&Object, 0);
 
/** OK -- It Works **/
REM ** DON'T DO THIS!!
While (&ArrObject.Len > 0)
   &ArrObject.Pop();
End-While;
 
/** BETTER **/
REM ** DON'T DO THIS EITHER (1 line, no loop, but construction overhead):
&ArrObject = CreateArrayRept(&Object, 0);
 
/** BEST **/
REM ** DO THIS (1 line, no loop):
&ArrObject.Len = 0;
 
Function ResolveMetaHTML(&html as string) returns string
   /*Local JavaObject &pattern;
   Local JavaObject &matcher;
   Local String &node_url;*/
   
   Local number &idx = 0;
   
   <*
   REM ** Resolve %NodePortalURL(NODENAME) tags;
   &pattern = GetJavaClass("java.util.regex.Pattern").compile("(?i)%NodePortalURL\((\w+)\)");*>
 
   &matcher = &pattern.matcher(
      CreateJavaObject("java.lang.String", &html));
 
   While &matcher.find()
      SQLExec("SELECT URI_TEXT FROM PSNODEURITEXT WHERE MSGNODENAME = :1 AND URI_TYPE = 'PL'", &matcher.group(1), &node_url);
      &html = Substitute(&html, &matcher.group(), &node_url);
   End-While;
   
   %Response.Write(%Node);
   
   if(None(&var1) and All(&var2) and &var1 <> &var2) Then
      rem ** do something!;
   End-If;
End-Function;