├── lib ├── rs │ ├── net │ │ ├── tls │ │ │ ├── privkey.pem │ │ │ ├── README │ │ │ └── sample │ │ │ │ └── server-csr.pem │ │ ├── ubf │ │ │ └── lib │ │ │ │ ├── hash.h │ │ │ │ ├── ubfsymtab.h │ │ │ │ └── Jamfile │ │ ├── httpd │ │ │ ├── baseline.png │ │ │ ├── docs-icons.png │ │ │ ├── ibis-ico.png │ │ │ ├── testimage.png │ │ │ ├── 16x16-template.png │ │ │ └── static.html │ │ ├── dns │ │ │ ├── encode-label.scm │ │ │ ├── encode-ip.scm │ │ │ ├── encode-query.scm │ │ │ ├── util.scm │ │ │ ├── server-start │ │ │ ├── encode-domain-name.scm │ │ │ ├── message-compression.scm │ │ │ ├── query.scm │ │ │ ├── simple-non-blocking.scm │ │ │ ├── all.scm │ │ │ ├── config.scm │ │ │ └── test.scm │ │ ├── ssl │ │ │ ├── Jamfile │ │ │ └── module.scm │ │ ├── services │ │ │ └── module.scm │ │ ├── pem │ │ │ └── module.scm │ │ ├── http │ │ │ ├── Makefile │ │ │ ├── parspost.scm │ │ │ └── test-echo.scm │ │ ├── uuid │ │ │ └── module.scm │ │ ├── sha1 │ │ │ └── module.scm │ │ ├── asn1 │ │ │ └── module.scm │ │ ├── nvt │ │ │ ├── nvt.scm │ │ │ └── module.scm │ │ ├── html │ │ │ ├── Makefile │ │ │ └── parse │ │ │ │ └── module.scm │ │ ├── pserver │ │ │ ├── README │ │ │ └── module.scm │ │ ├── console │ │ │ └── module.scm │ │ ├── soap │ │ │ └── soap-ns.scm │ │ ├── raw │ │ │ └── ethernet.scm │ │ └── smtp │ │ │ └── module.scm │ ├── db │ │ ├── oodb │ │ │ ├── index.scm │ │ │ ├── assoc.scm │ │ │ ├── table.scm │ │ │ ├── object.scm │ │ │ ├── txn.scm │ │ │ └── entity.scm │ │ └── odbc │ │ │ └── extract.h │ ├── backend │ │ └── c │ │ │ ├── pragma_sealed.scm │ │ │ └── pragma_not_sealed.scm │ ├── io │ │ ├── here-strings │ │ │ └── rs_io_he.doc │ │ ├── textport │ │ │ ├── test.scm │ │ │ └── module.scm │ │ ├── scanner │ │ │ ├── HISTORY │ │ │ └── patch.scm │ │ ├── parser │ │ │ ├── HISTORY │ │ │ ├── module.scm │ │ │ └── test.scm │ │ ├── pushback │ │ │ └── module.scm │ │ └── conditional-read │ │ │ └── module.scm │ ├── mm │ │ └── module.scm │ ├── util │ │ ├── iterate │ │ │ ├── module.scm │ │ │ └── dotimes.scm │ │ ├── unicode │ │ │ ├── module.scm │ │ │ └── README │ │ ├── text │ │ │ ├── diff │ │ │ │ └── module.scm │ │ │ └── module.scm │ │ ├── charset │ │ │ └── HISTORY │ │ ├── msgs │ │ │ ├── HISTORY │ │ │ ├── warn.scm │ │ │ └── note.scm │ │ ├── properties │ │ │ ├── default.scm │ │ │ ├── errors.scm │ │ │ ├── using-assq.scm │ │ │ ├── get.scm │ │ │ └── using-vassq.scm │ │ ├── pack │ │ │ ├── _f32.ci │ │ │ ├── _f64.ci │ │ │ ├── _32.ci │ │ │ └── _64.ci │ │ ├── emacs │ │ │ └── hilight.scm │ │ ├── types │ │ │ └── module.scm │ │ ├── pstore │ │ │ └── migrate │ │ │ │ └── module.scm │ │ ├── reify │ │ │ └── module.scm │ │ ├── subprocess │ │ │ ├── module.scm │ │ │ └── inpath.scm │ │ ├── collection │ │ │ ├── lists.scm │ │ │ └── module.scm │ │ ├── logfile │ │ │ └── module.scm │ │ ├── pstoregc │ │ │ └── module.scm │ │ ├── tester │ │ │ └── module.scm │ │ ├── bits │ │ │ └── module.scm │ │ ├── relation │ │ │ └── world.scm │ │ └── memoize │ │ │ └── module.scm │ ├── sys │ │ ├── numeric │ │ │ └── module.scm │ │ ├── compression │ │ │ ├── glue.scm │ │ │ ├── lzw │ │ │ │ ├── lzwc.h │ │ │ │ └── module.scm │ │ │ └── module.scm │ │ ├── undefine │ │ │ ├── module.scm │ │ │ └── undefine.scm │ │ ├── crypto │ │ │ ├── test.scm │ │ │ ├── morebignum.h │ │ │ └── module.scm │ │ ├── generic-math │ │ │ ├── arithmetic.scm │ │ │ └── module.scm │ │ ├── multimethod │ │ │ ├── module.scm │ │ │ └── test.scm │ │ └── config │ │ │ └── module.scm │ └── macros │ │ └── module.scm ├── app │ ├── sourcebase │ │ ├── cli │ │ │ ├── edit.scm │ │ │ └── view.scm │ │ ├── client │ │ │ ├── locks │ │ │ ├── Makefile │ │ │ ├── busy │ │ │ └── sbmv │ │ ├── pstore │ │ │ ├── create.scm │ │ │ └── globals.scm │ │ ├── datamodel │ │ │ ├── audit.scm │ │ │ └── content.scm │ │ ├── migrate │ │ │ ├── more-disco.scm │ │ │ └── scan-for-binary.scm │ │ ├── sbs │ │ ├── kernel │ │ │ ├── kassert.scm │ │ │ ├── allocation.scm │ │ │ └── application.scm │ │ ├── hooks.scm │ │ ├── test │ │ │ └── test-074.rc │ │ └── api │ │ │ ├── user.scm │ │ │ └── group.scm │ ├── doc2ps │ │ ├── test.scm │ │ ├── module.scm │ │ ├── sample.sgml │ │ ├── init.scm │ │ ├── pdf.scm │ │ ├── Make │ │ └── test-jig.scm │ ├── webcontent │ │ ├── go.scm │ │ ├── images │ │ │ └── rscheme.png │ │ ├── README │ │ └── download.scm │ ├── chess │ │ └── chess.scm │ ├── ibis │ │ └── frontend │ │ │ ├── cli │ │ │ └── Makefile │ │ │ ├── bin │ │ │ └── note │ │ │ └── web │ │ │ ├── stylex.py │ │ │ └── followupform.html │ └── indexer │ │ ├── Makefile │ │ ├── parse-domain.scm │ │ ├── dpi.scm │ │ └── document.scm ├── util │ ├── sxml │ │ ├── test │ │ │ ├── test-02b.xml │ │ │ ├── test-00.xml │ │ │ ├── test-01.xml │ │ │ ├── test-03.xml │ │ │ ├── test-04.xml │ │ │ └── test-02.xml │ │ └── module.scm │ ├── html │ │ └── html.cat │ ├── xpath │ │ ├── UNIT_TEST │ │ └── module.scm │ ├── cprint │ │ └── module.scm │ ├── readline │ │ ├── termattr.scm │ │ └── state.scm │ ├── cvs │ │ ├── client │ │ │ ├── module.scm │ │ │ └── lineport.scm │ │ └── scan │ │ │ └── module.scm │ └── iconv │ │ └── module.scm ├── graphics │ ├── script │ │ └── manager │ │ │ └── test.scm │ ├── gd │ │ ├── config.h.in │ │ ├── gdio.h │ │ ├── README │ │ └── configure.in │ ├── png │ │ ├── back.png │ │ ├── back2.png │ │ ├── test.png │ │ └── test2.png │ ├── tiff │ │ ├── about.tiff │ │ ├── errors.scm │ │ └── rationals.scm │ ├── geometry │ │ ├── persist.scm │ │ └── UNIT_TEST │ ├── color │ │ ├── dither │ │ │ └── module.scm │ │ └── table.scm │ ├── device │ │ └── triv.scm │ ├── fontmgr │ │ └── loadall.sh │ └── pnm │ │ └── module.scm ├── gui │ ├── rstep │ │ └── x │ │ │ ├── msgs.scm │ │ │ ├── atoms.scm │ │ │ ├── tabber.scm │ │ │ └── control.scm │ ├── x │ │ ├── gcontext.scm │ │ ├── map-window.scm │ │ ├── unmap-window.scm │ │ ├── cursor.scm │ │ ├── free-gcontext.scm │ │ ├── xobject.scm │ │ ├── copy-gcontext.scm │ │ ├── colormap.scm │ │ └── copy-area.scm │ ├── app │ │ ├── dv │ │ │ ├── about-full.tiff │ │ │ ├── doc │ │ │ │ ├── admon │ │ │ │ │ ├── up.gif │ │ │ │ │ ├── home.gif │ │ │ │ │ ├── next.gif │ │ │ │ │ ├── note.dia │ │ │ │ │ ├── note.gif │ │ │ │ │ ├── prev.gif │ │ │ │ │ ├── tip.gif │ │ │ │ │ ├── caution.gif │ │ │ │ │ ├── warning.gif │ │ │ │ │ ├── important.gif │ │ │ │ │ ├── toc-blank.gif │ │ │ │ │ ├── toc-minus.gif │ │ │ │ │ └── toc-plus.gif │ │ │ │ ├── chap │ │ │ │ │ ├── files.dia │ │ │ │ │ └── glossary.sgml │ │ │ │ ├── Makefile │ │ │ │ └── bookinfo.sgml │ │ │ ├── images │ │ │ │ ├── box.png │ │ │ │ ├── cell.png │ │ │ │ ├── cells.png │ │ │ │ ├── dim.png │ │ │ │ ├── line.png │ │ │ │ ├── pen.png │ │ │ │ ├── tab0.png │ │ │ │ ├── tab1.png │ │ │ │ ├── tab2.png │ │ │ │ ├── tab3.png │ │ │ │ ├── tab4.png │ │ │ │ ├── tab5.png │ │ │ │ ├── tab6.png │ │ │ │ ├── tab7.png │ │ │ │ ├── tabx.png │ │ │ │ ├── text.png │ │ │ │ ├── ellipse.png │ │ │ │ ├── magnify.png │ │ │ │ ├── select.png │ │ │ │ ├── doc-insp.png │ │ │ │ ├── obj-insp.png │ │ │ │ ├── page-insp.png │ │ │ │ └── handypencil.png │ │ │ ├── macros │ │ │ │ ├── memorymap.scm │ │ │ │ ├── statediagram.scm │ │ │ │ └── test.ofig │ │ │ ├── scripts │ │ │ │ └── envelope.scm │ │ │ ├── length.scm │ │ │ ├── test-doc.dat │ │ │ ├── sound.scm │ │ │ ├── dv.scm │ │ │ ├── export.scm │ │ │ ├── winconfig.scm │ │ │ ├── exposure.scm │ │ │ ├── svg.scm │ │ │ ├── dev │ │ │ │ └── outline.scm │ │ │ ├── test.ofig │ │ │ ├── frame.scm │ │ │ ├── major │ │ │ │ └── zoom.scm │ │ │ ├── Makefile │ │ │ ├── chop.scm │ │ │ └── explode.scm │ │ └── notebook │ │ │ ├── math1.tiff │ │ │ ├── math2.tiff │ │ │ └── nb │ └── util │ │ ├── editor │ │ └── main.scm │ │ └── x │ │ └── device │ │ └── module.scm ├── srfi │ ├── 0 │ │ └── module.scm │ ├── 1 │ │ └── COPYRIGHT │ ├── 2 │ │ └── module.scm │ ├── 4 │ │ ├── module.scm │ │ └── scanner.scm │ ├── 6 │ │ └── module.scm │ ├── 8 │ │ └── module.scm │ ├── 9 │ │ └── module.scm │ ├── 18 │ │ ├── module.scm │ │ └── Makefile │ ├── 34 │ │ └── module.scm │ ├── 35 │ │ └── module.scm │ ├── 39 │ │ └── module.scm │ ├── 55 │ │ └── module.scm │ ├── 62 │ │ └── module.scm │ └── simple-sxml │ │ └── module.scm ├── MM.scm └── configure.in ├── stage0 ├── corelib │ ├── includes.lst │ ├── Makefile │ ├── corelib_r.h │ └── corelib.h ├── editinp │ ├── includes.lst │ ├── Makefile │ ├── editinp_r.h │ ├── editinp.h │ └── editinp_p.h ├── imageio │ ├── includes.lst │ ├── Makefile │ ├── imageio_r.h │ ├── imageio.h │ └── imageio_p.h ├── lowscm │ ├── includes.lst │ ├── Makefile │ ├── low_scheme_r.h │ ├── low_scheme.h │ └── low_scheme_p.h ├── mathlib │ ├── includes.lst │ ├── Makefile │ ├── mathlib_r.h │ └── mathlib.h ├── objsys │ ├── includes.lst │ ├── Makefile │ ├── objsys_r.h │ ├── objsys.h │ └── objsys_p.h ├── regex │ ├── includes.lst │ ├── Makefile │ ├── regex_r.h │ ├── regex.h │ └── regex_p.h ├── sort │ ├── includes.lst │ ├── Makefile │ ├── sort_r.h │ ├── sort.h │ └── sort_p.h ├── tables │ ├── includes.lst │ ├── Makefile │ ├── tables_r.h │ ├── tables.h │ └── tables_p.h ├── bci │ ├── includes.lst │ └── Makefile ├── cfg │ ├── gc │ │ ├── rtgc │ │ │ ├── rtgc │ │ │ │ ├── langtype.h │ │ │ │ ├── sizclass.h │ │ │ │ └── pointers.hh │ │ │ ├── scanroot.cc │ │ │ └── Makefile │ │ ├── irc │ │ │ ├── inlines.lst │ │ │ ├── includes.lst │ │ │ ├── Makefile │ │ │ ├── gcserver2.ci │ │ │ └── gcxverse.h │ │ └── freelist │ │ │ ├── inlines.lst │ │ │ ├── includes.lst │ │ │ ├── inlines.hh │ │ │ └── Makefile │ ├── gcadapt │ │ ├── irc │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── Makefile │ │ ├── rtgc │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── Makefile │ │ └── freelist │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── Makefile │ └── rdln │ │ ├── std │ │ └── Makefile │ │ └── gnu │ │ └── Makefile ├── iolib │ ├── includes.lst │ ├── Makefile │ ├── iolib_r.h │ └── iolib.h ├── platform │ ├── mac │ │ └── config_script.as │ └── arch │ │ ├── m68k │ │ └── hwregs │ │ └── powerpc │ │ └── hwregs ├── heapi │ ├── includes.lst │ └── Makefile ├── hasht │ └── includes.lst ├── release.cfg ├── tmp │ ├── system.bas │ └── buildcfg.scm ├── runtime │ ├── inlines.lst │ └── includes.lst ├── subproj.lst ├── install │ └── include │ │ └── rscheme │ │ └── rlseconf.cfg ├── lgh │ └── Makefile ├── postambl.mak ├── loadboot │ └── Makefile ├── dfltmain │ └── Makefile └── unstub │ └── Makefile ├── handc ├── cfg │ ├── gc │ │ ├── rtgc │ │ │ ├── rtgc │ │ │ │ ├── langtype.h │ │ │ │ ├── sizclass.h │ │ │ │ └── pointers.hh │ │ │ ├── scanroot.cc │ │ │ └── Makefile │ │ ├── irc │ │ │ ├── inlines.lst │ │ │ ├── includes.lst │ │ │ ├── Makefile │ │ │ ├── gcserver2.ci │ │ │ └── gcxverse.h │ │ └── freelist │ │ │ ├── inlines.lst │ │ │ ├── includes.lst │ │ │ ├── inlines.hh │ │ │ └── Makefile │ ├── gcadapt │ │ ├── irc │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── Makefile │ │ ├── freelist │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── Makefile │ │ └── rtgc │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── Makefile │ └── rdln │ │ ├── std │ │ └── Makefile │ │ └── gnu │ │ └── Makefile ├── bci │ ├── includes.lst │ └── Makefile ├── platform │ ├── mac │ │ └── config_script.as │ └── arch │ │ ├── m68k │ │ └── hwregs │ │ └── powerpc │ │ └── hwregs ├── heapi │ ├── includes.lst │ └── Makefile ├── hasht │ └── includes.lst ├── runtime │ ├── inlines.lst │ └── includes.lst ├── lgh │ └── Makefile ├── postambl.mak ├── loadboot │ └── Makefile ├── dfltmain │ └── Makefile └── unstub │ └── Makefile ├── test ├── lexical.dat ├── d193.script └── d299.scm ├── doc ├── figs │ ├── str1.strfig │ ├── Makefile │ ├── list1.ofig │ └── list3.ofig ├── articles │ └── persistence │ │ └── ref.xml ├── docbook3.dsl ├── chaps │ ├── glossary.sgml │ ├── calendar.sgml │ ├── defmodule.sgml │ └── inet.sgml ├── obtain.sgml ├── tools │ └── eps2png └── ref │ ├── open.sgml │ ├── export.sgml │ ├── files.sgml │ ├── bt.sgml │ └── abt.sgml ├── pg ├── genmodel.scm └── make.pkg ├── packages ├── lss │ ├── timebase │ │ ├── config.h.in │ │ ├── timebase.h │ │ ├── ppcdarwin │ │ │ └── readtime.s │ │ ├── ppc │ │ │ └── readtime.s │ │ └── Makefile.in │ ├── config.h.in │ ├── alloc.h │ ├── make.pkg │ └── glue.scm.in ├── rstore │ ├── loader.c │ ├── config.h.in │ ├── make.pkg │ ├── old_model │ │ └── Makefile.in │ ├── alloc.h │ ├── lru_model │ │ └── Makefile.in │ ├── indirect.h │ ├── htable.h │ ├── configure.in │ └── glue.scm ├── syscalls │ ├── make.bld │ └── dirent.scm ├── x11 │ ├── XRScheme │ │ ├── std.gif │ │ ├── napps.tiff │ │ ├── nimage.tiff │ │ ├── std-graphics.tiff │ │ ├── selection.vrt │ │ │ └── document.vrt │ │ └── test.if │ └── config.scm ├── threads │ ├── manager │ │ ├── threads-1.pre │ │ ├── util.h │ │ ├── output.h │ │ ├── synch.h │ │ ├── process.h │ │ └── group.scm │ ├── make.pkg │ └── shell │ │ └── make.pkg ├── unixm │ ├── safeglue.scm │ └── misc.h ├── general │ ├── rs_glue.scm │ ├── rs_sys_paths.scm │ ├── rs_lang_eval.scm │ ├── rs_sys_linker.scm │ └── make.pkg ├── modules.lst ├── db │ └── safeglue.scm ├── rdyl │ ├── make.bld │ └── yaccglue.scm ├── fasl │ ├── faslglue.scm │ └── mkfasl ├── calendar │ └── yearpart.scm └── httpd │ ├── peopledb.scm │ └── reloader.scm └── modules ├── mathlib └── constants.scm ├── mlink └── runtime.scm ├── modules.lst └── layer └── layer.mcf /lib/rs/net/tls/privkey.pem: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/corelib/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/editinp/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/imageio/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/lowscm/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/mathlib/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/objsys/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/regex/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/sort/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/tables/includes.lst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /handc/cfg/gc/rtgc/rtgc/langtype.h: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /lib/app/sourcebase/cli/edit.scm: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /handc/bci/includes.lst: -------------------------------------------------------------------------------- 1 | bcextend.h 2 | -------------------------------------------------------------------------------- /handc/platform/mac/config_script.as: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/bci/includes.lst: -------------------------------------------------------------------------------- 1 | bcextend.h 2 | -------------------------------------------------------------------------------- /stage0/cfg/gc/rtgc/rtgc/langtype.h: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /stage0/iolib/includes.lst: -------------------------------------------------------------------------------- 1 | stdiox.h 2 | -------------------------------------------------------------------------------- /stage0/platform/mac/config_script.as: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /handc/heapi/includes.lst: -------------------------------------------------------------------------------- 1 | heapi.h 2 | imagfile.h -------------------------------------------------------------------------------- /stage0/heapi/includes.lst: -------------------------------------------------------------------------------- 1 | heapi.h 2 | imagfile.h -------------------------------------------------------------------------------- /test/lexical.dat: -------------------------------------------------------------------------------- 1 | {this is {a} test} 2 | X 3 | -------------------------------------------------------------------------------- /doc/figs/str1.strfig: -------------------------------------------------------------------------------- 1 | ("1 2 Buckle my shoe" ()) 2 | -------------------------------------------------------------------------------- /lib/util/sxml/test/test-02b.xml: -------------------------------------------------------------------------------- 1 | ha foo ha 2 | -------------------------------------------------------------------------------- /handc/cfg/gc/irc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcserver1.ci 2 | gcserver2.ci 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/irc/includes.lst: -------------------------------------------------------------------------------- 1 | gcadapt.h 2 | langtype.h 3 | -------------------------------------------------------------------------------- /stage0/cfg/gc/irc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcserver1.ci 2 | gcserver2.ci 3 | -------------------------------------------------------------------------------- /handc/cfg/gc/freelist/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/freelist/includes.lst: -------------------------------------------------------------------------------- 1 | langtype.h 2 | gcadapt.h 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/irc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/rtgc/includes.lst: -------------------------------------------------------------------------------- 1 | langtype.h 2 | gcadapt.h 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/rtgc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /handc/hasht/includes.lst: -------------------------------------------------------------------------------- 1 | hashfn.h 2 | hasht.h 3 | hashmain.h 4 | -------------------------------------------------------------------------------- /lib/graphics/script/manager/test.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (draw) 3 | 4 | -------------------------------------------------------------------------------- /pg/genmodel.scm: -------------------------------------------------------------------------------- 1 | ;;; 2 | ;;; generate a model file 3 | ;;; 4 | 5 | -------------------------------------------------------------------------------- /stage0/cfg/gc/freelist/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /stage0/cfg/gcadapt/irc/includes.lst: -------------------------------------------------------------------------------- 1 | gcadapt.h 2 | langtype.h 3 | -------------------------------------------------------------------------------- /stage0/cfg/gcadapt/irc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /stage0/cfg/gcadapt/rtgc/includes.lst: -------------------------------------------------------------------------------- 1 | langtype.h 2 | gcadapt.h 3 | -------------------------------------------------------------------------------- /stage0/hasht/includes.lst: -------------------------------------------------------------------------------- 1 | hashfn.h 2 | hasht.h 3 | hashmain.h 4 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/freelist/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /lib/gui/rstep/x/msgs.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-message-table gui.rstep.x 621) 3 | -------------------------------------------------------------------------------- /lib/rs/db/oodb/index.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class ()) 3 | -------------------------------------------------------------------------------- /stage0/cfg/gcadapt/freelist/includes.lst: -------------------------------------------------------------------------------- 1 | langtype.h 2 | gcadapt.h 3 | -------------------------------------------------------------------------------- /stage0/cfg/gcadapt/freelist/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /stage0/cfg/gcadapt/rtgc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /doc/articles/persistence/ref.xml: -------------------------------------------------------------------------------- 1 | &file.ref-open; 2 | &file.ref-create; 3 | -------------------------------------------------------------------------------- /lib/gui/x/gcontext.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class ()) 3 | 4 | -------------------------------------------------------------------------------- /packages/lss/timebase/config.h.in: -------------------------------------------------------------------------------- 1 | 2 | #define HAS_NATIVE_TIMEBASE 0 3 | -------------------------------------------------------------------------------- /packages/rstore/loader.c: -------------------------------------------------------------------------------- 1 | #include "rstoret.h" 2 | #include "mmglue.h" 3 | 4 | -------------------------------------------------------------------------------- /lib/rs/db/oodb/assoc.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class ()) 3 | 4 | -------------------------------------------------------------------------------- /doc/docbook3.dsl: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/doc/docbook3.dsl -------------------------------------------------------------------------------- /lib/graphics/gd/config.h.in: -------------------------------------------------------------------------------- 1 | /* -*-c-*- */ 2 | 3 | #define LIBGD_IOCTX_HAS_FREE (0) 4 | -------------------------------------------------------------------------------- /lib/rs/net/ubf/lib/hash.h: -------------------------------------------------------------------------------- 1 | unsigned long crc_hash( const void *bytes, unsigned len ); 2 | 3 | -------------------------------------------------------------------------------- /handc/cfg/gc/freelist/includes.lst: -------------------------------------------------------------------------------- 1 | gcserver.h 2 | gcstruct.h 3 | gcxverse.h 4 | gcclient.h 5 | -------------------------------------------------------------------------------- /handc/cfg/gc/freelist/inlines.hh: -------------------------------------------------------------------------------- 1 | /* this is an empty file */ 2 | /* (because rtgc has one!) */ 3 | -------------------------------------------------------------------------------- /stage0/cfg/gc/freelist/includes.lst: -------------------------------------------------------------------------------- 1 | gcserver.h 2 | gcstruct.h 3 | gcxverse.h 4 | gcclient.h 5 | -------------------------------------------------------------------------------- /stage0/release.cfg: -------------------------------------------------------------------------------- 1 | RSCHEME_VERSION="0.7.3.4-b7u" 2 | RSCHEME_BUILD="v0.7.3.4-b7u, 2007-05-30" 3 | -------------------------------------------------------------------------------- /stage0/tmp/system.bas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/stage0/tmp/system.bas -------------------------------------------------------------------------------- /lib/app/sourcebase/client/locks: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | sb --report locked-files --where user = "$SB_LOGIN" 3 | -------------------------------------------------------------------------------- /stage0/cfg/gc/freelist/inlines.hh: -------------------------------------------------------------------------------- 1 | /* this is an empty file */ 2 | /* (because rtgc has one!) */ 3 | -------------------------------------------------------------------------------- /lib/app/doc2ps/test.scm: -------------------------------------------------------------------------------- 1 | (define (foo) 3) 2 | (define (bar) 4) 3 | (define (quux) (list (foo) (bar))) 4 | -------------------------------------------------------------------------------- /lib/graphics/png/back.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/graphics/png/back.png -------------------------------------------------------------------------------- /lib/graphics/png/back2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/graphics/png/back2.png -------------------------------------------------------------------------------- /lib/graphics/png/test.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/graphics/png/test.png -------------------------------------------------------------------------------- /lib/graphics/png/test2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/graphics/png/test2.png -------------------------------------------------------------------------------- /lib/rs/backend/c/pragma_sealed.scm: -------------------------------------------------------------------------------- 1 | (define-module-extend repl () (set! *slots-sealed-by-default?* #t)) 2 | -------------------------------------------------------------------------------- /modules/mathlib/constants.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-constant $Pi (atan 0 -1)) 3 | (define-constant $E (exp 1)) 4 | -------------------------------------------------------------------------------- /lib/graphics/tiff/about.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/graphics/tiff/about.tiff -------------------------------------------------------------------------------- /lib/rs/backend/c/pragma_not_sealed.scm: -------------------------------------------------------------------------------- 1 | (define-module-extend repl () (set! *slots-sealed-by-default?* #f)) 2 | -------------------------------------------------------------------------------- /packages/syscalls/make.bld: -------------------------------------------------------------------------------- 1 | 2 | sysio.bcx sysio.ci: sysio.scm 3 | rs mksyscalls.scm -e '(do-file)' -exit 4 | -------------------------------------------------------------------------------- /lib/gui/app/dv/about-full.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/about-full.tiff -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/up.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/up.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/images/box.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/box.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/cell.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/cell.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/cells.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/cells.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/dim.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/dim.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/line.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/line.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/pen.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/pen.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab0.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab0.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab1.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab2.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab3.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab4.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab5.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab6.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab6.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab7.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tab7.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tabx.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/tabx.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/text.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/text.png -------------------------------------------------------------------------------- /lib/gui/app/dv/macros/memorymap.scm: -------------------------------------------------------------------------------- 1 | ;;; 2 | ;;; generate something that looks basically like a memory map 3 | ;;; 4 | -------------------------------------------------------------------------------- /lib/gui/app/notebook/math1.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/notebook/math1.tiff -------------------------------------------------------------------------------- /lib/gui/app/notebook/math2.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/notebook/math2.tiff -------------------------------------------------------------------------------- /lib/rs/io/here-strings/rs_io_he.doc: -------------------------------------------------------------------------------- 1 | (rs.io.here-strings (iolib high-scheme objsys low-scheme corelib *scheme*) () ()) -------------------------------------------------------------------------------- /lib/rs/net/httpd/baseline.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/rs/net/httpd/baseline.png -------------------------------------------------------------------------------- /lib/rs/net/httpd/docs-icons.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/rs/net/httpd/docs-icons.png -------------------------------------------------------------------------------- /lib/rs/net/httpd/ibis-ico.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/rs/net/httpd/ibis-ico.png -------------------------------------------------------------------------------- /lib/rs/net/httpd/testimage.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/rs/net/httpd/testimage.png -------------------------------------------------------------------------------- /packages/x11/XRScheme/std.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/packages/x11/XRScheme/std.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/home.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/home.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/next.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/next.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/note.dia: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/note.dia -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/note.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/note.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/prev.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/prev.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/tip.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/tip.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/chap/files.dia: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/chap/files.dia -------------------------------------------------------------------------------- /lib/gui/app/dv/images/ellipse.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/ellipse.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/magnify.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/magnify.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/select.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/select.png -------------------------------------------------------------------------------- /lib/util/html/html.cat: -------------------------------------------------------------------------------- 1 | PUBLIC "-//IETF//DTD HTML 3.2//EN" html.dtd 2 | PUBLIC "-//W3C//DTD HTML 4.01//EN" html4.dtd 3 | -------------------------------------------------------------------------------- /packages/rstore/config.h.in: -------------------------------------------------------------------------------- 1 | #ifndef _H_RSTORE_CONFIG 2 | #define _H_RSTORE_CONFIG 3 | 4 | #endif /* _H_RSTORE_CONFIG */ -------------------------------------------------------------------------------- /packages/x11/XRScheme/napps.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/packages/x11/XRScheme/napps.tiff -------------------------------------------------------------------------------- /packages/x11/XRScheme/nimage.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/packages/x11/XRScheme/nimage.tiff -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/caution.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/caution.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/warning.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/warning.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/images/doc-insp.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/doc-insp.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/obj-insp.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/obj-insp.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/page-insp.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/page-insp.png -------------------------------------------------------------------------------- /lib/rs/db/oodb/table.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | name 4 | entity-area 5 | entities) 6 | 7 | -------------------------------------------------------------------------------- /lib/rs/net/httpd/16x16-template.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/rs/net/httpd/16x16-template.png -------------------------------------------------------------------------------- /lib/rs/net/tls/README: -------------------------------------------------------------------------------- 1 | ;;; 2 | ;;; This is a Scheme implementation of TLS, 3 | ;;; or an attempt along those lines 4 | ;;; 5 | -------------------------------------------------------------------------------- /handc/platform/arch/m68k/hwregs: -------------------------------------------------------------------------------- 1 | -DM68K_REGS -ffixed-a3 -ffixed-a4 -ffixed-a5 \ 2 | -ffixed-d4 -ffixed-d5 -ffixed-d6 -ffixed-d7 3 | -------------------------------------------------------------------------------- /lib/app/webcontent/go.scm: -------------------------------------------------------------------------------- 1 | (load "datamodel.scm") 2 | (load "sample.scm") 3 | (load "webside.scm") 4 | 5 | (opengo "/tmp/i.rep") 6 | -------------------------------------------------------------------------------- /lib/app/webcontent/images/rscheme.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/app/webcontent/images/rscheme.png -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/important.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/important.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/toc-blank.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/toc-blank.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/toc-minus.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/toc-minus.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/toc-plus.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/doc/admon/toc-plus.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/images/handypencil.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/lib/gui/app/dv/images/handypencil.png -------------------------------------------------------------------------------- /lib/rs/io/textport/test.scm: -------------------------------------------------------------------------------- 1 | ,(use rs.io.textport) 2 | 3 | (define p (make-text-input-port (open-input-string "foo\nbar\n"))) 4 | -------------------------------------------------------------------------------- /packages/threads/manager/threads-1.pre: -------------------------------------------------------------------------------- 1 | ,(use rs.sys.threads.manager) 2 | '((tag threads-1) 3 | (title "Threads Test Suite #1")) 4 | -------------------------------------------------------------------------------- /packages/unixm/safeglue.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-macro (define-unix-glue args . body) 3 | `(define-syscall-glue ,args 4 | ,@body)) 5 | -------------------------------------------------------------------------------- /stage0/platform/arch/m68k/hwregs: -------------------------------------------------------------------------------- 1 | -DM68K_REGS -ffixed-a3 -ffixed-a4 -ffixed-a5 \ 2 | -ffixed-d4 -ffixed-d5 -ffixed-d6 -ffixed-d7 3 | -------------------------------------------------------------------------------- /packages/x11/XRScheme/std-graphics.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/packages/x11/XRScheme/std-graphics.tiff -------------------------------------------------------------------------------- /handc/runtime/inlines.lst: -------------------------------------------------------------------------------- 1 | chektype.ci 2 | interim.ci 3 | ntohd.ci 4 | readwrit.ci 5 | smemory.ci 6 | stack.ci 7 | stakcach.ci 8 | vinsns.ci 9 | -------------------------------------------------------------------------------- /lib/app/chess/chess.scm: -------------------------------------------------------------------------------- 1 | (load "boardsim.scm") 2 | (load "compile.scm") 3 | (load "game.scm") 4 | (load "moves.scm") 5 | (load "print.scm") 6 | -------------------------------------------------------------------------------- /lib/gui/app/dv/scripts/envelope.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-interactive (envelope name) 3 | (interactive (minibuffer "Name: ")) 4 | ) 5 | -------------------------------------------------------------------------------- /packages/syscalls/dirent.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-safe-glue (scandir (path )) 3 | { 4 | REG0 = rs_scandir( path ); 5 | RETURN1(); 6 | }) 7 | -------------------------------------------------------------------------------- /stage0/runtime/inlines.lst: -------------------------------------------------------------------------------- 1 | chektype.ci 2 | interim.ci 3 | ntohd.ci 4 | readwrit.ci 5 | smemory.ci 6 | stack.ci 7 | stakcach.ci 8 | vinsns.ci 9 | -------------------------------------------------------------------------------- /lib/rs/net/dns/encode-label.scm: -------------------------------------------------------------------------------- 1 | 2 | (def (label->bs lab) 3 | (bs-append (uint8->bs (len lab)) lab)) 4 | 5 | (def char-string->bs label->bs) 6 | 7 | -------------------------------------------------------------------------------- /lib/util/sxml/test/test-00.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | bar&ie; 7 | 8 | -------------------------------------------------------------------------------- /packages/general/rs_glue.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.glue () 2 | (&module 3 | (import *scheme* corelib) 4 | (export define-glue define-safe-glue))) 5 | -------------------------------------------------------------------------------- /packages/lss/config.h.in: -------------------------------------------------------------------------------- 1 | #ifndef _H_LSS_CONFIG 2 | #define _H_LSS_CONFIG 3 | 4 | #define ZIPPERS "@zippers@" 5 | 6 | #endif /* _H_LSS_CONFIG */ 7 | -------------------------------------------------------------------------------- /packages/x11/XRScheme/selection.vrt/document.vrt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/evilbinary/rscheme/master/packages/x11/XRScheme/selection.vrt/document.vrt -------------------------------------------------------------------------------- /lib/rs/mm/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.mm () 2 | (&module 3 | (import usual-inlines) 4 | (import repl) 5 | (import paths) 6 | (load "mm.scm"))) 7 | -------------------------------------------------------------------------------- /lib/rs/net/dns/encode-ip.scm: -------------------------------------------------------------------------------- 1 | 2 | (def (ip->bs ip) 3 | (apply bs-append 4 | (map uint8->bs 5 | (map string->number 6 | (string-split ip "."))))) -------------------------------------------------------------------------------- /stage0/subproj.lst: -------------------------------------------------------------------------------- 1 | runtime hasht heapi loadboot unstub gc gcadapt rdln bci dfltmain corelib low-scheme objsys tables mathlib iolib regex sort imageio editinp 2 | -------------------------------------------------------------------------------- /lib/app/doc2ps/module.scm: -------------------------------------------------------------------------------- 1 | (define-module-extend gui.app.dv (unquote) 2 | ,(load "iterator.scm") 3 | ,(load "pages2.scm") 4 | ,(load "bookstyles.scm")) 5 | 6 | -------------------------------------------------------------------------------- /lib/app/sourcebase/pstore/create.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (create-database (app ) (path )) 3 | (setup-pstore (create-persistent-store path) app)) 4 | -------------------------------------------------------------------------------- /lib/rs/net/ssl/Jamfile: -------------------------------------------------------------------------------- 1 | 2 | Main sslmgr : server.c ; 3 | 4 | ObjectCcFlags server.c : -g -Wall -I/usr/kerberos/include ; 5 | LINKFLAGS on sslmgr = -g -lssl -lcap ; 6 | -------------------------------------------------------------------------------- /lib/rs/util/iterate/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.util.iterate () 2 | (&module 3 | (import usual-inlines) 4 | (load "dotimes.scm") 5 | (export do-times))) 6 | -------------------------------------------------------------------------------- /packages/threads/make.pkg: -------------------------------------------------------------------------------- 1 | install:: 2 | cd ../.. ; packages/pkg-bld $(INSTALL_DIR) threads/manager 3 | cd ../.. ; packages/pkg-bld $(INSTALL_DIR) threads/shell 4 | -------------------------------------------------------------------------------- /lib/graphics/gd/gdio.h: -------------------------------------------------------------------------------- 1 | #ifndef _H_RS_GDIO 2 | #define _H_RS_GDIO 3 | 4 | #include 5 | 6 | obj rs_gd_strout( obj port ); 7 | 8 | #endif /* _H_RS_GDIO */ 9 | -------------------------------------------------------------------------------- /lib/util/sxml/test/test-01.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 5 | ]> 6 | 7 | 8 | hello (&ha;) 9 | 10 | -------------------------------------------------------------------------------- /lib/gui/app/dv/length.scm: -------------------------------------------------------------------------------- 1 | (define-unit pt) 2 | (define-unit in 72pt) 3 | (define-unit mm 720/254pt) 4 | (define-unit cm 10mm) 5 | 6 | (define *default-length-units* 1pt) 7 | -------------------------------------------------------------------------------- /packages/lss/timebase/timebase.h: -------------------------------------------------------------------------------- 1 | 2 | typedef long long timebase_t; 3 | 4 | timebase_t read_timebase(); 5 | long timebase_diff_usec( timebase_t t1, timebase_t t0 ); 6 | 7 | -------------------------------------------------------------------------------- /test/d193.script: -------------------------------------------------------------------------------- 1 | #!rs -script 2 | (display "Hello\n") 3 | (define (main args) 4 | (for-each (lambda (a) 5 | (format #t "[~a]\n" a)) 6 | args)) 7 | -------------------------------------------------------------------------------- /lib/app/ibis/frontend/cli/Makefile: -------------------------------------------------------------------------------- 1 | 2 | ibis: client.c 3 | $(CC) -g -Wall client.c -o ibis 4 | 5 | init: ibis 6 | sh -x ./test.sh 7 | 8 | clean:: 9 | rm -f ibis 10 | -------------------------------------------------------------------------------- /lib/graphics/geometry/persist.scm: -------------------------------------------------------------------------------- 1 | (define *geometry-classes* 2 | (vector 3 | 4 | 5 | 6 | 7 | )) 8 | -------------------------------------------------------------------------------- /lib/app/sourcebase/datamodel/audit.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | user 4 | operation 5 | arg-list 6 | result 7 | info 8 | timestamp) 9 | -------------------------------------------------------------------------------- /lib/rs/net/dns/encode-query.scm: -------------------------------------------------------------------------------- 1 | 2 | (def (query->bs q) 3 | (bs-append (dn->bs (name q)) 4 | (uint16->bs (type->num (type q))) 5 | (uint16->bs (class->num (class q))))) 6 | -------------------------------------------------------------------------------- /packages/modules.lst: -------------------------------------------------------------------------------- 1 | fasl 2 | syscalls 3 | calendar 4 | sets 5 | db 6 | unixm 7 | ttywin 8 | x11 9 | rs.sys.threads.manager 10 | rs.sys.threads.shell 11 | lss 12 | rstore 13 | -------------------------------------------------------------------------------- /packages/x11/XRScheme/test.if: -------------------------------------------------------------------------------- 1 | 2 | (*black* *white* *dark* *light* owner) 3 | 4 | (list (make 5 | parent: owner 6 | frame: (make-rect 0 0 7 | 8 | (vector 9 | -------------------------------------------------------------------------------- /lib/gui/x/map-window.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (map-window (self )) 3 | (internal-send 4 | (x-display self) 5 | (make-buffer u1: 8 6 | u1: 0 7 | u2: 2 8 | u4: (x-id self)))) 9 | -------------------------------------------------------------------------------- /pg/make.pkg: -------------------------------------------------------------------------------- 1 | 2 | install:: 3 | ./configure --with-rs=$(INSTALL_DIR)/bin/rs 4 | make all 5 | 6 | clean:: 7 | if test -f Makefile ; then make clean ; fi 8 | rm -f Makefile config.cache 9 | -------------------------------------------------------------------------------- /lib/gui/x/unmap-window.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (unmap-window (self )) 3 | (internal-send 4 | (x-display self) 5 | (make-buffer u1: 10 6 | u1: 0 7 | u2: 2 8 | u4: (x-id self)))) 9 | -------------------------------------------------------------------------------- /lib/rs/net/services/module.scm: -------------------------------------------------------------------------------- 1 | ,(use syscalls 2 | rs.util.properties 3 | rs.sys.threads.manager) 4 | 5 | (load "services.scm") 6 | (load "container.scm") 7 | (load "procedural.scm") 8 | -------------------------------------------------------------------------------- /lib/gui/app/dv/test-doc.dat: -------------------------------------------------------------------------------- 1 | ;;; this is an Ardvarki document -*-scheme-*- 2 | 3 | (document 4 | views: (vector 5 | (view frame: (rect 50 50 180 300)) 6 | (view frame: (rect 200 70 250 250)))) 7 | -------------------------------------------------------------------------------- /lib/gui/x/cursor.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class ()) 3 | 4 | (define (cursor? item) 5 | (instance? item )) 6 | 7 | (define (cursor-id (self )) 8 | (x-id self)) 9 | -------------------------------------------------------------------------------- /lib/rs/util/unicode/module.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-module rs.util.unicode () 3 | (&module 4 | (import usual-inlines rs.util.charset tables) 5 | (load "access.scm") 6 | (export get-unicode-info))) 7 | -------------------------------------------------------------------------------- /lib/util/xpath/UNIT_TEST: -------------------------------------------------------------------------------- 1 | ;;;@title RScheme XPath Baseline Tests 2 | ;;;@tag util.xpath-1 3 | (define x '(*TOP* (doc (@ (foo "bar")) (baz (@ (kind "a")) "123")))) 4 | (xpath () x "doc/baz[@kind='a']") 5 | -------------------------------------------------------------------------------- /lib/gui/x/free-gcontext.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (free-gcontext (gc )) 3 | (internal-send 4 | (x-display gc) 5 | (make-buffer u1: 60 ;; FreeGC 6 | u1: 0 7 | u2: 2 8 | u4: (x-id gc)))) 9 | -------------------------------------------------------------------------------- /lib/rs/net/pem/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.net.pem () 2 | (&module (import usual-inlines)) 3 | (&module 4 | (load "pem.scm") 5 | (export pem-encode 6 | random-pem 7 | pem-decode))) 8 | -------------------------------------------------------------------------------- /lib/rs/sys/numeric/module.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-module rs.sys.numeric () 3 | (&module 4 | (import rs.lang) ;(import usual-inlines) 5 | ; 6 | (load "chop.scm") 7 | ; 8 | (export chop))) 9 | -------------------------------------------------------------------------------- /lib/rs/util/text/diff/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.util.text.diff () 2 | (&module 3 | (import usual-inlines) 4 | ;; 5 | (load "levenshtein.scm") 6 | ;; 7 | (export levenshtein-distance))) 8 | -------------------------------------------------------------------------------- /lib/rs/net/http/Makefile: -------------------------------------------------------------------------------- 1 | pecho: 2 | rs --in usual-inlines url.scm escapes.scm parspost.scm test-echo.scm -c pecho 3 | makex pecho /usr/local/bin/rs 4 | 5 | install:: 6 | cp -p pecho /var/apache/cgi-bin 7 | -------------------------------------------------------------------------------- /lib/srfi/2/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.2 () 2 | (&module 3 | (import rs.lang) 4 | (implements SRFI-2 srfi-2) 5 | ;; 6 | ;; 7 | (load "ref.scm") 8 | ; 9 | (export and-let*))) 10 | -------------------------------------------------------------------------------- /lib/srfi/55/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.55 () 2 | (&module 3 | (import usual-inlines mlink) 4 | (implements SRFI-55 srfi-55) 5 | (load "require-extension.scm") 6 | (export require-extension))) 7 | -------------------------------------------------------------------------------- /lib/rs/db/odbc/extract.h: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | 5 | obj compile_odbc_extraction_plan( obj meta ); 6 | obj run_odbc_extraction_plan( HSTMT hstmt, obj plan ); 7 | -------------------------------------------------------------------------------- /lib/rs/sys/compression/glue.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-macro (define-zlib-glue args . body) 3 | `(define-safe-glue ,args 4 | properties: ((other-h-files "") 5 | (other-libs "z")) 6 | ,@body)) 7 | 8 | -------------------------------------------------------------------------------- /modules/mlink/runtime.scm: -------------------------------------------------------------------------------- 1 | (define (resolve-module-reference (target-name ) (space )) 2 | (let ((b (assq target-name space))) 3 | (if b 4 | (cdr b) 5 | (get-module target-name)))) 6 | -------------------------------------------------------------------------------- /doc/chaps/glossary.sgml: -------------------------------------------------------------------------------- 1 | symbol 2 | variable 3 | identifier 4 | variable name 5 | module 6 | expression 7 | special form 8 | combination 9 | datum 10 | value 11 | signal 12 | condition 13 | catch 14 | throw 15 | -------------------------------------------------------------------------------- /lib/rs/io/scanner/HISTORY: -------------------------------------------------------------------------------- 1 | History 2 | ======= 3 | 4 | 1997-09-26 converted to module using `define-module', 5 | seperated out from rest of parser 6 | 7 | 1996-11-25 initial implementation as part of RS 0.9 parser 8 | -------------------------------------------------------------------------------- /lib/rs/net/dns/util.scm: -------------------------------------------------------------------------------- 1 | 2 | (defmacro with-rr-fields (r . body) 3 | `(let ((name (rr-name r)) 4 | (type (rr-type r)) 5 | (class (rr-class r)) 6 | (ttl (rr-ttl r)) 7 | (rdata (rr-rdata r))) 8 | ,@body)) 9 | -------------------------------------------------------------------------------- /lib/rs/sys/compression/lzw/lzwc.h: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | typedef struct _LZWStream LZWStream; 4 | 5 | LZWStream *lzw_create( obj port ); 6 | void lzw_run( LZWStream *s, unsigned char *ptr, unsigned len ); 7 | 8 | -------------------------------------------------------------------------------- /lib/rs/util/charset/HISTORY: -------------------------------------------------------------------------------- 1 | History 2 | ======= 3 | 4 | 1997-09-26 converted to module using `define-module', 5 | seperated out from rest of parser 6 | 7 | 1996-11-27 initial implementation as part of RS 0.9 parser 8 | -------------------------------------------------------------------------------- /handc/cfg/gc/irc/includes.lst: -------------------------------------------------------------------------------- 1 | alloc.h 2 | clientyp.h 3 | gcconfig.h 4 | gcserver.h 5 | gcglue.h 6 | irc.h 7 | irctypes.h 8 | record.h 9 | sizeclas.h 10 | traverse.h 11 | travstat.h 12 | writebar.h 13 | gcxverse.h 14 | -------------------------------------------------------------------------------- /handc/platform/arch/powerpc/hwregs: -------------------------------------------------------------------------------- 1 | -DRS6000_REGS -ffixed-26 -ffixed-25 -ffixed-24 \ 2 | -ffixed-23 -ffixed-22 -ffixed-21 -ffixed-20 \ 3 | -ffixed-19 -ffixed-18 -ffixed-17 -ffixed-16 \ 4 | -ffixed-15 -ffixed-14 -ffixed-13 5 | -------------------------------------------------------------------------------- /lib/app/ibis/frontend/bin/note: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | if test "$1" = "-p" 4 | then IBIS_SERVER=localhost:$2 5 | export IBIS_SERVER 6 | shift 2 7 | fi 8 | 9 | ibis --note "$1" --title untitled --comment - 10 | -------------------------------------------------------------------------------- /packages/lss/timebase/ppcdarwin/readtime.s: -------------------------------------------------------------------------------- 1 | .text 2 | .align 2 3 | .globl _read_timebase 4 | _read_timebase: 5 | mftbu r3 6 | mftb r4 7 | mftbu r5 8 | cmpw 0,r3,r5 9 | bne- _read_timebase 10 | blr 11 | -------------------------------------------------------------------------------- /stage0/cfg/gc/irc/includes.lst: -------------------------------------------------------------------------------- 1 | alloc.h 2 | clientyp.h 3 | gcconfig.h 4 | gcserver.h 5 | gcglue.h 6 | irc.h 7 | irctypes.h 8 | record.h 9 | sizeclas.h 10 | traverse.h 11 | travstat.h 12 | writebar.h 13 | gcxverse.h 14 | -------------------------------------------------------------------------------- /stage0/platform/arch/powerpc/hwregs: -------------------------------------------------------------------------------- 1 | -DRS6000_REGS -ffixed-26 -ffixed-25 -ffixed-24 \ 2 | -ffixed-23 -ffixed-22 -ffixed-21 -ffixed-20 \ 3 | -ffixed-19 -ffixed-18 -ffixed-17 -ffixed-16 \ 4 | -ffixed-15 -ffixed-14 -ffixed-13 5 | -------------------------------------------------------------------------------- /lib/rs/net/uuid/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.net.uuid () 2 | (&module 3 | (import usual-inlines 4 | rs.net.md5) 5 | (load "uuid.scm") 6 | 7 | (export make-uuid 8 | ))) 9 | 10 | -------------------------------------------------------------------------------- /lib/graphics/color/dither/module.scm: -------------------------------------------------------------------------------- 1 | (define-module graphics.color.dither () 2 | (&module 3 | (import usual-inlines) 4 | (import graphics.color) 5 | ;; 6 | (load "dither.scm") 7 | (export compute-dithering))) 8 | 9 | -------------------------------------------------------------------------------- /lib/rs/sys/undefine/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.sys.undefine () 2 | (&module 3 | (import usual-inlines) 4 | (import compiler) 5 | (import tables) 6 | ; 7 | (load "undefine.scm") 8 | (export undefine redefine))) 9 | -------------------------------------------------------------------------------- /lib/rs/util/msgs/HISTORY: -------------------------------------------------------------------------------- 1 | History 2 | ======= 3 | 4 | 1997-09-30 various fixes and semantic changes; addition 5 | of warning messages, message types, unified message 6 | prefixes, etc. 7 | 8 | 1997-09-28 initial implementation 9 | -------------------------------------------------------------------------------- /lib/app/sourcebase/migrate/more-disco.scm: -------------------------------------------------------------------------------- 1 | (add-explicit-deps '(((node 82078 "1.4") (node 82317 "1.1")))) 2 | (add-explicit-deps '(((node 82078 "1.4") (node 82316 "1.3")))) 3 | (add-explicit-deps '(((node 81850 "1.11") (node 81853 "1.1")))) 4 | -------------------------------------------------------------------------------- /lib/rs/io/parser/HISTORY: -------------------------------------------------------------------------------- 1 | History 2 | ======= 3 | 4 | 1997-09-26 converted to module using `define-module', 5 | removed subparts (scanner and charsets) to other modules 6 | 7 | 1996-11-24 initial implementation for prototype RS 0.9 8 | -------------------------------------------------------------------------------- /lib/rs/sys/compression/lzw/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.sys.compression.lzw () 2 | (&module 3 | (import usual-inlines) 4 | ;; 5 | (load "glue.scm") 6 | ;; 7 | (export postscript-lzw-encode) 8 | ;; 9 | )) 10 | -------------------------------------------------------------------------------- /packages/db/safeglue.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-macro (define-db-glue args . body) 3 | `(define-safe-glue ,args 4 | type-handler: ( (instance? ) 5 | ("DB *~a" 6 | "(DB *)OBJ_TO_RAW_PTR(gvec_ref(~a,SLOT(1)))")) 7 | ,@body)) 8 | -------------------------------------------------------------------------------- /lib/app/indexer/Makefile: -------------------------------------------------------------------------------- 1 | 2 | #RIX=/usr/src/rs/rs-0.7.3.1-b32/src/fshell/fshell -image /tmp/cache.fasl/rix_2065_308435.fas 3 | RIX=./rix 4 | 5 | test:: 6 | ./rix -cvf /tmp/foo.sto -u msg1 7 | formail -s ${RIX} -vf /tmp/foo.sto -u - < msgs2 8 | 9 | -------------------------------------------------------------------------------- /lib/graphics/tiff/errors.scm: -------------------------------------------------------------------------------- 1 | (define-class () 2 | (file type: )) 3 | 4 | (define-class () 5 | (tiff-file type: ) 6 | tiff-subimage 7 | tiff-tag) 8 | 9 | ;;; 10 | -------------------------------------------------------------------------------- /lib/rs/net/sha1/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.net.sha1 () 2 | (&module (import usual-inlines) 3 | (import rs.util.pack)) 4 | (&module 5 | (load "digest.scm") 6 | ;; 7 | (export sha1-binary-digest 8 | sha1-digest))) 9 | -------------------------------------------------------------------------------- /lib/rs/util/unicode/README: -------------------------------------------------------------------------------- 1 | unicode.txt is the Unicode character database, as downloaded from 2 | 3 | 4 | 5 | on 1998-10-17, with the #\C-M characters (aka #\CR or ^M) removed. 6 | 7 | -------------------------------------------------------------------------------- /lib/srfi/1/COPYRIGHT: -------------------------------------------------------------------------------- 1 | The major content of this module is in ref.scm, which is 2 | Copyright (C) 1998 by Olin Shivers. See the header of that file. 3 | 4 | ref.scm was downloaded from 5 | 6 | -------------------------------------------------------------------------------- /stage0/install/include/rscheme/rlseconf.cfg: -------------------------------------------------------------------------------- 1 | #ifndef _H_RSCHEME_RLSECONF 2 | #define _H_RSCHEME_RLSECONF 3 | 4 | #define RSCHEME_VERSION "0.7.3.4-b7u" 5 | #define RSCHEME_BUILD "v0.7.3.4-b7u, 2007-05-30" 6 | #endif /* _H_RSCHEME_RLSECONF */ 7 | 8 | -------------------------------------------------------------------------------- /lib/rs/io/pushback/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.io.pushback () 2 | (&module 3 | (import usual-inlines) 4 | (load "pushback.scm") 5 | (export 6 | open-input-pushback-port 7 | input-port-pushback))) 8 | -------------------------------------------------------------------------------- /lib/rs/util/properties/default.scm: -------------------------------------------------------------------------------- 1 | ;; 2 | ;; default method signals an error 3 | ;; 4 | (define-method get-default-property ((self ) key) 5 | (signal (make 6 | missing-property: key 7 | in-object: self))) 8 | 9 | -------------------------------------------------------------------------------- /lib/srfi/9/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.9 () 2 | (&module 3 | (implements SRFI-9 srfi-9) 4 | (import usual-inlines) 5 | (load "implementation.scm") 6 | (export define-record-type 7 | <> 8 | ))) 9 | -------------------------------------------------------------------------------- /lib/gui/app/dv/sound.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (play-sound snd) 3 | (values)) 4 | #| 5 | (let ((s (string-append "/usr/local/np/music/audioman/snd/" snd ".snd"))) 6 | (run "sox" 7 | "-t" ".au" s 8 | "-t" "ossdsp" "/dev/dsp"))) 9 | |# 10 | -------------------------------------------------------------------------------- /lib/srfi/39/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.39 () 2 | (&module 3 | (import usual-inlines) 4 | (implements SRFI-39 srfi-39) 5 | ;; 6 | ;; 7 | (load "parameters.scm") 8 | ; 9 | (export make-parameter 10 | parameterize))) 11 | -------------------------------------------------------------------------------- /lib/rs/sys/crypto/test.scm: -------------------------------------------------------------------------------- 1 | ,(use rs.sys.crypto 2 | rs.net.sha1 3 | syscalls) 4 | 5 | (define (t) 6 | (exp-modulo (string->bignum "1570" 10) 7 | (string->bignum "1019" 10) 8 | (string->bignum "3337" 10))) 9 | 10 | 11 | -------------------------------------------------------------------------------- /packages/lss/timebase/ppc/readtime.s: -------------------------------------------------------------------------------- 1 | .section ".text" 2 | .globl read_timebase 3 | .set r3,3 4 | .set r4,4 5 | .set r5,5 6 | .set r6,6 7 | read_timebase: 8 | mftbu r3 9 | mftb r4 10 | mftbu r5 11 | cmpw 0,r3,r5 12 | bne- read_timebase 13 | blr 14 | -------------------------------------------------------------------------------- /lib/rs/net/asn1/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.net.asn1 () 2 | (&module 3 | (import usual-inlines 4 | rs.net.pem 5 | tables 6 | ) 7 | (load "asn1.scm") 8 | 9 | (export 10 | ber-encode 11 | ber-decode 12 | ))) 13 | 14 | -------------------------------------------------------------------------------- /handc/lgh/Makefile: -------------------------------------------------------------------------------- 1 | CFILES=lghmain.c 2 | PRODUCT=lgh.o 3 | 4 | all: $(PRODUCT) sys.img 5 | LIB_RS=../install/lib/librs.a 6 | 7 | include ../postambl.mak 8 | 9 | sys.img: 10 | rs lgh.scm -exit 11 | 12 | learn0: 13 | $(CC) $(IFLAGS) learn0.c $(LIB_RS) $(LDX) -o learn0 14 | -------------------------------------------------------------------------------- /lib/gui/rstep/x/atoms.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (atom->symbol (atom )) 3 | (let ((tbl (atom-symbol-table (current-client)))) 4 | (or (table-lookup tbl atom) 5 | (let ((n (symbol->string (atom-name (on-display (current-client)))))) 6 | (table-insert! tbl atom n) 7 | n)))) 8 | -------------------------------------------------------------------------------- /stage0/lgh/Makefile: -------------------------------------------------------------------------------- 1 | CFILES=lghmain.c 2 | PRODUCT=lgh.o 3 | 4 | all: $(PRODUCT) sys.img 5 | LIB_RS=../install/lib/librs.a 6 | 7 | include ../postambl.mak 8 | 9 | sys.img: 10 | rs lgh.scm -exit 11 | 12 | learn0: 13 | $(CC) $(IFLAGS) learn0.c $(LIB_RS) $(LDX) -o learn0 14 | -------------------------------------------------------------------------------- /lib/rs/io/scanner/patch.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (string->keyword str) 3 | (symbol->keyword (string->symbol str))) 4 | 5 | (define (string->flag str) 6 | (symbol->flag (string->symbol str))) 7 | 8 | (define-constant ) 9 | (define-constant ) 10 | 11 | -------------------------------------------------------------------------------- /lib/rs/net/dns/server-start: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | cd /opt/rs-dns-0.1 4 | 5 | if [ "$1" = '-d' ] 6 | then 7 | /opt/rs/bin/fshell all.scm \ 8 | -e '(thread-resume (make-thread server-start "server-start"))' 9 | else 10 | /opt/rs/bin/fshell all.scm -e '(server-start)' 11 | fi 12 | -------------------------------------------------------------------------------- /lib/rs/net/httpd/static.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | Static Web page 4 | 5 | 6 |

Static Web Page

7 |

8 | This is a static web page. 9 |

10 | Which includes an image:
11 | 12 | 13 | -------------------------------------------------------------------------------- /handc/cfg/gc/rtgc/scanroot.cc: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | 4 | int abstract_root_set::stable_id; 5 | int abstract_root_set::quasistable_id; 6 | int abstract_root_set::unstable_id; 7 | 8 | #ifndef INLINES 9 | #include 10 | #endif 11 | -------------------------------------------------------------------------------- /lib/app/sourcebase/datamodel/content.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () :abstract) 3 | 4 | (define-class () 5 | (line-tree type: )) 6 | 7 | (define-class () 8 | (data type: )) 9 | -------------------------------------------------------------------------------- /lib/rs/sys/compression/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.sys.compression () 2 | (&module 3 | (import rs.lang) 4 | (import rs.glue) 5 | (import rs.sys.reflect) 6 | ;; 7 | (load "glue.scm") 8 | (load "zlib.scm") 9 | ;; 10 | (export uncompress 11 | compress))) 12 | -------------------------------------------------------------------------------- /stage0/cfg/gc/rtgc/scanroot.cc: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | 4 | int abstract_root_set::stable_id; 5 | int abstract_root_set::quasistable_id; 6 | int abstract_root_set::unstable_id; 7 | 8 | #ifndef INLINES 9 | #include 10 | #endif 11 | -------------------------------------------------------------------------------- /lib/srfi/4/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.4 () 2 | (&module 3 | (import usual-inlines 4 | tables 5 | rs.util.properties) 6 | ;; 7 | (load "defhnv.scm") 8 | (load "defs.scm") 9 | (load "writehnv.scm") 10 | ;; 11 | (load "scanner.scm") 12 | ;; 13 | )) 14 | -------------------------------------------------------------------------------- /lib/rs/io/parser/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.io.parser (&module) 2 | (&module 3 | (import usual-inlines) 4 | (import rs.io.scanner) 5 | (import rs.io.textport) 6 | (load "nodes.scm") 7 | (load "errors.scm") 8 | (load "parse.scm") 9 | (export parse->datum input-port-parse))) 10 | -------------------------------------------------------------------------------- /lib/srfi/34/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.34 () 2 | (&module 3 | (import rs.lang) 4 | ;; 5 | ;; 6 | (load "srfi-34.scm") 7 | ; 8 | (export 9 | guard with-exception-handler raise 10 | handler-case ;; BEWARE handler-case should actually not be exported 11 | ))) 12 | -------------------------------------------------------------------------------- /packages/general/rs_sys_paths.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.sys.paths () 2 | (&module 3 | (import paths) 4 | (export 5 | 6 | string->file 7 | string->dir 8 | pathname->string 9 | pathname->os-path 10 | append-path 11 | append-dirs))) 12 | -------------------------------------------------------------------------------- /packages/rstore/make.pkg: -------------------------------------------------------------------------------- 1 | configure: configure.in 2 | autoconf 3 | 4 | install:: configure 5 | ./configure --with-rs=$(INSTALL_DIR)/bin/rs 6 | make all 7 | 8 | clean:: 9 | if test -f Makefile ; then make clean ; fi 10 | 11 | distclean:: clean 12 | rm -f Makefile configure config.cache 13 | -------------------------------------------------------------------------------- /stage0/sort/Makefile: -------------------------------------------------------------------------------- 1 | #/*********************** Makefile for Module `sort' ***********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `sort' 5 | # 6 | CFILES= sort_l.c sort1.c 7 | INCFILES=sort.h 8 | PRODUCT=sort.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /lib/gui/app/dv/dv.scm: -------------------------------------------------------------------------------- 1 | #| 2 | (if (not (string? (getenv "DISPLAY"))) 3 | (error "DISPLAY variable not set")) 4 | |# 5 | 6 | (define-module-extend rs.lang () 7 | (&module (export $Pi))) 8 | 9 | (load "module.scm") 10 | ;(load "dvm.scm") 11 | ,(use gui.app.dv) 12 | 13 | (define main dv-main) 14 | 15 | -------------------------------------------------------------------------------- /packages/x11/config.scm: -------------------------------------------------------------------------------- 1 | 2 | ;; colors are filled in at initialization time with their 3 | ;; actual color values 4 | 5 | (define *std-window-foreground* 0) 6 | 7 | (define *std-window-background* 2) 8 | 9 | (define *black* 0) 10 | (define *dark* 1) 11 | (define *light* 2) 12 | (define *white* 3) 13 | -------------------------------------------------------------------------------- /lib/rs/util/pack/_f32.ci: -------------------------------------------------------------------------------- 1 | 2 | void FNAME(pack,f32)( obj bvec, UINT_32 offset, obj value ) 3 | { 4 | IEEE_32 v = basic_ieee32( value ); 5 | BVEC_SLOT(IEEE_32) = CNV(v); 6 | } 7 | 8 | obj FNAME(unpack,f32)( obj bvec, UINT_32 offset ) 9 | { 10 | return ieee32_to_basic( CNV(BVEC_SLOT(IEEE_32)) ); 11 | } 12 | -------------------------------------------------------------------------------- /lib/rs/util/pack/_f64.ci: -------------------------------------------------------------------------------- 1 | 2 | void FNAME(pack,f64)( obj bvec, UINT_32 offset, obj value ) 3 | { 4 | IEEE_64 v = basic_ieee64( value ); 5 | BVEC_SLOT(IEEE_64) = CNV(v); 6 | } 7 | 8 | obj FNAME(unpack,f64)( obj bvec, UINT_32 offset ) 9 | { 10 | return ieee64_to_basic( CNV(BVEC_SLOT(IEEE_64)) ); 11 | } 12 | -------------------------------------------------------------------------------- /packages/threads/manager/util.h: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | obj make_os_error( const char *fn, int num_args, ... ); 4 | char *thread_name( obj t ); 5 | 6 | obj thunkify_1( obj proc, obj arg ); 7 | obj thunkify_2( obj proc, obj arg1, obj arg2 ); 8 | obj thunkify_3( obj proc, obj arg1, obj arg2, obj arg3 ); 9 | -------------------------------------------------------------------------------- /stage0/tables/Makefile: -------------------------------------------------------------------------------- 1 | #/********************** Makefile for Module `tables' **********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `tables' 5 | # 6 | CFILES= tables_l.c make.c 7 | INCFILES=tables.h 8 | PRODUCT=tables.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /handc/runtime/includes.lst: -------------------------------------------------------------------------------- 1 | allocns.h 2 | api.h 3 | chektype.h 4 | collectn.h 5 | intrs.h 6 | linktype.h 7 | longint.h 8 | obj.h 9 | rdln.h 10 | regs.h 11 | runtime.h 12 | scheme.h 13 | smemory.h 14 | stack.h 15 | stakcach.h 16 | vinsns.h 17 | osglue.h 18 | profile.h 19 | rsmodule.h 20 | timeprof.h 21 | dynlink.h 22 | -------------------------------------------------------------------------------- /lib/rs/net/nvt/nvt.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | input-port 4 | output-port) 5 | 6 | (define (open-nvt (in ) (out )) 7 | (make 8 | input-port: (open-input-nvt in) 9 | output-port: (open-output-nvt out))) 10 | -------------------------------------------------------------------------------- /lib/rs/util/msgs/warn.scm: -------------------------------------------------------------------------------- 1 | 2 | ;; warning message 3 | 4 | (define-macro (wm . args) 5 | (bind ((msg args xtra (foo 'warning args)) 6 | (mn (gensym))) 7 | `(let ((,mn (alloc-message ,args ,@msg))) 8 | (if (other-message-enabled? ,mn) 9 | (show-message ,mn (vector ,@args)) 10 | (values))))) 11 | -------------------------------------------------------------------------------- /stage0/editinp/Makefile: -------------------------------------------------------------------------------- 1 | #/********************* Makefile for Module `editinp' *********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `editinp' 5 | # 6 | CFILES= editinp_l.c readlin.c 7 | INCFILES=editinp.h 8 | PRODUCT=editinp.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /stage0/runtime/includes.lst: -------------------------------------------------------------------------------- 1 | allocns.h 2 | api.h 3 | chektype.h 4 | collectn.h 5 | intrs.h 6 | linktype.h 7 | longint.h 8 | obj.h 9 | rdln.h 10 | regs.h 11 | runtime.h 12 | scheme.h 13 | smemory.h 14 | stack.h 15 | stakcach.h 16 | vinsns.h 17 | osglue.h 18 | profile.h 19 | rsmodule.h 20 | timeprof.h 21 | dynlink.h 22 | -------------------------------------------------------------------------------- /doc/figs/Makefile: -------------------------------------------------------------------------------- 1 | 2 | 3 | EPS_FILES=list1.eps list2.eps list3.eps str1.eps 4 | 5 | all:: $(EPS_FILES) 6 | 7 | .SUFFIXES: .ofig .strfig .eps 8 | 9 | .ofig.eps: 10 | ../tools/ofig2eps $*.ofig 11 | 12 | 13 | .strfig.eps: 14 | ../tools/strfig2eps -o $*.eps < $*.strfig 15 | 16 | clean:: 17 | rm -f $(EPS_FILES) 18 | -------------------------------------------------------------------------------- /lib/app/doc2ps/sample.sgml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 1.2.3 Buckle my tree 5 | 6 | Sample Chapter 7 | 8 | 9 | This is a short sample chapter 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /lib/graphics/gd/README: -------------------------------------------------------------------------------- 1 | This is a new implementation of libgd adaption by RScheme. 2 | 3 | The old (very old!) implementation is in the packages/x11 module. 4 | 5 | This version is oriented towards the libgd 2.0 interface, 6 | although it is intended to work with the 1.8.4 implementation 7 | that is installed with RedHat 7.3. 8 | -------------------------------------------------------------------------------- /lib/gui/rstep/x/tabber.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | (tab-cells type: )) 4 | 5 | (define-class () 6 | (parent type: ) 7 | (tab-width init-value: #f) ; not counting tab xover graphics 8 | (label-x init-value: #f) 9 | (tab-label type: )) 10 | 11 | -------------------------------------------------------------------------------- /stage0/regex/Makefile: -------------------------------------------------------------------------------- 1 | #/********************** Makefile for Module `regex' **********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `regex' 5 | # 6 | CFILES= regex_l.c rxinterp.c runmatch.c 7 | INCFILES=regex.h 8 | PRODUCT=regex.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /lib/app/indexer/parse-domain.scm: -------------------------------------------------------------------------------- 1 | 2 | (define domain-name-pat 3 | (reg-expr->proc 4 | '(save (seq (+ (seq (+ (or alpha digit #\-)) #\.)) 5 | ;; all TLDs have only letters, and at least 2 6 | (seq alpha (+ alpha)))))) 7 | 8 | (define (parse-domain-names str) 9 | (matches-ci str domain-name-pat)) 10 | -------------------------------------------------------------------------------- /packages/lss/timebase/Makefile.in: -------------------------------------------------------------------------------- 1 | CC=@CC@ 2 | CFLAGS=-g -O2 3 | CFILES=timebase_ops.c @READ_C@ 4 | SFILES=@READ_S@ 5 | 6 | OFILES=$(CFILES:.c=.o) $(SFILES:.s=.o) 7 | LD=ld 8 | 9 | PRODUCT=timebase.o 10 | 11 | $(PRODUCT): $(OFILES) 12 | $(LD) -r $(OFILES) -o $(PRODUCT) 13 | 14 | clean:: 15 | rm -f $(OFILES) $(PRODUCT) 16 | -------------------------------------------------------------------------------- /stage0/mathlib/Makefile: -------------------------------------------------------------------------------- 1 | #/********************* Makefile for Module `mathlib' *********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `mathlib' 5 | # 6 | CFILES= mathlib_l.c random.c arith1.c 7 | INCFILES=mathlib.h 8 | PRODUCT=mathlib.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /lib/gui/app/dv/export.scm: -------------------------------------------------------------------------------- 1 | ;;; 2 | ;;; This file defines what is exported 3 | ;;; "under the covers" (i.e., not as a module) 4 | ;;; to some other subsystems like util.sgml 5 | ;;; 6 | 7 | (load "font.scm") 8 | (load "styles.scm") 9 | (load "dev/device.scm") 10 | (load "dev/ps/driver.scm") 11 | (load "dev/gs/driver.scm") 12 | -------------------------------------------------------------------------------- /lib/gui/x/xobject.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | (x-id type: :sealed) 4 | (x-display type: :sealed)) 5 | 6 | (define-class () 7 | (font-name init-value: #f) 8 | (font-info init-value: #f)) 9 | 10 | (define-syntax (font? thing) 11 | (instance? thing )) 12 | -------------------------------------------------------------------------------- /lib/rs/net/nvt/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.net.nvt () 2 | (&module 3 | (import usual-inlines) 4 | (import rs.sys.threads.manager) 5 | ;; 6 | (load "nvt-out.scm") 7 | (load "nvt-in.scm") 8 | (load "nvt.scm") 9 | ;; 10 | (export open-output-nvt 11 | open-input-nvt 12 | open-nvt))) 13 | -------------------------------------------------------------------------------- /lib/srfi/8/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.8 () 2 | (&module 3 | (implements SRFI-8 srfi-8) 4 | (import usual-inlines)) 5 | ;; 6 | (define-macro (receive args expr . body) 7 | `(call-with-values (lambda () ,expr) 8 | (lambda ,args ,@body))) 9 | ;; 10 | (&module 11 | (export receive))) 12 | 13 | 14 | -------------------------------------------------------------------------------- /packages/rdyl/make.bld: -------------------------------------------------------------------------------- 1 | 2 | DERIVED_FILES=lex.c rdyltab.c rdyltab.h 3 | 4 | all: $(DERIVED_FILES) 5 | 6 | lex.c: lex.l 7 | flex lex.l 8 | mv lex.yy.c lex.c 9 | 10 | rdyltab.c rdyltab.h: rdyl.y 11 | bison -vd rdyl.y 12 | mv rdyl.tab.c rdyltab.c 13 | mv rdyl.tab.h rdyltab.h 14 | 15 | clean:: 16 | rm -f $(DERIVED_FILES) 17 | -------------------------------------------------------------------------------- /lib/app/sourcebase/pstore/globals.scm: -------------------------------------------------------------------------------- 1 | (define *application* #f) 2 | 3 | (define *world-group* #f) 4 | 5 | ;; 6 | ;; valid access modes are: 7 | ;; read-only 8 | ;; read-write 9 | ;; 10 | 11 | (define *access-mode* #f) 12 | (define *pstore* #f) 13 | 14 | (define $application-version "0.7.0") 15 | (define $structural-version 6) 16 | -------------------------------------------------------------------------------- /lib/rs/util/emacs/hilight.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (emacs-hilite (node )) 3 | (let ((start (+ 1 (input-offset (location (start-token node))))) 4 | (end (+ 1 5 | (input-offset (location (end-token node))) 6 | (lexeme-length (end-token node))))) 7 | (write `(put-text-property ,start ,end 'face 'undef-var)) 8 | (newline))) 9 | -------------------------------------------------------------------------------- /lib/rs/util/iterate/dotimes.scm: -------------------------------------------------------------------------------- 1 | (define-macro (do-times (var cnt) . body) 2 | (let ((loopvar (gensym)) 3 | (cntvar (gensym))) 4 | `(let ((,cntvar ,cnt)) 5 | (let ,loopvar (((,var ) 0)) 6 | (if (eq? ,var ,cntvar) 7 | (values) 8 | (begin 9 | (begin ,@body) 10 | (,loopvar (add1 ,var)))))))) 11 | 12 | -------------------------------------------------------------------------------- /lib/util/cprint/module.scm: -------------------------------------------------------------------------------- 1 | (define-module util.cprint () 2 | (&module 3 | (import usual-inlines) 4 | (import util.patterns) 5 | (load "cpr.scm") 6 | (load "pats.scm") 7 | (load "foldconst.scm") 8 | (export *fold-const-patterns*) ; would be nicer as a property off fold-const 9 | (export print-c fold-const))) 10 | -------------------------------------------------------------------------------- /stage0/imageio/Makefile: -------------------------------------------------------------------------------- 1 | #/********************* Makefile for Module `imageio' *********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `imageio' 5 | # 6 | CFILES= imageio_l.c glue.c imagsav.c refsload.c 7 | INCFILES=imageio.h 8 | PRODUCT=imageio.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /stage0/objsys/Makefile: -------------------------------------------------------------------------------- 1 | #/********************** Makefile for Module `objsys' **********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `objsys' 5 | # 6 | CFILES= objsys_l.c getnset.c makeinst.c genericf.c 7 | INCFILES=objsys.h 8 | PRODUCT=objsys.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /handc/postambl.mak: -------------------------------------------------------------------------------- 1 | include ../preamble.mak 2 | 3 | OFILES=$(CFILES:.c=.o) $(CCFILES:.cc=.o) 4 | 5 | $(PRODUCT): $(OFILES) 6 | $(LD) $(LD_FLAGS) $(OFILES) -o $(PRODUCT) 7 | ar ru ../install/lib/librs.a $(PRODUCT) 8 | 9 | clean:: 10 | rm -f $(OFILES) $(PRODUCT) 11 | 12 | depend:: 13 | $(CC) $(CFLAGS) -MM -I. $(CFILES) > depends 14 | -------------------------------------------------------------------------------- /lib/rs/sys/crypto/morebignum.h: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | rs_bool rs_bignum_prob_primeq( obj n ); 4 | 5 | obj rs_exp_modulo( obj base, obj exp, obj mod ); 6 | 7 | obj rs_mod2exp( obj n, unsigned exp ); 8 | 9 | obj rs_invertmod( obj n, obj mod ); 10 | 11 | obj rs_export_bignum( obj n ); 12 | obj rs_import_bignum( obj s ); 13 | 14 | -------------------------------------------------------------------------------- /stage0/postambl.mak: -------------------------------------------------------------------------------- 1 | include ../preamble.mak 2 | 3 | OFILES=$(CFILES:.c=.o) $(CCFILES:.cc=.o) 4 | 5 | $(PRODUCT): $(OFILES) 6 | $(LD) $(LD_FLAGS) $(OFILES) -o $(PRODUCT) 7 | ar ru ../install/lib/librs.a $(PRODUCT) 8 | 9 | clean:: 10 | rm -f $(OFILES) $(PRODUCT) 11 | 12 | depend:: 13 | $(CC) $(CFLAGS) -MM -I. $(CFILES) > depends 14 | -------------------------------------------------------------------------------- /handc/cfg/gc/rtgc/Makefile: -------------------------------------------------------------------------------- 1 | 2 | CCFILES=colorset.cc gc.cc gen.cc objmgr.cc gcserver.cc \ 3 | allocator.cc igps.cc scheduler.cc pointers.cc scanroot.cc 4 | CFILES=sizclass.c 5 | PRODUCT=qgc.o 6 | 7 | include ../postambl.mak 8 | 9 | .SUFFIXES: .cc .o 10 | 11 | .cc.o: 12 | $(CC) $(CFLAGS) -c $*.cc 13 | .c.o: 14 | $(CC) $(CFLAGS) -c $*.c 15 | -------------------------------------------------------------------------------- /lib/rs/sys/crypto/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.sys.crypto () 2 | (&module 3 | (import usual-inlines) 4 | (load "crypto.scm") 5 | ;; 6 | (export bignum-probably-prime? 7 | exp-modulo 8 | mod2exp 9 | invert-modulo 10 | 11 | bignum->octet-string 12 | octet-string->bignum))) 13 | -------------------------------------------------------------------------------- /lib/rs/util/types/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.util.types () 2 | (&module 3 | (import usual-inlines 4 | tables 5 | compiler 6 | repl) 7 | ;util.patterns 8 | (load "typecheck.scm") 9 | (export is-type? 10 | type-assert 11 | type-check 12 | define-type-checker))) 13 | -------------------------------------------------------------------------------- /stage0/cfg/gc/rtgc/Makefile: -------------------------------------------------------------------------------- 1 | 2 | CCFILES=colorset.cc gc.cc gen.cc objmgr.cc gcserver.cc \ 3 | allocator.cc igps.cc scheduler.cc pointers.cc scanroot.cc 4 | CFILES=sizclass.c 5 | PRODUCT=qgc.o 6 | 7 | include ../postambl.mak 8 | 9 | .SUFFIXES: .cc .o 10 | 11 | .cc.o: 12 | $(CC) $(CFLAGS) -c $*.cc 13 | .c.o: 14 | $(CC) $(CFLAGS) -c $*.c 15 | -------------------------------------------------------------------------------- /lib/rs/util/pstore/migrate/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.util.pstore.migrate () 2 | (&module 3 | (import usual-inlines 4 | rs.db.rstore 5 | tables 6 | sort 7 | objsys) 8 | ;; 9 | (load "migrate.scm") 10 | ;; 11 | (export make-simple-migrator 12 | migrate-pstore))) 13 | 14 | -------------------------------------------------------------------------------- /lib/util/sxml/test/test-03.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | b"> 5 | 6 | 7 | 10 | ]> 11 | 12 | 14 | hello 15 | 16 | -------------------------------------------------------------------------------- /lib/gui/x/copy-gcontext.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (copy-gcontext (source ) (destination )) 3 | (assert (eq? (x-display source) (x-display destination))) 4 | (internal-send 5 | (x-display source) 6 | (make-buffer u1: 57 ;; CopyGC 7 | u1: 0 8 | u2: 4 9 | u4: (x-id source) 10 | u4: (x-id destination) 11 | u4: #x7FFFFF))) 12 | -------------------------------------------------------------------------------- /lib/rs/net/dns/encode-domain-name.scm: -------------------------------------------------------------------------------- 1 | 2 | (def (dn->bs dn) 3 | (apply bs-append 4 | (map label->bs 5 | (dn->labels dn)))) 6 | 7 | (def (dn->labels dn) 8 | (string-split dn ".")) 9 | 10 | (def (domain-name-null? dn) 11 | (string=? "" dn)) 12 | 13 | (def (domain-name-cdr dn) 14 | (string-join "." 15 | (cdr (string-split dn ".")))) -------------------------------------------------------------------------------- /lib/rs/net/dns/message-compression.scm: -------------------------------------------------------------------------------- 1 | 2 | (def (quux m/o i t) 3 | (if (null? m/o) 4 | '() 5 | (let ((new-rr (append 6 | (compress-name (get-name/o m/o) t) 7 | (skip-name (get-rr/o m/o))))) 8 | (append new-rr 9 | (quux (skip-rr/o m/o) 10 | (+ i (len new-rr)) 11 | (digest-name (get-name/o m/o) i t)))))) 12 | -------------------------------------------------------------------------------- /lib/rs/net/html/Makefile: -------------------------------------------------------------------------------- 1 | INSTALLDIR=`rs --install` 2 | PRODUCT=html 3 | SCMFILES=html.scm htmlport.scm 4 | 5 | ${PRODUCT}.mif ${PRODUCT}.mx: ${SCMFILES} 6 | ${INSTALLDIR}/bin/rsc -p ${PRODUCT}.mcf 7 | 8 | install:: 9 | cp -p ${PRODUCT}.mif ${PRODUCT}.mx ${INSTALLDIR}/resource/modules 10 | 11 | clean:: 12 | rm -f html.mif html.mx html.doc 13 | 14 | -------------------------------------------------------------------------------- /lib/rs/net/pserver/README: -------------------------------------------------------------------------------- 1 | 2 | To set things up... 3 | 4 | 5 | rsf -q test.scm 6 | =>(init-testfam) 7 | 8 | 9 | To run the pserver 10 | 11 | rsf -q test.scm 12 | =>(t) 13 | 14 | 15 | To access it: 16 | 17 | export CVSROOT=:pserver:donovan@localhost:2401/sb/testfam/foo 18 | cvs co a 19 | perl -pi.bak -e 's/What/WHAT/' a/x/one.txt 20 | -------------------------------------------------------------------------------- /packages/fasl/faslglue.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-safe-glue (save-fasl-image (path ) 3 | comment 4 | (roots )) 5 | { 6 | void fasl_save_vec( const char *path, obj vec, const char *comment ); 7 | 8 | fasl_save_vec( path, 9 | roots, 10 | (STRING_P(comment) ? string_text(comment) : NULL) ); 11 | RETURN0(); 12 | }) 13 | -------------------------------------------------------------------------------- /stage0/tmp/buildcfg.scm: -------------------------------------------------------------------------------- 1 | ,(use paths) 2 | 3 | (define *save-image-signature* 'new) 4 | (define *relative-file-paths* #t) 5 | (define *dist-path* (string->dir "/tmp/j2008/dist/tree/rs-0.7.3.4-b7/src")) 6 | (define *rscheme-build* "v0.7.3.4-b7u, 2007-05-30") 7 | (define *rscheme-version* "0.7.3.4-b7u") 8 | (define *rscheme-build-vlist* '( 0 7 3 4 7 2007 05 30)) 9 | -------------------------------------------------------------------------------- /lib/app/webcontent/README: -------------------------------------------------------------------------------- 1 | 2 | 3 | (1) First Time (Re-)Initialization 4 | 5 | rsf -q datamodel.scm -e '(init-repository "/tmp/i.rep")' -exit 6 | 7 | rsf -q datamodel.scm sample.scm -e '(begin (access "/tmp/i.rep") (reload))' -exit 8 | 9 | 10 | 11 | (2) Startup Server 12 | 13 | rsf -q datamodel.scm sample.scm webside.scm -e '(opengo "/tmp/i.rep")' 14 | -------------------------------------------------------------------------------- /lib/rs/net/ubf/lib/ubfsymtab.h: -------------------------------------------------------------------------------- 1 | #ifndef _H_UBFSYMTAB 2 | #define _H_UBFSYMTAB 3 | 4 | #include "ubf.h" 5 | 6 | extern unsigned symtab_count; 7 | extern unsigned symtab_max; 8 | extern UBFObject symtab[]; 9 | 10 | UBFObject *intern_const( const unsigned char *str, unsigned len ); 11 | 12 | void symtab_dump( void ); 13 | 14 | #endif /* _H_UBFSYMTAB */ 15 | -------------------------------------------------------------------------------- /lib/srfi/18/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.18 () 2 | (&module 3 | (import rs.lang) 4 | ;; 5 | (import rs.sys.threads.manager) 6 | ;; 7 | (load "mutex.scm") 8 | (load "threads.scm") 9 | ; 10 | (export 11 | mutex? make-mutex mutex-lock! mutex-unlock! with-mutex 12 | thread-start! thread-join! thread-terminate! 13 | ))) 14 | -------------------------------------------------------------------------------- /packages/threads/shell/make.pkg: -------------------------------------------------------------------------------- 1 | 2 | P=rs_sys_threads_shell 3 | RSC=rsc 4 | SCM_FILES=bg.scm module.scm pool.scm run.scm thread-list.scm 5 | PRODUCTS=$P.mif $P.mx $P.doc 6 | 7 | $(PRODUCTS): $(SCM_FILES) 8 | $(RSC) module.scm 9 | 10 | clean: 11 | rm -f $(PRODUCTS) 12 | 13 | install:: $(PRODUCTS) 14 | cp $P.mx $P.mif $(INSTALL_DIR)/resource/modules 15 | -------------------------------------------------------------------------------- /lib/gui/app/dv/winconfig.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (my-configure-notify-handler display 3 | #rest ignore 4 | #key window x y width height above-sibling) 5 | (dm 131 "configure-notify on ~s: above ~s" window (or above-sibling 'none)) 6 | #t) 7 | 8 | ; (format #t "new configuration for ~s: ~s\n" 9 | ; window 10 | ; (make-rect x y width height))) 11 | -------------------------------------------------------------------------------- /lib/srfi/0/module.scm: -------------------------------------------------------------------------------- 1 | (define-module srfi.0 () 2 | (&module 3 | (implements SRFI-0 srfi-0) 4 | ;; 5 | (import usual-inlines) 6 | ;; 7 | ;; this is just reexports standard stuff, so that 8 | ;; you can start with r4rs (or r5rs, if I had that) 9 | ;; and add on just what you need 10 | ;; 11 | (export cond-expand))) 12 | 13 | -------------------------------------------------------------------------------- /lib/app/doc2ps/init.scm: -------------------------------------------------------------------------------- 1 | ,(use tables) 2 | ,(use rs.util.properties) 3 | ,(use rs.util.msgs) 4 | ,(use graphics.afm) 5 | ,(use graphics.geometry) 6 | 7 | ;;; BASELINE STUFF 8 | 9 | ;(load "../../gui/app/dv/font.scm") 10 | (load "../../gui/app/dv/dev/device.scm") 11 | (load "../../gui/app/dv/dev/gs/driver.scm") 12 | 13 | (define *dev* (open-gs-device)) 14 | 15 | ;; 16 | -------------------------------------------------------------------------------- /lib/rs/util/msgs/note.scm: -------------------------------------------------------------------------------- 1 | ;; (note [type: TYPE] [NUM] FMT ARG ...) 2 | 3 | (define-macro (note . args) 4 | (bind ((msg args xtra (foo 'notice args)) 5 | (mn (gensym))) 6 | `(let ((,mn (alloc-message ,args ,@msg))) 7 | (if (other-message-enabled? ,mn) 8 | (show-message ,mn (vector ,@args)) 9 | (values))))) 10 | 11 | ;(&module (export note)) 12 | -------------------------------------------------------------------------------- /handc/cfg/gc/rtgc/rtgc/sizclass.h: -------------------------------------------------------------------------------- 1 | #ifndef SIZCLASS_H 2 | #define SIZCLASS_H 3 | 4 | #include 5 | #include 6 | 7 | /* 8 | Constant definitions 9 | */ 10 | 11 | #define BASE 16 12 | #define BASE_BITS 4 13 | 14 | int get_size_class (size_t n); 15 | 16 | int get_size_class_non_base_case (size_t n); 17 | 18 | #endif 19 | 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /lib/graphics/device/triv.scm: -------------------------------------------------------------------------------- 1 | ,(use graphics.device 2 | graphics.geometry) 3 | 4 | (define (t1-pdf) 5 | (let ((dev (open-pdf-device "/tmp/test1.pdf"))) 6 | (startpage dev) 7 | ;; 8 | (moveto dev (make-point 10 10)) 9 | (lineto dev (make-point 30 20)) 10 | (stroke dev) 11 | ;; 12 | (endpage dev) 13 | (close-graphics-device dev))) 14 | -------------------------------------------------------------------------------- /lib/gui/app/dv/exposure.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (my-exposure-handler display 3 | #rest ignore 4 | #key window 5 | x 6 | y 7 | width 8 | height 9 | count) 10 | (if (eq? count 0) 11 | (let ((p (window-exposure-thunk window))) 12 | (if p 13 | (begin 14 | (p) 15 | (display-force-output display)))))) 16 | -------------------------------------------------------------------------------- /lib/gui/util/editor/main.scm: -------------------------------------------------------------------------------- 1 | (load "editor.scm") 2 | (load "fillarea.scm") 3 | (load "styles.scm") 4 | (load "buffer.scm") 5 | (load "viewport.scm") 6 | (load "keybind.scm") 7 | (load "keys.scm") 8 | 9 | (load "skin.scm") 10 | 11 | #| 12 | To run: 13 | 14 | (go) ; connect to DISPLAY 15 | (editor *display*) ; bring up an editor window 16 | 17 | |# 18 | -------------------------------------------------------------------------------- /stage0/cfg/gc/rtgc/rtgc/sizclass.h: -------------------------------------------------------------------------------- 1 | #ifndef SIZCLASS_H 2 | #define SIZCLASS_H 3 | 4 | #include 5 | #include 6 | 7 | /* 8 | Constant definitions 9 | */ 10 | 11 | #define BASE 16 12 | #define BASE_BITS 4 13 | 14 | int get_size_class (size_t n); 15 | 16 | int get_size_class_non_base_case (size_t n); 17 | 18 | #endif 19 | 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /lib/app/doc2ps/pdf.scm: -------------------------------------------------------------------------------- 1 | 2 | # An annotation (xpdf doesn't pick this up) 3 | 4 | [ /Contents (This is the contents) 5 | /Rect [198.0 394 220 450] 6 | /Open true 7 | /Title (Some Markup) 8 | /ANN pdfmark 9 | 10 | 11 | # A link... 12 | 13 | [ /Rect [36 36 100 100] 14 | /Border [2 2 0.5] 15 | /Color [1 0 0] 16 | /Subtype /Link 17 | /Page 9 18 | /ANN pdfmark 19 | -------------------------------------------------------------------------------- /lib/app/sourcebase/sbs: -------------------------------------------------------------------------------- 1 | #! /u/donovan/bin/rsf 2 | 3 | (load "sourcebase.scm") 4 | 5 | (define *built* (time)) 6 | 7 | (define (main args) 8 | (format #t "SourceBase (~a, ~a)\n" 9 | $application-version 10 | (time->string *built* "%Y-%m-%d %H:%M")) 11 | (with-module 12 | repl 13 | (with-module 14 | mlink 15 | (run-repl args (get-module 'user))))) 16 | -------------------------------------------------------------------------------- /lib/rs/net/dns/query.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () name type class) 3 | 4 | (def (make-query name type class) 5 | (make 6 | name: name 7 | type: type 8 | class: class)) 9 | 10 | (define-method write-object ((self ) port) 11 | (format port "#[ ~s ~s ~s]" 12 | (name self) 13 | (type self) 14 | (class self))) 15 | 16 | -------------------------------------------------------------------------------- /lib/rs/util/reify/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.util.reify () 2 | (&module 3 | (import usual-inlines 4 | tables 5 | compiler) 6 | 7 | (load "reify.scm") 8 | 9 | (export 10 | expr-form 11 | expr-source 12 | expr-getter 13 | expr-setter 14 | reify!))) 15 | 16 | 17 | -------------------------------------------------------------------------------- /lib/util/readline/termattr.scm: -------------------------------------------------------------------------------- 1 | (define *state* #f) 2 | 3 | (define (init-for-readline fd) 4 | (tcdrain fd (tcflush-flag 'drain)) 5 | ;(fd-set-blocking fd #f) 6 | (set! *state* (terminal-get-attr fd)) 7 | (terminal-set-attr fd (terminal-state-make-raw *state*)) 8 | (lambda () 9 | (if *state* 10 | (terminal-set-attr 0 *state*)) 11 | (set! *state* #f))) 12 | 13 | -------------------------------------------------------------------------------- /lib/app/doc2ps/Make: -------------------------------------------------------------------------------- 1 | #! /bin/bash 2 | 3 | set -e 4 | 5 | inst=$(rsx --install) 6 | outdir=${inst}/resource 7 | if test -w ${outdir} 8 | then : 9 | else outdir=/tmp 10 | fi 11 | 12 | ${inst}/bin/fshell \ 13 | -q --in usual-inlines exec.scm \ 14 | -c ${outdir}/doc2ps.fas 15 | 16 | echo "Generated: ${outdir}/doc2ps.fas" 17 | 18 | makex ${outdir}/doc2ps.fas ${inst}/bin/fshell 19 | -------------------------------------------------------------------------------- /stage0/iolib/Makefile: -------------------------------------------------------------------------------- 1 | #/********************** Makefile for Module `iolib' **********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `iolib' 5 | # 6 | CFILES= iolib_l.c writers.c format.c bstrout.c strout.c stdiox.c escapstr.c op_str.c op_bstr.c parsefmt.c 7 | INCFILES=iolib.h 8 | PRODUCT=iolib.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /handc/loadboot/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/loadboot/Makefile 3 | # 4 | # Copyright (C)1995 Donovan Kolbly 5 | # as part of the RScheme project, licensed for free use 6 | # 7 | # Version: 1.1 8 | # Date: %G% 00:56:19 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | 12 | CFILES=loadboot.c 13 | PRODUCT=ldboot.o 14 | include ../postambl.mak 15 | -------------------------------------------------------------------------------- /lib/gui/x/colormap.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | (properties type: init-value: '#()) 4 | colormap-visual-type) 5 | 6 | (define (colormap-display (colormap )) 7 | (x-display colormap)) 8 | 9 | (define (colormap? thing) 10 | (instance? thing )) 11 | 12 | (define (colormap-id (colormap )) 13 | (x-id colormap)) 14 | -------------------------------------------------------------------------------- /lib/rs/util/subprocess/module.scm: -------------------------------------------------------------------------------- 1 | (define-module rs.util.subprocess () 2 | (&module 3 | ; 4 | (import usual-inlines) 5 | (import tables sort unixm syscalls) 6 | (import rs.sys.threads.manager) 7 | ; 8 | (load "run.scm") 9 | (load "inpath.scm") 10 | ; 11 | (export port->run->port ;; fork subprocess with input & output 12 | run/collecting* 13 | ))) 14 | -------------------------------------------------------------------------------- /stage0/loadboot/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/loadboot/Makefile 3 | # 4 | # Copyright (C)1995 Donovan Kolbly 5 | # as part of the RScheme project, licensed for free use 6 | # 7 | # Version: 1.1 8 | # Date: %G% 00:56:19 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | 12 | CFILES=loadboot.c 13 | PRODUCT=ldboot.o 14 | include ../postambl.mak 15 | -------------------------------------------------------------------------------- /lib/rs/db/oodb/object.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-constant (assign-hash-code) 3 | (let* (((w ) (current-world)) 4 | (n (next-hash-code w))) 5 | (set-next-hash-code! w (+ n 1)) 6 | (hash-code n))) 7 | 8 | (define-class () 9 | ;; note that you have to be in a world to create an object 10 | (hash-code type: init-value: assign-hash-code)) 11 | 12 | -------------------------------------------------------------------------------- /lib/rs/sys/generic-math/arithmetic.scm: -------------------------------------------------------------------------------- 1 | (define-method binary+ ((a ) (b )) 2 | (fixnum+ a b)) 3 | 4 | (define-method binary+ ((a ) (b )) 5 | (float+ a b)) 6 | 7 | (define-method binary+ ((a ) (b )) 8 | (float+ a b)) 9 | 10 | (define-method binary+ ((a ) (b )) 11 | (float+ a b)) 12 | 13 | -------------------------------------------------------------------------------- /lib/rs/util/collection/lists.scm: -------------------------------------------------------------------------------- 1 | (define-method iterator ((self )) 2 | (let ((p self)) 3 | (lambda () 4 | (if (pair? p) 5 | (let ((x (car p))) 6 | (set! p (cdr p)) 7 | x) 8 | (error (make < 9 | 10 | (define-method next ((self )) 11 | (cdr self)) 12 | 13 | (define-method first ((self )) 14 | (error (make < 15 | -------------------------------------------------------------------------------- /stage0/lowscm/Makefile: -------------------------------------------------------------------------------- 1 | #/******************** Makefile for Module `low_scheme' ********************/ 2 | # 3 | # constructed by rsc for RScheme (v0.7.3.4-b7u, 2007-05-30), 4 | # module `low-scheme' 5 | # 6 | CFILES= low_scheme_l.c callwval.c vectops.c chars.c finding.c mapping.c append.c vectors.c lists.c 7 | INCFILES=low_scheme.h 8 | PRODUCT=low_scheme.o 9 | 10 | include ../postambl.mak 11 | -------------------------------------------------------------------------------- /handc/cfg/rdln/std/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/cfg/rdln/std/Makefile 3 | # 4 | # Copyright (C)1995 Donovan Kolbly 5 | # as part of the RScheme project, licensed for free use 6 | # 7 | # Version: 1.2 8 | # Date: %G% 11:18:57 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | CFILES=rdln_std.c 14 | PRODUCT=rdln.o 15 | include ../postambl.mak 16 | -------------------------------------------------------------------------------- /lib/rs/db/oodb/txn.scm: -------------------------------------------------------------------------------- 1 | 2 | ;; note that a transaction is not a first-class DB object 3 | 4 | (define-class () 5 | (start-time type: