rrvvrr@mixcom.UUCP (Bill Suetholz) (12/12/90)
The Following is a list of diffs for the file lread.c for emacs or epoch
to allow the emacs .el and .elc files to be compressed (.Z extension)
Emacs Version 18.55 - Epoch Version 3.2
Hopefully I'll find the diffs for the info.el and informat.el for the same
thing... It really saves on disk space for those info files.
Sorry no diffs suitable for patch unless patch can figure out the ed stuff
that SYSV unix puts out.
'<' lines are for the mods, and '>' lines are for the old sources.
Hope this is useful to somebody..
Other items coming soon.....
info mods for compressed info files
i4gl.el Informix 4GL major mode (VERY preliminary *READ FULL OF BUGS :-)
but it's been sitting around for a while and it is mostly useful)
Now that I have a site that I can post news from I'm going to get out these
fairly old changes that I made when Installing emacs.
Bill Suetholz (bills@mixcom.UUNET.COM) (...!attmail!ccs!bill - I think)
(uunet!mixcom!bills ?)
----------------------------------CUT HERE-------------------------------------
55,58d54
< /* Stuff to Tell if reading from pipeline. Use by load */
< static FILE *pstream;
< static int is_a_pipe;
<
202c198
< fd = openp (Vload_path, str, !NULL (nosuffix) ? "" : ".elc:.elc.Z:.el:.el.Z:", 0, 0);
---
> fd = openp (Vload_path, str, !NULL (nosuffix) ? "" : ".elc:.el:", 0, 0);
212,215c208
< if (is_a_pipe)
< stream = pstream;
< else
< stream = fdopen (fd, "r");
---
> stream = fdopen (fd, "r");
244,247c237
< if (is_a_pipe)
< pclose (*(FILE **) XSTRING (stream));
< else
< fclose (*(FILE **) XSTRING (stream));
---
> fclose (*(FILE **) XSTRING (stream));
289d278
< register char *zcat;
292d280
< int scrtch;
331c319
<
---
>
337,340d324
<
< zcat = (char *) alloca (strlen(fn) + 10);
< /* strcpy (zcat, fn); */
< /* strcat (zcat, ".Z"); */
343,344c327,328
< if ((stat (fn, &st) >= 0
< && (st.st_mode & S_IFMT) != S_IFDIR))
---
> if (stat (fn, &st) >= 0
> && (st.st_mode & S_IFMT) != S_IFDIR)
351,352c335,336
<
< if (fd >= 0)
---
>
> if (fd >= 0)
355,372d338
< is_a_pipe = 0;
< scrtch = strlen (fn);
< if (fn[scrtch - 1] == 'Z' && fn[scrtch - 2] == '.')
< { /* This file is Compressed */
< close (fd);
< strcpy (zcat, "zcat ");
< strcat (zcat, fn);
< strcat (zcat, ".Z");
< pstream = popen (zcat, "r");
< fd = fileno(pstream);
< if (fd >= 0)
< { /*We succeeded; return this descriptor and filename.*/
< is_a_pipe = 1;
< fn[scrtch - 2] = 0;
< }
< else
< return (-1);
< }
377c343,344
< }
---
> }
>
385c352
<
---
>
504c471
< #endif /* standalone */
---
> #endif standalone
1175c1142
< #endif /* NOTDEF */
---
> #endif NOTDEF
1264c1231
< #endif /* standalone */
---
> #endif standalone
malloc.c
560c560
< #else /* rcheck */
---
> #else rcheck
--------------------------- END OF POSTING ---------------------------------