p = (CommandRec *) MALLOC (sizeof (CommandRec));
if (p == (CommandRec *) 0)
{
- sciprint(_("send_command : No more memory.\n"));
+ sciprint(_("%s: No more memory.\n"),"send_command");
return (1);
}
p->flag = 0;
if (p->command == (char *) 0)
{
FREE(p);
- sciprint(_("send_command : No more memory.\n"));
+ sciprint(_("%s: No more memory.\n"),"send_command");
return (1);
}
strcpy (p->command, command);
*start= (char *) MALLOC((*n+1)*sizeof(char));
if ( *start == (char *) 0)
{
- sciprint(_("No more memory \n"));
+ sciprint(_("%s: No more memory.\n"),"mgetstr");
*ierr=1;
return;
}
}
return;
}
- sciprint(_("No input file \n"));
+ sciprint(_("No input file\n"));
*ierr=1;
}
/*--------------------------------------------------------------------------*/
}
return;
}
- sciprint(_("No input file \n"));
+ sciprint(_("No input file\n"));
*ierr=1;
}
/*--------------------------------------------------------------------------*/
s_buf=MALLOC(sizeof(char)*(MAXCHARSSCIPRINT_FULL+1));
if (s_buf == (char *) 0)
{
- sciprint(_("sciprint_full : No more memory.\n"));
+ sciprint(_("%s: No more memory.\n"),"sciprint_full");
return;
}
split_s_buf=MALLOC(sizeof(char)*(colwidth+1));
if (split_s_buf == (char *) 0)
{
- sciprint(_("sciprint_full : No more memory.\n"));
+ sciprint(_("%s: No more memory.\n"),"sciprint_full");
return;
}
nelem+=outtbsz[j*2]*outtbsz[(j*2)+1];
if ((outtb_elem=(outtb_el *) REALLOC(outtb_elem,nelem*sizeof(outtb_el)))==NULL)
{
- Scierror(999,"%s : No more free memory.\n",fname);
+ Scierror(999,"%s : No more memory.\n",fname);
FREE(outtbptr);
FREE(outtbtyp);
FREE(outtbsz);
if (ierr==-1)
{
- Scierror(999,"%s : No more free memory.\n",fname);
+ Scierror(999,"%s : No more memory.\n",fname);
FREE(lnksz);
FREE(lnktyp);
return 0;
command = (char *) MALLOC (bsiz * sizeof (char));
if (command == (char *) 0)
{
- sciprint(_("TCL_EvalScilabCmd: No more memory.\n"));
+ sciprint(_("%s: No more memory.\n"),"TCL_EvalScilabCmd");
return TCL_ERROR;
}
memset(command,'\0',bsiz);
command = (char *) MALLOC ((strlen (AsciiFromUTF8) + 1) * sizeof (char));
if (command == (char *) 0)
{
- sciprint(_("TCL_EvalScilabCmd: No more memory.\n"));
+ sciprint(_("%s: No more memory.\n"));
return TCL_ERROR;
}
strcpy(command,AsciiFromUTF8);
comm[ncomm] = (char *) MALLOC (bsiz+1);
if (comm[ncomm] == (char *) 0)
{
- sciprint(_("TCL_EvalScilabCmd: No more memory.\n"));
+ sciprint(_("%s: No more memory.\n"),"TCL_EvalScilabCmd");
return TCL_ERROR;
}
seqf[ncomm]=GetCommand (comm[ncomm]);