Scripting Bugs

[admin]

What result would you expect?

[TheQwerty]

That they would more closely resemble the results shown for the scripts marked "Correct".

Myself:
Text "Myself:<crlf>" . Self('script') . "<crlf 2>Caller:<crlf>" . Caller('script');

Caller:
Load '*', 'A;B';

Myself:
B

Caller:
Load A;B - Confused

[admin]

I have to postpone this.

[TheQwerty]

I have to postpone this.

Hmm... When shall I remind you?

[admin]

After 13.90.

[TheQwerty]

FormatList only filters by first item when separator is CRLF.

Code: Select all

"FormatList Comparisons"
 Global $G_SEP, $G_RESULT;
 $result = '';

 $G_SEP = ';';      Sub '_filter'; $result = $result . GetToken($G_RESULT, 'Count', $G_SEP) . ': ' . $G_RESULT . "<crlf 2>";
 $G_SEP = '|';      Sub '_filter'; $result = $result . GetToken($G_RESULT, 'Count', $G_SEP) . ': ' . $G_RESULT . "<crlf 2>"; 
 $G_SEP = '--';     Sub '_filter'; $result = $result . GetToken($G_RESULT, 'Count', $G_SEP) . ': ' . $G_RESULT . "<crlf 2>";
 $G_SEP = '++';     Sub '_filter'; $result = $result . GetToken($G_RESULT, 'Count', $G_SEP) . ': ' . $G_RESULT . "<crlf 2>";
 $G_SEP = "<crlf>"; Sub '_filter'; $result = $result . GetToken($G_RESULT, 'Count', $G_SEP) . ': ' . $G_RESULT . "<crlf 2>";

 Text $result;

"_filter"
  Global $G_SEP;
  $list = 'a' . $G_SEP . 'ba' . $G_SEP . 'ac' . $G_SEP . 'ed';
  $filter = 'a*' . $G_SEP . '*d';

  Global $G_RESULT = FormatList($list, 'f', $G_SEP, $filter);

[admin]

FormatList only filters by first item when separator is CRLF.

Confirmed! True for all separators larger than one character (and the characters bing different). Fix comes.

[SkyFrontier]

report() seems to be accepting 1 or 0 as parameter, but not |-separated lists.

[LittleBiG]

report() seems to be accepting 1 or 0 as parameter, but not |-separated lists.

It works here. Did you use full path names?

[SkyFrontier]

Yep.

[SkyFrontier]

Code: Select all

 step;
   $inp = folderreport("files:{fullname}", "r", , "", , "|");

   $input = trim("$inp", "|");

   $input = report("{custom 2} = {fullname}|", "$input"); // custom 2 won't be caught
   $a = report("{custom 2} = {fullname}|", 0); // correct

beta 0113.

[SkyFrontier]

Code: Select all

    $src = "*item*item2*";
    $src = trim("$src", "*"); //problem happens here
    echo "$src";

XY freezes.

beta 0113.

[admin]

Code: Select all

    $src = "*item*item2*";
    $src = trim("$src", "*"); //problem happens here
    echo "$src";

XY freezes.

beta 0113.

Indeed! Fixed:

Code: Select all

    ! SC trim: Freeze on passing "*" as charlist. Fixed.
    * SC trim: From now on when passing "*" or "?" as charlist they are 
      automatically treated as verbatim characters, not as wildcards.

[SkyFrontier]

Paste this into AB:

Code: Select all

echo gettoken ("<clipboard>", count, "<crlf 

< mind the extra space at the end!
('echo gettoken ("<clipboard>", count, "<crlf ')

Now, enter a digit.
XY freezes.

beta 0113 (and earlier, can't track down).

[admin]

Confirmed! You have a good run today...