1/*********************************************************************** 2* * 3* This software is part of the ast package * 4* Copyright (c) 1985-2011 AT&T Intellectual Property * 5* and is licensed under the * 6* Eclipse Public License, Version 1.0 * 7* by AT&T Intellectual Property * 8* * 9* A copy of the License is available at * 10* http://www.eclipse.org/org/documents/epl-v10.html * 11* (with md5 checksum b35adb5213ca9657e911e9befb180842) * 12* * 13* Information and Software Systems Research * 14* AT&T Research * 15* Florham Park NJ * 16* * 17* Glenn Fowler <gsf@research.att.com> * 18* David Korn <dgk@research.att.com> * 19* Phong Vo <kpv@research.att.com> * 20* * 21***********************************************************************/ 22#pragma prototyped 23 24#include "stdhdr.h" 25 26ssize_t 27getdelim(char** sp, size_t* np, int delim, Sfio_t* f) 28{ 29 ssize_t m; 30 ssize_t n; 31 ssize_t k; 32 ssize_t p; 33 uchar* s; 34 uchar* ps; 35 SFMTXDECL(f); 36 37 STDIO_INT(f, "getdelim", ssize_t, (char**, size_t*, int, Sfio_t*), (sp, np, delim, f)) 38 39 SFMTXENTER(f, -1); 40 41 if(delim < 0 || delim > 255 || !sp || !np) /* bad parameters */ 42 SFMTXRETURN(f, -1); 43 44 if(f->mode != SF_READ && _sfmode(f,SF_READ,0) < 0) 45 SFMTXRETURN(f, -1); 46 47 SFLOCK(f,0); 48 49 if(!(s = (uchar*)(*sp)) || (n = *np) < 0) 50 { s = NIL(uchar*); n = 0; } 51 for(m = 0;; ) 52 { /* read new data */ 53 if((p = f->endb - (ps = f->next)) <= 0 ) 54 { f->getr = delim; 55 f->mode |= SF_RC; 56 if(SFRPEEK(f,ps,p) <= 0) 57 { m = -1; 58 break; 59 } 60 } 61 62 for(k = 0; k < p; ++k) /* find the delimiter */ 63 { if(ps[k] == delim) 64 { k += 1; /* include delim in copying */ 65 break; 66 } 67 } 68 69 if((m+k+1) >= n ) /* make sure there is space */ 70 { n = ((m+k+15)/8)*8; 71 if(!(s = (uchar*)realloc(s, n)) ) 72 { *sp = 0; *np = 0; 73 m = -1; 74 break; 75 } 76 *sp = (char*)s; *np = n; 77 } 78 79 memcpy(s+m, ps, k); m += k; 80 f->next = ps+k; /* skip copied data in buffer */ 81 82 if(s[m-1] == delim) 83 { s[m] = 0; /* 0-terminated */ 84 break; 85 } 86 } 87 88 SFOPEN(f,0); 89 SFMTXRETURN(f,m); 90} 91 92ssize_t 93__getdelim(char** sp, size_t* np, int delim, Sfio_t* f) 94{ 95 return getdelim(sp, np, delim, f); 96} 97