chiark - git - mdw - termux-packages/blob - packages/kona/kc.c.patch

   1 --- ../kona-Win.3.36-64/src/kc.c        2015-07-30 11:18:02.000000000 -0400
   2 +++ ./src/kc.c  2015-12-06 03:18:50.000000000 -0500
   3 @@ -34,12 +34,12 @@
   4  I wds_(K*a,FILE*f,I l) {
   5    S s=0,t=0;  I b=0,c=0,m=0,n=0,v=0;  K z=0; PDA p=0;
   6    I o=isatty(STDIN)&&f==stdin;
   7 -  if(-1==(c=getline_(&s,(size_t * __restrict__)&n,f)))GC;
   8 +  if(-1==(c=new_getline_(&s,(size_t * __restrict__)&n,f)))GC;
   9    appender(&t,&m,s,n);
  10    while(1==(v=complete(t,m,&p,0))) {
  11      b=parsedepth(p);
  12      if(o)prompt(b+l);
  13 -    if(-1==(c=getline_(&s,(size_t * __restrict__)&n,f)))GC;
  14 +    if(-1==(c=new_getline_(&s,(size_t * __restrict__)&n,f)))GC;
  15      appender(&t,&m,s,n); }
  16    SW(v){CS(2,show(kerr("unmatched"));GC) CS(3,show(kerr("nest")); GC)}
  17    z=newK(-3,m-1);
  18 @@ -200,7 +200,7 @@
  19    //I o = isatty(STDIN) && f==stdin; //display results to stdout?
  20    I o = isatty(STDIN); //display results to stdout?
  21
  22 -  if(-1==(c=getline(&s,(size_t * __restrict__)&m,f))) GC;
  23 +  if(-1==(c=new_getline(&s,(size_t * __restrict__)&m,f))) GC;
  24    if(s[0]=='\\' && s[1]=='\n') {
  25      if(fCheck) { fCheck=0; R 0; }   //escape suspended execution with single backslash
  26      if(*a) GC; }                    //escape continue with single backslash