├── COPYING ├── INSTALL ├── Makefile ├── README ├── bytcodes ├── bcdefs.dat ├── bvecs.dat ├── check.dat ├── floatops.dat ├── loadbyt.scm ├── longint.dat ├── primops.dat ├── primtype.scm └── setup.scm ├── cleanfiles ├── compiler ├── amlstubs.scm ├── boot │ ├── bindboot.scm │ ├── bootable.scm │ ├── handcraft.scm │ ├── makeinit.scm │ └── replace.scm ├── c.scm ├── cgen │ ├── assem.scm │ ├── bldfiles.scm │ ├── estsize.scm │ ├── parts.scm │ └── wrvinsn.scm ├── config.scm ├── configv.scm ├── misc.scm ├── mkcfg ├── mki.scm ├── mkrsc ├── modules │ ├── bldctx.scm │ ├── def.scm │ ├── deffull.scm │ ├── defglue.scm │ ├── defprim.scm │ ├── defsyntx.scm │ ├── document.scm │ ├── expnvirt.scm │ ├── findhier.scm │ ├── findmodl.scm │ ├── imported.scm │ ├── mcfload.scm │ ├── parseglue.scm │ └── use.scm ├── process.scm ├── resource │ └── buildenv │ │ └── postambl.mak ├── target.scm ├── toplevel │ ├── builtin.scm │ ├── compileclass.scm │ └── make.scm └── util │ ├── config-release.scm │ ├── genbcode.scm │ ├── resource.scm │ └── util.scm ├── doc ├── Makefile ├── articles │ ├── persistence │ │ ├── bibliography.xml │ │ ├── cloud.scm │ │ ├── extraheapptrs.scm │ │ ├── figures-util.scm │ │ ├── gc.xml │ │ ├── gcdiskusage.scm │ │ ├── gcfreeorder.scm │ │ ├── gcphases.scm │ │ ├── gcstart1.scm │ │ ├── graphic-styles.scm │ │ ├── heappic.scm │ │ ├── indirpod.scm │ │ ├── indirswiz.scm │ │ ├── intergen.scm │ │ ├── lsslayout.scm │ │ ├── lssrecord.scm │ │ ├── matrix-tool.scm │ │ ├── matrixpic.scm │ │ ├── mempic.scm │ │ ├── pagelist.scm │ │ ├── pagesinmem.scm │ │ ├── paper.tex │ │ ├── persistence.xml │ │ ├── ref-create.xml │ │ ├── ref-open.xml │ │ ├── ref.xml │ │ ├── serzpage.scm │ │ ├── serzstack.scm │ │ ├── symindirpp.scm │ │ ├── vmprlists.scm │ │ ├── wbmatrixactive.scm │ │ └── wbmatrixgen.scm │ └── tools │ │ ├── assign-ids.scm │ │ ├── breakup.scm │ │ ├── common.scm │ │ ├── expand-entities.scm │ │ ├── graphic-script.scm │ │ ├── helloworld.scm │ │ ├── main.scm │ │ ├── make-article.scm │ │ ├── numbering.scm │ │ ├── style-driver.scm │ │ ├── util.scm │ │ ├── web-biblio.scm │ │ ├── web-refentry.scm │ │ └── web-style.scm ├── bookbody.sgml ├── bookinfo.sgml ├── chaps │ ├── calendar.sgml │ ├── ccode.sgml │ ├── cli.sgml │ ├── control.sgml │ ├── data.sgml │ ├── debug.sgml │ ├── debug2.sgml │ ├── defmodule.sgml │ ├── earley.sgml │ ├── excepts.sgml │ ├── glossary.sgml │ ├── http.sgml │ ├── inet.sgml │ ├── intro.sgml │ ├── io.sgml │ ├── lists.sgml │ ├── modules.sgml │ ├── objsys.sgml │ ├── paths.sgml │ ├── pg95.sgml │ ├── posix.sgml │ ├── procs.sgml │ ├── programs.sgml │ ├── rstore.sgml │ ├── string.sgml │ ├── tables.sgml │ ├── threads.sgml │ ├── unix.sgml │ └── vectors.sgml ├── decl.sgml ├── docbook3.dsl ├── figs │ ├── Makefile │ ├── list1.ofig │ ├── list2.ofig │ ├── list3.ofig │ └── str1.strfig ├── gen-ref-entry.scm ├── obtain.sgml ├── ref │ ├── abt.sgml │ ├── accept-client.sgml │ ├── accessmask.sgml │ ├── alloc-indirect-pages.sgml │ ├── appdirs.sgml │ ├── append.sgml │ ├── append1.sgml │ ├── apppath.sgml │ ├── bind.sgml │ ├── break.sgml │ ├── bt.sgml │ ├── car.sgml │ ├── cdr.sgml │ ├── char-ready.sgml │ ├── chmod.sgml │ ├── chown.sgml │ ├── clock.sgml │ ├── clockthunk.sgml │ ├── close-input-port.sgml │ ├── close-output-port.sgml │ ├── commit.sgml │ ├── cons.sgml │ ├── create-persistent-store.sgml │ ├── current-input-port.sgml │ ├── current-output-port.sgml │ ├── current-thread-group.sgml │ ├── current-thread.sgml │ ├── date-string.sgml │ ├── date-time.sgml │ ├── date-week.sgml │ ├── date-weekday.sgml │ ├── date-ymd.sgml │ ├── date.sgml │ ├── date1.sgml │ ├── daytime.sgml │ ├── define-class.sgml │ ├── define-module-extend.sgml │ ├── define-module.sgml │ ├── epochsecondstime.sgml │ ├── errno.sgml │ ├── error.sgml │ ├── exec.sgml │ ├── exec1.sgml │ ├── export.sgml │ ├── extrelated.sgml │ ├── fdclose.sgml │ ├── fddup.sgml │ ├── fddup2.sgml │ ├── fdlseek.sgml │ ├── fdopen.sgml │ ├── fdread.sgml │ ├── fdselect.sgml │ ├── fdstat.sgml │ ├── fdtruncate.sgml │ ├── fdwrite.sgml │ ├── file2str.sgml │ ├── fileaccess.sgml │ ├── filedir.sgml │ ├── fileindir.sgml │ ├── files.sgml │ ├── filetruncate.sgml │ ├── flushop.sgml │ ├── force.sgml │ ├── fork.sgml │ ├── format.sgml │ ├── future.sgml │ ├── get-env.sgml │ ├── get-next-client.sgml │ ├── geteuid.sgml │ ├── getlogin.sgml │ ├── getpgrp.sgml │ ├── getpid.sgml │ ├── getppid.sgml │ ├── getpw.sgml │ ├── getrusage.sgml │ ├── getsocketoption.sgml │ ├── getuid.sgml │ ├── handbind.sgml │ ├── handcase.sgml │ ├── hostaddressname.sgml │ ├── hostname.sgml │ ├── hostnameaddress.sgml │ ├── iiminus.sgml │ ├── iiplus.sgml │ ├── inet-client.sgml │ ├── inet-server.sgml │ ├── inetaddrstring.sgml │ ├── inetsocketaddrparts.sgml │ ├── input-port.sgml │ ├── intervalseconds.sgml │ ├── intervalstring.sgml │ ├── keyseq.sgml │ ├── kill.sgml │ ├── length.sgml │ ├── link.sgml │ ├── list-tail.sgml │ ├── list.sgml │ ├── lstat.sgml │ ├── make-extractor.sgml │ ├── make-mailbox.sgml │ ├── make-semaphore.sgml │ ├── make-send-rights.sgml │ ├── make-service.sgml │ ├── make-thread.sgml │ ├── makefdopenmode.sgml │ ├── makefdset.sgml │ ├── makeinetaddr.sgml │ ├── makeinetsocketaddr.sgml │ ├── mkdir.sgml │ ├── mkdirs.sgml │ ├── mktbl.sgml │ ├── modelistbits.sgml │ ├── negativeinterval.sgml │ ├── no-break.sgml │ ├── null.sgml │ ├── oid-instance.sgml │ ├── open-input-file.sgml │ ├── open-input-process.sgml │ ├── open-input-process1.sgml │ ├── open-output-file.sgml │ ├── open-output-process.sgml │ ├── open-persistent-store.sgml │ ├── open.sgml │ ├── opnappf.sgml │ ├── opnistr.sgml │ ├── opnostr.sgml │ ├── output-port.sgml │ ├── pair.sgml │ ├── path2os.sgml │ ├── path2str.sgml │ ├── peek-char.sgml │ ├── pg95-connect.sgml │ ├── pg95-exec-command.sgml │ ├── pg95-field-names.sgml │ ├── pg95-field-number.sgml │ ├── pg95-field-size.sgml │ ├── pg95-field-type.sgml │ ├── pg95-get-value.sgml │ ├── pg95-type.sgml │ ├── pg95-with-tuples.sgml │ ├── pipe.sgml │ ├── postgres-connect.sgml │ ├── rdline.sgml │ ├── read-char.sgml │ ├── read.sgml │ ├── receive-message.sgml │ ├── recvfrom.sgml │ ├── remote-port-owner.sgml │ ├── rename.sgml │ ├── reset-env.sgml │ ├── resume-thread.sgml │ ├── reverse.sgml │ ├── reverse1.sgml │ ├── rmdir.sgml │ ├── root-object.sgml │ ├── rsc.sgml │ ├── rx2proc.sgml │ ├── scandir.sgml │ ├── secondsinterval.sgml │ ├── semaphore-signal.sgml │ ├── semaphore-wait.sgml │ ├── send-message.sgml │ ├── sendto.sgml │ ├── set-car.sgml │ ├── set-cdr.sgml │ ├── set-env.sgml │ ├── setsocketoption.sgml │ ├── setup-indirect-page.sgml │ ├── short-weekday-name.sgml │ ├── signal.sgml │ ├── sleep.sgml │ ├── socketaccept.sgml │ ├── socketaddressfamilyinteger.sgml │ ├── socketbindinet.sgml │ ├── socketbindunix.sgml │ ├── socketconnectinet.sgml │ ├── socketcreate.sgml │ ├── socketlisten.sgml │ ├── sockettypeinteger.sgml │ ├── stat.sgml │ ├── stataccess.sgml │ ├── statdirectory.sgml │ ├── stateq.sgml │ ├── statfile.sgml │ ├── statidhash.sgml │ ├── statidvector.sgml │ ├── statmode.sgml │ ├── statmtime.sgml │ ├── statowner.sgml │ ├── statsize.sgml │ ├── stattimes.sgml │ ├── stattype.sgml │ ├── str2dir.sgml │ ├── str2file.sgml │ ├── string-date.sgml │ ├── string-hostaddr.sgml │ ├── strjoin.sgml │ ├── strsearch.sgml │ ├── strsplit.sgml │ ├── subvec.sgml │ ├── suspend-thread.sgml │ ├── symlink.sgml │ ├── system.sgml │ ├── table-list.sgml │ ├── tblfor.sgml │ ├── tblins.sgml │ ├── tbllook.sgml │ ├── tblprobe.sgml │ ├── tblrmv.sgml │ ├── tblsize.sgml │ ├── thread-join.sgml │ ├── thread-sleep.sgml │ ├── time.sgml │ ├── timeagain.sgml │ ├── timecalendar.sgml │ ├── timecmp.sgml │ ├── timeepochseconds.sgml │ ├── timeinterval.sgml │ ├── timestring.sgml │ ├── timethunk.sgml │ ├── timetime.sgml │ ├── trace.sgml │ ├── unfmt2pr.sgml │ ├── unlink.sgml │ ├── unset-env.sgml │ ├── use.sgml │ ├── valseq.sgml │ ├── values.sgml │ ├── vecapp.sgml │ ├── vecfor.sgml │ ├── vecmap.sgml │ ├── vecslice.sgml │ ├── wait-for.sgml │ ├── wait.sgml │ ├── week-date.sgml │ ├── with-input-from-file.sgml │ ├── with-module.sgml │ ├── with-output-to-file.sgml │ ├── withostr.sgml │ └── ymd-date.sgml ├── rscheme.sgml ├── rsdoc.dsl ├── tech │ ├── compiler-phases.eps │ ├── content.sgml │ └── placeholder.eps └── tools │ ├── eps2png │ ├── ofig2eps │ └── strfig2eps ├── handc ├── autom4te.cache │ ├── output.0 │ ├── requests │ └── traces.0 ├── bci │ ├── Makefile │ ├── bcextend.h │ ├── bcinterp.c │ └── includes.lst ├── cfg │ ├── gc │ │ ├── freelist │ │ │ ├── Makefile │ │ │ ├── backtrk.h │ │ │ ├── bktrksvc.c │ │ │ ├── bktrksvr.c │ │ │ ├── gcclient.h │ │ │ ├── gcserver.c │ │ │ ├── gcserver.h │ │ │ ├── gcserver1.ci │ │ │ ├── gcserver2.ci │ │ │ ├── gcstruct.h │ │ │ ├── gcxverse.ci │ │ │ ├── gcxverse.h │ │ │ ├── includes.lst │ │ │ ├── inlines.hh │ │ │ └── inlines.lst │ │ ├── irc │ │ │ ├── Makefile │ │ │ ├── alloc.h │ │ │ ├── clientyp.h │ │ │ ├── gcalloc.c │ │ │ ├── gcconfig.h │ │ │ ├── gcglue.h │ │ │ ├── gcserver.h │ │ │ ├── gcserver1.ci │ │ │ ├── gcserver2.ci │ │ │ ├── gcxverse.h │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ ├── irc.h │ │ │ ├── irctypes.h │ │ │ ├── makeheap.c │ │ │ ├── ptrlist.c │ │ │ ├── record.h │ │ │ ├── sizeclas.h │ │ │ ├── traverse.c │ │ │ ├── traverse.h │ │ │ ├── travstat.h │ │ │ ├── writebar.c │ │ │ └── writebar.h │ │ └── rtgc │ │ │ ├── Makefile │ │ │ ├── allocator.cc │ │ │ ├── colorset.cc │ │ │ ├── gc.cc │ │ │ ├── gcserver.cc │ │ │ ├── gen.cc │ │ │ ├── igps.cc │ │ │ ├── objmgr.cc │ │ │ ├── pointers.cc │ │ │ ├── rtgc │ │ │ ├── allocator.ci │ │ │ ├── allocator.hh │ │ │ ├── colorset.hh │ │ │ ├── colorset1.ci │ │ │ ├── colorset2.ci │ │ │ ├── config.hh │ │ │ ├── gc.hh │ │ │ ├── gc1.ci │ │ │ ├── gc2.ci │ │ │ ├── gcclient.h │ │ │ ├── gcserver.h │ │ │ ├── gcserver.h~ │ │ │ ├── gcserver1.ci │ │ │ ├── gcserver2.ci │ │ │ ├── gen.hh │ │ │ ├── gen1.ci │ │ │ ├── gen2.ci │ │ │ ├── igps.hh │ │ │ ├── igps1.ci │ │ │ ├── igps2.ci │ │ │ ├── inlines.hh │ │ │ ├── langtype.h │ │ │ ├── linktype.h │ │ │ ├── objmgr.ci │ │ │ ├── objmgr.hh │ │ │ ├── pointers.ci │ │ │ ├── pointers.hh │ │ │ ├── scanroot.ci │ │ │ ├── scanroot.hh │ │ │ ├── scheduler.hh │ │ │ ├── sizclass.ci │ │ │ ├── sizclass.h │ │ │ └── states.h │ │ │ ├── scanroot.cc │ │ │ ├── scheduler.cc │ │ │ └── sizclass.c │ ├── gcadapt │ │ ├── freelist │ │ │ ├── Makefile │ │ │ ├── gcadapt.h │ │ │ ├── gcclient.c │ │ │ ├── gcclient1.ci │ │ │ ├── gcclient2.ci │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── langtype.h │ │ ├── irc │ │ │ ├── Makefile │ │ │ ├── gcadapt.h │ │ │ ├── gcclient.c │ │ │ ├── gcclient1.ci │ │ │ ├── gcclient2.ci │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── langtype.h │ │ └── rtgc │ │ │ ├── Makefile │ │ │ ├── gcadapt.h │ │ │ ├── gcclient.c │ │ │ ├── gcclient1.ci │ │ │ ├── gcclient2.ci │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── langtype.h │ ├── mod.c │ └── rdln │ │ ├── gnu │ │ ├── Makefile │ │ └── rdln_gnu.c │ │ └── std │ │ ├── Makefile │ │ └── rdln_std.c ├── config.guess ├── config.h.in ├── config.sub ├── configure ├── configure.in ├── dfltmain │ ├── Makefile │ ├── findimag.c │ └── main.c ├── hasht │ ├── Makefile.in │ ├── chain.ci │ ├── crchash.c │ ├── generic.c │ ├── generic.c1 │ ├── generic.ci │ ├── generic0.c │ ├── hashfn.c │ ├── hashfn.h │ ├── hashmain.c │ ├── hashmain.h │ ├── hasht.h │ ├── htsplit.c │ ├── htstruct.h │ ├── includes.lst │ ├── special.ci │ └── tblcopy.c ├── heapi │ ├── Makefile │ ├── heapi.h │ ├── imagfile.h │ ├── includes.lst │ ├── loadimag.c │ ├── mapf.h │ ├── saveimg.h │ ├── saveq.c │ ├── saveq.h │ ├── savetrav.c │ └── savewrit.c ├── install.sh ├── install │ └── include │ │ └── rscheme.h ├── lgh │ ├── Makefile │ ├── README │ ├── learn0.c │ ├── lgh.h │ ├── lgh.scm │ └── lghmain.c ├── loadboot │ ├── Makefile │ └── loadboot.c ├── platform │ ├── aix │ │ ├── dynlink.c │ │ ├── mapf.c │ │ └── rs.exp │ ├── arch │ │ ├── m68k │ │ │ └── hwregs │ │ └── powerpc │ │ │ └── hwregs │ ├── bsd │ │ └── dynlink.c │ ├── com │ │ ├── dynlink.c │ │ ├── mapf.c │ │ └── osglue.c │ ├── darwin │ │ └── dynlink.c │ ├── dos │ │ ├── osglue.c │ │ └── platform.h │ ├── irix │ │ ├── dynlink.c │ │ └── mapf.c │ ├── linux │ │ └── dynlink.c │ ├── mac │ │ ├── buildsty.h │ │ ├── config_script.as │ │ ├── mapf.c │ │ ├── modulo.h │ │ ├── osglue.c │ │ ├── platform.h │ │ └── rs-mac-headers.h │ ├── next │ │ ├── dynlink.c │ │ └── mapf.c │ └── sunos │ │ └── dynlink.c ├── postambl.mak ├── rshell │ ├── Makefile │ └── shell.c ├── runtime │ ├── Makefile │ ├── _debug.c │ ├── allocns.c │ ├── allocns.h │ ├── api.h │ ├── applyg.c │ ├── atrace.c │ ├── basemath.c │ ├── chektype.ci │ ├── chektype.h │ ├── classes.c │ ├── collectn.h │ ├── dequeue.c │ ├── dynlink.h │ ├── entry.c │ ├── finalize.c │ ├── fluid.c │ ├── function.c │ ├── includes.lst │ ├── init.c │ ├── inlines.lst │ ├── interim.c │ ├── interim.ci │ ├── intrs.c │ ├── intrs.h │ ├── linkage.c │ ├── linktype.h │ ├── longint.c │ ├── longint.h │ ├── ntohd.ci │ ├── numsimpl.ci │ ├── numtower.ci │ ├── obj.h │ ├── osglue.h │ ├── profile.c │ ├── profile.h │ ├── rdln.h │ ├── readwrit.ci │ ├── regs.c │ ├── regs.h │ ├── rsmodule.c │ ├── rsmodule.h │ ├── runtime.h │ ├── scheme.h │ ├── smemory.c │ ├── smemory.ci │ ├── smemory.h │ ├── spin.c │ ├── stack.c │ ├── stack.ci │ ├── stack.h │ ├── stakcach.c │ ├── stakcach.ci │ ├── stakcach.h │ ├── strings.c │ ├── timeprof.c │ ├── timeprof.h │ ├── vinsns.c │ ├── vinsns.ci │ └── vinsns.h └── unstub │ ├── Makefile │ └── unstub.c ├── lib ├── MM.scm ├── Makefile.in ├── README ├── UNIT_TEST ├── app │ ├── axis │ │ └── soap-client │ │ │ ├── axis.scm │ │ │ └── module.scm │ ├── chess │ │ ├── board.scm │ │ ├── boardsim.scm │ │ ├── chess.scm │ │ ├── compile.scm │ │ ├── game.scm │ │ ├── moves.scm │ │ └── print.scm │ ├── doc2ps │ │ ├── Make │ │ ├── addrbook.scm │ │ ├── bookstyles.scm │ │ ├── bridge.scm │ │ ├── chaplabel.scm │ │ ├── contentmodel.scm │ │ ├── displayps.scm │ │ ├── docbook.scm │ │ ├── example.scm │ │ ├── exec.scm │ │ ├── fakepages.scm │ │ ├── fakepages0.scm │ │ ├── flowlayout.scm │ │ ├── graphic.scm │ │ ├── gtr.scm │ │ ├── hlist.scm │ │ ├── hyphenate.scm │ │ ├── index.scm │ │ ├── init.scm │ │ ├── iterator.scm │ │ ├── linewrap.scm │ │ ├── linewrap_pre_hyph.scm │ │ ├── main.scm │ │ ├── module.scm │ │ ├── pageengine.scm │ │ ├── pages2.scm │ │ ├── para.scm │ │ ├── para2.scm │ │ ├── paradev.scm │ │ ├── paralayout.scm │ │ ├── paratest.scm │ │ ├── partpage.scm │ │ ├── pdf.scm │ │ ├── placement.scm │ │ ├── read.scm │ │ ├── refentry.scm │ │ ├── reqstream.scm │ │ ├── rschemebook.scm │ │ ├── ruler.scm │ │ ├── sample.sgml │ │ ├── style-support.scm │ │ ├── table.scm │ │ ├── test-jig.scm │ │ ├── test.scm │ │ ├── test1.scm │ │ ├── test2.scm │ │ ├── test3.scm │ │ ├── textframe.scm │ │ ├── title.scm │ │ ├── titleb.scm │ │ ├── titleverso.scm │ │ ├── toc.scm │ │ └── wide.scm │ ├── ibis │ │ ├── README │ │ ├── backend │ │ │ ├── TODO │ │ │ ├── authmodel.scm │ │ │ ├── errors.scm │ │ │ ├── ibis-render.scm │ │ │ ├── ibis.scm │ │ │ ├── ibis2script.pl │ │ │ ├── interactive.scm │ │ │ ├── migrate.scm │ │ │ ├── module.scm │ │ │ ├── notify.scm │ │ │ ├── objmodel.scm │ │ │ ├── pstore.scm │ │ │ ├── server-commands.scm │ │ │ ├── server.scm │ │ │ └── text-layout.scm │ │ └── frontend │ │ │ ├── bin │ │ │ └── note │ │ │ ├── cli │ │ │ ├── Makefile │ │ │ └── client.c │ │ │ └── web │ │ │ ├── bx.py │ │ │ ├── detail.xsl │ │ │ ├── editform.html │ │ │ ├── followupform.html │ │ │ ├── fup.xsl │ │ │ ├── gateway.py │ │ │ ├── home.xsl │ │ │ ├── ibis.py │ │ │ ├── login.xsl │ │ │ ├── navigate.xsl │ │ │ ├── smgr.py │ │ │ └── stylex.py │ ├── indexer │ │ ├── Makefile │ │ ├── adder.scm │ │ ├── app.scm │ │ ├── bitset.scm │ │ ├── document.scm │ │ ├── dpi.scm │ │ ├── email.scm │ │ ├── module.scm │ │ ├── parse-addr.scm │ │ ├── parse-domain.scm │ │ ├── parse-email.scm │ │ ├── parse-text.scm │ │ ├── query.scm │ │ └── rix │ ├── sourcebase │ │ ├── QUICKREF │ │ ├── README │ │ ├── api │ │ │ ├── changereq.scm │ │ │ ├── database.scm │ │ │ ├── dir.scm │ │ │ ├── file.scm │ │ │ ├── filesys.scm │ │ │ ├── framework.scm │ │ │ ├── group.scm │ │ │ ├── snapex.scm │ │ │ ├── snapshot.scm │ │ │ └── user.scm │ │ ├── callback │ │ │ └── errors.scm │ │ ├── cli │ │ │ ├── admin.scm │ │ │ ├── changereq.scm │ │ │ ├── cvstime.scm │ │ │ ├── dir.scm │ │ │ ├── edit.scm │ │ │ ├── expandkeys.scm │ │ │ ├── file.scm │ │ │ ├── fs.scm │ │ │ ├── group.scm │ │ │ ├── main.scm │ │ │ ├── parsewhere.scm │ │ │ ├── report.scm │ │ │ ├── snapshot.scm │ │ │ ├── tee.scm │ │ │ └── view.scm │ │ ├── client │ │ │ ├── Makefile │ │ │ ├── Sb │ │ │ ├── busy │ │ │ ├── ci │ │ │ ├── client.c │ │ │ ├── co │ │ │ ├── creat │ │ │ ├── fvl │ │ │ ├── locks │ │ │ ├── sbcgi.c │ │ │ ├── sbcreat │ │ │ ├── sbdif │ │ │ ├── sblib.py │ │ │ ├── sbmkdir │ │ │ ├── sbmv │ │ │ ├── sbnote │ │ │ ├── sbrm │ │ │ └── util.c │ │ ├── datamodel │ │ │ ├── app.scm │ │ │ ├── audit.scm │ │ │ ├── changereq.scm │ │ │ ├── content.scm │ │ │ ├── fs.scm │ │ │ ├── fsnodes.scm │ │ │ ├── groups.scm │ │ │ ├── property.scm │ │ │ ├── users.scm │ │ │ └── workitem.scm │ │ ├── hooks.scm │ │ ├── kernel │ │ │ ├── allocation.scm │ │ │ ├── application.scm │ │ │ ├── changereq.scm │ │ │ ├── diverge.scm │ │ │ ├── fsnodes.scm │ │ │ ├── kassert.scm │ │ │ ├── linediff.scm │ │ │ ├── link.scm │ │ │ ├── locks.scm │ │ │ ├── pathlook.scm │ │ │ ├── pathmap.scm │ │ │ ├── policy.scm │ │ │ ├── properties.scm │ │ │ ├── textcontent.scm │ │ │ └── workitem.scm │ │ ├── migrate │ │ │ ├── TO_AXIS_README │ │ │ ├── authactions.scm │ │ │ ├── cmvcdata.scm │ │ │ ├── cmvctime.scm │ │ │ ├── dbmigrate.scm │ │ │ ├── disco.scm │ │ │ ├── indices.scm │ │ │ ├── levelmap.scm │ │ │ ├── major3.scm │ │ │ ├── more-disco.scm │ │ │ ├── node-script.scm │ │ │ ├── pass1.scm │ │ │ ├── pass2.scm │ │ │ ├── pass3.scm │ │ │ ├── pass4.scm │ │ │ ├── pass9.scm │ │ │ ├── pcixf │ │ │ │ ├── loadtable.scm │ │ │ │ └── pcixf.scm │ │ │ ├── scan-for-binary.scm │ │ │ ├── to-axis-repairs.scm │ │ │ ├── to-axis-topo.scm │ │ │ └── to-axis-util.scm │ │ ├── module.scm │ │ ├── pstore │ │ │ ├── appclasses.scm │ │ │ ├── create.scm │ │ │ ├── globals.scm │ │ │ ├── open.scm │ │ │ └── setup.scm │ │ ├── rsfam.scm │ │ ├── sbs │ │ ├── shell │ │ │ ├── editcmds.scm │ │ │ ├── envcmds.scm │ │ │ ├── eval.scm │ │ │ ├── main.scm │ │ │ ├── state.scm │ │ │ ├── utils.scm │ │ │ ├── viewcmds.scm │ │ │ └── vshparse.scm │ │ ├── sourcebase.scm │ │ ├── telnetd │ │ │ └── server.scm │ │ ├── test │ │ │ ├── test-074.rc │ │ │ ├── test-074.scm │ │ │ └── test-074.sh │ │ ├── ui │ │ │ ├── changereq.scm │ │ │ ├── filesys.scm │ │ │ ├── history.scm │ │ │ ├── lineitem.scm │ │ │ ├── mailqueue.scm │ │ │ ├── node.scm │ │ │ ├── report.scm │ │ │ ├── user.scm │ │ │ └── userformat.scm │ │ ├── util │ │ │ ├── fspath.scm │ │ │ ├── io.scm │ │ │ ├── iterator.scm │ │ │ └── tar.scm │ │ └── versionids │ │ │ ├── newleaf.scm │ │ │ └── versionmap.scm │ └── webcontent │ │ ├── README │ │ ├── datamodel.scm │ │ ├── download.scm │ │ ├── faq.scm │ │ ├── go.scm │ │ ├── images │ │ └── rscheme.png │ │ ├── request.scm │ │ ├── rscheme_org.scm │ │ ├── sample.scm │ │ ├── style.css │ │ └── webside.scm ├── configure.in ├── games │ └── trek │ │ └── galaxy.scm ├── graphics │ ├── afm │ │ ├── compute.scm │ │ ├── finder.scm │ │ ├── loader.scm │ │ └── module.scm │ ├── axes │ │ ├── autorange.scm │ │ ├── axes.scm │ │ ├── common.scm │ │ ├── module.scm │ │ ├── test.scm │ │ └── tics.scm │ ├── calendar │ │ ├── calendar.scm │ │ └── month_eps.scm │ ├── charpath │ │ ├── charpath.scm │ │ └── module.scm │ ├── color │ │ ├── color.scm │ │ ├── dither.scm │ │ ├── dither │ │ │ ├── dither.scm │ │ │ └── module.scm │ │ ├── math.scm │ │ ├── module.scm │ │ ├── parse.scm │ │ ├── pixel.scm │ │ └── table.scm │ ├── device │ │ ├── UNIT_TEST │ │ ├── abstract.scm │ │ ├── bboxdev.scm │ │ ├── chessboard.scm │ │ ├── current.scm │ │ ├── drawdimens.scm │ │ ├── gaudy.scm │ │ ├── module.scm │ │ ├── pdf.scm │ │ ├── postscript.scm │ │ ├── prolog.ps │ │ ├── stdstyles.scm │ │ ├── test1.scm │ │ └── triv.scm │ ├── fontmgr │ │ ├── fontmgr.scm │ │ ├── loadall.sh │ │ ├── module.scm │ │ ├── pdffont.scm │ │ ├── persist.scm │ │ ├── query.scm │ │ ├── sample-fonts.scm │ │ └── showfontmap.scm │ ├── gd │ │ ├── README │ │ ├── config.h.in │ │ ├── configure.in │ │ ├── gd.scm │ │ ├── gdio.c │ │ ├── gdio.h │ │ └── module.scm │ ├── geometry │ │ ├── UNIT_TEST │ │ ├── algebra.scm │ │ ├── area-seg.scm │ │ ├── areas.scm │ │ ├── bezier-length.scm │ │ ├── bezier.ma │ │ ├── bezier.scm │ │ ├── bezoff.scm │ │ ├── circle.scm │ │ ├── clip.scm │ │ ├── cloud.scm │ │ ├── contours.scm │ │ ├── ellipse.scm │ │ ├── fast-bezier.scm │ │ ├── geom.scm │ │ ├── geometry-table.scm │ │ ├── module.scm │ │ ├── persist.scm │ │ ├── quadratic-join.scm │ │ ├── stdmath.scm │ │ ├── test-areas.scm │ │ ├── testjig.scm │ │ ├── transforms.scm │ │ └── vecmath.scm │ ├── image │ │ ├── generic.scm │ │ ├── module.scm │ │ └── virtual.scm │ ├── png │ │ ├── as-image.scm │ │ ├── back.png │ │ ├── back2.png │ │ ├── chunk.scm │ │ ├── crc.scm │ │ ├── filter.scm │ │ ├── iterate.scm │ │ ├── module.scm │ │ ├── test.png │ │ ├── test2.png │ │ └── write.scm │ ├── pnm │ │ ├── module.scm │ │ └── pgm.scm │ ├── script │ │ └── manager │ │ │ ├── annotation.scm │ │ │ ├── argplace.scm │ │ │ ├── gscript.scm │ │ │ ├── module.scm │ │ │ └── test.scm │ ├── styles │ │ ├── access.scm │ │ ├── module.scm │ │ ├── styles.scm │ │ ├── stylesheet.scm │ │ └── test.scm │ ├── text │ │ └── layout │ │ │ ├── badness.scm │ │ │ ├── breakwidth.scm │ │ │ ├── config.scm │ │ │ ├── data.scm │ │ │ ├── deactivate.scm │ │ │ ├── deactivate2.scm │ │ │ ├── glue.scm │ │ │ ├── input.scm │ │ │ ├── layout.scm │ │ │ ├── linebreak.scm │ │ │ ├── listiter.scm │ │ │ ├── module.scm │ │ │ ├── nodes.scm │ │ │ ├── output.scm │ │ │ ├── print.scm │ │ │ ├── render.scm │ │ │ ├── space.scm │ │ │ ├── trybreak.scm │ │ │ ├── trybreak2.scm │ │ │ └── vlist.scm │ └── tiff │ │ ├── about.tiff │ │ ├── errors.scm │ │ ├── module.scm │ │ ├── rationals.scm │ │ ├── tags.scm │ │ ├── test.scm │ │ ├── tiff.scm │ │ ├── to-x-image.scm │ │ ├── types.scm │ │ └── unpack.scm ├── gui │ ├── app │ │ ├── dv │ │ │ ├── DESIGN │ │ │ ├── Makefile │ │ │ ├── README │ │ │ ├── STYLES │ │ │ ├── TODO │ │ │ ├── about-full.tiff │ │ │ ├── about.scm │ │ │ ├── app-cursors.scm │ │ │ ├── ascii.scm │ │ │ ├── chop.scm │ │ │ ├── client.scm │ │ │ ├── clientmsg.scm │ │ │ ├── close.scm │ │ │ ├── colors.scm │ │ │ ├── composite.scm │ │ │ ├── cutpaste.scm │ │ │ ├── data-inspect.scm │ │ │ ├── debug.scm │ │ │ ├── dev │ │ │ │ ├── bbox │ │ │ │ │ └── driver.scm │ │ │ │ ├── device.scm │ │ │ │ ├── gs │ │ │ │ │ └── driver.scm │ │ │ │ ├── outline.scm │ │ │ │ ├── pick │ │ │ │ │ └── driver.scm │ │ │ │ ├── ps │ │ │ │ │ └── driver.scm │ │ │ │ ├── virtual.scm │ │ │ │ └── x11 │ │ │ │ │ └── driver.scm │ │ │ ├── dialog │ │ │ │ ├── dialog.scm │ │ │ │ └── inputtext.scm │ │ │ ├── dimen.scm │ │ │ ├── doc │ │ │ │ ├── Makefile │ │ │ │ ├── admon │ │ │ │ │ ├── caution.gif │ │ │ │ │ ├── home.gif │ │ │ │ │ ├── important.gif │ │ │ │ │ ├── next.gif │ │ │ │ │ ├── note.dia │ │ │ │ │ ├── note.eps │ │ │ │ │ ├── note.gif │ │ │ │ │ ├── prev.gif │ │ │ │ │ ├── tip.gif │ │ │ │ │ ├── toc-blank.gif │ │ │ │ │ ├── toc-minus.gif │ │ │ │ │ ├── toc-plus.gif │ │ │ │ │ ├── up.gif │ │ │ │ │ ├── warning.eps │ │ │ │ │ └── warning.gif │ │ │ │ ├── bookinfo.sgml │ │ │ │ ├── chap │ │ │ │ │ ├── constrain.sgml │ │ │ │ │ ├── coords.sgml │ │ │ │ │ ├── files.dia │ │ │ │ │ ├── glossary.sgml │ │ │ │ │ ├── intro.sgml │ │ │ │ │ ├── objmodel.sgml │ │ │ │ │ ├── scripts.sgml │ │ │ │ │ └── undo.sgml │ │ │ │ ├── dv.sgml │ │ │ │ └── figs │ │ │ │ │ └── usercoord1.eps │ │ │ ├── dv.scm │ │ │ ├── dvm.scm │ │ │ ├── eventmgr.scm │ │ │ ├── exacttext.scm │ │ │ ├── exit.scm │ │ │ ├── explode.scm │ │ │ ├── export.scm │ │ │ ├── exposure.scm │ │ │ ├── focus.scm │ │ │ ├── font.scm │ │ │ ├── frame.scm │ │ │ ├── grid.scm │ │ │ ├── images │ │ │ │ ├── box.png │ │ │ │ ├── cell.png │ │ │ │ ├── cells.png │ │ │ │ ├── dim.png │ │ │ │ ├── doc-insp.png │ │ │ │ ├── ellipse.png │ │ │ │ ├── handypencil.png │ │ │ │ ├── line.png │ │ │ │ ├── magnify.png │ │ │ │ ├── obj-insp.png │ │ │ │ ├── page-insp.png │ │ │ │ ├── pen.png │ │ │ │ ├── select.png │ │ │ │ ├── tab0.png │ │ │ │ ├── tab1.png │ │ │ │ ├── tab2.png │ │ │ │ ├── tab3.png │ │ │ │ ├── tab4.png │ │ │ │ ├── tab5.png │ │ │ │ ├── tab6.png │ │ │ │ ├── tab7.png │ │ │ │ ├── tabx.png │ │ │ │ └── text.png │ │ │ ├── inspection.scm │ │ │ ├── inspector.scm │ │ │ ├── interactive.scm │ │ │ ├── keylist.scm │ │ │ ├── keys.scm │ │ │ ├── keystate.scm │ │ │ ├── length.scm │ │ │ ├── loadofig.scm │ │ │ ├── macros │ │ │ │ ├── arrow.scm │ │ │ │ ├── brace.ps │ │ │ │ ├── driver.scm │ │ │ │ ├── eventmap.scm │ │ │ │ ├── framework.scm │ │ │ │ ├── loadofig.scm │ │ │ │ ├── memorymap.scm │ │ │ │ ├── object-interaction-2.scm │ │ │ │ ├── object-interaction.scm │ │ │ │ ├── statediagram.scm │ │ │ │ └── test.ofig │ │ │ ├── main.scm │ │ │ ├── major.scm │ │ │ ├── major │ │ │ │ ├── select.scm │ │ │ │ └── zoom.scm │ │ │ ├── make-new-doc.scm │ │ │ ├── make-test-doc.scm │ │ │ ├── menu.scm │ │ │ ├── minibuffer.scm │ │ │ ├── module.scm │ │ │ ├── morestyles.scm │ │ │ ├── mouse.scm │ │ │ ├── objects │ │ │ │ ├── box.scm │ │ │ │ ├── group.scm │ │ │ │ ├── line.scm │ │ │ │ ├── path.scm │ │ │ │ ├── script.scm │ │ │ │ └── text.scm │ │ │ ├── objmodel.scm │ │ │ ├── open-doc.scm │ │ │ ├── pageframe.scm │ │ │ ├── patch.scm │ │ │ ├── print.scm │ │ │ ├── redraw.scm │ │ │ ├── renderfont.scm │ │ │ ├── resources.scm │ │ │ ├── sample.dv │ │ │ ├── save.scm │ │ │ ├── scaleview.scm │ │ │ ├── scripts │ │ │ │ └── envelope.scm │ │ │ ├── scrollbar.scm │ │ │ ├── selectfont.scm │ │ │ ├── shaders │ │ │ │ ├── bendy.scm │ │ │ │ ├── brace.scm │ │ │ │ ├── dfnode.scm │ │ │ │ ├── disk.scm │ │ │ │ └── window.scm │ │ │ ├── sound.scm │ │ │ ├── strokeinspector.scm │ │ │ ├── styles.scm │ │ │ ├── svg.scm │ │ │ ├── tabbed.scm │ │ │ ├── test-doc.dat │ │ │ ├── test.ofig │ │ │ ├── toolbox.scm │ │ │ ├── triv.scm │ │ │ ├── winconfig.scm │ │ │ └── ximages.scm │ │ └── notebook │ │ │ ├── RStep.defaults │ │ │ ├── math1.tiff │ │ │ ├── math2.tiff │ │ │ ├── nb │ │ │ └── notebook.scm │ ├── rstep │ │ └── x │ │ │ ├── RStep.defaults │ │ │ ├── atoms.scm │ │ │ ├── box.scm │ │ │ ├── button.scm │ │ │ ├── client.scm │ │ │ ├── colormgr.scm │ │ │ ├── colorpick.scm │ │ │ ├── colorwell.scm │ │ │ ├── connect.scm │ │ │ ├── control.scm │ │ │ ├── drag-and-drop.scm │ │ │ ├── eventloop.scm │ │ │ ├── ib.scm │ │ │ ├── module.scm │ │ │ ├── msgs.scm │ │ │ ├── pixmap-cache.scm │ │ │ ├── progressbar.scm │ │ │ ├── resource.scm │ │ │ ├── scroller.scm │ │ │ ├── tabber.scm │ │ │ ├── test.scm │ │ │ ├── view.scm │ │ │ └── window.scm │ ├── util │ │ ├── editor │ │ │ ├── buffer.scm │ │ │ ├── editor.scm │ │ │ ├── fillarea.scm │ │ │ ├── keybind.scm │ │ │ ├── keys.scm │ │ │ ├── main.scm │ │ │ ├── skin.scm │ │ │ ├── styles.scm │ │ │ └── viewport.scm │ │ └── x │ │ │ ├── device │ │ │ ├── driver.scm │ │ │ └── module.scm │ │ │ ├── keys.scm │ │ │ ├── module.scm │ │ │ ├── open.scm │ │ │ ├── pixmap-cache.scm │ │ │ ├── transparent.scm │ │ │ └── ximages.scm │ └── x │ │ ├── _keywords.scm │ │ ├── alloc-color.scm │ │ ├── atoms.scm │ │ ├── buffer.scm │ │ ├── bufferops.scm │ │ ├── change-keyboard-control.scm │ │ ├── colormap.scm │ │ ├── copy-area.scm │ │ ├── copy-gcontext.scm │ │ ├── create-cursor.scm │ │ ├── create-gcontext.scm │ │ ├── create-pixmap.scm │ │ ├── create-window.scm │ │ ├── cursor.scm │ │ ├── display.scm │ │ ├── doc │ │ ├── Xprotocol │ │ ├── display.sgml │ │ └── intro.sgml │ │ ├── drawing.scm │ │ ├── error-handler.scm │ │ ├── event-mask.scm │ │ ├── events.scm │ │ ├── focus.scm │ │ ├── font.scm │ │ ├── foo.scm │ │ ├── free-gcontext.scm │ │ ├── gcontext.scm │ │ ├── get-image.scm │ │ ├── get-window-attributes.scm │ │ ├── images.scm │ │ ├── keyboard-mapping.scm │ │ ├── map-window.scm │ │ ├── module.scm │ │ ├── oo-events.scm │ │ ├── open.scm │ │ ├── parse-screen.scm │ │ ├── pixarray.scm │ │ ├── properties.scm │ │ ├── query-colors.scm │ │ ├── query-tree.scm │ │ ├── rawimage.scm │ │ ├── request-macro.scm │ │ ├── sample │ │ └── hello-world.scm │ │ ├── screen.scm │ │ ├── set-gcontext.scm │ │ ├── set-window.scm │ │ ├── test.scm │ │ ├── truecolor.scm │ │ ├── unmap-window.scm │ │ ├── window.scm │ │ ├── xauth.scm │ │ └── xobject.scm ├── load.scm ├── makex.c ├── rational.scm ├── rs │ ├── backend │ │ ├── c │ │ │ ├── README │ │ │ ├── asmport.scm │ │ │ ├── assem.scm │ │ │ ├── ccompile.scm │ │ │ ├── cident.scm │ │ │ ├── cload.scm │ │ │ ├── defglue.scm │ │ │ ├── disclaimer.scm │ │ │ ├── lazy.scm │ │ │ ├── module.scm │ │ │ ├── monotones.scm │ │ │ ├── parseglue.scm │ │ │ ├── parts.scm │ │ │ ├── pragma.scm │ │ │ ├── pragma_not_sealed.scm │ │ │ ├── pragma_sealed.scm │ │ │ ├── rs-glue.scm │ │ │ ├── unitlink.scm │ │ │ ├── util.scm │ │ │ └── wrvinsn.scm │ │ └── tcc │ │ │ ├── disassem.scm │ │ │ ├── dynamic.scm │ │ │ └── emitters.scm │ ├── db │ │ ├── odbc │ │ │ ├── classes.scm │ │ │ ├── driver.scm │ │ │ ├── extract.c │ │ │ ├── extract.h │ │ │ ├── glue.scm │ │ │ ├── results.scm │ │ │ └── test.scm │ │ ├── oodb │ │ │ ├── assoc.scm │ │ │ ├── entity.scm │ │ │ ├── index.scm │ │ │ ├── module.scm │ │ │ ├── object.scm │ │ │ ├── pstore.scm │ │ │ ├── table.scm │ │ │ ├── test.scm │ │ │ ├── txn.scm │ │ │ └── world.scm │ │ └── sqlite3 │ │ │ ├── api.scm │ │ │ ├── glue.scm │ │ │ ├── module.scm │ │ │ ├── sqglue.c │ │ │ └── test.scm │ ├── io │ │ ├── conditional-read │ │ │ ├── feature.scm │ │ │ ├── module.scm │ │ │ └── readit.scm │ │ ├── here-strings │ │ │ ├── module.scm │ │ │ ├── phs.scm │ │ │ └── rs_io_he.doc │ │ ├── parser │ │ │ ├── HISTORY │ │ │ ├── errors.scm │ │ │ ├── module.scm │ │ │ ├── nodes.scm │ │ │ ├── parse-0.scm │ │ │ ├── parse.scm │ │ │ └── test.scm │ │ ├── pushback │ │ │ ├── module.scm │ │ │ └── pushback.scm │ │ ├── scanner │ │ │ ├── HISTORY │ │ │ ├── errors.scm │ │ │ ├── initscan.scm │ │ │ ├── module.scm │ │ │ ├── patch.scm │ │ │ ├── scan.scm │ │ │ ├── scanchar.scm │ │ │ ├── scancurly.scm │ │ │ ├── scanners.scm │ │ │ ├── scannum.scm │ │ │ ├── scansharp.scm │ │ │ ├── scanstr.scm │ │ │ ├── str2num.scm │ │ │ ├── tokclasses.scm │ │ │ ├── token.scm │ │ │ └── util.scm │ │ └── textport │ │ │ ├── location.scm │ │ │ ├── module.scm │ │ │ ├── test.scm │ │ │ └── textin.scm │ ├── macros │ │ ├── README │ │ ├── expand.sch │ │ ├── insert.scm │ │ ├── misc.sch │ │ ├── module.scm │ │ ├── mytest.scm │ │ ├── prefs.sch │ │ ├── syntaxenv.sch │ │ ├── syntaxrules.sch │ │ ├── tests.sch │ │ └── usual.sch │ ├── mm │ │ ├── mm.scm │ │ └── module.scm │ ├── net │ │ ├── asn1 │ │ │ ├── asn1.scm │ │ │ ├── asn_parse.c │ │ │ ├── ber.h │ │ │ ├── ber_encode_rec.c │ │ │ ├── ber_parse_rec.c │ │ │ ├── module.scm │ │ │ ├── snmp.scm │ │ │ └── x509.scm │ │ ├── console │ │ │ ├── console.scm │ │ │ └── module.scm │ │ ├── dns │ │ │ ├── all.scm │ │ │ ├── ask-server.scm │ │ │ ├── byte-string.scm │ │ │ ├── cache.scm │ │ │ ├── caching-nameserver.scm │ │ │ ├── client-side.scm │ │ │ ├── config.scm │ │ │ ├── encode-domain-name.scm │ │ │ ├── encode-ip.scm │ │ │ ├── encode-label.scm │ │ │ ├── encode-message.scm │ │ │ ├── encode-query.scm │ │ │ ├── encode-rr.scm │ │ │ ├── hacking │ │ │ │ └── new-cache.scm │ │ │ ├── lang.scm │ │ │ ├── message-compression.scm │ │ │ ├── message.scm │ │ │ ├── module.scm │ │ │ ├── parse-message.scm │ │ │ ├── qrm.scm │ │ │ ├── query.scm │ │ │ ├── recursive-query.scm │ │ │ ├── resolver-client.scm │ │ │ ├── rr.scm │ │ │ ├── rs-comments.text │ │ │ ├── server-start │ │ │ ├── simple-non-blocking.scm │ │ │ ├── test.scm │ │ │ ├── type-class.scm │ │ │ └── util.scm │ │ ├── html │ │ │ ├── Makefile │ │ │ ├── format.scm │ │ │ ├── fromparsed.scm │ │ │ ├── html.mcf │ │ │ ├── html.scm │ │ │ ├── htmlport.scm │ │ │ ├── module.scm │ │ │ └── parse │ │ │ │ ├── earley.scm │ │ │ │ ├── grammar.scm │ │ │ │ ├── module.scm │ │ │ │ ├── parse.scm │ │ │ │ └── scan.scm │ │ ├── http │ │ │ ├── Makefile │ │ │ ├── authority.scm │ │ │ ├── cgi.scm │ │ │ ├── client.scm │ │ │ ├── escapes.scm │ │ │ ├── module.scm │ │ │ ├── parspost.scm │ │ │ ├── pem.scm │ │ │ ├── pool.scm │ │ │ ├── test-echo.scm │ │ │ ├── test.html │ │ │ └── url.scm │ │ ├── httpd │ │ │ ├── 16x16-template.png │ │ │ ├── baseline.png │ │ │ ├── basicauth.scm │ │ │ ├── console.scm │ │ │ ├── cookiesession.scm │ │ │ ├── docs-icons.png │ │ │ ├── http.scm │ │ │ ├── ibis-chart.scm │ │ │ ├── ibis-ico.png │ │ │ ├── makeraw.scm │ │ │ ├── module.scm │ │ │ ├── raw.scm │ │ │ ├── server.scm │ │ │ ├── static.html │ │ │ ├── test.scm │ │ │ ├── testimage.png │ │ │ ├── uridir.xsl │ │ │ ├── webspace.scm │ │ │ └── xslt.scm │ │ ├── ircd │ │ │ ├── ircd.scm │ │ │ └── numerics.scm │ │ ├── md5 │ │ │ ├── md5.scm │ │ │ └── module.scm │ │ ├── nvt │ │ │ ├── module.scm │ │ │ ├── nvt-in.scm │ │ │ ├── nvt-out.scm │ │ │ └── nvt.scm │ │ ├── pem │ │ │ ├── module.scm │ │ │ └── pem.scm │ │ ├── popd │ │ │ ├── maildir.scm │ │ │ ├── module.scm │ │ │ └── pop.scm │ │ ├── pserver │ │ │ ├── README │ │ │ ├── auth.scm │ │ │ ├── commands.scm │ │ │ ├── module.scm │ │ │ ├── pserver.scm │ │ │ ├── sb.scm │ │ │ ├── sourcebase-hooks.scm │ │ │ └── test.scm │ │ ├── raw │ │ │ ├── README │ │ │ ├── ethernet.scm │ │ │ ├── gen.scm │ │ │ ├── icmp.scm │ │ │ ├── ip.scm │ │ │ ├── substring.scm │ │ │ ├── tun_tap.scm │ │ │ └── tuntap.c │ │ ├── rfc822 │ │ │ ├── address.scm │ │ │ ├── charset-grammar.scm │ │ │ ├── message.scm │ │ │ └── module.scm │ │ ├── services │ │ │ ├── container.scm │ │ │ ├── module.scm │ │ │ ├── procedural.scm │ │ │ ├── services.scm │ │ │ └── test.scm │ │ ├── sha1 │ │ │ ├── digest.scm │ │ │ ├── module.scm │ │ │ └── test.scm │ │ ├── sha256 │ │ │ ├── digest.scm │ │ │ ├── generate.scm │ │ │ ├── module.scm │ │ │ └── sha256.c │ │ ├── smtp │ │ │ ├── domainkeys.scm │ │ │ ├── module.scm │ │ │ └── smtp.scm │ │ ├── smtpd │ │ │ ├── README │ │ │ ├── auth.scm │ │ │ ├── boundedline.scm │ │ │ ├── go.scm │ │ │ ├── module.scm │ │ │ └── smtpd.scm │ │ ├── soap │ │ │ ├── encoding.scm │ │ │ ├── http.scm │ │ │ ├── module.scm │ │ │ ├── soap-client.scm │ │ │ └── soap-ns.scm │ │ ├── ssl │ │ │ ├── Jamfile │ │ │ ├── README │ │ │ ├── asyncvar.scm │ │ │ ├── https.scm │ │ │ ├── makecerts.sh │ │ │ ├── module.scm │ │ │ ├── server.c │ │ │ └── sslsocket.scm │ │ ├── telnet │ │ │ ├── module.scm │ │ │ └── telnet.scm │ │ ├── tls │ │ │ ├── README │ │ │ ├── pkcs-file.scm │ │ │ ├── privkey.pem │ │ │ ├── record.scm │ │ │ ├── sample │ │ │ │ ├── private-key.pem │ │ │ │ ├── server-cert.pem │ │ │ │ └── server-csr.pem │ │ │ ├── segment.scm │ │ │ └── types.scm │ │ ├── ubf │ │ │ ├── c14n.scm │ │ │ ├── lib │ │ │ │ ├── Jamfile │ │ │ │ ├── hash.c │ │ │ │ ├── hash.h │ │ │ │ ├── ubf.c │ │ │ │ ├── ubf.h │ │ │ │ ├── ubfsymtab.c │ │ │ │ └── ubfsymtab.h │ │ │ ├── module.scm │ │ │ ├── read.scm │ │ │ ├── ubf-b.scm │ │ │ └── ubf.scm │ │ └── uuid │ │ │ ├── module.scm │ │ │ └── uuid.scm │ ├── sys │ │ ├── compression │ │ │ ├── glue.scm │ │ │ ├── lzw │ │ │ │ ├── glue.scm │ │ │ │ ├── lzw.scm │ │ │ │ ├── lzwc.c │ │ │ │ ├── lzwc.h │ │ │ │ └── module.scm │ │ │ ├── module.scm │ │ │ └── zlib.scm │ │ ├── config │ │ │ ├── config.scm │ │ │ └── module.scm │ │ ├── crypto │ │ │ ├── crypto.scm │ │ │ ├── des.c │ │ │ ├── des.scm │ │ │ ├── dsa.scm │ │ │ ├── init-pki.scm │ │ │ ├── module.scm │ │ │ ├── morebignum.c │ │ │ ├── morebignum.h │ │ │ ├── pki.scm │ │ │ └── test.scm │ │ ├── errno │ │ │ ├── errno.scm │ │ │ ├── mapping.scm │ │ │ └── module.scm │ │ ├── generic-math │ │ │ ├── arithmetic.scm │ │ │ ├── builtin.scm │ │ │ ├── complex.scm │ │ │ ├── eparse.scm │ │ │ ├── eparsenum.scm │ │ │ ├── generics.scm │ │ │ ├── module.scm │ │ │ ├── rational.scm │ │ │ └── syntax.scm │ │ ├── multimethod │ │ │ ├── addmethod.scm │ │ │ ├── dispatch.scm │ │ │ ├── module.scm │ │ │ ├── test.scm │ │ │ └── typesys.scm │ │ ├── numeric │ │ │ ├── chop.scm │ │ │ └── module.scm │ │ └── undefine │ │ │ ├── module.scm │ │ │ └── undefine.scm │ └── util │ │ ├── bits │ │ ├── bitrun.scm │ │ ├── bvec-set-bits.scm │ │ ├── module.scm │ │ └── slices.scm │ │ ├── charset │ │ ├── HISTORY │ │ ├── charsets.scm │ │ ├── charsets.scm-bak │ │ ├── chset.psgml │ │ ├── commonset.scm │ │ ├── module.scm │ │ └── u_chset.sgml │ │ ├── collection │ │ ├── every-and-any.scm │ │ ├── foreach.scm │ │ ├── iterate.scm │ │ ├── lists.scm │ │ ├── map.scm │ │ ├── module.scm │ │ └── sequences.scm │ │ ├── debug │ │ └── breakpt.scm │ │ ├── emacs │ │ ├── hilight.scm │ │ └── rscheme-comint.el │ │ ├── iterate │ │ ├── dotimes.scm │ │ └── module.scm │ │ ├── logfile │ │ ├── logfiles.scm │ │ └── module.scm │ │ ├── memoize │ │ ├── memoize.scm │ │ └── module.scm │ │ ├── msgs │ │ ├── HISTORY │ │ ├── MSG_TABLES │ │ ├── debug.scm │ │ ├── dump.scm │ │ ├── errmsg.scm │ │ ├── message.scm │ │ ├── module.scm │ │ ├── note.scm │ │ ├── queue.scm │ │ └── warn.scm │ │ ├── pack │ │ ├── _16.ci │ │ ├── _32.ci │ │ ├── _64.ci │ │ ├── _f32.ci │ │ ├── _f64.ci │ │ ├── bo_b.ci │ │ ├── bo_l.ci │ │ ├── compile.scm │ │ ├── generator.scm │ │ ├── macros.scm │ │ ├── module.scm │ │ ├── pack.scm │ │ ├── packers.ci │ │ ├── packlib.c │ │ ├── packlib.h │ │ ├── units.scm │ │ └── unpack.scm │ │ ├── properties │ │ ├── default.scm │ │ ├── errors.scm │ │ ├── get.scm │ │ ├── module.scm │ │ ├── set.scm │ │ ├── using-assq.scm │ │ └── using-vassq.scm │ │ ├── pstore │ │ └── migrate │ │ │ ├── migrate.scm │ │ │ └── module.scm │ │ ├── pstoregc │ │ ├── Makefile │ │ ├── README │ │ ├── compact.scm │ │ ├── gcmain.scm │ │ ├── module.scm │ │ ├── scanmgr.scm │ │ ├── simple.scm │ │ └── state.scm │ │ ├── quantity │ │ ├── dimen.scm │ │ └── module.scm │ │ ├── realm │ │ ├── basicauth.scm │ │ └── module.scm │ │ ├── reify │ │ ├── module.scm │ │ └── reify.scm │ │ ├── relation │ │ ├── index.scm │ │ ├── module.scm │ │ ├── query.scm │ │ ├── relation.scm │ │ ├── test.scm │ │ └── world.scm │ │ ├── setf │ │ └── getsetf.scm │ │ ├── stdopt │ │ ├── UNIT_TEST │ │ ├── abbrev.scm │ │ ├── api.scm │ │ ├── cmdlib.scm │ │ ├── cmvcargs.scm │ │ ├── getopt.scm │ │ ├── getopt2.scm │ │ ├── interp.scm │ │ ├── module.scm │ │ ├── patterns.scm │ │ └── test.scm │ │ ├── subprocess │ │ ├── inpath.scm │ │ ├── module.scm │ │ └── run.scm │ │ ├── tester │ │ ├── module.scm │ │ ├── tester.scm │ │ └── unitfile.scm │ │ ├── text │ │ ├── diff │ │ │ ├── levenshtein.scm │ │ │ └── module.scm │ │ ├── glob.scm │ │ ├── matrix.scm │ │ ├── module.scm │ │ ├── render.scm │ │ └── table.scm │ │ ├── types │ │ ├── module.scm │ │ └── typecheck.scm │ │ └── unicode │ │ ├── README │ │ ├── access.scm │ │ ├── module.scm │ │ └── unicode.txt ├── srfi │ ├── 0 │ │ └── module.scm │ ├── 1 │ │ ├── COPYRIGHT │ │ ├── module.scm │ │ └── ref.scm │ ├── 2 │ │ ├── Makefile │ │ ├── module.scm │ │ └── ref.scm │ ├── 4 │ │ ├── defhnv.scm │ │ ├── defs.scm │ │ ├── module.scm │ │ ├── scanner.scm │ │ └── writehnv.scm │ ├── 6 │ │ └── module.scm │ ├── 8 │ │ └── module.scm │ ├── 9 │ │ ├── implementation.scm │ │ └── module.scm │ ├── 18 │ │ ├── Makefile │ │ ├── module.scm │ │ ├── mutex.scm │ │ └── threads.scm │ ├── 23 │ │ └── module.scm │ ├── 27 │ │ ├── api.scm │ │ ├── module.scm │ │ ├── mrg32k5a.c │ │ └── mrg32k5a.h │ ├── 34 │ │ ├── Makefile │ │ ├── module.scm │ │ └── srfi-34.scm │ ├── 35 │ │ ├── module.scm │ │ └── srfi-35.scm │ ├── 39 │ │ ├── module.scm │ │ ├── parameters.scm │ │ └── srfi-39-test.scm │ ├── 55 │ │ ├── module.scm │ │ └── require-extension.scm │ ├── 62 │ │ └── module.scm │ ├── 64 │ │ ├── module.scm │ │ ├── srfi-64-test.scm │ │ ├── tester.scm │ │ └── xmlrunner.scm │ ├── UNIT_TEST │ └── simple-sxml │ │ ├── module.scm │ │ ├── read.scm │ │ ├── tests.scm │ │ └── write.scm └── util │ ├── cprint │ ├── cpr.scm │ ├── foldconst.scm │ ├── module.scm │ └── pats.scm │ ├── cvs │ ├── client │ │ ├── client.scm │ │ ├── lineport.scm │ │ └── module.scm │ └── scan │ │ ├── branches.scm │ │ ├── module.scm │ │ └── scan.scm │ ├── html │ ├── esis.scm │ ├── html.cat │ ├── html.decl │ ├── html.dtd │ └── srfis.scm │ ├── iconv │ ├── iconv.scm │ └── module.scm │ ├── paste │ └── module.scm │ ├── patterns │ ├── bindings.scm │ ├── module.scm │ ├── patmatch.scm │ ├── patspace.scm │ ├── sublis.scm │ └── transform.scm │ ├── pdf │ ├── module.scm │ ├── new-pdf.scm │ ├── parse-pdf.scm │ ├── pdf-read.scm │ ├── pdf-scan.scm │ └── update-pdf.scm │ ├── pretty-print │ └── module.scm │ ├── readline │ ├── colout.scm │ ├── completion.scm │ ├── editport.scm │ ├── isearch.scm │ ├── keymap.scm │ ├── module.scm │ ├── open.scm │ ├── readline.scm │ ├── state.scm │ ├── termattr.scm │ └── test.scm │ ├── ssax │ ├── module.scm │ ├── myenv-rs.scm │ └── rscheme.scm │ ├── sxml │ ├── module.scm │ ├── namespaces.scm │ ├── parse.scm │ ├── parse2.scm │ ├── scan.scm │ ├── scanner.c │ ├── scanner.h │ ├── test.scm │ ├── test │ │ ├── test-00.xml │ │ ├── test-01.xml │ │ ├── test-02.xml │ │ ├── test-02b.xml │ │ ├── test-03.xml │ │ └── test-04.xml │ ├── user.scm │ └── util.scm │ ├── xml │ ├── dom.scm │ ├── module.scm │ ├── pretty.scm │ ├── read.scm │ ├── write.scm │ └── xpath.scm │ └── xpath │ ├── UNIT_TEST │ ├── delist.scm │ ├── iterator.scm │ ├── module.scm │ └── xpath.scm ├── modules ├── codegen │ ├── aml2bc.scm │ ├── aml2tmpl.scm │ ├── codegen.mcf │ ├── genaml.scm │ ├── lexaddr.scm │ ├── loops.scm │ ├── parassmt.scm │ ├── rearrnge.scm │ └── support.scm ├── compiler │ ├── aliases.scm │ ├── bdgs.scm │ ├── bindchek.scm │ ├── body.scm │ ├── classes.scm │ ├── cmplproc.scm │ ├── coerce.scm │ ├── compiler.mcf │ ├── compiler.scm │ ├── consts.scm │ ├── defwrm.scm │ ├── envtrefl.scm │ ├── envts.scm │ ├── errors.scm │ ├── formals.scm │ ├── icode.scm │ ├── inline.scm │ ├── kwdlist.scm │ ├── macros.scm │ ├── mainc.scm │ ├── native.scm │ ├── primtype.scm │ ├── quasiqu.scm │ ├── sforms.scm │ ├── srfi0.scm │ ├── typechek.scm │ ├── usagechk.scm │ ├── wellknwn.scm │ └── with.scm ├── corelib │ ├── alloc.scm │ ├── apply.scm │ ├── basicnum.scm │ ├── classes.scm │ ├── complex.scm │ ├── corelib.mcf │ ├── defmacro.scm │ ├── delegate.scm │ ├── dynstate.scm │ ├── errors.scm │ ├── fluid.scm │ ├── imageio.scm │ ├── inline.scm │ ├── intrglue.scm │ ├── keywords.scm │ ├── layer.scm │ ├── linkinfo.scm │ ├── macros.scm │ ├── num2str.scm │ ├── precore.mcf │ ├── primops.scm │ ├── process.scm │ ├── rational.scm │ ├── safeglue.scm │ ├── str2num.c │ ├── str2num.scm │ ├── string.scm │ ├── strnnum.h │ └── threadv.scm ├── debugger │ ├── adapter.scm │ ├── breakpt.scm │ ├── contns.scm │ ├── debug.scm │ ├── debugger.mcf │ ├── frames.scm │ └── slice.scm ├── earley │ ├── earley.mcf │ ├── grammar.scm │ └── parser.scm ├── editinp │ ├── editinp.mcf │ ├── editinp.scm │ └── readlin.scm ├── hacks │ ├── debugapi.scm │ ├── disassem.scm │ ├── hacks.mcf │ └── repl.scm ├── highscm │ ├── collexn.scm │ ├── equality.scm │ ├── highscm.mcf │ ├── hooks.scm │ ├── procedur.scm │ ├── profiler.scm │ └── promise.scm ├── imageio │ ├── codeanch.scm │ ├── compres.ci │ ├── glue.scm │ ├── imageio.mcf │ ├── imaglod.ci │ ├── imaglue.h │ ├── imagsav.c │ ├── marshall.scm │ ├── refanchor.scm │ ├── refsload.c │ ├── refsmgr.scm │ ├── schema.scm │ ├── uncompr.ci │ └── user.scm ├── iolib │ ├── bstrout.scm │ ├── classes.scm │ ├── conven.scm │ ├── cports.h │ ├── curlybrc.scm │ ├── current.scm │ ├── disperrs.scm │ ├── escapstr.c │ ├── filter.scm │ ├── format.scm │ ├── input.scm │ ├── iolib.mcf │ ├── op_bstr.c │ ├── op_str.c │ ├── output.scm │ ├── parsefmt.c │ ├── pprint.scm │ ├── print.scm │ ├── process.scm │ ├── read.scm │ ├── readapp.scm │ ├── readstr.scm │ ├── scan.scm │ ├── scanchar.scm │ ├── stdin.scm │ ├── stdio.scm │ ├── stdiox.c │ ├── stdiox.h │ ├── stdout.scm │ ├── strin.scm │ ├── strout.scm │ ├── unicode.scm │ ├── uniqobj.scm │ └── writers.scm ├── layer │ └── layer.mcf ├── lowscm │ ├── append.scm │ ├── callwval.scm │ ├── chars.scm │ ├── dequeue.scm │ ├── equality.scm │ ├── finding.scm │ ├── grokking.scm │ ├── keywords.scm │ ├── lists.scm │ ├── lowscm.mcf │ ├── mapping.scm │ ├── vectops.scm │ └── vectors.scm ├── mathlib │ ├── arith.h │ ├── arith.scm │ ├── constants.scm │ ├── expt.scm │ ├── mathlib.mcf │ ├── numbers.scm │ ├── numstr.scm │ ├── numthy.scm │ └── random.scm ├── mlink │ ├── linkcmds.scm │ ├── linker.scm │ ├── linkload.scm │ ├── mifdefs.scm │ ├── mifio.scm │ ├── mlink.mcf │ ├── modules.scm │ ├── mpath.scm │ ├── patch.scm │ ├── runtime.scm │ └── seq.scm ├── modules.lst ├── objsys │ ├── dualdisp.scm │ ├── genericf.scm │ ├── getnset.scm │ ├── makeinst.scm │ ├── metaobj.scm │ ├── methods.scm │ ├── newfm.scm │ ├── nextmeth.scm │ ├── object.scm │ └── objsys.mcf ├── paths │ ├── classes.scm │ ├── dirpath.scm │ ├── filepath.scm │ ├── filesys.scm │ ├── locate.scm │ ├── parse.scm │ ├── patheq.scm │ ├── paths.mcf │ └── rootpath.scm ├── plain │ └── plain.mcf ├── regex │ ├── bitvectr.scm │ ├── generate.scm │ ├── notation.scm │ ├── onechars.scm │ ├── orcompil.scm │ ├── pdaclass.scm │ ├── regex.mcf │ ├── runmatch.c │ ├── rxcase.scm │ ├── rxcodgen.scm │ ├── rxcompil.scm │ ├── rxinterp.scm │ ├── rxmach.h │ └── unformat.scm ├── repl │ ├── backtrac.scm │ ├── ccbt.scm │ ├── cmdloop.scm │ ├── cmdprocs.scm │ ├── definers.scm │ ├── defmodule.scm │ ├── load.scm │ ├── loadmodule.scm │ ├── make.scm │ ├── objforms.scm │ ├── objsyntx.scm │ ├── parsslot.scm │ ├── repl.mcf │ ├── replcli.scm │ ├── rewriters.scm │ ├── rewrites.scm │ ├── slotindx.scm │ └── userinit.scm ├── sort │ ├── sort.mcf │ └── sort.scm ├── start │ ├── handlers.scm │ ├── present.scm │ ├── start.mcf │ └── start.scm ├── tables │ ├── classes.scm │ ├── eqtable.scm │ ├── genhooks.scm │ ├── gentable.scm │ ├── join.scm │ ├── make.scm │ ├── misc.scm │ ├── objtable.scm │ ├── strcitable.scm │ ├── strtable.scm │ ├── symtable.scm │ ├── tablemap.scm │ └── tables.mcf └── threads │ ├── idle.scm │ ├── messages.scm │ ├── sleeplst.scm │ ├── threads.mcf │ └── threads.scm ├── packages ├── calendar │ ├── calendar.mcf │ ├── dateobj.scm │ ├── math.scm │ ├── monthq.scm │ ├── mydigits.scm │ ├── readtime.scm │ ├── varbase.scm │ ├── weekdays.scm │ └── yearpart.scm ├── db │ ├── db.mcf │ ├── dbglue.scm │ ├── dbtable.scm │ ├── incl.h │ └── safeglue.scm ├── fasl │ ├── codeptrs.c │ ├── fasl.mcf │ ├── fasldef.h │ ├── faslglue.scm │ ├── faslload.c │ ├── faslsave.c │ ├── genfasl.scm │ ├── ldcode.c │ ├── mkfasl │ └── timeprof ├── general │ ├── evalprocs.scm │ ├── make.pkg │ ├── rs_glue.scm │ ├── rs_lang.scm │ ├── rs_lang_eval.scm │ ├── rs_lang_internal.scm │ ├── rs_sys_linker.scm │ ├── rs_sys_paths.scm │ ├── rs_sys_reflect.scm │ └── rs_sys_tables.scm ├── guitk │ ├── callback.c │ ├── geom.scm │ ├── guitk.c │ ├── guitk.mcf │ ├── layer.scm │ └── tclglue.scm ├── httpd │ ├── STREAMS │ ├── authority.scm │ ├── cmvc-defects.scm │ ├── cmvc-features.scm │ ├── cmvc-files.scm │ ├── cmvc-pages.scm │ ├── cmvc-scandir.scm │ ├── config.scm │ ├── daemon.scm │ ├── dir-assist.scm │ ├── echo.scm │ ├── html-pages.scm │ ├── htmlgen.scm │ ├── images.scm │ ├── newuser.scm │ ├── opendefect.scm │ ├── parse-post.scm │ ├── peopledb.scm │ ├── reloader.scm │ ├── rfc-1421.scm │ ├── rnote.scm │ └── vpage-filter.scm ├── lss │ ├── Makefile.in │ ├── alloc.h │ ├── autom4te.cache │ │ ├── output.0 │ │ ├── requests │ │ └── traces.0 │ ├── classes.scm │ ├── compression │ │ └── zstore.c │ ├── config.guess │ ├── config.h.in │ ├── config.sub │ ├── configure │ ├── configure.in │ ├── freemap.c │ ├── freemap.h │ ├── gc.scm │ ├── glue.scm.in │ ├── hash.c │ ├── inspect.scm │ ├── install-sh │ ├── lssapi.c │ ├── lssctl.c │ ├── lssdump.c │ ├── lsspriv.h │ ├── lssv2.c │ ├── lssv2.h │ ├── lssv3.c │ ├── lssv3.h │ ├── make.pkg │ ├── module.scm │ ├── rscheme │ │ └── pkgs │ │ │ └── lss │ │ │ ├── lss.h │ │ │ ├── lsserrno.h │ │ │ └── lsszips.h │ ├── test │ │ └── Makefile.in │ ├── timebase │ │ ├── Makefile.in │ │ ├── autom4te.cache │ │ │ ├── output.0 │ │ │ ├── requests │ │ │ └── traces.0 │ │ ├── config.guess │ │ ├── config.h.in │ │ ├── config.sub │ │ ├── configure │ │ ├── configure.in │ │ ├── install-sh │ │ ├── ppc │ │ │ └── readtime.s │ │ ├── ppcdarwin │ │ │ └── readtime.s │ │ ├── timebase.h │ │ └── timebase_ops.c │ ├── zipnull.c │ ├── zipzlib.c │ └── zstore.h ├── modules.lst ├── pkg-bld ├── rdyl │ ├── cmdloop.scm │ ├── genwrite.scm │ ├── lex.l │ ├── make.bld │ ├── rdyl.mcf │ ├── rdyl.y │ ├── smoothlib.scm │ ├── xlate.scm │ ├── xtop.scm │ └── yaccglue.scm ├── rstore │ ├── Makefile.in │ ├── alloc.h │ ├── areaglue.scm │ ├── areas.c │ ├── autom4te.cache │ │ ├── output.0 │ │ ├── requests │ │ └── traces.0 │ ├── commit.scm │ ├── config.guess │ ├── config.h.in │ ├── config.sub │ ├── configure │ ├── configure.in │ ├── copyin.scm │ ├── debugmsg.scm │ ├── gc.scm │ ├── glue.scm │ ├── htable.c │ ├── htable.h │ ├── in_symbols.c │ ├── indir.scm │ ├── indirect.c │ ├── indirect.h │ ├── install-sh │ ├── lazyvec.scm │ ├── linkage.scm │ ├── loader.c │ ├── lru_model │ │ ├── Makefile.in │ │ ├── load.c │ │ ├── store.c │ │ ├── zstore.c │ │ └── zstore.h │ ├── make.pkg │ ├── mmglue.aix │ ├── mmglue.bsd │ ├── mmglue.c │ ├── mmglue.h │ ├── mmglue.irx │ ├── mmglue.lnx │ ├── mmglue.mch │ ├── mmglue.openbsd │ ├── mmglue.sun │ ├── module.scm │ ├── old_model │ │ ├── Makefile.in │ │ ├── oload.c │ │ └── ostore.c │ ├── page_loader.ci │ ├── page_storer.ci │ ├── pagemgr.c │ ├── pagemgr.h │ ├── printhex.c │ ├── pstore.scm │ ├── rscheme │ │ └── pkgs │ │ │ └── rstore │ │ │ └── rstore.h │ ├── rstoret.h │ ├── scan.c │ ├── scan.h │ ├── swizzler.h │ ├── table.scm │ ├── trnscell.c │ ├── util.c │ ├── writer.c │ └── xlation.c ├── sets │ ├── basic.scm │ ├── intersect.scm │ ├── iterate.scm │ ├── members.scm │ ├── sets.mcf │ └── union.scm ├── syscalls │ ├── dirent.scm │ ├── fdport.scm │ ├── files.scm │ ├── hostname.scm │ ├── ident.scm │ ├── make.bld │ ├── mksyscalls.scm │ ├── safeglue.scm │ ├── scanprof.scm │ ├── scmtime.c │ ├── scmtime.h │ ├── sockaddr.scm │ ├── sockets.scm │ ├── sockopt.scm │ ├── stat.scm │ ├── syscalls.mcf │ ├── sysio.scm │ ├── sysiox.c │ ├── systemh.h │ └── time.scm ├── threads │ ├── make.pkg │ ├── manager │ │ ├── accum_cpu.c │ │ ├── class.scm │ │ ├── condition.scm │ │ ├── critsect.scm │ │ ├── dispatch.c │ │ ├── events.c │ │ ├── events.h │ │ ├── fdport.scm │ │ ├── futures.scm │ │ ├── group.scm │ │ ├── mailbox.scm │ │ ├── make.scm │ │ ├── manager.mcf │ │ ├── mboxport.scm │ │ ├── mutex.scm │ │ ├── outport.scm │ │ ├── output.c │ │ ├── output.h │ │ ├── packet.scm │ │ ├── pipe.scm │ │ ├── process.c │ │ ├── process.h │ │ ├── processio.scm │ │ ├── semaphore.scm │ │ ├── sockets.scm │ │ ├── srfi18.scm │ │ ├── start.scm │ │ ├── struct.h │ │ ├── synch.c │ │ ├── synch.h │ │ ├── system.scm │ │ ├── systime.c │ │ ├── systime.h │ │ ├── termios.scm │ │ ├── threads-1.pre │ │ ├── threads-1.scm │ │ ├── timer.scm │ │ ├── util.c │ │ ├── util.h │ │ └── xevents.c │ └── shell │ │ ├── bg.scm │ │ ├── make.pkg │ │ ├── module.scm │ │ ├── pool.scm │ │ ├── run.scm │ │ ├── taskmgr.scm │ │ ├── thread-debug.scm │ │ └── thread-list.scm ├── ttywin │ ├── Makefile │ ├── cursesx.c │ ├── highlevl.scm │ ├── ttywin.mcf │ └── wfuncs.scm ├── unixm │ ├── dpopen.scm │ ├── env.scm │ ├── misc.c │ ├── misc.h │ ├── safeglue.scm │ ├── syscall.scm │ └── unixm.mcf └── x11 │ ├── XRScheme │ ├── image-picker.scm │ ├── interface-file.scm │ ├── napps.tiff │ ├── nimage.tiff │ ├── popup.scm │ ├── rect-field.scm │ ├── selection.vrt │ │ └── document.vrt │ ├── std-graphics.tiff │ ├── std.gif │ └── test.if │ ├── adapt.c │ ├── adapt.h │ ├── atoms.scm │ ├── color.scm │ ├── config.scm │ ├── constants.scm │ ├── drawing.scm │ ├── drawlines.scm │ ├── event-access.scm │ ├── events.scm │ ├── focus.scm │ ├── fonts.scm │ ├── geom.scm │ ├── gif.scm │ ├── glue.scm │ ├── image.scm │ ├── layout-text.c │ ├── responder.scm │ ├── safeglue.scm │ ├── toolkit.scm │ ├── views.scm │ ├── windows.scm │ └── x11.mcf ├── pg ├── Makefile.in ├── README ├── astable.scm ├── classes.scm ├── cnxn.scm ├── configure ├── configure.in ├── genmodel.scm ├── gettuple.c ├── gettuple.h ├── gettuple.scm ├── make.pkg ├── module.scm ├── query.scm ├── result.scm ├── safeglue.scm ├── test.scm ├── transaction.scm └── util.scm ├── stage0 ├── Makefile.in ├── bci │ ├── Makefile │ ├── bcextend.h │ ├── bcfrags.ci │ ├── bcinterp.c │ ├── bcojump.ci │ ├── bcpjump.ci │ └── includes.lst ├── cfg │ ├── gc │ │ ├── freelist │ │ │ ├── Makefile │ │ │ ├── backtrk.h │ │ │ ├── bktrksvc.c │ │ │ ├── bktrksvr.c │ │ │ ├── gcclient.h │ │ │ ├── gcserver.c │ │ │ ├── gcserver.h │ │ │ ├── gcserver1.ci │ │ │ ├── gcserver2.ci │ │ │ ├── gcstruct.h │ │ │ ├── gcxverse.ci │ │ │ ├── gcxverse.h │ │ │ ├── includes.lst │ │ │ ├── inlines.hh │ │ │ └── inlines.lst │ │ ├── irc │ │ │ ├── Makefile │ │ │ ├── alloc.h │ │ │ ├── clientyp.h │ │ │ ├── gcalloc.c │ │ │ ├── gcconfig.h │ │ │ ├── gcglue.h │ │ │ ├── gcserver.h │ │ │ ├── gcserver1.ci │ │ │ ├── gcserver2.ci │ │ │ ├── gcxverse.h │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ ├── irc.h │ │ │ ├── irctypes.h │ │ │ ├── makeheap.c │ │ │ ├── ptrlist.c │ │ │ ├── record.h │ │ │ ├── sizeclas.h │ │ │ ├── traverse.c │ │ │ ├── traverse.h │ │ │ ├── travstat.h │ │ │ ├── writebar.c │ │ │ └── writebar.h │ │ └── rtgc │ │ │ ├── Makefile │ │ │ ├── allocator.cc │ │ │ ├── colorset.cc │ │ │ ├── gc.cc │ │ │ ├── gcserver.cc │ │ │ ├── gen.cc │ │ │ ├── igps.cc │ │ │ ├── objmgr.cc │ │ │ ├── pointers.cc │ │ │ ├── rtgc │ │ │ ├── allocator.ci │ │ │ ├── allocator.hh │ │ │ ├── colorset.hh │ │ │ ├── colorset1.ci │ │ │ ├── colorset2.ci │ │ │ ├── config.hh │ │ │ ├── gc.hh │ │ │ ├── gc1.ci │ │ │ ├── gc2.ci │ │ │ ├── gcclient.h │ │ │ ├── gcserver.h │ │ │ ├── gcserver.h~ │ │ │ ├── gcserver1.ci │ │ │ ├── gcserver2.ci │ │ │ ├── gen.hh │ │ │ ├── gen1.ci │ │ │ ├── gen2.ci │ │ │ ├── igps.hh │ │ │ ├── igps1.ci │ │ │ ├── igps2.ci │ │ │ ├── inlines.hh │ │ │ ├── langtype.h │ │ │ ├── linktype.h │ │ │ ├── objmgr.ci │ │ │ ├── objmgr.hh │ │ │ ├── pointers.ci │ │ │ ├── pointers.hh │ │ │ ├── scanroot.ci │ │ │ ├── scanroot.hh │ │ │ ├── scheduler.hh │ │ │ ├── sizclass.ci │ │ │ ├── sizclass.h │ │ │ └── states.h │ │ │ ├── scanroot.cc │ │ │ ├── scheduler.cc │ │ │ └── sizclass.c │ ├── gcadapt │ │ ├── freelist │ │ │ ├── Makefile │ │ │ ├── gcadapt.h │ │ │ ├── gcclient.c │ │ │ ├── gcclient1.ci │ │ │ ├── gcclient2.ci │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── langtype.h │ │ ├── irc │ │ │ ├── Makefile │ │ │ ├── gcadapt.h │ │ │ ├── gcclient.c │ │ │ ├── gcclient1.ci │ │ │ ├── gcclient2.ci │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── langtype.h │ │ └── rtgc │ │ │ ├── Makefile │ │ │ ├── gcadapt.h │ │ │ ├── gcclient.c │ │ │ ├── gcclient1.ci │ │ │ ├── gcclient2.ci │ │ │ ├── includes.lst │ │ │ ├── inlines.lst │ │ │ └── langtype.h │ ├── mod.c │ └── rdln │ │ ├── gnu │ │ ├── Makefile │ │ └── rdln_gnu.c │ │ └── std │ │ ├── Makefile │ │ └── rdln_std.c ├── config.guess ├── config.h.in ├── config.sub ├── configure.in ├── corelib │ ├── Makefile │ ├── alloc.c │ ├── apply.c │ ├── basicnum.c │ ├── complex.c │ ├── corelib.h │ ├── corelib_l.c │ ├── corelib_p.h │ ├── corelib_r.h │ ├── dynstate.c │ ├── imageio.c │ ├── includes.lst │ ├── intrglue.c │ ├── keywords.c │ ├── linkinfo.c │ ├── num2str.c │ ├── process.c │ ├── rational.c │ ├── str2num.c │ ├── str2num1.c │ ├── string.c │ └── strnnum.h ├── dfltmain │ ├── Makefile │ ├── findimag.c │ └── main.c ├── editinp │ ├── Makefile │ ├── editinp.h │ ├── editinp_l.c │ ├── editinp_p.h │ ├── editinp_r.h │ ├── includes.lst │ └── readlin.c ├── hasht │ ├── Makefile.in │ ├── chain.ci │ ├── crchash.c │ ├── generic.c │ ├── generic.c1 │ ├── generic.ci │ ├── generic0.c │ ├── hashfn.c │ ├── hashfn.h │ ├── hashmain.c │ ├── hashmain.h │ ├── hasht.h │ ├── htsplit.c │ ├── htstruct.h │ ├── includes.lst │ ├── special.ci │ └── tblcopy.c ├── heapi │ ├── Makefile │ ├── heapi.h │ ├── imagfile.h │ ├── includes.lst │ ├── loadimag.c │ ├── mapf.h │ ├── saveimg.h │ ├── saveq.c │ ├── saveq.h │ ├── savetrav.c │ └── savewrit.c ├── imageio │ ├── Makefile │ ├── compres.ci │ ├── glue.c │ ├── imageio.h │ ├── imageio_l.c │ ├── imageio_p.h │ ├── imageio_r.h │ ├── imaglod.ci │ ├── imaglue.h │ ├── imagsav.c │ ├── includes.lst │ ├── refsload.c │ └── uncompr.ci ├── install.sh ├── install │ ├── include │ │ ├── rscheme.h │ │ └── rscheme │ │ │ ├── rlseconf.cfg │ │ │ └── stdmodul.h │ └── resource │ │ └── compiler │ │ └── bytecode │ │ ├── bcgen.scm │ │ ├── bctable.dat │ │ └── potable.dat ├── iolib │ ├── Makefile │ ├── bstrout.c │ ├── cports.h │ ├── escapstr.c │ ├── format.c │ ├── includes.lst │ ├── iolib.h │ ├── iolib_l.c │ ├── iolib_p.h │ ├── iolib_r.h │ ├── op_bstr.c │ ├── op_str.c │ ├── parsefmt.c │ ├── stdiox.c │ ├── stdiox.h │ ├── strout.c │ └── writers.c ├── lgh │ ├── Makefile │ ├── README │ ├── learn0.c │ ├── lgh.h │ ├── lgh.scm │ └── lghmain.c ├── loadboot │ ├── Makefile │ └── loadboot.c ├── lowscm │ ├── Makefile │ ├── append.c │ ├── callwval.c │ ├── chars.c │ ├── finding.c │ ├── includes.lst │ ├── lists.c │ ├── low_scheme.h │ ├── low_scheme_l.c │ ├── low_scheme_p.h │ ├── low_scheme_r.h │ ├── mapping.c │ ├── vectops.c │ └── vectors.c ├── mathlib │ ├── Makefile │ ├── arith.h │ ├── arith1.c │ ├── includes.lst │ ├── mathlib.h │ ├── mathlib_l.c │ ├── mathlib_p.h │ ├── mathlib_r.h │ └── random.c ├── objsys │ ├── Makefile │ ├── genericf.c │ ├── getnset.c │ ├── includes.lst │ ├── makeinst.c │ ├── objsys.h │ ├── objsys_l.c │ ├── objsys_p.h │ └── objsys_r.h ├── platform │ ├── aix │ │ ├── dynlink.c │ │ ├── mapf.c │ │ └── rs.exp │ ├── arch │ │ ├── m68k │ │ │ └── hwregs │ │ └── powerpc │ │ │ └── hwregs │ ├── bsd │ │ └── dynlink.c │ ├── com │ │ ├── dynlink.c │ │ ├── mapf.c │ │ └── osglue.c │ ├── darwin │ │ └── dynlink.c │ ├── dos │ │ ├── osglue.c │ │ └── platform.h │ ├── irix │ │ ├── dynlink.c │ │ └── mapf.c │ ├── linux │ │ └── dynlink.c │ ├── mac │ │ ├── buildsty.h │ │ ├── config_script.as │ │ ├── mapf.c │ │ ├── modulo.h │ │ ├── osglue.c │ │ ├── platform.h │ │ └── rs-mac-headers.h │ ├── next │ │ ├── dynlink.c │ │ └── mapf.c │ └── sunos │ │ └── dynlink.c ├── postambl.mak ├── precore │ ├── str2num.c │ └── strnnum.h ├── regex │ ├── Makefile │ ├── includes.lst │ ├── regex.h │ ├── regex_l.c │ ├── regex_p.h │ ├── regex_r.h │ ├── runmatch.c │ ├── rxinterp.c │ └── rxmach.h ├── release.cfg ├── rshell │ ├── Makefile │ └── shell.c ├── runtime │ ├── Makefile │ ├── _debug.c │ ├── allocns.c │ ├── allocns.h │ ├── api.h │ ├── applyg.c │ ├── atrace.c │ ├── basemath.c │ ├── chektype.ci │ ├── chektype.h │ ├── classes.c │ ├── collectn.h │ ├── dequeue.c │ ├── dynlink.h │ ├── entry.c │ ├── finalize.c │ ├── fluid.c │ ├── function.c │ ├── includes.lst │ ├── init.c │ ├── inlines.lst │ ├── interim.c │ ├── interim.ci │ ├── intrs.c │ ├── intrs.h │ ├── linkage.c │ ├── linktype.h │ ├── longint.c │ ├── longint.h │ ├── ntohd.ci │ ├── numsimpl.ci │ ├── numtower.ci │ ├── obj.h │ ├── osglue.h │ ├── profile.c │ ├── profile.h │ ├── rdln.h │ ├── readwrit.ci │ ├── regs.c │ ├── regs.h │ ├── rsmodule.c │ ├── rsmodule.h │ ├── runtime.h │ ├── scheme.h │ ├── smemory.c │ ├── smemory.ci │ ├── smemory.h │ ├── spin.c │ ├── stack.c │ ├── stack.ci │ ├── stack.h │ ├── stakcach.c │ ├── stakcach.ci │ ├── stakcach.h │ ├── strings.c │ ├── timeprof.c │ ├── timeprof.h │ ├── vinsns.c │ ├── vinsns.ci │ └── vinsns.h ├── sort │ ├── Makefile │ ├── includes.lst │ ├── sort.h │ ├── sort1.c │ ├── sort_l.c │ ├── sort_p.h │ └── sort_r.h ├── subproj.lst ├── tables │ ├── Makefile │ ├── includes.lst │ ├── make.c │ ├── tables.h │ ├── tables_l.c │ ├── tables_p.h │ └── tables_r.h ├── tmp │ ├── buildcfg.scm │ └── system.bas └── unstub │ ├── Makefile │ └── unstub.c └── test ├── all.scm ├── baseobj.scm ├── cr251.scm ├── cr439.scm ├── cr571.scm ├── cr682.scm ├── cr757.scm ├── cr759.scm ├── d180.scm ├── d193.scm ├── d193.script ├── d299.scm ├── d627.scm ├── db.scm ├── errorprop.scm ├── expect.scm ├── finaliz.scm ├── lexical.dat ├── longint.scm ├── math-1.scm ├── quasiq.scm ├── regalloc.scm ├── regex.scm ├── scanning.scm ├── strin.scm ├── strsrch.scm ├── swizmode.scm ├── tables.scm └── threads.scm /doc/articles/persistence/ref.xml: -------------------------------------------------------------------------------- 1 | &file.ref-open; 2 | &file.ref-create; 3 | -------------------------------------------------------------------------------- /doc/chaps/calendar.sgml: -------------------------------------------------------------------------------- 1 | {Chapter} 2 | {Title}Calendar{/Title} 3 | {Para} 4 | {Para} 5 | This package (module {UserInput/calendar/) provides basic date manipulation 6 | functions. 7 | {Para} 8 | &ref.date-string; 9 | &ref.string-date; 10 | &ref.ymd-date; 11 | &ref.date-ymd; 12 | &ref.date; 13 | &ref.date1; 14 | &ref.date-time; 15 | &ref.date-weekday; 16 | &ref.date-week; 17 | &ref.week-date; 18 | &ref.short-weekday-name; 19 | -------------------------------------------------------------------------------- /doc/chaps/defmodule.sgml: -------------------------------------------------------------------------------- 1 | {Sect1} 2 | {Title}Define module{/Title} 3 | {Para} 4 | In this section we describe how modules can be defined in the interactive 5 | environment. 6 | You can therefore 7 | take advantage of modules even if you do not wish to use the off-line 8 | module compiler. 9 | {Para} 10 | The main form for defining modules is defined-module with the 11 | following syntax: 12 | &ref.define-module; 13 | &ref.with-module; 14 | &ref.define-module-extend; 15 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /doc/chaps/inet.sgml: -------------------------------------------------------------------------------- 1 | {Chapter} 2 | {Title}Internet Connectivity{/Title} 3 | {Para} 4 | {Para} 5 | &rs; provides some basic procedures for building internet-aware 6 | applications, including both clients and servers. 7 | Additional packages provide specialized procedures for implementing 8 | particular internet protocols, such as {UserInput/ident/, {UserInput/HTTP/, 9 | and {UserInput/X/. 10 | 11 | {Sect1} 12 | {Title}Server-side Procedures{/Title} 13 | &ref.inet-server; 14 | &ref.make-service; 15 | &ref.get-next-client; 16 | &ref.inet-client; 17 | &ref.string-hostaddr; 18 | &ref.remote-port-owner; 19 | -------------------------------------------------------------------------------- /doc/docbook3.dsl: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/doc/docbook3.dsl -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /doc/figs/list1.ofig: -------------------------------------------------------------------------------- 1 | ;;; an ObjectFigure -*-Scheme-*- 2 | 3 | ((a :var pa) 4 | (b :var pc) 5 | (pa :hvec va pb) 6 | (pb :hvec vb ()) 7 | (pc :hvec vc pd) 8 | (pd :hvec vd ()) 9 | (va :gvec (id) 0 'x 'y) 10 | (vb :gvec (id) 1 'p) 11 | (vc :gvec (id) 2) 12 | (vd :gvec (id) 3)) 13 | 14 | ((a #f b #f) 15 | (pa pb pc pd) 16 | (va vb vc vd)) 17 | 18 | -------------------------------------------------------------------------------- /doc/figs/list3.ofig: -------------------------------------------------------------------------------- 1 | ((a :var pa) 2 | (b :var pc) 3 | (d :var (link pa (r d r))) 4 | (pa :hvec va pb) 5 | (pb :hvec vb pc) 6 | (pc :hvec vc pd) 7 | (pd :hvec vd ()) 8 | (va :gvec (id) 0 'x 'y) 9 | (vb :gvec (id) 1 'p) 10 | (vc :gvec (id) 2) 11 | (vd :gvec (id) 3)) 12 | ;; 13 | 14 | ((d #f #f b #f) 15 | (a pa pb pc pd) 16 | (#f va vb vc vd)) 17 | 18 | ;;(h (v (h a c) p1 v1) (v - p2 v2) (v b p3 v3) (v - p4 v4)) 19 | -------------------------------------------------------------------------------- /doc/figs/str1.strfig: -------------------------------------------------------------------------------- 1 | ("1 2 Buckle my shoe" ()) 2 | -------------------------------------------------------------------------------- /doc/obtain.sgml: -------------------------------------------------------------------------------- 1 | {appendix} 2 | {title}Obtaining RScheme{/title} 3 | 4 | {para} 5 | This appendix describes where and how to get the 6 | latest release of RScheme. 7 | 8 | {para} 9 | The official web site for RScheme is: 10 | {UserInput}http://www.rscheme.org/{/UserInput} 11 | the latest release should always be linked 12 | from there, and should be available at least 13 | in compressed tar file format. 14 | 15 | {/appendix} 16 | -------------------------------------------------------------------------------- /doc/ref/abt.sgml: -------------------------------------------------------------------------------- 1 | {RefEntry} 2 | {RefNameDiv} 3 | {RefName}abt{/RefName} 4 | {RefPurpose}Print backtrace of function calls.{/RefPurpose} 5 | {RefClass role="Type"}replcmd{/RefClass} 6 | {/RefNameDiv} 7 | {RefSynopsisDiv} 8 | {FuncSynopsis Role="Scheme"} 9 | {FuncPrototype} 10 | {FuncDef}{Function/abt/{/FuncDef} 11 | {ParamDef role="arguments"} 12 | {/ParamDef}{/FuncPrototype} 13 | {/FuncSynopsis} 14 | {/RefSynopsisDiv} 15 | {RefSect1} 16 | {Title}Description{/Title} 17 | {para} 18 | Show a backtrace of applications. 19 | {/RefSect1} 20 | {/RefEntry} 21 | -------------------------------------------------------------------------------- /doc/ref/bt.sgml: -------------------------------------------------------------------------------- 1 | {RefEntry} 2 | {RefNameDiv} 3 | {RefName}bt{/RefName} 4 | {RefPurpose}Print continuation chain (stack).{/RefPurpose} 5 | {RefClass role="Type"}replcmd{/RefClass} 6 | {/RefNameDiv} 7 | {RefSynopsisDiv} 8 | {FuncSynopsis Role="Scheme"} 9 | {FuncPrototype} 10 | {FuncDef}{Function/bt/{/FuncDef} 11 | {ParamDef role="arguments"} 12 | {/ParamDef}{/FuncPrototype} 13 | {/FuncSynopsis} 14 | {/RefSynopsisDiv} 15 | {RefSect1} 16 | {Title}Description{/Title} 17 | {para} 18 | Show a backtrace of applications. 19 | {/RefSect1} 20 | {/RefEntry} 21 | -------------------------------------------------------------------------------- /doc/ref/export.sgml: -------------------------------------------------------------------------------- 1 | {RefEntry} 2 | {RefNameDiv} 3 | {RefName}export{/RefName} 4 | {RefPurpose}Specify names of variables to be exported{/RefPurpose} 5 | {RefClass role="Type"}mcf{/RefClass} 6 | {/RefNameDiv} 7 | {RefSynopsisDiv} 8 | {FuncSynopsis Role="Scheme"} 9 | {FuncPrototype} 10 | {FuncDef}{Function/export/{/FuncDef} 11 | {ParamDef role="arguments"} 12 | {Parameter/name/{/ParamDef}{/FuncPrototype} 13 | {/FuncSynopsis} 14 | {/RefSynopsisDiv} 15 | {/RefEntry} 16 | -------------------------------------------------------------------------------- /doc/ref/files.sgml: -------------------------------------------------------------------------------- 1 | {RefEntry} 2 | {RefNameDiv} 3 | {RefName}files{/RefName} 4 | {RefPurpose}Specify scheme files to be included in module{/RefPurpose} 5 | {RefClass role="Type"}mcf{/RefClass} 6 | {/RefNameDiv} 7 | {RefSynopsisDiv} 8 | {FuncSynopsis Role="Scheme"} 9 | {FuncPrototype} 10 | {FuncDef}{Function/files/{/FuncDef} 11 | {ParamDef role="arguments"} 12 | {Parameter/file/{/ParamDef}{/FuncPrototype} 13 | {/FuncSynopsis} 14 | {/RefSynopsisDiv} 15 | {/RefEntry} 16 | -------------------------------------------------------------------------------- /doc/ref/open.sgml: -------------------------------------------------------------------------------- 1 | {RefEntry} 2 | {RefNameDiv} 3 | {RefName}open{/RefName} 4 | {RefPurpose}Import module into current module{/RefPurpose} 5 | {RefClass role="Type"}mcf{/RefClass} 6 | {/RefNameDiv} 7 | {RefSynopsisDiv} 8 | {FuncSynopsis Role="Scheme"} 9 | {FuncPrototype} 10 | {FuncDef}{Function/open/{/FuncDef} 11 | {ParamDef role="arguments"} 12 | {Parameter/module/{/ParamDef}{/FuncPrototype} 13 | {/FuncSynopsis} 14 | {/RefSynopsisDiv} 15 | 16 | {/RefEntry} 17 | -------------------------------------------------------------------------------- /doc/tools/eps2png: -------------------------------------------------------------------------------- 1 | #! /bin/bash 2 | 3 | src=$1 4 | dest=$2 5 | 6 | bbox=$(awk '/^%%BoundingBox: / { print $2, $3, ($4 - $2)*3, ($5 - $3)*3 }' ${src}) 7 | set - $bbox 8 | x=$1 9 | y=$2 10 | w=$3 11 | h=$4 12 | 13 | 14 | (echo "${x} neg ${y} neg translate" 15 | cat ${src} 16 | echo 17 | echo "showpage" 18 | ) | gs -q -g${w}x${h} -r216 -dBATCH -dNOPAUSE -sDEVICE=pnm -sOutputFile=- - \ 19 | | pnmscale 0.333333 \ 20 | | pnmtopng > ${dest} 21 | -------------------------------------------------------------------------------- /handc/bci/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/bci/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:45 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | 14 | CFILES=bcinterp.c 15 | PRODUCT=bci.o 16 | include ../postambl.mak 17 | 18 | bcinterp.o: bcinterp.c bcfrags.ci 19 | -------------------------------------------------------------------------------- /handc/bci/includes.lst: -------------------------------------------------------------------------------- 1 | bcextend.h 2 | -------------------------------------------------------------------------------- /handc/cfg/gc/freelist/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/cfg/gc/freelist/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:19:03 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | 14 | CFILES=gcserver.c 15 | PRODUCT=xgc.o 16 | 17 | include ../postambl.mak 18 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /handc/cfg/gc/freelist/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /handc/cfg/gc/irc/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/cfg/gc/irc/Makefile 3 | # 4 | # Copyright (C)1995 Donovan Kolbly 5 | # as part of the RScheme project, licensed for free use 6 | # 7 | # Version: 1.3 8 | # Date: %G% 11:19:01 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | 14 | CFILES=makeheap.c gcalloc.c writebar.c ptrlist.c traverse.c 15 | PRODUCT=xgc.o 16 | 17 | include ../postambl.mak 18 | -------------------------------------------------------------------------------- /handc/cfg/gc/irc/gcserver2.ci: -------------------------------------------------------------------------------- 1 | /*-----------------------------------------------------------------*-C-*--- 2 | * File: handc/cfg/gc/irc/gcserver2.ci 3 | * 4 | * Copyright (C)1997 Donovan Kolbly 5 | * as part of the RScheme project, licensed for free use. 6 | * See for the latest information. 7 | * 8 | * File version: 1.3 9 | * File mod date: 1997-11-29 23:10:52 10 | * System build: v0.7.3.4-b7u, 2007-05-30 11 | * 12 | *------------------------------------------------------------------------*/ 13 | 14 | /* empty for now */ 15 | -------------------------------------------------------------------------------- /handc/cfg/gc/irc/gcxverse.h: -------------------------------------------------------------------------------- 1 | /*-----------------------------------------------------------------*-C-*--- 2 | * File: handc/cfg/gc/irc/gcxverse.h 3 | * 4 | * Copyright (C)1997 Donovan Kolbly 5 | * as part of the RScheme project, licensed for free use. 6 | * See for the latest information. 7 | * 8 | * File version: 1.4 9 | * File mod date: 1997-11-29 23:10:46 10 | * System build: v0.7.3.4-b7u, 2007-05-30 11 | * 12 | *------------------------------------------------------------------------*/ 13 | 14 | #include 15 | 16 | -------------------------------------------------------------------------------- /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/cfg/gc/irc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcserver1.ci 2 | gcserver2.ci 3 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /handc/cfg/gc/rtgc/rtgc/langtype.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/handc/cfg/gc/rtgc/rtgc/langtype.h -------------------------------------------------------------------------------- /handc/cfg/gc/rtgc/rtgc/pointers.hh: -------------------------------------------------------------------------------- 1 | #ifndef POINTERS_HH 2 | #define POINTERS_HH 3 | #include 4 | #include 5 | #include 6 | 7 | extern gc_object_base *pointing_object; 8 | 9 | LINK_TYPE UINT_32 follow_pointers(UINT_32 max_bytes_to_scan); 10 | #ifdef DEBUG_LEVEL2 11 | void follow_pointers_check_from_black(gc_object_base *ptr); 12 | void follow_pointers_check_from_non_black(gc_object_base *ptr); 13 | #endif 14 | #endif // POINTERS_HH 15 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/freelist/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/cfg/gcadapt/freelist/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:55 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | CFILES=gcclient.c 14 | PRODUCT=gcadapt.o 15 | include ../postambl.mak 16 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/freelist/includes.lst: -------------------------------------------------------------------------------- 1 | langtype.h 2 | gcadapt.h 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/freelist/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/irc/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/cfg/gcadapt/irc/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:51 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | CFILES=gcclient.c 14 | PRODUCT=gcadapt.o 15 | include ../postambl.mak 16 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/irc/includes.lst: -------------------------------------------------------------------------------- 1 | gcadapt.h 2 | langtype.h 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/irc/inlines.lst: -------------------------------------------------------------------------------- 1 | gcclient1.ci 2 | gcclient2.ci 3 | -------------------------------------------------------------------------------- /handc/cfg/gcadapt/rtgc/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/cfg/gcadapt/rtgc/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:53 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | CFILES=gcclient.c 14 | PRODUCT=gcadapt.o 15 | include ../postambl.mak 16 | -------------------------------------------------------------------------------- /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/cfg/rdln/gnu/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/cfg/rdln/gnu/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:59 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | 14 | CFLAGS2=$(CFLAGS) -I$(HOME)/include 15 | CFILES=rdln_gnu.c 16 | PRODUCT=rdln.o 17 | 18 | include ../postambl.mak 19 | 20 | depend:: 21 | $(CC) $(CFLAGS2) -MM -I. $(CFILES) > depends 22 | .c.o: 23 | $(CC) $(CFLAGS2) -c $*.c 24 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /handc/dfltmain/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/dfltmain/Makefile 3 | # 4 | # Copyright (C)1995 Donovan Kolbly 5 | # as part of the RScheme project, licensed for free use 6 | # 7 | # Version: 1.3 8 | # Date: %G% 11:18:41 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # 12 | 13 | CFILES=main.c findimag.c 14 | PRODUCT=dfltmain.o 15 | include ../postambl.mak 16 | -------------------------------------------------------------------------------- /handc/hasht/includes.lst: -------------------------------------------------------------------------------- 1 | hashfn.h 2 | hasht.h 3 | hashmain.h 4 | -------------------------------------------------------------------------------- /handc/heapi/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # File: handc/heapi/Makefile 3 | # 4 | # Copyright (C)1997 Donovan Kolbly 5 | # as part of the RScheme project, licensed for free use 6 | # 7 | # Version: 1.5 8 | # Date: %G% 10:47:21 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | 12 | CFILES=loadimag.c savewrit.c savetrav.c saveq.c mapf.c 13 | PRODUCT=heapi.o 14 | 15 | include ../postambl.mak 16 | -------------------------------------------------------------------------------- /handc/heapi/includes.lst: -------------------------------------------------------------------------------- 1 | heapi.h 2 | imagfile.h -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /handc/platform/arch/m68k/hwregs: -------------------------------------------------------------------------------- 1 | -DM68K_REGS -ffixed-a3 -ffixed-a4 -ffixed-a5 \ 2 | -ffixed-d4 -ffixed-d5 -ffixed-d6 -ffixed-d7 3 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /handc/platform/mac/config_script.as: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/handc/platform/mac/config_script.as -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /handc/unstub/Makefile: -------------------------------------------------------------------------------- 1 | #---------------------------------------------------------*-Makefile-*----# 2 | # File: handc/unstub/Makefile 3 | # 4 | # Copyright (C)1997 Donovan Kolbly 5 | # as part of the RScheme project, licensed for free use 6 | # 7 | # Version: 1.2 8 | # Date: 1997-11-19 22:29:27 9 | # Build: v0.7.3.4-b7u, 2007-05-30 10 | # 11 | # Purpose: 12 | 13 | CFILES=unstub.c 14 | PRODUCT=unstb.o 15 | include ../postambl.mak 16 | -------------------------------------------------------------------------------- /lib/MM.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (MM #optional (file default: (current-error-port))) 3 | (let ((MM-port (if (string? file) 4 | (open-output-file file) 5 | file))) 6 | (format MM-port "#\n# ~a\n#\n" file) 7 | (if (string? file) 8 | (on-exit 9 | (lambda () 10 | (close-output-port MM-port)))) 11 | ((with-module repl set-load-hook!) 12 | (lambda (file envt) 13 | (with-module paths 14 | (format MM-port 15 | "$(PRODUCT): ~a\n" (append-path (current-directory) file)) 16 | (flush-output-port MM-port) 17 | file))))) 18 | -------------------------------------------------------------------------------- /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/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 | -------------------------------------------------------------------------------- /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/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/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/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/app/doc2ps/test-jig.scm: -------------------------------------------------------------------------------- 1 | 2 | ;;; 3 | ;;; Given a flow, lay it out and display the result 4 | ;;; 5 | 6 | (define (test-flow (flow ) page-style) 7 | (reset-pages) 8 | ;; 9 | (layout-flow-in-page-sequence 10 | flow 11 | (make 12 | initial-page-styles: '() 13 | blank-page-style: #f 14 | repeat-page-styles: (list page-style)) 15 | "i") 16 | ;; 17 | (tgsp 0)) 18 | -------------------------------------------------------------------------------- /lib/app/doc2ps/test.scm: -------------------------------------------------------------------------------- 1 | (define (foo) 3) 2 | (define (bar) 4) 3 | (define (quux) (list (foo) (bar))) 4 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /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/app/ibis/frontend/web/followupform.html: -------------------------------------------------------------------------------- 1 |
2 | 3 | Title:
4 |
5 | 6 | Description:
7 |
8 | 9 | Owner:
10 | Disposition: 16 | 17 | 18 |
19 | 20 | -------------------------------------------------------------------------------- /lib/app/ibis/frontend/web/stylex.py: -------------------------------------------------------------------------------- 1 | from xml.xpath import Conversions 2 | import string, md5 3 | 4 | def longhash( str ): 5 | return string.join( map( lambda x: "%02x" % ord(x), 6 | md5.new( str ).digest() ), '' ) 7 | 8 | def StringMd5( context, str ): 9 | s = Conversions.StringValue( str ) 10 | return longhash( s ) 11 | 12 | ExtFunctions = { ('', 'md5'): StringMd5 } 13 | -------------------------------------------------------------------------------- /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/app/indexer/document.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () :abstract 3 | (properties type: init-value: '#()) 4 | (id type: init-value: -1)) ;; >=0 for bound documents 5 | 6 | ;;; 7 | ;;; parses a document and returns a set (list) of 8 | ;;; (SECTION . KEYWORDS) 9 | ;;; where SECTION refers to an index collection 10 | ;;; such as `main', `subject', `from', etc. 11 | ;;; 12 | 13 | (define-generic-function get-keywords) 14 | 15 | -------------------------------------------------------------------------------- /lib/app/indexer/dpi.scm: -------------------------------------------------------------------------------- 1 | 2 | ;;; Data/Program Interface (as opposed to API) 3 | ;;; 4 | ;;; defines the interface to the persistent object store 5 | 6 | (define (setup-indirects ps) 7 | (register-indirect-page ps 8 | 100 9 | (vector 10 | 11 | 12 | 13 | 14 | 15 | ))) 16 | 17 | 18 | ;;; 19 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /lib/app/sourcebase/api/group.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-api (make-group (name ) (parents ) (lead )) 3 | (if (table-lookup (group-table *application*) name) 4 | (error "~a: group already exists" name)) 5 | (let ((g (make 6 | %alloc-area: (make-area) 7 | name: name 8 | id: (+ 100 (table-size (group-table *application*))) 9 | parent-groups: parents 10 | owner: lead 11 | audit-log: '()))) 12 | (for-each (lambda (p) 13 | (set-child-groups! p (cons g (child-groups p)))) 14 | parents) 15 | (table-insert! (group-table *application*) name g) 16 | g)) 17 | -------------------------------------------------------------------------------- /lib/app/sourcebase/api/user.scm: -------------------------------------------------------------------------------- 1 | 2 | (define *protected-user-properties* '(super-user)) 3 | 4 | (define-api (make-user login full-name email attribs) 5 | (if (table-lookup (user-table *application*) login) 6 | (error "~a: user already exists" login)) 7 | (let ((u (make 8 | %alloc-area: (make-area) 9 | name: login 10 | id: (+ 300 (table-size (user-table *application*))) 11 | full-name: full-name 12 | email-addr: email 13 | properties: attribs))) 14 | (table-insert! (user-table *application*) login u) 15 | u)) 16 | -------------------------------------------------------------------------------- /lib/app/sourcebase/cli/edit.scm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/app/sourcebase/cli/edit.scm -------------------------------------------------------------------------------- /lib/app/sourcebase/cli/view.scm: -------------------------------------------------------------------------------- 1 | (define (handle-ls-request args req inp out (u )) 2 | (let ((state (make 3 | current-filespace: (get-fspace-arg req) 4 | current-path: (get-pwd-arg req) 5 | variables: *standard-vsh-variables* 6 | user: u 7 | group: (world-group *application*) 8 | current-local-top: (string->dir "/tmp")))) 9 | (print state) 10 | (fluid-let ((*vsh-state* state)) 11 | (client-print-message 12 | out 13 | (with-output-to-string 14 | (lambda () 15 | (apply ls args))))))) 16 | -------------------------------------------------------------------------------- /lib/app/sourcebase/client/Makefile: -------------------------------------------------------------------------------- 1 | TOOLS_DIR=$(HOME)/tools 2 | 3 | TOOLSET=sb ci co locks sbdif sbmkdir sbcreat sbnote 4 | 5 | all:: sb sbgw 6 | 7 | sb: client.c 8 | cc -O2 client.c -o sb 9 | 10 | sbgw: sbcgi.c util.c 11 | cc -O2 sbcgi.c util.c -o sbgw 12 | 13 | clean:: 14 | rm -f sbgw sb 15 | 16 | tools:: $(TOOLSET) 17 | install -m755 $(TOOLSET) $(TOOLS_DIR) 18 | 19 | install:: 20 | cp -p sb $(HOME)/bin/sb 21 | cp -p sbgw /usr/local/www/cgi-bin/sbgw 22 | -------------------------------------------------------------------------------- /lib/app/sourcebase/client/busy: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | willshow=$(sb --report active-fs-changes --format base-request) 4 | 5 | echo "----- Fixing ----" 6 | sb --report fixing-changereqs --where not id in \( $willshow \) 7 | 8 | echo "----- Researching ----" 9 | sb --report changereq --where state = research 10 | 11 | echo "----- Pending Integration Requests ----" 12 | sb --report integrations --where not in-snapshot? 13 | 14 | echo "----- Active FS Changes ----" 15 | sb --report active-fs-changes 16 | 17 | echo "----- Locked Files ----" 18 | sb --report locked-files --where user = "$SB_LOGIN" 19 | -------------------------------------------------------------------------------- /lib/app/sourcebase/client/locks: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | sb --report locked-files --where user = "$SB_LOGIN" 3 | -------------------------------------------------------------------------------- /lib/app/sourcebase/client/sbmv: -------------------------------------------------------------------------------- 1 | #! /bin/bash 2 | set -e 3 | 4 | if test "$#" = 0 -o "$1" = "-h" 5 | then me=$0 6 | echo "usage: ${me##*/} [-yCR{,CR}*] DIR" >&2 7 | exit 1 8 | fi 9 | 10 | here=$(pwd) 11 | top=${SB_TOP%/} 12 | here=${here#$top} 13 | here=${here:-/} 14 | 15 | case "$1" in 16 | -y*) a="$1" 17 | why="--request ${a#-y}" 18 | shift; 19 | ;; 20 | *) why="" 21 | ;; 22 | esac 23 | 24 | set -x 25 | sb --dir $here --lock 26 | sb --file $1 --rename --to $2 --remarks "rename $1 to $2" $why 27 | sb --dir $here --checkin --remarks "mkfile $*" $why 28 | -------------------------------------------------------------------------------- /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/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/app/sourcebase/hooks.scm: -------------------------------------------------------------------------------- 1 | ;; 2 | ;; configurable hooks 3 | ;; 4 | ;; this file provides the default versions 5 | ;; 6 | ;;----------------------------------------------------------- 7 | ;; 8 | ;; return a procedure ( ) => 9 | ;; which returns a list of extra keys for keyword expansion 10 | ;; 11 | 12 | (define (extra-keys-proc (fs ) req) 13 | (lambda ((path ) 14 | (v )) 15 | '())) 16 | -------------------------------------------------------------------------------- /lib/app/sourcebase/kernel/allocation.scm: -------------------------------------------------------------------------------- 1 | (define-syntax make-area 2 | (syntax-form () 3 | (make-allocation-area (object-allocation-area *application*))) 4 | (syntax-form (in) 5 | (make-allocation-area (object-allocation-area in)))) 6 | 7 | (define-syntax area-of 8 | (syntax-form () 9 | (object-allocation-area *application*)) 10 | (syntax-form (item) 11 | (object-allocation-area item))) 12 | -------------------------------------------------------------------------------- /lib/app/sourcebase/kernel/application.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (make-application db-name) 3 | (make 4 | user-table: (make-table string=? string->hash) 5 | group-table: (make-table string=? string->hash) 6 | property-table: (make-table string=? string->hash) 7 | world-group: #f 8 | name: db-name 9 | structure-version: $structural-version 10 | application-version: $application-version 11 | creation-time: (time) 12 | domain-table: (make-symbol-table) 13 | change-request-table: (make-table eq? integer->hash) 14 | file-system-table: (make-table string=? string->hash))) 15 | -------------------------------------------------------------------------------- /lib/app/sourcebase/kernel/kassert.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-syntax (kassert expr) 3 | (let ((temp expr)) 4 | (if (not temp) 5 | (error "kernel panic: ~s" (mquote expr))) 6 | temp)) 7 | 8 | ;; 9 | ;; a debug-level operation 10 | ;; 11 | 12 | (define (phash label item) 13 | (format #t "~04x_~04x => (~a) ~s\n" 14 | (obj-high-bits item) 15 | (obj-low-bits item) 16 | label 17 | item)) 18 | -------------------------------------------------------------------------------- /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/app/sourcebase/migrate/scan-for-binary.scm: -------------------------------------------------------------------------------- 1 | 2 | 3 | (for-each 4 | (lambda ((self )) 5 | (for-each-version 6 | (versions self) 7 | (lambda (path vleaf) 8 | (let (((fv ) (value vleaf))) 9 | (if (instance? (contents fv) ) 10 | (format #t "~s\n" fv)))))) 11 | ;; 12 | (select 13 | (rcurry instance? ) 14 | (value-sequence 15 | (get-property *application* 'migrate:master-node-index)))) 16 | 17 | -------------------------------------------------------------------------------- /lib/app/sourcebase/pstore/create.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (create-database (app ) (path )) 3 | (setup-pstore (create-persistent-store path) app)) 4 | -------------------------------------------------------------------------------- /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/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/app/sourcebase/test/test-074.rc: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | echo "*** SourceBase RECYCLE ***" >&2 4 | 5 | set -x 6 | 7 | v0=/tmp/test074.sto 8 | v1=/tmp/test074.sto.v1 9 | 10 | if lssctl -clonev ${v1} ${v1}~ 11 | then mv ${v1}~ ${v1} 12 | else exit 1 13 | fi 14 | 15 | # tail call BACK into the sb process 16 | 17 | # SBTEST_SB is set in the environment by `test-074.sh' 18 | 19 | sb=${SBTEST_SB} 20 | bootf=${sb}/test/test-074.scm 21 | 22 | exec ${sb}/sbs ${bootf} -e '(open1)' -e '(bd)' 23 | -------------------------------------------------------------------------------- /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/app/webcontent/download.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (downloader path rsp) 3 | (let ((node (search-top-level type: 'release 4 | sxml: `(file ,(car path))))) 5 | (if node 6 | (values 7 | (file->content (xpath-str (content node) "src")) 8 | "application/x-gzip") 9 | (error "nada ~s" (car path))))) 10 | 11 | (uri-link-add! *rscheme-top* 12 | "download" 13 | (make-uri-simple-rsp-script (& downloader))) 14 | -------------------------------------------------------------------------------- /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/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/app/webcontent/images/rscheme.png -------------------------------------------------------------------------------- /lib/configure.in: -------------------------------------------------------------------------------- 1 | dnl Process this file with autoconf to produce a configure script. 2 | 3 | AC_INIT(README) 4 | 5 | AC_PROG_CC() 6 | 7 | install_dir=NONE 8 | 9 | AC_SUBST(install_dir) 10 | AC_SUBST(rs) 11 | 12 | rs="$with_rs" 13 | if test "$rs" = "" 14 | then rs=rs 15 | fi 16 | echo "with rs... ($rs)" 17 | 18 | if test "$install_dir" = NONE 19 | then install_dir="`$rs --install`" 20 | fi 21 | 22 | echo "install directory... ($install_dir)" 23 | 24 | # If we try to use AC_CONFIG_SUBDIRS(), then autoconf wants install-sh 25 | # AC_CONFIG_SUBDIRS( graphics/gd ) 26 | (cd graphics/gd ; ./configure) 27 | 28 | AC_OUTPUT(Makefile) 29 | -------------------------------------------------------------------------------- /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/graphics/color/table.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (color=? c1 c2) 3 | (bind ((r1 g1 b1 (color-rgb-components c1)) 4 | (r2 g2 b2 (color-rgb-components c2))) 5 | (and (= r1 r2) (= g1 g2) (= b1 b2)))) 6 | 7 | (define (color->hash c) 8 | (bind ((r g b (color-rgb-components c))) 9 | (bitwise-xor 10 | (integer->hash (+ b 963)) 11 | (integer->hash (bitwise-xor (integer->hash (+ r 101)) g))))) 12 | 13 | (define-method hash-code ((self )) 14 | (color->hash self)) 15 | 16 | (define (make-color-table) 17 | (make-table color=? color->hash)) 18 | 19 | -------------------------------------------------------------------------------- /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/graphics/fontmgr/loadall.sh: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | echo "Initial setup..." 4 | 5 | rsf -q +graphics.fontmgr ~/lib/fonts.scm -exit > /tmp/fontbase.log 6 | 7 | while rsf -q +graphics.fontmgr +graphics.charpath \ 8 | -e '(let* ((db (open-font-database-for-update)) 9 | (rc (load-some-font-outlines db 1))) 10 | (commit db) 11 | (process-exit (if rc 1 0)))' -exit 12 | do echo "more..." 13 | done 14 | -------------------------------------------------------------------------------- /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/graphics/gd/config.h.in: -------------------------------------------------------------------------------- 1 | /* -*-c-*- */ 2 | 3 | #define LIBGD_IOCTX_HAS_FREE (0) 4 | -------------------------------------------------------------------------------- /lib/graphics/gd/configure.in: -------------------------------------------------------------------------------- 1 | dnl Process this file with autoconf to produce a configure script. 2 | 3 | AC_INIT(gd.scm) 4 | 5 | AC_PROG_CC() 6 | 7 | AC_CHECK_LIB(gd,gdImageCreate) 8 | 9 | AC_CHECK_MEMBER(struct gdIOCtx.free, 10 | [AC_DEFINE(LIBGD_IOCTX_HAS_FREE,1)], 11 | [AC_DEFINE(LIBGD_IOCTX_HAS_FREE,0)], 12 | [ 13 | #include 14 | ]) 15 | 16 | AC_CONFIG_HEADER(config.h) 17 | -------------------------------------------------------------------------------- /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/graphics/geometry/UNIT_TEST: -------------------------------------------------------------------------------- 1 | ;;;@title Graphics 2-D Geometry; Basic Tests 2 | ;;;@tag graphics.geometry-1 3 | ,(use graphics.geometry) 4 | ;;;@note

Points and Sizes

5 | ;;;@reprompt 6 | (define p0 (make-point 1 2)) 7 | (define p1 (make-point 30 4)) 8 | (x p1) 9 | (y p1) 10 | (define dp (point- p1 p0)) 11 | (dx dp) 12 | (dy dp) 13 | (point+ p1 (make-size 10 10)) 14 | ;;;@note

Rectangles

15 | ;;;@reprompt 16 | (define r0 (make-rect 0 0 20 10)) 17 | (rect->values r0) 18 | (size-width r0) 19 | (size-height r0) 20 | (origin-x r0) 21 | (origin-y r0) 22 | -------------------------------------------------------------------------------- /lib/graphics/geometry/persist.scm: -------------------------------------------------------------------------------- 1 | (define *geometry-classes* 2 | (vector 3 | 4 | 5 | 6 | 7 | )) 8 | -------------------------------------------------------------------------------- /lib/graphics/png/back.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/graphics/png/back.png -------------------------------------------------------------------------------- /lib/graphics/png/back2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/graphics/png/back2.png -------------------------------------------------------------------------------- /lib/graphics/png/test.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/graphics/png/test.png -------------------------------------------------------------------------------- /lib/graphics/png/test2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/graphics/png/test2.png -------------------------------------------------------------------------------- /lib/graphics/pnm/module.scm: -------------------------------------------------------------------------------- 1 | (define-module graphics.pnm () 2 | (&module 3 | (import usual-inlines) 4 | (import syscalls) 5 | (import graphics.color) 6 | ; 7 | (load "pgm.scm") 8 | (export 9 | image-width 10 | image-height) 11 | ; 12 | (export open-input-pgm-file ; deprecated; use open-input-pnm-file 13 | open-input-pnm-file 14 | open-output-pgm-file 15 | close-image 16 | get-pixel 17 | set-pixel!))) 18 | 19 | 20 | -------------------------------------------------------------------------------- /lib/graphics/script/manager/test.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (draw) 3 | 4 | -------------------------------------------------------------------------------- /lib/graphics/tiff/about.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/graphics/tiff/about.tiff -------------------------------------------------------------------------------- /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/graphics/tiff/rationals.scm: -------------------------------------------------------------------------------- 1 | 2 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3 | ;;; 4 | ;;; rational numbers 5 | ;;; 6 | 7 | (define-class () 8 | (rational-numerator type: ) 9 | (rational-denominator type: )) 10 | 11 | (define-method number-as-string ((self ) radix) 12 | (string-append (number-as-string (rational-numerator self) radix) 13 | "/" 14 | (number-as-string (rational-denominator self) radix))) 15 | 16 | (define (make-rational n d) 17 | (make 18 | rational-numerator: n 19 | rational-denominator: d)) 20 | -------------------------------------------------------------------------------- /lib/gui/app/dv/Makefile: -------------------------------------------------------------------------------- 1 | PRODUCT=dv 2 | 3 | all:: about.tiff dv 4 | RS=fshell 5 | 6 | $(PRODUCT): 7 | $(RS) dv.scm -c dv.fas 8 | mv dv.fas dv 9 | makex dv $(RS) 10 | 11 | about.tiff: about-full.tiff about-q99.tiff 12 | tiffcp -c packbits about-full.tiff about-q99.tiff about.tiff 13 | 14 | about-q99.tiff: about-full.tiff 15 | tiffmedian -C 99 about-full.tiff about-q99.tiff 16 | 17 | clean:: 18 | rm -f dv dv.fas about-q99.tiff about.tiff scm.dep 19 | 20 | depend:: 21 | $(RS) ../../../MM.scm -e '(MM "scm.dep")' dv.scm -exit 22 | 23 | -include scm.dep 24 | -------------------------------------------------------------------------------- /lib/gui/app/dv/about-full.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/about-full.tiff -------------------------------------------------------------------------------- /lib/gui/app/dv/chop.scm: -------------------------------------------------------------------------------- 1 | (define-method chop ((self )) 2 | (if (< (abs self) 1e-6) 3 | 0 4 | self)) 5 | 6 | (define-method chop ((self )) 7 | (bind ((a b (point->values self)) 8 | (a0 (chop a)) 9 | (b0 (chop b))) 10 | (if (and (eq? a a0) 11 | (eq? b b0)) 12 | self 13 | (make-point a0 b0)))) 14 | 15 | (define-method chop ((self )) 16 | (bind ((a b (size->values self)) 17 | (a0 (chop a)) 18 | (b0 (chop b))) 19 | (if (and (eq? a a0) 20 | (eq? b b0)) 21 | self 22 | (make-size a0 b0)))) 23 | -------------------------------------------------------------------------------- /lib/gui/app/dv/dev/outline.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | (all-subpaths* init-function: make-dequeue*)) 4 | 5 | (define-method all-subpaths ((self )) 6 | (dequeue-state (all-subpaths* self))) 7 | 8 | (define-method stroke-subpath ((self ) (subpath )) 9 | (dequeue-push-back! (all-subpaths* self) subpath) 10 | (values)) 11 | 12 | (define (with-outline-device proc) 13 | (proc (make ))) 14 | 15 | -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/Makefile: -------------------------------------------------------------------------------- 1 | 2 | CAT=proc/catalog 3 | DSL=proc/modularwrap.dsl 4 | DECL=proc/decl.sgml 5 | 6 | ID=dv 7 | 8 | valid:: 9 | onsgmls -sv -c ${CAT} ${ID}.sgml 10 | 11 | tex:: 12 | openjade -c ${CAT} -t tex -iprint -d ${DSL}#print ${DECL} ${ID}.sgml 13 | 14 | dvi:: 15 | jadetex ${ID}.tex 16 | 17 | ps:: 18 | dvips -o${ID}.ps ${ID}.dvi 19 | 20 | clean:: 21 | rm -f ${ID}.fot ${ID}.tex ${ID}.log ${ID}.ps ${ID}.aux ${ID}.dvi 22 | -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/caution.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/caution.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/home.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/home.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/important.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/important.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/next.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/next.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/note.dia: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/note.dia -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/note.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/note.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/prev.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/prev.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/tip.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/tip.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/toc-blank.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/toc-blank.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/toc-minus.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/toc-minus.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/toc-plus.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/toc-plus.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/up.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/up.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/admon/warning.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/admon/warning.gif -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/bookinfo.sgml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 5 | <year/2000/ 6 | <holder/Donovan Kolbly/ 7 | </copyright> 8 | <authorGroup> 9 | <author><firstName/Donovan/ <surname/Kolbly/ 10 | </author> 11 | </authorGroup> 12 | <pubdate/December, 2000/ 13 | <abstract> 14 | <title/Abstract/ 15 | <para>Describes the internal structure and design 16 | of the graphical editing system 17 | built using RScheme called <quote>dV</quote>.</para> 18 | </abstract> 19 | 20 | </BookInfo> 21 | -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/chap/files.dia: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/doc/chap/files.dia -------------------------------------------------------------------------------- /lib/gui/app/dv/doc/chap/glossary.sgml: -------------------------------------------------------------------------------- 1 | <!-- -*- mode: sgml; mode: auto-fill; fill-column: 60 -*- --> 2 | 3 | <glossary> 4 | <title>Glossary Of Terms 5 | 6 | 7 | view extent 8 | 9 | The maximum extent of viewable area. Characterized 10 | by a margin (view-extent-margin) 11 | around the page box. 12 | 13 | 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /lib/gui/app/dv/explode.scm: -------------------------------------------------------------------------------- 1 | ;;; 2 | ;;; Part of the protocol 3 | ;;; 4 | 5 | (define-interactive (explode view items) 6 | (interactive (owner) (selection)) 7 | (let ((sel (key-sequence (current-selection view)))) 8 | (clear-current-selection! view) 9 | ; 10 | (for-each 11 | (lambda (item) 12 | (for-each 13 | (lambda (new-item) 14 | (add-to-current-selection! view new-item)) 15 | (explode->list item))) 16 | items) 17 | (set-need-to-recompute-handles! view #t) 18 | (need-to-clear-and-redraw (content-window view)) 19 | (values))) 20 | 21 | -------------------------------------------------------------------------------- /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/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/app/dv/frame.scm: -------------------------------------------------------------------------------- 1 | 2 | ;;; a frame is an application (top-level) window 3 | ;;; 4 | ;;; every top-level X window that we create has a frame 5 | 6 | (define-class () 7 | (frame-title type: ) 8 | x-window) 9 | 10 | (define-class () 11 | open-view) 12 | 13 | (define-class ()) 14 | 15 | (define-class ()) 16 | 17 | (define-class ()) 18 | 19 | (define-class ()) 20 | -------------------------------------------------------------------------------- /lib/gui/app/dv/images/box.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/box.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/cell.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/cell.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/cells.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/cells.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/dim.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/dim.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/doc-insp.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/doc-insp.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/ellipse.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/ellipse.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/handypencil.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/handypencil.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/line.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/line.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/magnify.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/magnify.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/obj-insp.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/obj-insp.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/page-insp.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/page-insp.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/pen.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/pen.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/select.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/select.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab0.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab0.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab1.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab2.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab3.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab4.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab4.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab5.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab6.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab6.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tab7.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tab7.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/tabx.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/tabx.png -------------------------------------------------------------------------------- /lib/gui/app/dv/images/text.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/dv/images/text.png -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /lib/gui/app/dv/macros/memorymap.scm: -------------------------------------------------------------------------------- 1 | ;;; 2 | ;;; generate something that looks basically like a memory map 3 | ;;; 4 | -------------------------------------------------------------------------------- /lib/gui/app/dv/macros/statediagram.scm: -------------------------------------------------------------------------------- 1 | 2 | (define *sd1* '((global x-spacing: 100 3 | y-spacing: 50) 4 | (free label: "free" 5 | 6 | 7 | (load "arrow.scm") 8 | 9 | (define-interactive (tsd view) 10 | (interactive (owner)) 11 | (let ((p (eval-state-diagram *sd1*))) 12 | (pp p) 13 | (paste-from-extern p 14 | (page-contents (view-page (underlying-object view))) 15 | (make-size 100 100)) 16 | (clear-all-areas (in-document view)))) 17 | -------------------------------------------------------------------------------- /lib/gui/app/dv/macros/test.ofig: -------------------------------------------------------------------------------- 1 | ((a :var pa) 2 | (b :var pc) 3 | (c :var (link pa (r d r))) 4 | (pa :hvec va pb) 5 | (pb :hvec vb pc) 6 | (pc :hvec vc pd) 7 | (pd :hvec vd ()) 8 | (va :gvec (id) 0 'x 'y) 9 | (vb :gvec (id) 1 'p) 10 | (vc :gvec (id) 2) 11 | (vd :gvec (id) 3)) 12 | ;; 13 | 14 | ((c #f #f b #f) 15 | (a pa pb pc pd) 16 | (#f va vb vc vd)) 17 | 18 | ;;(h (v (h a c) p1 v1) (v - p2 v2) (v b p3 v3) (v - p4 v4)) 19 | -------------------------------------------------------------------------------- /lib/gui/app/dv/major/zoom.scm: -------------------------------------------------------------------------------- 1 | 2 | 3 | (define (zoom-tool-button-press (in-view ) 4 | (at ) ;; window device coords 5 | modifier-state) 6 | (bind ((at (window->user-point in-view at))) 7 | ;; should adjust to zoom into the click point.. 8 | ;; should also handle "zoom rects" 9 | (if (meta-state? modifier-state) 10 | (zoom-out in-view at) 11 | (zoom-in in-view at)))) 12 | 13 | (add-major-mode! 14 | (make 15 | name: 'zoom 16 | button-press-proc: zoom-tool-button-press)) 17 | -------------------------------------------------------------------------------- /lib/gui/app/dv/scripts/envelope.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-interactive (envelope name) 3 | (interactive (minibuffer "Name: ")) 4 | ) 5 | -------------------------------------------------------------------------------- /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/gui/app/dv/svg.scm: -------------------------------------------------------------------------------- 1 | ,(use util.xml 2 | util.xpath) 3 | 4 | (define (import-svg->document file) 5 | (bind ((doc (make-new-doc)) 6 | (view (car (document-views doc))) 7 | (page (view-page view)) 8 | (bbox (bounding-box (page-contents page)))) 9 | ; 10 | (set-property! doc 'eps #t) 11 | (set-property! page 'page-bbox bbox) 12 | (set-page-size! page (make-size 50 50)) 13 | ; 14 | (reconfig-to-fit-window view) 15 | doc)) 16 | -------------------------------------------------------------------------------- /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/app/dv/test.ofig: -------------------------------------------------------------------------------- 1 | ((a :var pa) 2 | (b :var pc) 3 | (c :var (link pa (r d r))) 4 | (pa :hvec va pb) 5 | (pb :hvec vb pc) 6 | (pc :hvec vc pd) 7 | (pd :hvec vd ()) 8 | (va :gvec (id) 0 'x 'y) 9 | (vb :gvec (id) 1 'p) 10 | (vc :gvec (id) 2) 11 | (vd :gvec (id) 3)) 12 | ;; 13 | 14 | ((c #f #f b #f) 15 | (a pa pb pc pd) 16 | (#f va vb vc vd)) 17 | 18 | ;;(h (v (h a c) p1 v1) (v - p2 v2) (v b p3 v3) (v - p4 v4)) 19 | -------------------------------------------------------------------------------- /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/gui/app/notebook/math1.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/notebook/math1.tiff -------------------------------------------------------------------------------- /lib/gui/app/notebook/math2.tiff: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/bitwize/rscheme/1c933d3418205038df0f90e7bffdcfa2bff75951/lib/gui/app/notebook/math2.tiff -------------------------------------------------------------------------------- /lib/gui/app/notebook/nb: -------------------------------------------------------------------------------- 1 | #! /u/donovan/bin/rsq -*-scheme-*- 2 | 3 | ,(use gui.rstep.x) 4 | ,(use graphics.geometry) 5 | ,(use graphics.image) 6 | 7 | (define *c* (open-client)) 8 | 9 | (load "cells.scm") 10 | (load "bookview.scm") 11 | 12 | 13 | (define (t) 14 | (let ((w (make-window frame: (make-rect 20 20 520 630) 15 | title: "Untitled-1" 16 | client: *c*))) 17 | (make-view class: 18 | frame: (make-rect 10 0 510 620) 19 | resize-flags: #o22 20 | parent: (content-view w) 21 | root-cell-view: (make )) 22 | w)) 23 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /lib/gui/rstep/x/msgs.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-message-table gui.rstep.x 621) 3 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /lib/gui/util/x/device/module.scm: -------------------------------------------------------------------------------- 1 | (define-module gui.util.x.device () 2 | (&module 3 | (import usual-inlines 4 | tables) 5 | (import rs.util.properties 6 | rs.util.msgs 7 | gui.x) 8 | (import graphics.device 9 | graphics.fontmgr 10 | graphics.afm 11 | graphics.geometry) 12 | ;; 13 | (load "driver.scm") 14 | ;; 15 | (export configure-x-graphics-device 16 | with-x-graphics-device 17 | with-x-redraw))) 18 | 19 | -------------------------------------------------------------------------------- /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/gui/x/copy-area.scm: -------------------------------------------------------------------------------- 1 | 2 | (define (copy-area (source ) 3 | (gc ) 4 | (source-x ) 5 | (source-y ) 6 | (width ) 7 | (height ) 8 | (dest ) 9 | (dest-x ) 10 | (dest-y )) 11 | (internal-send 12 | (x-display dest) 13 | (make-buffer u1: 62 ;; CopyArea 14 | u1: 0 15 | u2: 7 16 | u4: (x-id source) 17 | u4: (x-id dest) 18 | u4: (x-id gc) 19 | s2: source-x 20 | s2: source-y 21 | s2: dest-x 22 | s2: dest-y 23 | u2: width 24 | u2: height))) 25 | -------------------------------------------------------------------------------- /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/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/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/gui/x/gcontext.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class ()) 3 | 4 | -------------------------------------------------------------------------------- /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 | -------------------------------------------------------------------------------- /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/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/backend/c/pragma_not_sealed.scm: -------------------------------------------------------------------------------- 1 | (define-module-extend repl () (set! *slots-sealed-by-default?* #f)) 2 | -------------------------------------------------------------------------------- /lib/rs/backend/c/pragma_sealed.scm: -------------------------------------------------------------------------------- 1 | (define-module-extend repl () (set! *slots-sealed-by-default?* #t)) 2 | -------------------------------------------------------------------------------- /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/db/oodb/assoc.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class ()) 3 | 4 | -------------------------------------------------------------------------------- /lib/rs/db/oodb/entity.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | ;; note that we have to be in a transaction to create an entity 4 | (created-by init-function: current-transaction)) 5 | 6 | (define-macro (pmake class . opts) 7 | `(make ,class %alloc-area: (entity-allocation-area ,class) ,@opts)) 8 | 9 | (define (entity-allocation-area entity-class) 10 | (table-lookup (entity-area-map (current-world-view)) 11 | entity-class)) 12 | 13 | -------------------------------------------------------------------------------- /lib/rs/db/oodb/index.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class ()) 3 | -------------------------------------------------------------------------------- /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/db/oodb/table.scm: -------------------------------------------------------------------------------- 1 | 2 | (define-class () 3 | name 4 | entity-area 5 | entities) 6 | 7 | -------------------------------------------------------------------------------- /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: