Overview
| Comment: | Patches to allow the user to increase the buffer size of p2c. (useful if very long lines occur when building with -c option (deprecated)). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
3a803964f3fd7f216735d8292059b35e |
| User & Date: | geraint@users.sourceforge.net on 2004-07-31 20:04:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-07-31
| ||
| 22:51:55 | Writes causality information to ibg.m. check-in: 16dc8250f3 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 20:04:08 |
Patches to allow the user to increase the buffer size of p2c. (useful if very long lines occur when building with -c option (deprecated)). check-in: 3a803964f3 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 02:00:26 |
Started modifying to write ibg.m - only writes component connection data so far. Found a bug in abg.m generation (not fixed) | |
Changes
Added mttroot/patches/p2c/p2c-1.21alpha2/lex.c.diff version [7c654e3c9b].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
*** p2c-1.22/src/lex.c Tue Mar 16 09:28:20 1999
--- p2c-1.22-dev/src/lex.c Tue Jan 30 16:57:23 2001
*************** Static int skipflag;
*** 38,44 ****
Static char modulenotation;
Static short inputkind;
Static Strlist *instrlist;
! Static char inbuf[300];
Static char *oldinfname, *oldctxname;
Static Strlist *endnotelist;
--- 38,44 ----
Static char modulenotation;
Static short inputkind;
Static Strlist *instrlist;
! Static char *inbuf;
Static char *oldinfname, *oldctxname;
Static Strlist *endnotelist;
*************** void init_lex()
*** 411,416 ****
--- 411,417 ----
inputkind = INP_FILE;
inf_lnum = 0;
inf_ltotal = 0;
+ inbuf = ALLOC(buffersize, char, strings); /* strings ? */
*inbuf = 0;
inbufptr = inbuf;
keepingstrlist = NULL;
*************** void getline()
*** 1055,1061 ****
case INP_INCFILE:
inf_lnum++;
inf_ltotal++;
! if (fgets(inbuf, 300, inf)) {
cp = inbuf + strlen(inbuf);
if (*inbuf && cp[-1] == '\n')
cp[-1] = 0;
--- 1056,1062 ----
case INP_INCFILE:
inf_lnum++;
inf_ltotal++;
! if (fgets(inbuf, buffersize, inf)) {
cp = inbuf + strlen(inbuf);
if (*inbuf && cp[-1] == '\n')
cp[-1] = 0;
*************** int p2c_only, starparen;
*** 1889,1895 ****
}
if (!isalpha(*cp))
return 0;
! while ((isalnum(*cp) || *cp == '_') && cp2 < namebuf+300)
*cp2++ = toupper(*cp++);
if (cp[0] == '+' && cp[1] == '+' &&
cp == inbufptr+1 && toupper(cp[-1]) == 'C')
--- 1890,1896 ----
}
if (!isalpha(*cp))
return 0;
! while ((isalnum(*cp) || *cp == '_') && cp2 < namebuf+buffersize)
*cp2++ = toupper(*cp++);
if (cp[0] == '+' && cp[1] == '+' &&
cp == inbufptr+1 && toupper(cp[-1]) == 'C')
|
Added mttroot/patches/p2c/p2c-1.21alpha2/loc.p2crc version [73e4cd2acc].
> > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | # Store public p2crc commands local to your system here, so that # you can grab a new version of sys.p2crc without losing your changes. BufferSize=1000000. LineWidth=1000000. MaxLineWidth=1000000. OverWidePenalty=0. OverWideExtraPenalty=0. |
Added mttroot/patches/p2c/p2c-1.21alpha2/parse.c.diff version [305c42d48a].
> > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
*** p2c-1.22/src/parse.c Tue Mar 16 09:28:20 1999
--- p2c-1.22-dev/src/parse.c Tue Jan 30 16:30:40 2001
*************** int p_search(fname, ext, need)
*** 5477,5483 ****
char *fname, *ext;
int need;
{
! char infnbuf[300];
FILE *fp;
Meaning *mod;
int savesysprog, savecopysource;
--- 5477,5483 ----
char *fname, *ext;
int need;
{
! char infnbuf[buffersize];
FILE *fp;
Meaning *mod;
int savesysprog, savecopysource;
|
Added mttroot/patches/p2c/p2c-1.21alpha2/sys.p2crc.diff version [189e9e035c].
> > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | *** p2c-1.22/src/sys.p2crc Tue Mar 16 09:28:20 1999 --- p2c-1.22-dev/src/sys.p2crc Tue Jan 30 17:01:14 2001 *************** MinSpacingThresh # If spe *** 455,460 **** --- 455,462 ---- # LINE BREAKING + BufferSize # Maximum input line length; default=300. + LineWidth # Target max output line width; default=78. MaxLineWidth # Absolute max output line width; default=90. |
Added mttroot/patches/p2c/p2c-1.21alpha2/trans.h.diff version [e99f32563f].
> > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
*** p2c-1.22/src/trans.h Tue Mar 16 09:28:21 1999
--- p2c-1.22-dev/src/trans.h Tue Jan 30 17:25:33 2001
*************** extern int sizeof_char, sizeof_short, si
*** 1133,1138 ****
--- 1133,1139 ----
extern short size_t_long;
extern int setbits, defaultsetsize, seek_base, integerwidth, realwidth;
extern short quoteincludes, expandincludes, collectnest;
+ extern const int buffersize;
extern int phystabsize, intabsize, linewidth, maxlinewidth;
extern int majorspace, minorspace, declspace, functionspace, minfuncspace;
extern int casespacing, caselimit;
*************** struct rcstruct {
*** 1351,1356 ****
--- 1352,1358 ----
'I', 'R', "MINSPACINGTHRESH",(anyptr) &minspacingthresh, -1,
/* LINE BREAKING */
+ 'I', 'R', "BUFFERSIZE", (anyptr) &buffersize, 300,
'I', 'R', "LINEWIDTH", (anyptr) &linewidth, 78,
'I', 'R', "MAXLINEWIDTH", (anyptr) &maxlinewidth, 90,
'R', 'V', "OVERWIDEPENALTY", (anyptr) &overwidepenalty, 2500,
|