Discussion:
Gosling emacs source?
(too old to reply)
Joseph H Allen
2005-05-04 14:25:06 UTC
Permalink
Does anyone have a copy of Gosling's EMACS C source code? I had this a long
time ago, but I've lost it. I can't find it anywhere on the net (it was
withdrawn from the public domain, but surely there must be old versions
around).
--
/* ***@world.std.com (192.74.137.5) */ /* Joseph H. Allen */
int a[1817];main(z,p,q,r){for(p=80;q+p-80;p-=2*a[p])for(z=9;z--;)q=3&(r=time(0)
+r*57)/7,q=q?q-1?q-2?1-p%79?-1:0:p%79-77?1:0:p<1659?79:0:p>158?-79:0,q?!a[p+q*2
]?a[p+=a[p+=q]=q]=q:0:0;for(;q++-1817;)printf(q%79?"%c":"%c\n"," #"[!a[q-1]]);}
Preben 'Peppe' Guldberg
2005-05-04 15:36:35 UTC
Permalink
Post by Joseph H Allen
Does anyone have a copy of Gosling's EMACS C source code? I had this a long
time ago, but I've lost it. I can't find it anywhere on the net (it was
withdrawn from the public domain, but surely there must be old versions
around).
Not sure where else to look, I'd check the EMACS implementations post
that is posted frequently in comp.editors.

Peppe
--
se nocp cpo=BceFsx!$ hid bs=2 ls=2 hls ic " P. Guldberg /bin/***@wielders.org
se scs ai isf-== fdo-=block cino=t0,:0 hi=100 ru so=4 noea lz|if has('unix')
se sh=/bin/sh|en|syn on|filetype plugin indent on|ono S V/\n^-- $\\|\%$/<CR>
cno <C-A> <C-B>|au FileType vim,mail se sw=4 sts=4 et|let&tw=72+6*(&ft=~'v')
Joseph H Allen
2005-05-04 17:24:06 UTC
Permalink
Post by Preben 'Peppe' Guldberg
Post by Joseph H Allen
Does anyone have a copy of Gosling's EMACS C source code? I had this a long
time ago, but I've lost it. I can't find it anywhere on the net (it was
withdrawn from the public domain, but surely there must be old versions
around).
Not sure where else to look, I'd check the EMACS implementations post
that is posted frequently in comp.editors.
Yeah I've looked. There's "Barry's EMACS" which is based on Gosling's, but
he does not give out the soruce.
--
/* ***@world.std.com (192.74.137.5) */ /* Joseph H. Allen */
int a[1817];main(z,p,q,r){for(p=80;q+p-80;p-=2*a[p])for(z=9;z--;)q=3&(r=time(0)
+r*57)/7,q=q?q-1?q-2?1-p%79?-1:0:p%79-77?1:0:p<1659?79:0:p>158?-79:0,q?!a[p+q*2
]?a[p+=a[p+=q]=q]=q:0:0;for(;q++-1817;)printf(q%79?"%c":"%c\n"," #"[!a[q-1]]);}
Loading...