~ubuntu-branches/ubuntu/trusty/expect/trusty

« back to all changes in this revision

Viewing changes to exp_log.c

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Baumann
  • Date: 2006-10-01 22:23:00 UTC
  • mfrom: (2.1.7 edgy)
  • Revision ID: james.westby@ubuntu.com-20061001222300-08nd1wqc92mxggdq
Tags: 5.43.0-8
* Added patch from Niko Tyni <ntyni@iki.fi> to fix static library name on
  alpha, mips and mipsel (Closes: #390366).
* Added *.so symlink (Closes: #390365).

Show diffs side-by-side

added added

removed removed

Lines of Context:
278
278
    expDiagWriteBytes(str,-1);
279
279
 
280
280
    if (tsdPtr->diagToStderr) {
281
 
        fprintf(stderr,"%s",str);
282
 
        if (tsdPtr->logChannel) Tcl_WriteChars(tsdPtr->logChannel,str,-1);
 
281
      fprintf(stderr,"%s",str);
 
282
      if (tsdPtr->logChannel) Tcl_WriteChars(tsdPtr->logChannel,str,-1);
283
283
    }
284
284
}
285
285
 
 
286
/* expPrintf prints to stderr.  It's just a utility for making
 
287
   debugging easier. */
 
288
 
 
289
/*VARARGS*/
 
290
void
 
291
expPrintf TCL_VARARGS_DEF(char *,arg1)
 
292
{
 
293
  char *fmt;
 
294
  va_list args;
 
295
  char bigbuf[2000];
 
296
  int len, rc;
 
297
 
 
298
  fmt = TCL_VARARGS_START(char *,arg1,args);
 
299
  len = vsprintf(bigbuf,arg1,args);
 
300
 retry:
 
301
  rc = write(2,bigbuf,len);
 
302
  if ((rc == -1) && (errno == EAGAIN)) goto retry;
 
303
 
 
304
  va_end(args);
 
305
}
 
306
 
 
307
 
286
308
void
287
309
expDiagToStderrSet(val)
288
310
    int val;