Sending SKILL commands to a running instance of ICFB

Dear all, dear Andrew,

Thanks to your post, I started to write Skill and Perl programs to have a Perl sript send commands to ICFB.

I tried 3 methodologies:

1/ icpBeginProcess with a call back that directly calls the Perl program.

2/ ipcSkillProcess with a call back that directly call thePerl program through the "3" chanel ID.

3/ A Linux socket through the tcl script of Andrew above (it uses ipcBeginProcess and Linux socket).

All of these solution works, but all share the same issue: even though I flush the Perl script output buffer (STDOUT or "3" or socket handle) it happens almost randomly that the commands recovered by ICFB is too long and ends cutted in the middle of skill commands.

It happens when the Perl script sends hundreds of commands at once in a loop, like:

SKILL test.il:

 procedure(socketHandler(ipcId data)
  printf("COMMAND: %L\n" data)
  evalstring(data)
)

ipcBeginProcess("./test.pl" "" 'socketHandler)

PERL test.pl (draws a red disk in the current layout windows):

 #!/usr/bin/perl

#Flushes the perl STDOUT buffer after each print:
$|=1;

print "cv=deGetEditCellView() ";
print "cw=hiGetCurrentWindow() ";
print "geDeleteAllHilightSet(cv) ";
print "hiZoomIn(cw list(-10:-10 10:10)) ";
print "hlSetId = geCreateHilightSet(cv \'(\"y1\" \"drawing\")) ";
print "hlSetId->enable = t ";

for ($j = 1; $j <= 3.141*2000; $j++) {
  $x2=10*cos($j/1000);
  $y2=10*sin($j/1000);
  print "geAddHilightLine(hlSetId list(0:0 $x2:$y2)) ";
}

print "hiRedraw(cw) ";

After running this test script, the pie drawn has missing parts (missing rays).

Does anyone have a clue how to solve this?

Stéphane.

Dear all, dear Andrew,

Thanks to your post, I started to write Skill and Perl programs to have a Perl sript send commands to ICFB.

I tried 3 methodologies:

1/ icpBeginProcess with a call back that directly calls the Perl program.

2/ ipcSkillProcess with a call back that directly call thePerl program through the "3" chanel ID.

3/ A Linux socket through the tcl script of Andrew above (it uses ipcBeginProcess and Linux socket).

All of these solution works, but all share the same issue: even though I flush the Perl script output buffer (STDOUT or "3" or socket handle) it happens almost randomly that the commands recovered by ICFB is too long and ends cutted in the middle of skill commands.

It happens when the Perl script sends hundreds of commands at once in a loop, like:

SKILL test.il:

 procedure(socketHandler(ipcId data)
  printf("COMMAND: %L\n" data)
  evalstring(data)
)

ipcBeginProcess("./test.pl" "" 'socketHandler)

PERL test.pl (draws a red disk in the current layout windows):

 #!/usr/bin/perl

#Flushes the perl STDOUT buffer after each print:
$|=1;

print "cv=deGetEditCellView() ";
print "cw=hiGetCurrentWindow() ";
print "geDeleteAllHilightSet(cv) ";
print "hiZoomIn(cw list(-10:-10 10:10)) ";
print "hlSetId = geCreateHilightSet(cv \'(\"y1\" \"drawing\")) ";
print "hlSetId->enable = t ";

for ($j = 1; $j <= 3.141*2000; $j++) {
  $x2=10*cos($j/1000);
  $y2=10*sin($j/1000);
  print "geAddHilightLine(hlSetId list(0:0 $x2:$y2)) ";
}

print "hiRedraw(cw) ";

After running this test script, the pie drawn has missing parts (missing rays).

Does anyone have a clue how to solve this?

Stéphane.