├── License.md ├── Makefile ├── Readme.md ├── bench.bat ├── bench ├── ABOUT ├── gambit-benchmarks │ ├── ack.scm │ ├── array1.scm │ ├── bib │ ├── boyer.scm │ ├── browse.scm │ ├── cat.scm │ ├── conform.scm │ ├── cpstak.scm │ ├── crash.scm │ ├── ctak.scm │ ├── dderiv.scm │ ├── deriv.scm │ ├── destruc.scm │ ├── diviter.scm │ ├── divrec.scm │ ├── dynamic.scm │ ├── earley.scm │ ├── fail.scm │ ├── fft.scm │ ├── fib.scm │ ├── fibc.scm │ ├── fibfp.scm │ ├── graphs.scm │ ├── lattice.scm │ ├── matrix.scm │ ├── maze.scm │ ├── mazefun.scm │ ├── mbrot.scm │ ├── nqueens.scm │ ├── nucleic.scm │ ├── num-iters-1.scm │ ├── num-iters-int.scm │ ├── num-iters.scm │ ├── one-iter.scm │ ├── paraffins.scm │ ├── peval.scm │ ├── pi.scm │ ├── pnpoly.scm │ ├── primes.scm │ ├── puzzle.scm │ ├── ray.scm │ ├── rn100 │ ├── scheme.scm │ ├── simplex.scm │ ├── slatex.scm │ ├── slatex.sty │ ├── string.scm │ ├── succeed.scm │ ├── sum.scm │ ├── sum1.scm │ ├── sumfp.scm │ ├── sumloop.scm │ ├── tail.scm │ ├── tak.scm │ ├── takl.scm │ ├── test.tex │ ├── tfib.scm │ ├── trav1.scm │ ├── trav2.scm │ ├── triangl.scm │ └── wc.scm ├── run-gosh.scm ├── run-guile.scm ├── run-petite.scm └── run-ypsilon.scm ├── build-win32 └── .stupidgit ├── build └── .stupidgit ├── doc ├── base.css ├── index.css ├── index.html ├── libref.ypsilon.c-types.html ├── libref.ypsilon.ffi.html ├── libref.ypsilon.socket.html └── r6rs.html ├── example ├── VeraMono.ttf ├── cairo-demo.scm ├── gears.scm ├── glut-demo.scm ├── gtk-cairo-demo.scm ├── gtk-hello.scm ├── gtkglext-demo.scm ├── jello-data │ ├── ball-dead.wav │ ├── ball-start.wav │ ├── ball16.png │ ├── big-blue-frag.png │ ├── big-green-frag.png │ ├── big-red-frag.png │ ├── block.wav │ ├── blue-frag.png │ ├── blue.png │ ├── complete.wav │ ├── green-frag.png │ ├── green.png │ ├── mini-frag-blue.png │ ├── mini-frag-yellow.png │ ├── music.wav │ ├── paddle.png │ ├── paddle.wav │ ├── red-frag.png │ ├── red.png │ ├── setup-block.wav │ ├── small-blue-frag.png │ ├── small-green-frag.png │ ├── small-red-frag.png │ ├── title.png │ ├── wall.wav │ └── ypsilon-logo.png ├── jello.scm ├── ps3-cell-demo.scm ├── sdl-cairo-demo.scm └── sdl-ttf-demo.scm ├── extension └── SDL │ └── .stupidgit ├── heap ├── Makefile ├── boot │ ├── common.scm │ ├── compile.scm │ ├── condition.scm │ ├── dynamic-wind.scm │ ├── eval.scm │ ├── exception.scm │ ├── first-load.scm │ ├── interaction.scm │ ├── libraries.scm │ ├── macro │ │ ├── base.scm │ │ ├── derived.scm │ │ ├── expand.scm │ │ ├── initial.scm │ │ ├── library.scm │ │ ├── quasi.scm │ │ ├── syncase.scm │ │ ├── synenv.scm │ │ ├── synpat.scm │ │ ├── synrule.scm │ │ └── syntmp.scm │ ├── parameter.scm │ ├── pp.scm │ ├── r6rs-aux.scm │ └── record.scm ├── bootimage.code ├── build-boot-code.scm ├── build-boot-fasl.scm ├── build-composit.scm ├── build-core-code.scm ├── build-core-fasl.scm ├── build-debug-boot.scm ├── build-debug-core.scm └── coreimage.code ├── license.txt ├── resource.h ├── setup-win32 └── setup-win32.vdproj ├── sitelib ├── apropos.scm ├── concurrent.scm ├── debug.scm ├── ffi.scm ├── gl.scm ├── glu.scm ├── glut.scm ├── match.scm ├── pregexp.scm ├── slib │ └── format.scm ├── socket.scm ├── srfi │ ├── %3a1.scm │ ├── %3a1 │ │ └── lists.scm │ ├── %3a13.scm │ ├── %3a13 │ │ └── strings.scm │ ├── %3a14.scm │ ├── %3a14 │ │ └── char-sets.scm │ ├── %3a19.scm │ ├── %3a19 │ │ └── time.scm │ ├── %3a26.scm │ ├── %3a26 │ │ └── cut.scm │ ├── %3a27.scm │ ├── %3a27 │ │ └── random-bits.scm │ ├── %3a28.scm │ ├── %3a28 │ │ └── basic-format-strings.scm │ ├── %3a38.scm │ ├── %3a38 │ │ └── with-shared-structure.scm │ ├── %3a39.scm │ ├── %3a39 │ │ └── parameters.scm │ ├── %3a41.scm │ ├── %3a41 │ │ ├── streams.scm │ │ └── streams │ │ │ ├── derived.scm │ │ │ └── primitive.scm │ ├── %3a42.scm │ ├── %3a42 │ │ └── eager-comprehensions.scm │ ├── %3a48.scm │ ├── %3a48 │ │ └── intermediate-format-strings.scm │ ├── %3a6.scm │ ├── %3a6 │ │ └── basic-string-ports.scm │ ├── %3a8.scm │ ├── %3a8 │ │ └── receive.scm │ ├── %3a9.scm │ ├── %3a9 │ │ └── records.scm │ ├── %3a98.scm │ ├── %3a98 │ │ └── os-environment-variables │ ├── srfi-1.scm │ ├── srfi-13.scm │ ├── srfi-14.scm │ ├── srfi-19.scm │ ├── srfi-26.scm │ ├── srfi-27.scm │ ├── srfi-28.scm │ ├── srfi-38.scm │ ├── srfi-39.scm │ ├── srfi-41.scm │ ├── srfi-42.scm │ ├── srfi-48.scm │ ├── srfi-6.scm │ ├── srfi-8.scm │ ├── srfi-9.scm │ └── srfi-98.scm ├── streams.scm ├── tidbits │ ├── define-inline.scm │ ├── dotimes.scm │ ├── generator.scm │ ├── remote-repl.scm │ └── string-split.scm ├── time.scm ├── trace.scm └── ypsilon │ ├── apropos.scm │ ├── assert.scm │ ├── c-types.scm │ ├── cairo.scm │ ├── cell │ └── libspe2.scm │ ├── concurrent.scm │ ├── debug.scm │ ├── ffi.scm │ ├── gdk │ ├── add.scm │ ├── app.scm │ ├── atom.scm │ ├── axis.scm │ ├── beep.scm │ ├── bitmap.scm │ ├── byte.scm │ ├── cairo.scm │ ├── cap.scm │ ├── color.scm │ ├── colormap.scm │ ├── colorspace.scm │ ├── constants.scm │ ├── crossing.scm │ ├── cursor.scm │ ├── device.scm │ ├── devices.scm │ ├── display.scm │ ├── drag.scm │ ├── draw.scm │ ├── drawable.scm │ ├── drop.scm │ ├── error.scm │ ├── event.scm │ ├── events.scm │ ├── extension.scm │ ├── fill.scm │ ├── filter.scm │ ├── flush.scm │ ├── font.scm │ ├── free.scm │ ├── function.scm │ ├── gc.scm │ ├── get.scm │ ├── grab.scm │ ├── gravity.scm │ ├── image.scm │ ├── init.scm │ ├── input.scm │ ├── interp.scm │ ├── join.scm │ ├── keyboard.scm │ ├── keymap.scm │ ├── keyval.scm │ ├── line.scm │ ├── list.scm │ ├── modifier.scm │ ├── notify.scm │ ├── overlap.scm │ ├── owner.scm │ ├── pango.scm │ ├── parse.scm │ ├── pixbuf.scm │ ├── pixmap.scm │ ├── pointer.scm │ ├── pre.scm │ ├── prop.scm │ ├── property.scm │ ├── query.scm │ ├── rectangle.scm │ ├── region.scm │ ├── rgb.scm │ ├── screen.scm │ ├── scroll.scm │ ├── selection.scm │ ├── set.scm │ ├── setting.scm │ ├── spawn.scm │ ├── status.scm │ ├── string.scm │ ├── subwindow.scm │ ├── test.scm │ ├── text.scm │ ├── threads.scm │ ├── types.scm │ ├── unicode.scm │ ├── utf8.scm │ ├── visibility.scm │ ├── visual.scm │ ├── window.scm │ └── wm.scm │ ├── generator.scm │ ├── gl.scm │ ├── glib │ └── timeout.scm │ ├── glu.scm │ ├── glut.scm │ ├── gobject │ └── signal.scm │ ├── gtk │ ├── about.scm │ ├── accel.scm │ ├── accelerator.scm │ ├── accessible.scm │ ├── action.scm │ ├── activatable.scm │ ├── adjustment.scm │ ├── alignment.scm │ ├── alternative.scm │ ├── anchor.scm │ ├── arg.scm │ ├── arrow.scm │ ├── aspect.scm │ ├── assistant.scm │ ├── attach.scm │ ├── bin.scm │ ├── binding.scm │ ├── bindings.scm │ ├── border.scm │ ├── box.scm │ ├── buildable.scm │ ├── builder.scm │ ├── button.scm │ ├── buttons.scm │ ├── calendar.scm │ ├── cell.scm │ ├── check.scm │ ├── clipboard.scm │ ├── clist.scm │ ├── color.scm │ ├── combo.scm │ ├── constants.scm │ ├── container.scm │ ├── corner.scm │ ├── ctree.scm │ ├── curve.scm │ ├── debug.scm │ ├── delete.scm │ ├── dest.scm │ ├── dialog.scm │ ├── direction.scm │ ├── disable.scm │ ├── drag.scm │ ├── draw.scm │ ├── drawing.scm │ ├── editable.scm │ ├── entry.scm │ ├── event.scm │ ├── events.scm │ ├── expander.scm │ ├── false.scm │ ├── file.scm │ ├── fixed.scm │ ├── font.scm │ ├── frame.scm │ ├── gamma.scm │ ├── gc.scm │ ├── get.scm │ ├── grab.scm │ ├── handle.scm │ ├── hbox.scm │ ├── hbutton.scm │ ├── hpaned.scm │ ├── hruler.scm │ ├── hscale.scm │ ├── hscrollbar.scm │ ├── hseparator.scm │ ├── hsv.scm │ ├── icon.scm │ ├── identifier.scm │ ├── im.scm │ ├── image.scm │ ├── init.scm │ ├── input.scm │ ├── invisible.scm │ ├── item.scm │ ├── justification.scm │ ├── key.scm │ ├── label.scm │ ├── layout.scm │ ├── link.scm │ ├── list.scm │ ├── main.scm │ ├── match.scm │ ├── menu.scm │ ├── message.scm │ ├── metric.scm │ ├── misc.scm │ ├── mount.scm │ ├── movement.scm │ ├── notebook.scm │ ├── number.scm │ ├── object.scm │ ├── orientable.scm │ ├── orientation.scm │ ├── pack.scm │ ├── page.scm │ ├── paint.scm │ ├── paned.scm │ ├── paper.scm │ ├── parse.scm │ ├── path.scm │ ├── plug.scm │ ├── policy.scm │ ├── position.scm │ ├── preview.scm │ ├── print.scm │ ├── private.scm │ ├── progress.scm │ ├── propagate.scm │ ├── quit.scm │ ├── radio.scm │ ├── range.scm │ ├── rc.scm │ ├── recent.scm │ ├── relief.scm │ ├── requisition.scm │ ├── resize.scm │ ├── response.scm │ ├── rgb.scm │ ├── ruler.scm │ ├── scale.scm │ ├── scroll.scm │ ├── scrollbar.scm │ ├── scrolled.scm │ ├── selection.scm │ ├── sensitivity.scm │ ├── separator.scm │ ├── set.scm │ ├── settings.scm │ ├── shadow.scm │ ├── show.scm │ ├── side.scm │ ├── signal.scm │ ├── size.scm │ ├── socket.scm │ ├── sort.scm │ ├── spin.scm │ ├── state.scm │ ├── status.scm │ ├── statusbar.scm │ ├── stock.scm │ ├── style.scm │ ├── submenu.scm │ ├── table.scm │ ├── target.scm │ ├── targets.scm │ ├── tearoff.scm │ ├── test.scm │ ├── text.scm │ ├── toggle.scm │ ├── tool.scm │ ├── toolbar.scm │ ├── tooltip.scm │ ├── tree.scm │ ├── true.scm │ ├── ui.scm │ ├── unit.scm │ ├── update.scm │ ├── vbox.scm │ ├── vbutton.scm │ ├── viewport.scm │ ├── visibility.scm │ ├── volume.scm │ ├── vpaned.scm │ ├── vruler.scm │ ├── vscale.scm │ ├── vscrollbar.scm │ ├── vseparator.scm │ ├── widget.scm │ ├── window.scm │ └── wrap.scm │ ├── gtkglext.scm │ ├── match.scm │ ├── mysql.scm │ ├── pango │ ├── alignment.scm │ ├── attr.scm │ ├── attribute.scm │ ├── bidi.scm │ ├── break.scm │ ├── cairo.scm │ ├── color.scm │ ├── constants.scm │ ├── context.scm │ ├── coverage.scm │ ├── direction.scm │ ├── ellipsize.scm │ ├── extents.scm │ ├── find.scm │ ├── font.scm │ ├── fontset.scm │ ├── get.scm │ ├── glyph.scm │ ├── gravity.scm │ ├── is.scm │ ├── item.scm │ ├── itemize.scm │ ├── language.scm │ ├── layout.scm │ ├── log2vis.scm │ ├── matrix.scm │ ├── parse.scm │ ├── quantize.scm │ ├── read.scm │ ├── render.scm │ ├── renderer.scm │ ├── reorder.scm │ ├── scan.scm │ ├── script.scm │ ├── shape.scm │ ├── skip.scm │ ├── split.scm │ ├── stretch.scm │ ├── style.scm │ ├── tab.scm │ ├── trim.scm │ ├── types.scm │ ├── underline.scm │ ├── unichar.scm │ ├── units.scm │ ├── variant.scm │ ├── version.scm │ ├── weight.scm │ └── wrap.scm │ ├── pregexp.scm │ ├── process.scm │ ├── sdl.scm │ ├── sdl │ ├── base.scm │ ├── constants.scm │ ├── image.scm │ ├── mixer.scm │ ├── ttf.scm │ └── types.scm │ ├── socket.scm │ ├── streams.scm │ ├── time.scm │ └── trace.scm ├── src ├── SDLMain.h ├── SDLMain.m ├── arith.cpp ├── arith.h ├── bag.cpp ├── bag.h ├── bit.cpp ├── bit.h ├── cond.h ├── core.h ├── equiv.cpp ├── equiv.h ├── fasl.cpp ├── fasl.h ├── ffi.cpp ├── ffi.h ├── ffi_stub_darwin.s ├── ffi_stub_freebsd.s ├── ffi_stub_freebsd64.s ├── ffi_stub_linux.s ├── ffi_stub_linux64.s ├── ffi_stub_linux64_ppc.s ├── ffi_stub_linux_ppc.s ├── ffi_stub_openbsd.s ├── ffi_stub_openbsd64.s ├── ffi_stub_sunos.s ├── ffi_stub_sunos64.s ├── file.cpp ├── file.h ├── hash.cpp ├── hash.h ├── heap.h ├── inherent.h ├── interlocked.h ├── interpreter.cpp ├── interpreter.h ├── ioerror.cpp ├── ioerror.h ├── list.cpp ├── list.h ├── main.cpp ├── mutex.h ├── nanoasm.cpp ├── nanoasm.h ├── nanoasm.inc.cpp ├── nanoasm.inc.h ├── nanoasm_macro.h ├── object.h ├── object_factory.cpp ├── object_factory.h ├── object_heap.cpp ├── object_heap.h ├── object_heap_compact.cpp ├── object_set.cpp ├── object_set.h ├── object_slab.cpp ├── object_slab.h ├── port.cpp ├── port.h ├── printer.cpp ├── printer.h ├── queue.h ├── reader.cpp ├── reader.h ├── revision.h ├── serialize.cpp ├── serialize.h ├── socket.cpp ├── socket.h ├── spinlock.h ├── subr.h ├── subr_base.cpp ├── subr_base_arith.cpp ├── subr_bitwise.cpp ├── subr_bvector.cpp ├── subr_ffi.cpp ├── subr_file.cpp ├── subr_fixnum.cpp ├── subr_flonum.cpp ├── subr_hash.cpp ├── subr_list.cpp ├── subr_others.cpp ├── subr_port.cpp ├── subr_process.cpp ├── subr_r5rs_arith.cpp ├── subr_socket.cpp ├── subr_thread.cpp ├── subr_unicode.cpp ├── sysdep.h ├── ucs4.cpp ├── ucs4.h ├── utf8.cpp ├── utf8.h ├── uuid.cpp ├── uuid.h ├── violation.cpp ├── violation.h ├── vm.h ├── vm0.cpp ├── vm1.cpp ├── vm2.cpp ├── vm3.cpp ├── ypsilon.icns └── ypsilon.ico ├── stdlib ├── core.scm ├── core │ ├── arithmetic.scm │ ├── bytevector-transcoders.scm │ ├── bytevectors.scm │ ├── conditions.scm │ ├── control.scm │ ├── destructuring.scm │ ├── enums.scm │ ├── exceptions.scm │ ├── files.scm │ ├── hashtables.scm │ ├── io.scm │ ├── lists.scm │ ├── optargs.scm │ ├── optimize.scm │ ├── parameters.scm │ ├── r5rs.scm │ ├── records.scm │ ├── sorting.scm │ ├── struct.scm │ ├── syntax-case.scm │ ├── unicode-assistants.scm │ └── unicode.scm ├── rnrs.scm └── rnrs │ ├── arithmetic │ ├── bitwise.scm │ ├── fixnums.scm │ └── flonums.scm │ ├── base.scm │ ├── bytevectors.scm │ ├── conditions.scm │ ├── control.scm │ ├── enums.scm │ ├── eval.scm │ ├── exceptions.scm │ ├── files.scm │ ├── hashtables.scm │ ├── io │ ├── ports.scm │ └── simple.scm │ ├── lists.scm │ ├── mutable-pairs.scm │ ├── mutable-strings.scm │ ├── programs.scm │ ├── r5rs.scm │ ├── records │ ├── inspection.scm │ ├── procedural.scm │ └── syntactic.scm │ ├── sorting.scm │ ├── syntax-case.scm │ └── unicode.scm ├── test.bat ├── test ├── arith.scm ├── flib.ss ├── glib.ss ├── nanoasm.scm ├── r4rstest.scm ├── r5rs_pitfall.scm ├── r6rs-lib.scm ├── r6rs.scm ├── syntax-rule-stress-test.scm ├── test-lite.scm └── tspl.scm ├── unicode ├── Makefile ├── build-lexeme-code.scm ├── build-ucd-1.scm ├── build-ucd-2.scm ├── build-ucd-code.scm ├── canonical-class.inc ├── case-folding.inc ├── compatibility.inc ├── compose.inc ├── decompose.inc ├── general-category-1.inc ├── general-category-2.inc ├── lexeme.inc ├── numeric-property.inc ├── other-alphabetic.inc ├── other-lowercase.inc ├── other-uppercase.inc ├── simple-lowercase.inc ├── simple-titlecase.inc ├── simple-uppercase.inc ├── special-casing-lower.inc ├── special-casing-title.inc ├── special-casing-upper.inc ├── ucd │ ├── canonical-class.datum │ ├── case-folding.datum │ ├── compatibility.datum │ ├── compose.datum │ ├── decompose.datum │ ├── general-category-1.datum │ ├── general-category-2.datum │ ├── numeric-property.datum │ ├── other-alphabetic.datum │ ├── other-lowercase.datum │ ├── other-uppercase.datum │ ├── simple-lowercase.datum │ ├── simple-titlecase.datum │ ├── simple-uppercase.datum │ ├── special-casing-lower.datum │ ├── special-casing-title.datum │ └── special-casing-upper.datum └── unicode-5.0.0 │ ├── CaseFolding.txt │ ├── CompositionExclusions.txt │ ├── GraphemeBreakProperty.txt │ ├── PropList.txt │ ├── SpecialCasing.txt │ ├── UnicodeData.txt │ └── WordBreakProperty.txt ├── ypsilon.1 ├── ypsilon.bat ├── ypsilon.rc ├── ypsilon.sln ├── ypsilon.vcproj └── ypsilon.xcodeproj └── project.pbxproj /bench.bat: -------------------------------------------------------------------------------- 1 | echo off 2 | "C:\Program Files\Ypsilon\Ypsilon.exe" --acc=%TEMP% -- bench/run-ypsilon.scm 3 | pause -------------------------------------------------------------------------------- /bench/ABOUT: -------------------------------------------------------------------------------- 1 | The benchmark code in gambit-benchmarks obtained from the Gambit Scheme system. 2 | Please refer http://dynamo.iro.umontreal.ca/~gambit/wiki for detail of Gambit Scheme system. 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/ack.scm: -------------------------------------------------------------------------------- 1 | ;;; ACK -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define (ack m n) 4 | (cond ((= m 0) (+ n 1)) 5 | ((= n 0) (ack (- m 1) 1)) 6 | (else (ack (- m 1) (ack m (- n 1)))))) 7 | 8 | (define (main . args) 9 | (run-benchmark 10 | "ack" 11 | ack-iters 12 | (lambda (result) (equal? result 4093)) 13 | (lambda (m n) (lambda () (ack m n))) 14 | 3 15 | 9)) 16 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/array1.scm: -------------------------------------------------------------------------------- 1 | ;;; ARRAY1 -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define (create-x n) 4 | (define result (make-vector n)) 5 | (do ((i 0 (+ i 1))) 6 | ((>= i n) result) 7 | (vector-set! result i i))) 8 | 9 | (define (create-y x) 10 | (let* ((n (vector-length x)) 11 | (result (make-vector n))) 12 | (do ((i (- n 1) (- i 1))) 13 | ((< i 0) result) 14 | (vector-set! result i (vector-ref x i))))) 15 | 16 | (define (my-try n) 17 | (vector-length (create-y (create-x n)))) 18 | 19 | (define (go n) 20 | (let loop ((repeat 100) 21 | (result '())) 22 | (if (> repeat 0) 23 | (loop (- repeat 1) (my-try n)) 24 | result))) 25 | 26 | (define (main . args) 27 | (run-benchmark 28 | "array1" 29 | array1-iters 30 | (lambda (result) (equal? result 200000)) 31 | (lambda (n) (lambda () (go n))) 32 | 200000)) 33 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/cat.scm: -------------------------------------------------------------------------------- 1 | ;;; CAT -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define inport #f) 4 | (define outport #f) 5 | 6 | (define (catport port) 7 | (let ((x (read-char port))) 8 | (if (eof-object? x) 9 | (close-output-port outport) 10 | (begin 11 | (write-char x outport) 12 | (catport port))))) 13 | 14 | (define (go) 15 | (set! inport (open-input-file "../../src/bib")) 16 | (set! outport (open-output-file "foo")) 17 | (catport inport) 18 | (close-input-port inport)) 19 | 20 | (define (main . args) 21 | (run-benchmark 22 | "cat" 23 | cat-iters 24 | (lambda (result) #t) 25 | (lambda () (lambda () (go))))) 26 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/cpstak.scm: -------------------------------------------------------------------------------- 1 | ;;; CPSTAK -- A continuation-passing version of the TAK benchmark. 2 | ;;; A good test of first class procedures and tail recursion. 3 | 4 | (define (cpstak x y z) 5 | 6 | (define (tak x y z k) 7 | (if (not (< y x)) 8 | (k z) 9 | (tak (- x 1) 10 | y 11 | z 12 | (lambda (v1) 13 | (tak (- y 1) 14 | z 15 | x 16 | (lambda (v2) 17 | (tak (- z 1) 18 | x 19 | y 20 | (lambda (v3) 21 | (tak v1 v2 v3 k))))))))) 22 | 23 | (tak x y z (lambda (a) a))) 24 | 25 | (define (main . args) 26 | (run-benchmark 27 | "cpstak" 28 | cpstak-iters 29 | (lambda (result) (equal? result 7)) 30 | (lambda (x y z) (lambda () (cpstak x y z))) 31 | 18 32 | 12 33 | 6)) 34 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/crash.scm: -------------------------------------------------------------------------------- 1 | ;;; CRASH - Test of crash condition. 2 | 3 | (define (main . args) 4 | (run-benchmark 5 | "crash" 6 | 1 7 | (lambda (result) 8 | #t) 9 | (lambda (f) (lambda () (f))) 10 | #f)) 11 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/ctak.scm: -------------------------------------------------------------------------------- 1 | ;;; CTAK -- A version of the TAK procedure that uses continuations. 2 | 3 | (define (ctak x y z) 4 | (call-with-current-continuation 5 | (lambda (k) (ctak-aux k x y z)))) 6 | 7 | (define (ctak-aux k x y z) 8 | (if (not (< y x)) 9 | (k z) 10 | (call-with-current-continuation 11 | (lambda (k) 12 | (ctak-aux 13 | k 14 | (call-with-current-continuation 15 | (lambda (k) (ctak-aux k (- x 1) y z))) 16 | (call-with-current-continuation 17 | (lambda (k) (ctak-aux k (- y 1) z x))) 18 | (call-with-current-continuation 19 | (lambda (k) (ctak-aux k (- z 1) x y)))))))) 20 | 21 | (define (main . args) 22 | (run-benchmark 23 | "ctak" 24 | ctak-iters 25 | (lambda (result) (equal? result 7)) 26 | (lambda (x y z) (lambda () (ctak x y z))) 27 | 18 28 | 12 29 | 6)) 30 | 31 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/diviter.scm: -------------------------------------------------------------------------------- 1 | ;;; DIVITER -- Benchmark which divides by 2 using lists of n ()'s. 2 | 3 | (define (create-n n) 4 | (do ((n n (- n 1)) 5 | (a '() (cons '() a))) 6 | ((= n 0) a))) 7 | 8 | (define *ll* (create-n 200)) 9 | 10 | (define (iterative-div2 l) 11 | (do ((l l (cddr l)) 12 | (a '() (cons (car l) a))) 13 | ((null? l) a))) 14 | 15 | (define (main . args) 16 | (run-benchmark 17 | "diviter" 18 | diviter-iters 19 | (lambda (result) 20 | (equal? result 21 | '(() () () () () () () () () () () () () () () () () () () () 22 | () () () () () () () () () () () () () () () () () () () () 23 | () () () () () () () () () () () () () () () () () () () () 24 | () () () () () () () () () () () () () () () () () () () () 25 | () () () () () () () () () () () () () () () () () () () ()))) 26 | (lambda (l) (lambda () (iterative-div2 l))) 27 | *ll*)) 28 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/divrec.scm: -------------------------------------------------------------------------------- 1 | ;;; DIVREC -- Benchmark which divides by 2 using lists of n ()'s. 2 | 3 | (define (create-n n) 4 | (do ((n n (- n 1)) 5 | (a '() (cons '() a))) 6 | ((= n 0) a))) 7 | 8 | (define *ll* (create-n 200)) 9 | 10 | (define (recursive-div2 l) 11 | (cond ((null? l) '()) 12 | (else (cons (car l) (recursive-div2 (cddr l)))))) 13 | 14 | (define (main . args) 15 | (run-benchmark 16 | "divrec" 17 | divrec-iters 18 | (lambda (result) 19 | (equal? result 20 | '(() () () () () () () () () () () () () () () () () () () () 21 | () () () () () () () () () () () () () () () () () () () () 22 | () () () () () () () () () () () () () () () () () () () () 23 | () () () () () () () () () () () () () () () () () () () () 24 | () () () () () () () () () () () () () () () () () () () ()))) 25 | (lambda (l) (lambda () (recursive-div2 l))) 26 | *ll*)) 27 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/fail.scm: -------------------------------------------------------------------------------- 1 | ;;; FAIL - Test of failure condition. 2 | 3 | (define (main . args) 4 | (run-benchmark 5 | "fail" 6 | 1 7 | (lambda (result) 8 | (eq? result #t)) 9 | (lambda (f) (lambda () f)) 10 | #f)) 11 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/fib.scm: -------------------------------------------------------------------------------- 1 | ;;; FIB -- A classic benchmark, computes fib(35) inefficiently. 2 | 3 | (define (fib n) 4 | (if (< n 2) 5 | n 6 | (+ (fib (- n 1)) 7 | (fib (- n 2))))) 8 | 9 | (define (main . args) 10 | (run-benchmark 11 | "fib" 12 | fib-iters 13 | (lambda (result) (equal? result 9227465)) 14 | (lambda (n) (lambda () (fib n))) 15 | 35)) 16 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/fibc.scm: -------------------------------------------------------------------------------- 1 | ;;; FIBC -- FIB using first-class continuations, written by Kent Dybvig 2 | 3 | (define (1+ n) (+ n 1)) 4 | (define (1- n) (- n 1)) 5 | 6 | ;;; fib with peano arithmetic (using numbers) with call/cc 7 | 8 | (define (addc x y k) 9 | (if (zero? y) 10 | (k x) 11 | (addc (1+ x) (1- y) k))) 12 | 13 | (define (fibc x c) 14 | (if (zero? x) 15 | (c 0) 16 | (if (zero? (1- x)) 17 | (c 1) 18 | (addc (call-with-current-continuation (lambda (c) (fibc (1- x) c))) 19 | (call-with-current-continuation (lambda (c) (fibc (1- (1- x)) c))) 20 | c)))) 21 | 22 | (define (main) 23 | (run-benchmark 24 | "fibc" 25 | fibc-iters 26 | (lambda (result) (equal? result 2584)) 27 | (lambda (x c) (lambda () (fibc x c))) 28 | 18 29 | (lambda (n) n))) 30 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/fibfp.scm: -------------------------------------------------------------------------------- 1 | ;;; FIBFP -- Computes fib(35) using floating point 2 | 3 | (define (fibfp n) 4 | (if (FLOAT< n 2.) 5 | n 6 | (FLOAT+ (fibfp (FLOAT- n 1.)) 7 | (fibfp (FLOAT- n 2.))))) 8 | 9 | (define (main . args) 10 | (run-benchmark 11 | "fibfp" 12 | fibfp-iters 13 | (lambda (result) (equal? result 9227465.)) 14 | (lambda (n) (lambda () (fibfp n))) 15 | 35.)) 16 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/nqueens.scm: -------------------------------------------------------------------------------- 1 | ;;; NQUEENS -- Compute number of solutions to 8-queens problem. 2 | 3 | (define trace? #f) 4 | 5 | (define (nqueens n) 6 | 7 | (define (1-to n) 8 | (let loop ((i n) (l '())) 9 | (if (= i 0) l (loop (- i 1) (cons i l))))) 10 | 11 | (define (my-try x y z) 12 | (if (null? x) 13 | (if (null? y) 14 | (begin (if trace? (begin (write z) (newline))) 1) 15 | 0) 16 | (+ (if (ok? (car x) 1 z) 17 | (my-try (append (cdr x) y) '() (cons (car x) z)) 18 | 0) 19 | (my-try (cdr x) (cons (car x) y) z)))) 20 | 21 | (define (ok? row dist placed) 22 | (if (null? placed) 23 | #t 24 | (and (not (= (car placed) (+ row dist))) 25 | (not (= (car placed) (- row dist))) 26 | (ok? row (+ dist 1) (cdr placed))))) 27 | 28 | (my-try (1-to n) '() '())) 29 | 30 | (define (main) 31 | (run-benchmark 32 | "nqueens" 33 | nqueens-iters 34 | (lambda (result) (equal? result 92)) 35 | (lambda (n) (lambda () (nqueens n))) 36 | 8)) 37 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/primes.scm: -------------------------------------------------------------------------------- 1 | ;;; PRIMES -- Compute primes less than 100, written by Eric Mohr. 2 | 3 | (define (interval-list m n) 4 | (if (> m n) 5 | '() 6 | (cons m (interval-list (+ 1 m) n)))) 7 | 8 | (define (sieve l) 9 | (letrec ((remove-multiples 10 | (lambda (n l) 11 | (if (null? l) 12 | '() 13 | (if (= (modulo (car l) n) 0) 14 | (remove-multiples n (cdr l)) 15 | (cons (car l) 16 | (remove-multiples n (cdr l)))))))) 17 | (if (null? l) 18 | '() 19 | (cons (car l) 20 | (sieve (remove-multiples (car l) (cdr l))))))) 21 | 22 | (define (primes<= n) 23 | (sieve (interval-list 2 n))) 24 | 25 | (define (main) 26 | (run-benchmark 27 | "primes" 28 | primes-iters 29 | (lambda (result) 30 | (equal? result 31 | '(2 3 5 7 11 13 17 19 23 29 31 37 41 32 | 43 47 53 59 61 67 71 73 79 83 89 97))) 33 | (lambda (n) (lambda () (primes<= n))) 34 | 100)) 35 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/string.scm: -------------------------------------------------------------------------------- 1 | ;;; STRING -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define s "abcdef") 4 | 5 | (define (grow) 6 | (set! s (string-append "123" s "456" s "789")) 7 | (set! s (string-append 8 | (substring s (quotient (string-length s) 2) (string-length s)) 9 | (substring s 0 (+ 1 (quotient (string-length s) 2))))) 10 | s) 11 | 12 | (define (trial n) 13 | (do ((i 0 (+ i 1))) 14 | ((> (string-length s) n) (string-length s)) 15 | (grow))) 16 | 17 | (define (my-try n) 18 | (do ((i 0 (+ i 1))) 19 | ((>= i 10) (string-length s)) 20 | (set! s "abcdef") 21 | (trial n))) 22 | 23 | (define (main . args) 24 | (run-benchmark 25 | "string" 26 | string-iters 27 | (lambda (result) (equal? result 524278)) 28 | (lambda (n) (lambda () (my-try n))) 29 | 500000)) 30 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/succeed.scm: -------------------------------------------------------------------------------- 1 | ;;; SUCCEED - Test of success condition. 2 | 3 | (define (main . args) 4 | (run-benchmark 5 | "succeed" 6 | 1 7 | (lambda (result) 8 | (equal? result #f)) 9 | (lambda (f) (lambda () f)) 10 | #f)) 11 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/sum.scm: -------------------------------------------------------------------------------- 1 | ;;; SUM -- Compute sum of integers from 0 to 10000 2 | 3 | (define (run n) 4 | (let loop ((i n) (sum 0)) 5 | (if (< i 0) 6 | sum 7 | (loop (- i 1) (+ i sum))))) 8 | 9 | (define (main . args) 10 | (run-benchmark 11 | "sum" 12 | sum-iters 13 | (lambda (result) (equal? result 50005000)) 14 | (lambda (n) (lambda () (run n))) 15 | 10000)) 16 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/sum1.scm: -------------------------------------------------------------------------------- 1 | ;;; SUM1 -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define inport #f) 4 | 5 | (define (sumport port sum-so-far) 6 | (let ((x (read port))) 7 | (if (eof-object? x) 8 | sum-so-far 9 | (sumport port (FLOAT+ x sum-so-far))))) 10 | 11 | (define (sum port) 12 | (sumport port 0.0)) 13 | 14 | (define (go) 15 | (set! inport (open-input-file "../../src/rn100")) 16 | (let ((result (sum inport))) 17 | (close-input-port inport) 18 | result)) 19 | 20 | (define (main . args) 21 | (run-benchmark 22 | "sum1" 23 | sum1-iters 24 | (lambda (result) (and (FLOAT>= result 15794.974999999) 25 | (FLOAT<= result 15794.975000001))) 26 | (lambda () (lambda () (go))))) 27 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/sumfp.scm: -------------------------------------------------------------------------------- 1 | ;;; SUMFP -- Compute sum of integers from 0 to 10000 using floating point 2 | 3 | (define (run n) 4 | (let loop ((i n) (sum 0.)) 5 | (if (FLOAT< i 0.) 6 | sum 7 | (loop (FLOAT- i 1.) (FLOAT+ i sum))))) 8 | 9 | (define (main . args) 10 | (run-benchmark 11 | "sumfp" 12 | sumfp-iters 13 | (lambda (result) (equal? result 50005000.)) 14 | (lambda (n) (lambda () (run n))) 15 | 10000.)) 16 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/sumloop.scm: -------------------------------------------------------------------------------- 1 | ;;; SUMLOOP -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define sum 0) 4 | 5 | (define (tail-rec-aux i n) 6 | (if (< i n) 7 | (begin (set! sum (+ sum 1)) (tail-rec-aux (+ i 1) n)) 8 | sum)) 9 | 10 | (define (tail-rec-loop n) 11 | (set! sum 0) 12 | (tail-rec-aux 0 n) 13 | sum) 14 | 15 | (define (do-loop n) 16 | (set! sum 0) 17 | (do ((i 0 (+ i 1))) 18 | ((>= i n) sum) 19 | (set! sum (+ sum 1)))) 20 | 21 | (define (main . args) 22 | (run-benchmark 23 | "sumloop" 24 | sumloop-iters 25 | (lambda (result) (equal? result 100000000)) 26 | (lambda (n) (lambda () (do-loop n))) 27 | 100000000)) 28 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/tail.scm: -------------------------------------------------------------------------------- 1 | ;;; TAIL -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define inport #f) 4 | (define outport #f) 5 | 6 | (define (readline port line-so-far) 7 | (let ((x (read-char port))) 8 | (cond ((eof-object? x) 9 | x) 10 | ((char=? x #\newline) 11 | (list->string (reverse 12 | (cons x line-so-far)))) 13 | (#t (readline port (cons x line-so-far)))))) 14 | 15 | (define (tail-r-aux port file-so-far) 16 | (let ((x (readline port '()))) 17 | (if (eof-object? x) 18 | (begin 19 | (display file-so-far outport) 20 | (close-output-port outport)) 21 | (tail-r-aux port (cons x file-so-far))))) 22 | 23 | (define (tail-r port) 24 | (tail-r-aux port '())) 25 | 26 | (define (go) 27 | (set! inport (open-input-file "../../src/bib")) 28 | (set! outport (open-output-file "foo")) 29 | (tail-r inport) 30 | (close-input-port inport)) 31 | 32 | (define (main . args) 33 | (run-benchmark 34 | "tail" 35 | tail-iters 36 | (lambda (result) #t) 37 | (lambda () (lambda () (go))))) 38 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/tak.scm: -------------------------------------------------------------------------------- 1 | ;;; TAK -- A vanilla version of the TAKeuchi function. 2 | 3 | (define (tak x y z) 4 | (if (not (< y x)) 5 | z 6 | (tak (tak (- x 1) y z) 7 | (tak (- y 1) z x) 8 | (tak (- z 1) x y)))) 9 | 10 | (define (main . args) 11 | (run-benchmark 12 | "tak" 13 | tak-iters 14 | (lambda (result) (equal? result 7)) 15 | (lambda (x y z) (lambda () (tak x y z))) 16 | 18 17 | 12 18 | 6)) 19 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/takl.scm: -------------------------------------------------------------------------------- 1 | ;;; TAKL -- The TAKeuchi function using lists as counters. 2 | 3 | (define (listn n) 4 | (if (= n 0) 5 | '() 6 | (cons n (listn (- n 1))))) 7 | 8 | (define l18 (listn 18)) 9 | (define l12 (listn 12)) 10 | (define l6 (listn 6)) 11 | 12 | (define (mas x y z) 13 | (if (not (shorterp y x)) 14 | z 15 | (mas (mas (cdr x) y z) 16 | (mas (cdr y) z x) 17 | (mas (cdr z) x y)))) 18 | 19 | (define (shorterp x y) 20 | (and (not (null? y)) 21 | (or (null? x) 22 | (shorterp (cdr x) 23 | (cdr y))))) 24 | 25 | (define (main . args) 26 | (run-benchmark 27 | "takl" 28 | takl-iters 29 | (lambda (result) (equal? result '(7 6 5 4 3 2 1))) 30 | (lambda (x y z) (lambda () (mas x y z))) 31 | l18 32 | l12 33 | l6)) 34 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/tfib.scm: -------------------------------------------------------------------------------- 1 | ;;; TFIB -- Like FIB but using threads. 2 | 3 | (define (tfib n) 4 | (if (< n 2) 5 | 1 6 | (let ((x (make-thread (lambda () (tfib (- n 2)))))) 7 | (thread-start! x) 8 | (let ((y (tfib (- n 1)))) 9 | (+ (thread-join! x) y))))) 10 | 11 | (define (go n repeat) 12 | (let loop ((repeat repeat) 13 | (result '())) 14 | (if (> repeat 0) 15 | (let ((x (make-thread (lambda () (tfib n))))) 16 | (thread-start! x) 17 | (let ((r (thread-join! x))) 18 | (loop (- repeat 1) r))) 19 | result))) 20 | 21 | (define (main . args) 22 | (run-benchmark 23 | "tfib" 24 | tfib-iters 25 | (lambda (result) (equal? result 610)) 26 | (lambda (n repeat) (lambda () (go n repeat))) 27 | 14 28 | 100)) 29 | -------------------------------------------------------------------------------- /bench/gambit-benchmarks/wc.scm: -------------------------------------------------------------------------------- 1 | ;;; WC -- One of the Kernighan and Van Wyk benchmarks. 2 | 3 | (define inport #f) 4 | 5 | (define nl #f) 6 | (define nw #f) 7 | (define nc #f) 8 | (define inword #f) 9 | 10 | (define (wcport port) 11 | (let ((x (read-char port))) 12 | (if (eof-object? x) 13 | (begin 14 | (list nl nw nc)) 15 | (begin 16 | (set! nc (+ nc 1)) 17 | (if (char=? x #\newline) 18 | (set! nl (+ nl 1))) 19 | (if (or (char=? x #\space) 20 | (char=? x #\newline)) 21 | (set! inword #f) 22 | (if (not inword) 23 | (begin 24 | (set! nw (+ nw 1)) 25 | (set! inword #t)))) 26 | (wcport port))))) 27 | 28 | (define (go) 29 | (set! inport (open-input-file "../../src/bib")) 30 | (set! nl 0) 31 | (set! nw 0) 32 | (set! nc 0) 33 | (set! inword #f) 34 | (let ((result (wcport inport))) 35 | (close-input-port inport) 36 | result)) 37 | 38 | (define (main . args) 39 | (run-benchmark 40 | "wc" 41 | wc-iters 42 | (lambda (result) (equal? result '(31102 851820 4460056))) 43 | (lambda () (lambda () (go))))) 44 | -------------------------------------------------------------------------------- /build-win32/.stupidgit: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/build-win32/.stupidgit -------------------------------------------------------------------------------- /build/.stupidgit: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/build/.stupidgit -------------------------------------------------------------------------------- /doc/index.css: -------------------------------------------------------------------------------- 1 | .book_title { 2 | font-weight: bold; 3 | font-size: 110%; 4 | } 5 | 6 | -------------------------------------------------------------------------------- /example/VeraMono.ttf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/VeraMono.ttf -------------------------------------------------------------------------------- /example/jello-data/ball-dead.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/ball-dead.wav -------------------------------------------------------------------------------- /example/jello-data/ball-start.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/ball-start.wav -------------------------------------------------------------------------------- /example/jello-data/ball16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/ball16.png -------------------------------------------------------------------------------- /example/jello-data/big-blue-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/big-blue-frag.png -------------------------------------------------------------------------------- /example/jello-data/big-green-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/big-green-frag.png -------------------------------------------------------------------------------- /example/jello-data/big-red-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/big-red-frag.png -------------------------------------------------------------------------------- /example/jello-data/block.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/block.wav -------------------------------------------------------------------------------- /example/jello-data/blue-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/blue-frag.png -------------------------------------------------------------------------------- /example/jello-data/blue.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/blue.png -------------------------------------------------------------------------------- /example/jello-data/complete.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/complete.wav -------------------------------------------------------------------------------- /example/jello-data/green-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/green-frag.png -------------------------------------------------------------------------------- /example/jello-data/green.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/green.png -------------------------------------------------------------------------------- /example/jello-data/mini-frag-blue.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/mini-frag-blue.png -------------------------------------------------------------------------------- /example/jello-data/mini-frag-yellow.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/mini-frag-yellow.png -------------------------------------------------------------------------------- /example/jello-data/music.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/music.wav -------------------------------------------------------------------------------- /example/jello-data/paddle.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/paddle.png -------------------------------------------------------------------------------- /example/jello-data/paddle.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/paddle.wav -------------------------------------------------------------------------------- /example/jello-data/red-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/red-frag.png -------------------------------------------------------------------------------- /example/jello-data/red.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/red.png -------------------------------------------------------------------------------- /example/jello-data/setup-block.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/setup-block.wav -------------------------------------------------------------------------------- /example/jello-data/small-blue-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/small-blue-frag.png -------------------------------------------------------------------------------- /example/jello-data/small-green-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/small-green-frag.png -------------------------------------------------------------------------------- /example/jello-data/small-red-frag.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/small-red-frag.png -------------------------------------------------------------------------------- /example/jello-data/title.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/title.png -------------------------------------------------------------------------------- /example/jello-data/wall.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/wall.wav -------------------------------------------------------------------------------- /example/jello-data/ypsilon-logo.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/example/jello-data/ypsilon-logo.png -------------------------------------------------------------------------------- /extension/SDL/.stupidgit: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/extension/SDL/.stupidgit -------------------------------------------------------------------------------- /heap/Makefile: -------------------------------------------------------------------------------- 1 | PROG = ../ypsilon 2 | 3 | STDLIB = ../stdlib 4 | 5 | all : 6 | @$(PROG) --sitelib=$(STDLIB) --clean-acc ./build-composit.scm 7 | # @$(PROG) --sitelib=$(STDLIB) --clean-acc ./build-debug-core.scm 8 | # @$(PROG) --sitelib=$(STDLIB) --clean-acc ./build-debug-boot.scm 9 | @$(PROG) --sitelib=$(STDLIB) --clean-acc ./build-boot-fasl.scm 10 | @$(PROG) --sitelib=$(STDLIB) --clean-acc ./build-boot-code.scm 11 | @$(PROG) --sitelib=$(STDLIB) --clean-acc ./build-core-fasl.scm 12 | @$(PROG) --sitelib=$(STDLIB) --clean-acc ./build-core-code.scm 13 | -------------------------------------------------------------------------------- /heap/boot/parameter.scm: -------------------------------------------------------------------------------- 1 | ;;; Ypsilon Scheme System 2 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 3 | ;;; See license.txt for terms and conditions of use. 4 | 5 | (define make-parameter 6 | (lambda (init . maybe-filter) 7 | (let ((parameter (if (null? maybe-filter) 8 | (parameter-proc-0 (gensym)) 9 | (parameter-proc-1 (gensym) (car maybe-filter))))) 10 | (begin (parameter init) parameter)))) 11 | 12 | (define parameter-proc-0 13 | (lambda (key) 14 | (lambda value 15 | (if (null? value) 16 | (core-hashtable-ref (current-dynamic-environment) key #f) 17 | (core-hashtable-set! (current-dynamic-environment) key (car value)))))) 18 | 19 | (define parameter-proc-1 20 | (lambda (key proc) 21 | (lambda value 22 | (if (null? value) 23 | (core-hashtable-ref (current-dynamic-environment) key #f) 24 | (core-hashtable-set! (current-dynamic-environment) key (proc (car value))))))) 25 | -------------------------------------------------------------------------------- /resource.h: -------------------------------------------------------------------------------- 1 | //{{NO_DEPENDENCIES}} 2 | // Microsoft Visual C++ generated include file. 3 | // Used by Ypsilon.rc 4 | // 5 | #define IDI_ICON1 101 6 | #define IDI_APPL 101 7 | 8 | // Next default values for new objects 9 | // 10 | #ifdef APSTUDIO_INVOKED 11 | #ifndef APSTUDIO_READONLY_SYMBOLS 12 | #define _APS_NEXT_RESOURCE_VALUE 102 13 | #define _APS_NEXT_COMMAND_VALUE 40001 14 | #define _APS_NEXT_CONTROL_VALUE 1001 15 | #define _APS_NEXT_SYMED_VALUE 101 16 | #endif 17 | #endif 18 | -------------------------------------------------------------------------------- /sitelib/apropos.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (apropos) (export apropos) (import (ypsilon apropos))) 3 | -------------------------------------------------------------------------------- /sitelib/concurrent.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (concurrent) 3 | (export current-exception-printer 4 | define-autoload-variable 5 | define-thread-variable 6 | future 7 | mailbox? 8 | make-mailbox 9 | make-messenger-bag 10 | make-shared-bag 11 | make-shared-queue 12 | make-uuid 13 | messenger-bag-get! 14 | messenger-bag-put! 15 | messenger-bag? 16 | recv 17 | send 18 | serializable? 19 | shared-bag-get! 20 | shared-bag-put! 21 | shared-bag? 22 | shared-queue-pop! 23 | shared-queue-push! 24 | shared-queue-shutdown 25 | shared-queue? 26 | shutdown-mailbox 27 | shutdown-object? 28 | spawn 29 | spawn* 30 | spawn-heap-limit 31 | spawn-timeout 32 | timeout-object?) 33 | (import (ypsilon concurrent))) 34 | -------------------------------------------------------------------------------- /sitelib/debug.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (debug) (export debug-compile debug-expand) (import (ypsilon debug))) 3 | -------------------------------------------------------------------------------- /sitelib/match.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (match) 3 | (export match match-define match-lambda match-lambda* match-let match-let* match-letrec) 4 | (import (ypsilon match))) 5 | -------------------------------------------------------------------------------- /sitelib/pregexp.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (pregexp) 3 | (export pregexp 4 | pregexp-match 5 | pregexp-match-positions 6 | pregexp-quote 7 | pregexp-replace 8 | pregexp-replace* 9 | pregexp-split) 10 | (import (ypsilon pregexp))) 11 | -------------------------------------------------------------------------------- /sitelib/socket.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (socket) 3 | (export AF_INET 4 | AF_INET6 5 | AF_UNSPEC 6 | AI_ADDRCONFIG 7 | AI_ALL 8 | AI_CANONNAME 9 | AI_NUMERICHOST 10 | AI_NUMERICSERV 11 | AI_PASSIVE 12 | AI_V4MAPPED 13 | IPPROTO_RAW 14 | IPPROTO_TCP 15 | IPPROTO_UDP 16 | MSG_CONFIRM 17 | MSG_CTRUNC 18 | MSG_DONTROUTE 19 | MSG_DONTWAIT 20 | MSG_EOF 21 | MSG_EOR 22 | MSG_ERRQUEUE 23 | MSG_FIN 24 | MSG_MORE 25 | MSG_NOSIGNAL 26 | MSG_OOB 27 | MSG_PEEK 28 | MSG_PROBE 29 | MSG_RST 30 | MSG_SYN 31 | MSG_TRUNC 32 | MSG_WAITALL 33 | SHUT_RD 34 | SHUT_RDWR 35 | SHUT_WR 36 | SOCK_DGRAM 37 | SOCK_RAW 38 | SOCK_STREAM 39 | call-with-socket 40 | make-client-socket 41 | make-server-socket 42 | shutdown-output-port 43 | socket-accept 44 | socket-close 45 | socket-port 46 | socket-recv 47 | socket-send 48 | socket-shutdown 49 | socket?) 50 | (import (ypsilon socket))) 51 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a26.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :26) (export cut cute) (import (srfi srfi-26))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a26/cut.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :26 cut) (export cut cute) (import (srfi srfi-26))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a27.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :27) 3 | (export default-random-source 4 | make-random-source 5 | random-integer 6 | random-real 7 | random-source-make-integers 8 | random-source-make-reals 9 | random-source-pseudo-randomize! 10 | random-source-randomize! 11 | random-source-state-ref 12 | random-source-state-set! 13 | random-source?) 14 | (import (srfi srfi-27))) 15 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a27/random-bits.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :27 random-bits) 3 | (export default-random-source 4 | make-random-source 5 | random-integer 6 | random-real 7 | random-source-make-integers 8 | random-source-make-reals 9 | random-source-pseudo-randomize! 10 | random-source-randomize! 11 | random-source-state-ref 12 | random-source-state-set! 13 | random-source?) 14 | (import (srfi srfi-27))) 15 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a28.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :28) (export format) (import (srfi srfi-28))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a28/basic-format-strings.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :28 basic-format-strings) (export format) (import (srfi srfi-28))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a38.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :38) 3 | (export read-with-shared-structure read/ss write-with-shared-structure write/ss) 4 | (import (srfi srfi-38))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a38/with-shared-structure.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :38 with-shared-structure) 3 | (export read-with-shared-structure read/ss write-with-shared-structure write/ss) 4 | (import (srfi srfi-38))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a39.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :39) (export make-parameter parameterize) (import (srfi srfi-39))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a39/parameters.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :39 parameters) (export make-parameter parameterize) (import (srfi srfi-39))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a41.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :41) 3 | (export _ 4 | define-stream 5 | list->stream 6 | port->stream 7 | stream 8 | stream->list 9 | stream-append 10 | stream-car 11 | stream-cdr 12 | stream-concat 13 | stream-cons 14 | stream-constant 15 | stream-drop 16 | stream-drop-while 17 | stream-filter 18 | stream-fold 19 | stream-for-each 20 | stream-from 21 | stream-iterate 22 | stream-lambda 23 | stream-length 24 | stream-let 25 | stream-map 26 | stream-match 27 | stream-null 28 | stream-null? 29 | stream-of 30 | stream-pair? 31 | stream-range 32 | stream-ref 33 | stream-reverse 34 | stream-scan 35 | stream-take 36 | stream-take-while 37 | stream-unfold 38 | stream-unfolds 39 | stream-zip 40 | stream?) 41 | (import (srfi srfi-41))) 42 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a41/streams.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :41 streams) 3 | (export _ 4 | define-stream 5 | list->stream 6 | port->stream 7 | stream 8 | stream->list 9 | stream-append 10 | stream-car 11 | stream-cdr 12 | stream-concat 13 | stream-cons 14 | stream-constant 15 | stream-drop 16 | stream-drop-while 17 | stream-filter 18 | stream-fold 19 | stream-for-each 20 | stream-from 21 | stream-iterate 22 | stream-lambda 23 | stream-length 24 | stream-let 25 | stream-map 26 | stream-match 27 | stream-null 28 | stream-null? 29 | stream-of 30 | stream-pair? 31 | stream-range 32 | stream-ref 33 | stream-reverse 34 | stream-scan 35 | stream-take 36 | stream-take-while 37 | stream-unfold 38 | stream-unfolds 39 | stream-zip 40 | stream?) 41 | (import (srfi srfi-41))) 42 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a41/streams/derived.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :41 streams derived) 3 | (export _ 4 | define-stream 5 | list->stream 6 | port->stream 7 | stream 8 | stream->list 9 | stream-append 10 | stream-car 11 | stream-cdr 12 | stream-concat 13 | stream-cons 14 | stream-constant 15 | stream-drop 16 | stream-drop-while 17 | stream-filter 18 | stream-fold 19 | stream-for-each 20 | stream-from 21 | stream-iterate 22 | stream-lambda 23 | stream-length 24 | stream-let 25 | stream-map 26 | stream-match 27 | stream-null 28 | stream-null? 29 | stream-of 30 | stream-pair? 31 | stream-range 32 | stream-ref 33 | stream-reverse 34 | stream-scan 35 | stream-take 36 | stream-take-while 37 | stream-unfold 38 | stream-unfolds 39 | stream-zip 40 | stream?) 41 | (import (srfi srfi-41))) 42 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a41/streams/primitive.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :41 streams primitive) 3 | (export _ 4 | define-stream 5 | list->stream 6 | port->stream 7 | stream 8 | stream->list 9 | stream-append 10 | stream-car 11 | stream-cdr 12 | stream-concat 13 | stream-cons 14 | stream-constant 15 | stream-drop 16 | stream-drop-while 17 | stream-filter 18 | stream-fold 19 | stream-for-each 20 | stream-from 21 | stream-iterate 22 | stream-lambda 23 | stream-length 24 | stream-let 25 | stream-map 26 | stream-match 27 | stream-null 28 | stream-null? 29 | stream-of 30 | stream-pair? 31 | stream-range 32 | stream-ref 33 | stream-reverse 34 | stream-scan 35 | stream-take 36 | stream-take-while 37 | stream-unfold 38 | stream-unfolds 39 | stream-zip 40 | stream?) 41 | (import (srfi srfi-41))) 42 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a42.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :42) 3 | (export : 4 | :char-range 5 | :dispatched 6 | :do 7 | :integers 8 | :let 9 | :list 10 | :parallel 11 | :port 12 | :range 13 | :real-range 14 | :string 15 | :until 16 | :vector 17 | :while 18 | any?-ec 19 | append-ec 20 | do-ec 21 | every?-ec 22 | first-ec 23 | fold-ec 24 | fold3-ec 25 | last-ec 26 | list-ec 27 | max-ec 28 | min-ec 29 | product-ec 30 | string-append-ec 31 | string-ec 32 | sum-ec 33 | vector-ec 34 | vector-of-length-ec) 35 | (import (srfi srfi-42))) 36 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a42/eager-comprehensions.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :42 eager-comprehensions) 3 | (export : 4 | :char-range 5 | :dispatched 6 | :do 7 | :integers 8 | :let 9 | :list 10 | :parallel 11 | :port 12 | :range 13 | :real-range 14 | :string 15 | :until 16 | :vector 17 | :while 18 | any?-ec 19 | append-ec 20 | do-ec 21 | every?-ec 22 | first-ec 23 | fold-ec 24 | fold3-ec 25 | last-ec 26 | list-ec 27 | max-ec 28 | min-ec 29 | product-ec 30 | string-append-ec 31 | string-ec 32 | sum-ec 33 | vector-ec 34 | vector-of-length-ec) 35 | (import (srfi srfi-42))) 36 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a48.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :48) (export format) (import (srfi srfi-48))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a48/intermediate-format-strings.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :48 intermediate-format-strings) (export format) (import (srfi srfi-48))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a6.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :6) 3 | (export get-output-string open-input-string open-output-string) 4 | (import (srfi srfi-6))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a6/basic-string-ports.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :6 basic-string-ports) 3 | (export get-output-string open-input-string open-output-string) 4 | (import (srfi srfi-6))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a8.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :8) (export receive) (import (srfi srfi-8))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a8/receive.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :8 receive) (export receive) (import (srfi srfi-8))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a9.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :9) (export define-record-type) (import (srfi srfi-9))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a9/records.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :9 records) (export define-record-type) (import (srfi srfi-9))) 3 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a98.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :98) 3 | (export get-environment-variable get-environment-variables) 4 | (import (srfi srfi-98))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/%3a98/os-environment-variables: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi :98 os-environment-variables) 3 | (export get-environment-variable get-environment-variables) 4 | (import (srfi srfi-98))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-28.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-28) 3 | (export format) 4 | (import (core))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-38.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-38) 3 | (export write-with-shared-structure 4 | read-with-shared-structure 5 | (rename (write-with-shared-structure write/ss) 6 | (read-with-shared-structure read/ss))) 7 | (import (core))) 8 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-39.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-39) 3 | (export make-parameter parameterize) 4 | (import (core))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-41.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-41) 3 | (export stream-null stream-cons stream? stream-null? stream-pair? stream-car 4 | stream-cdr stream-lambda define-stream list->stream port->stream stream 5 | stream->list stream-append stream-concat stream-constant stream-drop 6 | stream-drop-while stream-filter stream-fold stream-for-each stream-from 7 | stream-iterate stream-length stream-let stream-map stream-match _ 8 | stream-of stream-range stream-ref stream-reverse stream-scan stream-take 9 | stream-take-while stream-unfold stream-unfolds stream-zip) 10 | (import (ypsilon streams))) 11 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-48.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-48) 3 | (export format) 4 | (import (core))) 5 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-6.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-6) 3 | (export (rename (make-string-input-port open-input-string)) 4 | (rename (make-string-output-port open-output-string)) 5 | (rename (get-accumulated-string get-output-string))) 6 | (import (core))) 7 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-8.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; porting srfi-8 reference implementation to ypsilon 3 | ;;; -- y.fujita.lwp 4 | 5 | (library (srfi srfi-8) 6 | (export receive) 7 | (import (core)) 8 | 9 | (define-syntax receive 10 | (syntax-rules () 11 | ((_ formals expr body ...) 12 | (let-values ((formals expr)) body ...)))) 13 | 14 | ) ;[end] 15 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-9.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-9) 3 | (export (rename (define-record-type/srfi-9 define-record-type))) 4 | (import (core)) 5 | 6 | (define-syntax define-record-type/srfi-9 7 | (lambda (x) 8 | (define parse 9 | (lambda (stx) 10 | (syntax-case stx () 11 | ((x y) #'(immutable x y)) 12 | ((x y z) #'(mutable x y z))))) 13 | (syntax-case x () 14 | ((_ type (ctor _ ...) 15 | pred 16 | spec ...) 17 | (with-syntax (((spec ...) (map parse #'(spec ...)))) 18 | #'(define-record-type (type ctor pred) 19 | (fields spec ...))))))) 20 | 21 | ) ;[end] 22 | -------------------------------------------------------------------------------- /sitelib/srfi/srfi-98.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (srfi srfi-98) 3 | (export (rename (lookup-process-environment get-environment-variable) 4 | (process-environment->alist get-environment-variables))) 5 | (import (core))) 6 | -------------------------------------------------------------------------------- /sitelib/streams.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (streams) 3 | (export _ 4 | define-stream 5 | list->stream 6 | port->stream 7 | stream 8 | stream->list 9 | stream-append 10 | stream-car 11 | stream-cdr 12 | stream-concat 13 | stream-cons 14 | stream-constant 15 | stream-drop 16 | stream-drop-while 17 | stream-filter 18 | stream-fold 19 | stream-for-each 20 | stream-from 21 | stream-iterate 22 | stream-lambda 23 | stream-length 24 | stream-let 25 | stream-map 26 | stream-match 27 | stream-null 28 | stream-null? 29 | stream-of 30 | stream-pair? 31 | stream-range 32 | stream-ref 33 | stream-reverse 34 | stream-scan 35 | stream-take 36 | stream-take-while 37 | stream-unfold 38 | stream-unfolds 39 | stream-zip 40 | stream?) 41 | (import (ypsilon streams))) 42 | -------------------------------------------------------------------------------- /sitelib/tidbits/define-inline.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (tidbits define-inline) 7 | (export define-inline) 8 | (import (rnrs)) 9 | 10 | (define-syntax define-inline-assistant 11 | (syntax-rules () 12 | ((_ func () (args ...) (vars ...) . body) 13 | (define-syntax func 14 | (syntax-rules () 15 | ((_ args ...) 16 | (let ((vars args) ...) . body))))) 17 | ((_ func (e1 e2 ...) (args ...) . more) 18 | (define-inline-assistant func (e2 ...) (temp args ...) . more)))) 19 | 20 | (define-syntax define-inline 21 | (syntax-rules (lambda) 22 | ((_ func (lambda (vars ...) body1 body2 ...)) 23 | (define-inline-assistant func (vars ...) () (vars ...) body1 body2 ...)) 24 | ((_ (func vars ...) body1 body2 ...) 25 | (define-inline-assistant func (vars ...) () (vars ...) body1 body2 ...)))) 26 | 27 | ) ;[end] 28 | -------------------------------------------------------------------------------- /sitelib/tidbits/dotimes.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (tidbits dotimes) 7 | (export dotimes) 8 | (import (rnrs)) 9 | 10 | (define-syntax dotimes 11 | (syntax-rules () 12 | ((_ (i e1) e2 e3 ...) 13 | (let ((n e1)) 14 | (let loop ((i 0)) 15 | (if (< i n) 16 | (begin 17 | e2 e3 ... 18 | (loop (+ i 1))))))) 19 | ((_ n e1 e2 ...) 20 | (let loop ((i n)) 21 | (if (> i 0) 22 | (begin 23 | e1 e2 ... 24 | (loop (- i 1)))))))) 25 | 26 | ) ;[end] 27 | -------------------------------------------------------------------------------- /sitelib/tidbits/generator.scm: -------------------------------------------------------------------------------- 1 | 2 | ;; library (tidbits generator) deprecated 3 | 4 | (library (tidbits generator) 5 | (export define-generator) 6 | (import (ypsilon generator))) 7 | -------------------------------------------------------------------------------- /sitelib/time.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (time) 3 | (export decode-microsecond 4 | encode-microsecond 5 | microsecond 6 | microsecond->string 7 | microsecond->utc 8 | time 9 | time-usage 10 | usleep) 11 | (import (ypsilon time))) 12 | -------------------------------------------------------------------------------- /sitelib/trace.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | (library (trace) 3 | (export trace 4 | trace-global-count-mode 5 | trace-global-indent-mode 6 | trace-line-length 7 | trace-output-port 8 | untrace 9 | with-trace) 10 | (import (ypsilon trace))) 11 | -------------------------------------------------------------------------------- /sitelib/ypsilon/assert.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon assert) 7 | (export unsupported-option 8 | assert-argument) 9 | (import (core) (rnrs)) 10 | 11 | (define unsupported-option 12 | (lambda (x) 13 | (syntax-case x () 14 | (name (error (syntax->datum #'name) "option not supported on this operating system"))))) 15 | 16 | (define-syntax assert-argument 17 | (lambda (x) 18 | (syntax-case x () 19 | ((_ who n variable expect test . irritants) 20 | (let ((n (datum n)) (expect (datum expect))) 21 | (with-syntax ((msg (if n 22 | (format "expected ~a, but got ~~s, as argument ~a" expect n) 23 | (format "expected ~a, but got ~~s" expect)))) 24 | (if (identifier? #'test) 25 | #'(or (test variable) (assertion-violation 'who (format msg variable) . irritants)) 26 | #'(or test (assertion-violation 'who (format msg variable) . irritants)))))) 27 | (_ 28 | (syntax-violation 'assert-arguemnt "expected 5 clauses (assert-arguemnt )" x))))) 29 | 30 | ) ;[end] 31 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/axis.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk axis) 7 | 8 | (export gdk_axis_use_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_axis_use_get_type (void) 30 | (define-function unsigned-long gdk_axis_use_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/beep.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk beep) 7 | 8 | (export gdk_beep) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void gdk_beep (void) 30 | (define-function void gdk_beep ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/bitmap.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk bitmap) 7 | 8 | (export gdk_bitmap_create_from_data) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GdkBitmap* gdk_bitmap_create_from_data (GdkDrawable* drawable, const gchar* data, gint width, gint height) 30 | (define-function void* gdk_bitmap_create_from_data (void* char* int int)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/byte.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk byte) 7 | 8 | (export gdk_byte_order_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_byte_order_get_type (void) 30 | (define-function unsigned-long gdk_byte_order_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/cap.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk cap) 7 | 8 | (export gdk_cap_style_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_cap_style_get_type (void) 30 | (define-function unsigned-long gdk_cap_style_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/colorspace.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk colorspace) 7 | 8 | (export gdk_colorspace_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_colorspace_get_type (void) 30 | (define-function unsigned-long gdk_colorspace_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/crossing.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk crossing) 7 | 8 | (export gdk_crossing_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_crossing_mode_get_type (void) 30 | (define-function unsigned-long gdk_crossing_mode_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/devices.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk devices) 7 | 8 | (export gdk_devices_list) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GList* gdk_devices_list (void) 30 | (define-function void* gdk_devices_list ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/drop.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk drop) 7 | 8 | (export gdk_drop_finish 9 | gdk_drop_reply) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; void gdk_drop_finish (GdkDragContext* context, gboolean success, guint32 time_) 31 | (define-function void gdk_drop_finish (void* int uint32_t)) 32 | 33 | ;; void gdk_drop_reply (GdkDragContext* context, gboolean ok, guint32 time_) 34 | (define-function void gdk_drop_reply (void* int uint32_t)) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/error.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk error) 7 | 8 | (export gdk_error_trap_pop 9 | gdk_error_trap_push) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; gint gdk_error_trap_pop (void) 31 | (define-function int gdk_error_trap_pop ()) 32 | 33 | ;; void gdk_error_trap_push (void) 34 | (define-function void gdk_error_trap_push ()) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/events.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk events) 7 | 8 | (export gdk_events_pending) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; gboolean gdk_events_pending (void) 30 | (define-function int gdk_events_pending ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/extension.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk extension) 7 | 8 | (export gdk_extension_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_extension_mode_get_type (void) 30 | (define-function unsigned-long gdk_extension_mode_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/fill.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk fill) 7 | 8 | (export gdk_fill_get_type 9 | gdk_fill_rule_get_type) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; GType gdk_fill_get_type (void) 31 | (define-function unsigned-long gdk_fill_get_type ()) 32 | 33 | ;; GType gdk_fill_rule_get_type (void) 34 | (define-function unsigned-long gdk_fill_rule_get_type ()) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/filter.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk filter) 7 | 8 | (export gdk_filter_return_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_filter_return_get_type (void) 30 | (define-function unsigned-long gdk_filter_return_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/flush.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk flush) 7 | 8 | (export gdk_flush) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void gdk_flush (void) 30 | (define-function void gdk_flush ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/font.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk font) 7 | 8 | (export gdk_font_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_font_type_get_type (void) 30 | (define-function unsigned-long gdk_font_type_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/free.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk free) 7 | 8 | (export gdk_free_compound_text 9 | gdk_free_text_list) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; void gdk_free_compound_text (guchar* ctext) 31 | (define-function void gdk_free_compound_text (void*)) 32 | 33 | ;; void gdk_free_text_list (gchar** list) 34 | (define-function void gdk_free_text_list (void*)) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/function.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk function) 7 | 8 | (export gdk_function_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_function_get_type (void) 30 | (define-function unsigned-long gdk_function_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/grab.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk grab) 7 | 8 | (export gdk_grab_status_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_grab_status_get_type (void) 30 | (define-function unsigned-long gdk_grab_status_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/gravity.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk gravity) 7 | 8 | (export gdk_gravity_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_gravity_get_type (void) 30 | (define-function unsigned-long gdk_gravity_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/init.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk init) 7 | 8 | (export gdk_init 9 | gdk_init_check) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; void gdk_init (gint* argc, gchar** *argv) 31 | (define-function void gdk_init ((int) (* (char*)))) 32 | 33 | ;; gboolean gdk_init_check (gint* argc, gchar** *argv) 34 | (define-function int gdk_init_check ((int) (* (char*)))) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/interp.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk interp) 7 | 8 | (export gdk_interp_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_interp_type_get_type (void) 30 | (define-function unsigned-long gdk_interp_type_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/join.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk join) 7 | 8 | (export gdk_join_style_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_join_style_get_type (void) 30 | (define-function unsigned-long gdk_join_style_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/line.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk line) 7 | 8 | (export gdk_line_style_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_line_style_get_type (void) 30 | (define-function unsigned-long gdk_line_style_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/list.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk list) 7 | 8 | (export gdk_list_visuals) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GList* gdk_list_visuals (void) 30 | (define-function void* gdk_list_visuals ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/modifier.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk modifier) 7 | 8 | (export gdk_modifier_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_modifier_type_get_type (void) 30 | (define-function unsigned-long gdk_modifier_type_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/overlap.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk overlap) 7 | 8 | (export gdk_overlap_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_overlap_type_get_type (void) 30 | (define-function unsigned-long gdk_overlap_type_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/owner.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk owner) 7 | 8 | (export gdk_owner_change_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_owner_change_get_type (void) 30 | (define-function unsigned-long gdk_owner_change_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/parse.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk parse) 7 | 8 | (export gdk_parse_args) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void gdk_parse_args (gint* argc, gchar** *argv) 30 | (define-function void gdk_parse_args ((int) (* (char*)))) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/pre.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk pre) 7 | 8 | (export gdk_pre_parse_libgtk_only) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void gdk_pre_parse_libgtk_only (void) 30 | (define-function void gdk_pre_parse_libgtk_only ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/prop.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk prop) 7 | 8 | (export gdk_prop_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_prop_mode_get_type (void) 30 | (define-function unsigned-long gdk_prop_mode_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/query.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk query) 7 | 8 | (export gdk_query_depths 9 | gdk_query_visual_types) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; void gdk_query_depths (gint** depths, gint* count) 31 | (define-function void gdk_query_depths (void* void*)) 32 | 33 | ;; void gdk_query_visual_types (GdkVisualType** visual_types, gint* count) 34 | (define-function void gdk_query_visual_types (void* void*)) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/scroll.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk scroll) 7 | 8 | (export gdk_scroll_direction_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_scroll_direction_get_type (void) 30 | (define-function unsigned-long gdk_scroll_direction_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/setting.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk setting) 7 | 8 | (export gdk_setting_action_get_type 9 | gdk_setting_get) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; GType gdk_setting_action_get_type (void) 31 | (define-function unsigned-long gdk_setting_action_get_type ()) 32 | 33 | ;; gboolean gdk_setting_get (const gchar* name, GValue* value) 34 | (define-function int gdk_setting_get (char* void*)) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/status.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk status) 7 | 8 | (export gdk_status_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_status_get_type (void) 30 | (define-function unsigned-long gdk_status_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/subwindow.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk subwindow) 7 | 8 | (export gdk_subwindow_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_subwindow_mode_get_type (void) 30 | (define-function unsigned-long gdk_subwindow_mode_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/unicode.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk unicode) 7 | 8 | (export gdk_unicode_to_keyval) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; guint gdk_unicode_to_keyval (guint32 wc) 30 | (define-function unsigned-int gdk_unicode_to_keyval (uint32_t)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/visibility.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk visibility) 7 | 8 | (export gdk_visibility_state_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgdk-x11-2.0.so.0") 14 | (on-sunos "libgdk-x11-2.0.so.0") 15 | (on-freebsd "libgdk-x11-2.0.so.0") 16 | (on-openbsd "libgdk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgdk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType gdk_visibility_state_get_type (void) 30 | (define-function unsigned-long gdk_visibility_state_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gdk/wm.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gdk wm) 7 | 8 | (export gdk_wm_decoration_get_type 9 | gdk_wm_function_get_type) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libgdk-x11-2.0.so.0") 15 | (on-sunos "libgdk-x11-2.0.so.0") 16 | (on-freebsd "libgdk-x11-2.0.so.0") 17 | (on-openbsd "libgdk-x11-2.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libgdk-win32-2.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate GDK library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; GType gdk_wm_decoration_get_type (void) 31 | (define-function unsigned-long gdk_wm_decoration_get_type ()) 32 | 33 | ;; GType gdk_wm_function_get_type (void) 34 | (define-function unsigned-long gdk_wm_function_get_type ()) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/anchor.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk anchor) 7 | 8 | (export gtk_anchor_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_anchor_type_get_type (void) 35 | (define-function unsigned-long gtk_anchor_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/arg.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk arg) 7 | 8 | (export gtk_arg_flags_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_arg_flags_get_type (void) 35 | (define-function unsigned-long gtk_arg_flags_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/attach.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk attach) 7 | 8 | (export gtk_attach_options_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_attach_options_get_type (void) 35 | (define-function unsigned-long gtk_attach_options_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/buttons.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk buttons) 7 | 8 | (export gtk_buttons_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_buttons_type_get_type (void) 35 | (define-function unsigned-long gtk_buttons_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/clist.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk clist) 7 | 8 | (export gtk_clist_drag_pos_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_clist_drag_pos_get_type (void) 35 | (define-function unsigned-long gtk_clist_drag_pos_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/corner.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk corner) 7 | 8 | (export gtk_corner_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_corner_type_get_type (void) 35 | (define-function unsigned-long gtk_corner_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/debug.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk debug) 7 | 8 | (export gtk_debug_flag_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_debug_flag_get_type (void) 35 | (define-function unsigned-long gtk_debug_flag_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/delete.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk delete) 7 | 8 | (export gtk_delete_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_delete_type_get_type (void) 35 | (define-function unsigned-long gtk_delete_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/dest.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk dest) 7 | 8 | (export gtk_dest_defaults_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_dest_defaults_get_type (void) 35 | (define-function unsigned-long gtk_dest_defaults_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/direction.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk direction) 7 | 8 | (export gtk_direction_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_direction_type_get_type (void) 35 | (define-function unsigned-long gtk_direction_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/disable.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk disable) 7 | 8 | (export gtk_disable_setlocale) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; void gtk_disable_setlocale (void) 35 | (define-function void gtk_disable_setlocale ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/events.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk events) 7 | 8 | (export gtk_events_pending) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; gboolean gtk_events_pending (void) 35 | (define-function int gtk_events_pending ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/false.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk false) 7 | 8 | (export gtk_false) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; gboolean gtk_false (void) 35 | (define-function int gtk_false ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/identifier.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk identifier) 7 | 8 | (export gtk_identifier_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_identifier_get_type (void) 35 | (define-function unsigned-long gtk_identifier_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/justification.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk justification) 7 | 8 | (export gtk_justification_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_justification_get_type (void) 35 | (define-function unsigned-long gtk_justification_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/match.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk match) 7 | 8 | (export gtk_match_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_match_type_get_type (void) 35 | (define-function unsigned-long gtk_match_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/metric.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk metric) 7 | 8 | (export gtk_metric_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_metric_type_get_type (void) 35 | (define-function unsigned-long gtk_metric_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/movement.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk movement) 7 | 8 | (export gtk_movement_step_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_movement_step_get_type (void) 35 | (define-function unsigned-long gtk_movement_step_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/number.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk number) 7 | 8 | (export gtk_number_up_layout_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_number_up_layout_get_type (void) 35 | (define-function unsigned-long gtk_number_up_layout_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/orientation.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk orientation) 7 | 8 | (export gtk_orientation_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_orientation_get_type (void) 35 | (define-function unsigned-long gtk_orientation_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/parse.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk parse) 7 | 8 | (export gtk_parse_args) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; gboolean gtk_parse_args (int* argc, char** *argv) 35 | (define-function int gtk_parse_args ((int) (* (char*)))) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/policy.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk policy) 7 | 8 | (export gtk_policy_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_policy_type_get_type (void) 35 | (define-function unsigned-long gtk_policy_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/position.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk position) 7 | 8 | (export gtk_position_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_position_type_get_type (void) 35 | (define-function unsigned-long gtk_position_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/preview.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk preview) 7 | 8 | (export gtk_preview_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_preview_type_get_type (void) 35 | (define-function unsigned-long gtk_preview_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/private.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk private) 7 | 8 | (export gtk_private_flags_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_private_flags_get_type (void) 35 | (define-function unsigned-long gtk_private_flags_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/relief.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk relief) 7 | 8 | (export gtk_relief_style_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_relief_style_get_type (void) 35 | (define-function unsigned-long gtk_relief_style_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/resize.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk resize) 7 | 8 | (export gtk_resize_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_resize_mode_get_type (void) 35 | (define-function unsigned-long gtk_resize_mode_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/response.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk response) 7 | 8 | (export gtk_response_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_response_type_get_type (void) 35 | (define-function unsigned-long gtk_response_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/scrollbar.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk scrollbar) 7 | 8 | (export gtk_scrollbar_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_scrollbar_get_type (void) 35 | (define-function unsigned-long gtk_scrollbar_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/set.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk set) 7 | 8 | (export gtk_set_locale) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; gchar* gtk_set_locale (void) 35 | (define-function char* gtk_set_locale ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/shadow.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk shadow) 7 | 8 | (export gtk_shadow_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_shadow_type_get_type (void) 35 | (define-function unsigned-long gtk_shadow_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/side.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk side) 7 | 8 | (export gtk_side_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_side_type_get_type (void) 35 | (define-function unsigned-long gtk_side_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/signal.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk signal) 7 | 8 | (export gtk_signal_run_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_signal_run_type_get_type (void) 35 | (define-function unsigned-long gtk_signal_run_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/sort.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk sort) 7 | 8 | (export gtk_sort_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_sort_type_get_type (void) 35 | (define-function unsigned-long gtk_sort_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/state.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk state) 7 | 8 | (export gtk_state_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_state_type_get_type (void) 35 | (define-function unsigned-long gtk_state_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/true.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk true) 7 | 8 | (export gtk_true) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; gboolean gtk_true (void) 35 | (define-function int gtk_true ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/unit.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk unit) 7 | 8 | (export gtk_unit_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_unit_get_type (void) 35 | (define-function unsigned-long gtk_unit_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/update.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk update) 7 | 8 | (export gtk_update_type_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_update_type_get_type (void) 35 | (define-function unsigned-long gtk_update_type_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/visibility.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk visibility) 7 | 8 | (export gtk_visibility_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_visibility_get_type (void) 35 | (define-function unsigned-long gtk_visibility_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/gtk/wrap.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon gtk wrap) 7 | 8 | (export gtk_wrap_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libgtk-x11-2.0.so.0") 14 | (on-sunos "libgtk-x11-2.0.so.0") 15 | (on-freebsd "libgtk-x11-2.0.so.0") 16 | (on-openbsd "libgtk-x11-2.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libgtk-win32-2.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate GTK library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | (define-syntax define-function/va_list 30 | (syntax-rules () 31 | ((_ ret name args) 32 | (define name (lambda x (assertion-violation 'name "va_list argument not supported")))))) 33 | 34 | ;; GType gtk_wrap_mode_get_type (void) 35 | (define-function unsigned-long gtk_wrap_mode_get_type ()) 36 | 37 | ) ;[end] 38 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/alignment.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango alignment) 7 | 8 | (export pango_alignment_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_alignment_get_type (void) 30 | (define-function unsigned-long pango_alignment_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/bidi.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango bidi) 7 | 8 | (export pango_bidi_type_for_unichar 9 | pango_bidi_type_get_type) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libpango-1.0.so.0") 15 | (on-sunos "libpango-1.0.so.0") 16 | (on-freebsd "libpango-1.0.so.0") 17 | (on-openbsd "libpango-1.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libpango-1.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; PangoBidiType pango_bidi_type_for_unichar (gunichar ch) 31 | (define-function int pango_bidi_type_for_unichar (uint32_t)) 32 | 33 | ;; GType pango_bidi_type_get_type (void) 34 | (define-function unsigned-long pango_bidi_type_get_type ()) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/break.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango break) 7 | 8 | (export pango_break) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void pango_break (const gchar* text, int length, PangoAnalysis* analysis, PangoLogAttr* attrs, int attrs_len) 30 | (define-function void pango_break (char* int void* void* int)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/direction.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango direction) 7 | 8 | (export pango_direction_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_direction_get_type (void) 30 | (define-function unsigned-long pango_direction_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/ellipsize.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango ellipsize) 7 | 8 | (export pango_ellipsize_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_ellipsize_mode_get_type (void) 30 | (define-function unsigned-long pango_ellipsize_mode_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/extents.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango extents) 7 | 8 | (export pango_extents_to_pixels) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void pango_extents_to_pixels (PangoRectangle* inclusive, PangoRectangle* nearest) 30 | (define-function void pango_extents_to_pixels (void* void*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/is.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango is) 7 | 8 | (export pango_is_zero_width) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; gboolean pango_is_zero_width (gunichar ch) 30 | (define-function int pango_is_zero_width (uint32_t)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/log2vis.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango log2vis) 7 | 8 | (export pango_log2vis_get_embedding_levels) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; guint8* pango_log2vis_get_embedding_levels (const gchar* text, int length, PangoDirection* pbase_dir) 30 | (define-function void* pango_log2vis_get_embedding_levels (char* int void*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/quantize.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango quantize) 7 | 8 | (export pango_quantize_line_geometry) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void pango_quantize_line_geometry (int* thickness, int* position) 30 | (define-function void pango_quantize_line_geometry (void* void*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/read.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango read) 7 | 8 | (export pango_read_line) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; gint pango_read_line (FILE* stream, GString* str) 30 | (define-function int pango_read_line (void* void*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/render.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango render) 7 | 8 | (export pango_render_part_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_render_part_get_type (void) 30 | (define-function unsigned-long pango_render_part_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/reorder.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango reorder) 7 | 8 | (export pango_reorder_items) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GList* pango_reorder_items (GList* logical_items) 30 | (define-function void* pango_reorder_items (void*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/shape.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango shape) 7 | 8 | (export pango_shape) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; void pango_shape (const gchar* text, gint length, const PangoAnalysis* analysis, PangoGlyphString* glyphs) 30 | (define-function void pango_shape (char* int void* void*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/skip.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango skip) 7 | 8 | (export pango_skip_space) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; gboolean pango_skip_space (const char** pos) 30 | (define-function int pango_skip_space (void*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/split.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango split) 7 | 8 | (export pango_split_file_list) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; char** pango_split_file_list (const char* str) 30 | (define-function void* pango_split_file_list (char*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/stretch.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango stretch) 7 | 8 | (export pango_stretch_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_stretch_get_type (void) 30 | (define-function unsigned-long pango_stretch_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/style.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango style) 7 | 8 | (export pango_style_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_style_get_type (void) 30 | (define-function unsigned-long pango_style_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/trim.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango trim) 7 | 8 | (export pango_trim_string) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; char* pango_trim_string (const char* str) 30 | (define-function char* pango_trim_string (char*)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/underline.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango underline) 7 | 8 | (export pango_underline_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_underline_get_type (void) 30 | (define-function unsigned-long pango_underline_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/unichar.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango unichar) 7 | 8 | (export pango_unichar_direction) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; PangoDirection pango_unichar_direction (gunichar ch) 30 | (define-function int pango_unichar_direction (uint32_t)) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/units.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango units) 7 | 8 | (export pango_units_from_double 9 | pango_units_to_double) 10 | 11 | (import (rnrs) (ypsilon ffi)) 12 | 13 | (define lib-name 14 | (cond (on-linux "libpango-1.0.so.0") 15 | (on-sunos "libpango-1.0.so.0") 16 | (on-freebsd "libpango-1.0.so.0") 17 | (on-openbsd "libpango-1.0.so.0") 18 | (on-darwin "Gtk.framework/Gtk") 19 | (on-windows "libpango-1.0-0.dll") 20 | (else 21 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 22 | 23 | (define lib (load-shared-object lib-name)) 24 | 25 | (define-syntax define-function 26 | (syntax-rules () 27 | ((_ ret name args) 28 | (define name (c-function lib lib-name ret name args))))) 29 | 30 | ;; int pango_units_from_double (double d) 31 | (define-function int pango_units_from_double (double)) 32 | 33 | ;; double pango_units_to_double (int i) 34 | (define-function double pango_units_to_double (int)) 35 | 36 | ) ;[end] 37 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/variant.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango variant) 7 | 8 | (export pango_variant_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_variant_get_type (void) 30 | (define-function unsigned-long pango_variant_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/weight.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango weight) 7 | 8 | (export pango_weight_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_weight_get_type (void) 30 | (define-function unsigned-long pango_weight_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/pango/wrap.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon pango wrap) 7 | 8 | (export pango_wrap_mode_get_type) 9 | 10 | (import (rnrs) (ypsilon ffi)) 11 | 12 | (define lib-name 13 | (cond (on-linux "libpango-1.0.so.0") 14 | (on-sunos "libpango-1.0.so.0") 15 | (on-freebsd "libpango-1.0.so.0") 16 | (on-openbsd "libpango-1.0.so.0") 17 | (on-darwin "Gtk.framework/Gtk") 18 | (on-windows "libpango-1.0-0.dll") 19 | (else 20 | (assertion-violation #f "can not locate Pango library, unknown operating system")))) 21 | 22 | (define lib (load-shared-object lib-name)) 23 | 24 | (define-syntax define-function 25 | (syntax-rules () 26 | ((_ ret name args) 27 | (define name (c-function lib lib-name ret name args))))) 28 | 29 | ;; GType pango_wrap_mode_get_type (void) 30 | (define-function unsigned-long pango_wrap_mode_get_type ()) 31 | 32 | ) ;[end] 33 | -------------------------------------------------------------------------------- /sitelib/ypsilon/time.scm: -------------------------------------------------------------------------------- 1 | #!nobacktrace 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (ypsilon time) 7 | (export time 8 | time-usage 9 | usleep 10 | microsecond 11 | microsecond->utc 12 | microsecond->string 13 | decode-microsecond 14 | encode-microsecond) 15 | (import (core)) 16 | 17 | (define-syntax time 18 | (syntax-rules () 19 | ((_ expr) 20 | (destructuring-bind (real-start user-start sys-start) (time-usage) 21 | (let ((result (apply (lambda () expr) '()))) 22 | (destructuring-bind (real-end user-end sys-end) (time-usage) 23 | (format #t 24 | "~%;;~10,6f real ~11,6f user ~11,6f sys~%~!" 25 | (- real-end real-start) 26 | (- user-end user-start) 27 | (- sys-end sys-start))) 28 | result))))) 29 | 30 | ) ;[end] 31 | -------------------------------------------------------------------------------- /src/SDLMain.h: -------------------------------------------------------------------------------- 1 | /* SDLMain.m - main entry point for our Cocoa-ized SDL app 2 | Initial Version: Darrell Walisser 3 | Non-NIB-Code & other changes: Max Horn 4 | 5 | Feel free to customize this file to suit your needs 6 | */ 7 | 8 | #import 9 | 10 | @interface SDLMain : NSObject 11 | @end 12 | -------------------------------------------------------------------------------- /src/bag.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef BAG_H_INCLUDED 8 | #define BAG_H_INCLUDED 9 | 10 | #include "core.h" 11 | #include "object.h" 12 | 13 | sharedbag_slot_t* lookup_sharedbag(scm_sharedbag_t bag, const char* key, int len); 14 | 15 | #endif 16 | -------------------------------------------------------------------------------- /src/bit.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef BIT_H_INCLUDED 8 | #define BIT_H_INCLUDED 9 | 10 | #include "core.h" 11 | 12 | int clp2(uint32_t x); 13 | int flp2(uint32_t x); 14 | int nlz(uint32_t x); 15 | int nlz(uint64_t x); 16 | int ntz(uint32_t x); 17 | int ntz(uint64_t x); 18 | int nbits(uint32_t x); 19 | int nbits(uint64_t x); 20 | 21 | inline int nbits(intptr_t x) { 22 | if (sizeof(intptr_t) == sizeof(uint32_t)) return nbits((uint32_t)x); 23 | return nbits((uint64_t)x); 24 | } 25 | 26 | inline int ntz(intptr_t x) { 27 | if (sizeof(intptr_t) == sizeof(uint32_t)) return ntz((uint32_t)x); 28 | return ntz((uint64_t)x); 29 | } 30 | 31 | inline int nlz(intptr_t x) { 32 | if (sizeof(intptr_t) == sizeof(uint32_t)) return nlz((uint32_t)x); 33 | return nlz((uint64_t)x); 34 | } 35 | 36 | 37 | #endif 38 | -------------------------------------------------------------------------------- /src/equiv.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef EQUIV_H_INCLUDED 8 | #define EQUIV_H_INCLUDED 9 | 10 | #include "core.h" 11 | #include "object.h" 12 | 13 | bool eqv_pred(scm_obj_t obj1, scm_obj_t obj2); 14 | bool r5rs_equal_pred(scm_obj_t lst1, scm_obj_t lst2); 15 | bool equal_pred(object_heap_t* heap, scm_hashtable_t visited, scm_obj_t lst1, scm_obj_t lst2); 16 | 17 | #endif 18 | -------------------------------------------------------------------------------- /src/heap.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef HEAP_H_INCLUDED 8 | #define HEAP_H_INCLUDED 9 | 10 | #include "core.h" 11 | #include "object.h" 12 | #include "object_slab.h" 13 | #include "object_heap.h" 14 | #include "object_factory.h" 15 | 16 | #endif 17 | -------------------------------------------------------------------------------- /src/ioerror.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | 8 | #ifndef IOERROR_H_INCLUDED 9 | #define IOERROR_H_INCLUDED 10 | 11 | #include "core.h" 12 | #include "object.h" 13 | 14 | #define SCM_PORT_OPERATION_OPEN 1 15 | #define SCM_PORT_OPERATION_READ 2 16 | #define SCM_PORT_OPERATION_WRITE 3 17 | #define SCM_PORT_OPERATION_CLOSE 4 18 | #define SCM_PORT_OPERATION_SEEK 5 19 | #define SCM_PORT_OPERATION_STAT 6 20 | #define SCM_PORT_OPERATION_SELECT 7 21 | #define SCM_PORT_OPERATION_ENCODE 8 22 | #define SCM_PORT_OPERATION_DECODE 9 23 | #define SCM_SOCKET_OPERATION_OPEN 10 24 | #define SCM_SOCKET_OPERATION_WRITE 11 25 | #define SCM_SOCKET_OPERATION_READ 12 26 | #define SCM_SOCKET_OPERATION_ACCEPT 13 27 | 28 | void raise_io_error(VM* vm, const char* who, int operation, const char* message, int err, scm_obj_t port, scm_obj_t filename); 29 | void raise_io_codec_error(VM* vm, const char* who, int operation, const char* message, scm_obj_t port, scm_obj_t ch); 30 | void raise_io_filesystem_error(VM* vm, const char* who, const char* message, int err, scm_obj_t old_filename, scm_obj_t new_filename); 31 | 32 | #endif 33 | -------------------------------------------------------------------------------- /src/list.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef LIST_H_INCLUDED 8 | #define LIST_H_INCLUDED 9 | 10 | #include "core.h" 11 | #include "object.h" 12 | 13 | class object_heap_t; 14 | 15 | int list_length(scm_obj_t list); 16 | int safe_list_length(scm_obj_t maybe_list); 17 | scm_obj_t list_ref(scm_obj_t list, int n); 18 | scm_obj_t list_tail(scm_obj_t list, int n); 19 | scm_obj_t list_copy(object_heap_t* heap, scm_obj_t lst); 20 | bool listp(scm_obj_t maybe_list); 21 | bool circular_listp(scm_obj_t maybe_list); 22 | bool cyclic_objectp(object_heap_t* heap, scm_obj_t lst); 23 | 24 | #endif 25 | -------------------------------------------------------------------------------- /src/object_set.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef OBJECT_SET_H_INCLUDED 8 | #define OBJECT_SET_H_INCLUDED 9 | 10 | #include "core.h" 11 | #include "object.h" 12 | 13 | class object_set_t { 14 | public: 15 | mutex_t m_lock; 16 | object_heap_t* m_heap; 17 | scm_obj_t* m_elts; 18 | int m_count; 19 | int m_live; 20 | 21 | void rehash(int ncount); 22 | 23 | public: 24 | object_set_t(); 25 | ~object_set_t(); 26 | void init(object_heap_t* heap); 27 | scm_obj_t get(const char* name, int len); 28 | void put(scm_obj_t obj); 29 | void remove(scm_obj_t obj); 30 | void lock(); 31 | void unlock(); 32 | void sweep(); 33 | #if USE_PARALLEL_VM 34 | void protect(); 35 | #endif 36 | void inplace_rehash(); 37 | void resolve(); 38 | void relocate(bool every); 39 | }; 40 | 41 | #endif 42 | -------------------------------------------------------------------------------- /src/revision.h: -------------------------------------------------------------------------------- 1 | #define PROGRAM_REVISION 506 2 | -------------------------------------------------------------------------------- /src/socket.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef SOCKET_H_INCLUDED 8 | #define SOCKET_H_INCLUDED 9 | 10 | #include "core.h" 11 | #include "object.h" 12 | #include "ioerror.h" 13 | 14 | #define SCM_SOCKET_MODE_NONE 0 15 | #define SCM_SOCKET_MODE_CLIENT 1 16 | #define SCM_SOCKET_MODE_SERVER 2 17 | 18 | void socket_open(scm_socket_t s, const char* node, const char* service, int family, int type, int protocol, int flags); 19 | void socket_close(scm_socket_t s); 20 | void socket_shutdown(scm_socket_t s, int how); 21 | int socket_send(scm_socket_t s, uint8_t* buf, int len, int flags); 22 | int socket_recv(scm_socket_t s, uint8_t* buf, int len, int flags, bool* again); 23 | scm_obj_t socket_name_string(object_heap_t* heap, scm_socket_t s); 24 | scm_obj_t socket_accept(object_heap_t* heap, scm_socket_t s); 25 | 26 | #endif 27 | -------------------------------------------------------------------------------- /src/ucs4.cpp: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #include "core.h" 8 | #include "ucs4.h" 9 | 10 | bool 11 | ucs4_intraline_whitespace(int c) // http://www.unicode.org/Public/UNIDATA/PropList.txt 12 | { 13 | if (c == 0x0020) return true; //; White_Space # Zs SPACE 14 | if (c == 0x0009) return true; //; White_Space # Cc [5] 15 | if (c <= 0x007F) return false; 16 | if (c >= 0x2000 && c <= 0x200a) return true; //; White_Space # Zs [11] EN QUAD..HAIR SPACE 17 | switch (c) { 18 | case 0x00A0: //; White_Space # Zs NO-BREAK SPACE 19 | case 0x1680: //; White_Space # Zs OGHAM SPACE MARK 20 | case 0x180E: //; White_Space # Zs MONGOLIAN VOWEL SEPARATOR 21 | case 0x202F: //; White_Space # Zs NARROW NO-BREAK SPACE 22 | case 0x205F: //; White_Space # Zs MEDIUM MATHEMATICAL SPACE 23 | case 0x3000: //; White_Space # Zs IDEOGRAPHIC SPACE 24 | return true; 25 | } 26 | return false; 27 | } 28 | 29 | #include "../unicode/lexeme.inc" 30 | -------------------------------------------------------------------------------- /src/utf8.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef UTF8_H_INCLUDED 8 | #define UTF8_H_INCLUDED 9 | 10 | #include "core.h" 11 | #include "object.h" 12 | 13 | class object_heap_t; 14 | 15 | #define BAD_UTF8_STRING_REF_DATUM (-1) 16 | #define BAD_UTF8_STRING_REF_INDEX (-2) 17 | 18 | int utf8_byte_count(const uint8_t datum); 19 | int cnvt_ucs4_to_utf8(uint32_t ucs4, uint8_t utf8[4]); 20 | int cnvt_utf8_to_ucs4(const uint8_t* utf8, uint32_t* ucs4); 21 | int utf8_char_index_to_byte_offset(const uint8_t datum[], int index, int limit); 22 | int utf8_string_ref(scm_string_t obj, int index); 23 | int utf8_string_length(scm_string_t obj); 24 | void utf8_substring(scm_string_t obj, int from, int to, int* head, int* tail); 25 | bool utf8_string_set(object_heap_t* heap, scm_string_t obj, int index, int ch); 26 | int utf8_sizeof_ucs4(uint32_t ucs4); 27 | bool utf8_decode_test(scm_bvector_t obj); 28 | bool string_eq_pred(scm_obj_t obj1, scm_obj_t obj2); 29 | bool string_ci_eq_pred(scm_obj_t obj1, scm_obj_t obj2); 30 | int string_compare(scm_obj_t obj1, scm_obj_t obj2); 31 | 32 | #endif 33 | -------------------------------------------------------------------------------- /src/uuid.h: -------------------------------------------------------------------------------- 1 | /* 2 | Ypsilon Scheme System 3 | Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | See license.txt for terms and conditions of use 5 | */ 6 | 7 | #ifndef UUID_H_INCLUDED 8 | #define UUID_H_INCLUDED 9 | 10 | #include "core.h" 11 | 12 | void uuid_v4(char* buf, int bufsize); 13 | 14 | #endif 15 | -------------------------------------------------------------------------------- /src/ypsilon.icns: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/src/ypsilon.icns -------------------------------------------------------------------------------- /src/ypsilon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/src/ypsilon.ico -------------------------------------------------------------------------------- /stdlib/core/files.scm: -------------------------------------------------------------------------------- 1 | #!core 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (core files) 7 | 8 | (export file-exists? 9 | delete-file 10 | directory-list 11 | current-directory 12 | &i/o make-i/o-error i/o-error? 13 | &i/o-read make-i/o-read-error i/o-read-error? 14 | &i/o-write make-i/o-write-error i/o-write-error? 15 | &i/o-invalid-position make-i/o-invalid-position-error i/o-invalid-position-error? i/o-error-position 16 | &i/o-filename make-i/o-filename-error i/o-filename-error? i/o-error-filename 17 | &i/o-file-protection make-i/o-file-protection-error i/o-file-protection-error? 18 | &i/o-file-is-read-only make-i/o-file-is-read-only-error i/o-file-is-read-only-error? 19 | &i/o-file-already-exists make-i/o-file-already-exists-error i/o-file-already-exists-error? 20 | &i/o-file-does-not-exist make-i/o-file-does-not-exist-error i/o-file-does-not-exist-error? 21 | &i/o-port make-i/o-port-error i/o-port-error? i/o-error-port) 22 | 23 | (import (core primitives) 24 | (core io) 25 | (core lists) 26 | (core optargs)) 27 | 28 | ) ;[end] 29 | -------------------------------------------------------------------------------- /stdlib/core/parameters.scm: -------------------------------------------------------------------------------- 1 | #!core 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (core parameters) 7 | 8 | (export make-parameter parameterize) 9 | 10 | (import (core intrinsics) 11 | (only (core primitives) make-parameter)) 12 | 13 | (define-syntax parameterize-aux 14 | (syntax-rules () 15 | ((_ () ((save new param value) ...) body ...) 16 | (let ((save #f) ... (new value) ...) 17 | (dynamic-wind 18 | (lambda () (set! save (param)) ... (param new) ...) 19 | (lambda () body ...) 20 | (lambda () (param save) ...)))) 21 | ((_ ((e1 e2) . more) (stash ...) body ...) 22 | (parameterize-aux more (stash ... (tmp1 tmp2 e1 e2)) body ...)))) 23 | 24 | (define-syntax parameterize 25 | (syntax-rules () 26 | ((_ ((e1 e2) ...) body ...) 27 | (parameterize-aux ((e1 e2) ...) () body ...)))) 28 | 29 | ) 30 | -------------------------------------------------------------------------------- /stdlib/core/r5rs.scm: -------------------------------------------------------------------------------- 1 | #!core 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | (library (core r5rs) 7 | 8 | (export (rename (inexact exact->inexact) (exact inexact->exact)) 9 | quotient 10 | remainder 11 | modulo 12 | delay 13 | force) 14 | 15 | (import (core primitives)) 16 | 17 | (define force 18 | (lambda (object) 19 | (object))) 20 | 21 | (define make-promise 22 | (lambda (proc) 23 | (let ((result-ready? #f) 24 | (result #f)) 25 | (lambda () 26 | (if result-ready? 27 | result 28 | (let ((x (proc))) 29 | (if result-ready? 30 | result 31 | (begin (set! result-ready? #t) 32 | (set! result x) 33 | result)))))))) 34 | 35 | (define-syntax delay 36 | (syntax-rules () 37 | ((delay expression) 38 | (make-promise (lambda () expression))))) 39 | 40 | ) ;[end] 41 | -------------------------------------------------------------------------------- /stdlib/rnrs/arithmetic/bitwise.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs arithmetic bitwise (6)) 2 | (export bitwise-not 3 | bitwise-and 4 | bitwise-ior 5 | bitwise-xor 6 | bitwise-if 7 | bitwise-bit-count 8 | bitwise-length 9 | bitwise-first-bit-set 10 | bitwise-bit-set? 11 | bitwise-copy-bit 12 | bitwise-bit-field 13 | bitwise-copy-bit-field 14 | bitwise-arithmetic-shift 15 | bitwise-arithmetic-shift-left 16 | bitwise-arithmetic-shift-right 17 | bitwise-rotate-bit-field 18 | bitwise-reverse-bit-field) 19 | (import (core arithmetic))) 20 | -------------------------------------------------------------------------------- /stdlib/rnrs/arithmetic/fixnums.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs arithmetic fixnums (6)) 2 | (export fixnum? 3 | fixnum-width 4 | least-fixnum 5 | greatest-fixnum 6 | fx=? 7 | fx? 9 | fx<=? 10 | fx>=? 11 | fxzero? 12 | fxpositive? 13 | fxnegative? 14 | fxodd? 15 | fxeven? 16 | fxmax 17 | fxmin 18 | fx+ 19 | fx* 20 | fx- 21 | fxdiv 22 | fxmod 23 | fxdiv-and-mod 24 | fxdiv0 25 | fxmod0 26 | fxdiv0-and-mod0 27 | fx+/carry 28 | fx-/carry 29 | fx*/carry 30 | fxnot 31 | fxand 32 | fxior 33 | fxxor 34 | fxif 35 | fxbit-count 36 | fxlength 37 | fxfirst-bit-set 38 | fxbit-set? 39 | fxcopy-bit 40 | fxbit-field 41 | fxcopy-bit-field 42 | fxarithmetic-shift 43 | fxarithmetic-shift-left 44 | fxarithmetic-shift-right 45 | fxrotate-bit-field 46 | fxreverse-bit-field) 47 | (import (core arithmetic))) 48 | -------------------------------------------------------------------------------- /stdlib/rnrs/arithmetic/flonums.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs arithmetic flonums (6)) 2 | (export flonum? 3 | real->flonum 4 | fl=? 5 | fl? 7 | fl<=? 8 | fl>=? 9 | flinteger? 10 | flzero? 11 | flpositive? 12 | flnegative? 13 | flodd? 14 | fleven? 15 | flfinite? 16 | flinfinite? 17 | flnan? 18 | flmax 19 | flmin 20 | fl+ 21 | fl* 22 | fl- 23 | fl/ 24 | fldiv-and-mod 25 | fldiv 26 | flmod 27 | fldiv0-and-mod0 28 | fldiv0 29 | flmod0 30 | flnumerator 31 | fldenominator 32 | flfloor 33 | flceiling 34 | fltruncate 35 | flround 36 | flexp 37 | flexpt 38 | fllog 39 | flsin 40 | flcos 41 | fltan 42 | flasin 43 | flacos 44 | flatan 45 | flabs 46 | flsqrt 47 | fixnum->flonum 48 | &no-infinities make-no-infinities-violation no-infinities-violation? 49 | &no-nans make-no-nans-violation no-nans-violation?) 50 | (import (core arithmetic))) 51 | -------------------------------------------------------------------------------- /stdlib/rnrs/conditions.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs conditions (6)) 2 | (export &condition 3 | condition simple-conditions condition? 4 | condition-predicate condition-accessor 5 | define-condition-type 6 | &message make-message-condition message-condition? condition-message 7 | &warning make-warning warning? 8 | &serious make-serious-condition serious-condition? 9 | &error make-error error? 10 | &violation make-violation violation? 11 | &assertion make-assertion-violation assertion-violation? 12 | &irritants make-irritants-condition irritants-condition? 13 | &who make-who-condition who-condition? condition-who condition-irritants 14 | &non-continuable make-non-continuable-violation non-continuable-violation? 15 | &implementation-restriction make-implementation-restriction-violation implementation-restriction-violation? 16 | &lexical make-lexical-violation lexical-violation? 17 | &syntax make-syntax-violation syntax-violation? syntax-violation-form syntax-violation-subform 18 | &undefined make-undefined-violation undefined-violation?) 19 | (import (core conditions))) 20 | -------------------------------------------------------------------------------- /stdlib/rnrs/control.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs control (6)) 2 | (export when unless do case-lambda) 3 | (import (core control))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/enums.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs enums (6)) 2 | (export make-enumeration 3 | enum-set-universe 4 | enum-set-indexer 5 | enum-set-constructor 6 | enum-set->list 7 | enum-set-member? 8 | enum-set-subset? 9 | enum-set=? 10 | enum-set-union 11 | enum-set-intersection 12 | enum-set-difference 13 | enum-set-complement 14 | enum-set-projection 15 | define-enumeration) 16 | (import (core enums))) 17 | -------------------------------------------------------------------------------- /stdlib/rnrs/eval.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs eval (6)) 2 | (export eval environment) 3 | (import (core primitives))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/exceptions.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs exceptions (6)) 2 | (export with-exception-handler guard raise raise-continuable else =>) 3 | (import (core exceptions))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/files.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs files (6)) 2 | (export file-exists? delete-file) 3 | (import (core files))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/hashtables.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs hashtables (6)) 2 | (export make-eq-hashtable 3 | make-eqv-hashtable 4 | make-hashtable 5 | hashtable? 6 | hashtable-size 7 | hashtable-ref 8 | hashtable-set! 9 | hashtable-delete! 10 | hashtable-contains? 11 | hashtable-update! 12 | hashtable-copy 13 | hashtable-clear! 14 | hashtable-keys 15 | hashtable-entries 16 | hashtable-equivalence-function 17 | hashtable-hash-function 18 | hashtable-mutable? 19 | equal-hash 20 | string-hash 21 | string-ci-hash 22 | symbol-hash) 23 | (import (core hashtables))) 24 | -------------------------------------------------------------------------------- /stdlib/rnrs/lists.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs lists (6)) 2 | (export find for-all exists 3 | filter 4 | partition 5 | fold-left fold-right 6 | remp remove remv remq 7 | memp member memv memq 8 | assp assoc assv assq cons*) 9 | (import (core lists))) 10 | -------------------------------------------------------------------------------- /stdlib/rnrs/mutable-pairs.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs mutable-pairs (6)) 2 | (export set-car! set-cdr!) 3 | (import (core primitives))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/mutable-strings.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs mutable-strings (6)) 2 | (export string-set! string-fill!) 3 | (import (core primitives))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/programs.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs programs (6)) 2 | (export command-line exit) 3 | (import (core primitives))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/records/inspection.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs records inspection (6)) 2 | (export record? 3 | record-rtd 4 | record-type-name 5 | record-type-parent 6 | record-type-uid 7 | record-type-generative? 8 | record-type-sealed? 9 | record-type-opaque? 10 | record-type-field-names 11 | record-field-mutable?) 12 | (import (core records))) 13 | -------------------------------------------------------------------------------- /stdlib/rnrs/records/procedural.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs records procedural (6)) 2 | (export make-record-type-descriptor 3 | record-type-descriptor? 4 | make-record-constructor-descriptor 5 | record-constructor 6 | record-predicate 7 | record-accessor 8 | record-mutator) 9 | (import (core records))) 10 | -------------------------------------------------------------------------------- /stdlib/rnrs/records/syntactic.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs records syntactic (6)) 2 | (export define-record-type 3 | record-type-descriptor 4 | record-constructor-descriptor 5 | fields 6 | mutable 7 | immutable 8 | parent 9 | protocol 10 | sealed 11 | opaque 12 | nongenerative 13 | parent-rtd) 14 | (import (core records))) 15 | -------------------------------------------------------------------------------- /stdlib/rnrs/sorting.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs sorting (6)) 2 | (export list-sort vector-sort vector-sort!) 3 | (import (core sorting))) 4 | -------------------------------------------------------------------------------- /stdlib/rnrs/syntax-case.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs syntax-case (6)) 2 | (export make-variable-transformer 3 | syntax-case 4 | _ ... 5 | syntax 6 | identifier? bound-identifier=? free-identifier=? 7 | syntax->datum datum->syntax generate-temporaries 8 | with-syntax quasisyntax unsyntax unsyntax-splicing 9 | syntax-violation) 10 | (import (core syntax-case))) 11 | -------------------------------------------------------------------------------- /stdlib/rnrs/unicode.scm: -------------------------------------------------------------------------------- 1 | (library (rnrs unicode (6)) 2 | (export char-upcase char-downcase char-titlecase char-foldcase 3 | char-ci=? char-ci? char-ci<=? char-ci>=? 4 | char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? char-title-case? 5 | char-general-category 6 | string-upcase string-downcase string-titlecase string-foldcase 7 | string-ci=? string-ci? string-ci<=? string-ci>=? 8 | string-normalize-nfd string-normalize-nfkd string-normalize-nfc string-normalize-nfkc) 9 | (import (core unicode))) 10 | -------------------------------------------------------------------------------- /test/flib.ss: -------------------------------------------------------------------------------- 1 | (define f (lambda (x) (g (* x x)))) -------------------------------------------------------------------------------- /test/glib.ss: -------------------------------------------------------------------------------- 1 | (define g (lambda (x) (+ x x))) 2 | -------------------------------------------------------------------------------- /unicode/Makefile: -------------------------------------------------------------------------------- 1 | PROG = ../ypsilon 2 | 3 | all : 4 | @$(PROG) build-ucd-1.scm 5 | @$(PROG) build-ucd-2.scm 6 | @$(PROG) build-ucd-code.scm 7 | @$(PROG) build-lexeme-code.scm 8 | 9 | -------------------------------------------------------------------------------- /unicode/other-lowercase.inc: -------------------------------------------------------------------------------- 1 | static const uint8_t s_other_lowercase[100] = { 2 | 0xa,0x23,0x21,0x66,0x61,0x73,0x6c,0x30,0xa,0x80,0x3,0x8b,0x4,0x81,0x2,0x69, 3 | 0xc9,0x2,0x50,0xc9,0x4,0x81,0x2,0x7f,0xc2,0x2,0x70,0xc2,0x4,0x81,0x2,0x14, 4 | 0xc1,0x2,0x10,0xc1,0x4,0x81,0x2,0x3f,0xbb,0x2,0x1b,0xbb,0x4,0x81,0x2,0x78, 5 | 0xba,0x2,0x78,0xba,0x4,0x81,0x2,0x61,0xba,0x2,0x2c,0xba,0x4,0x81,0x2,0x7a, 6 | 0x86,0x2,0x7a,0x86,0x4,0x81,0x2,0x45,0x86,0x2,0x45,0x86,0x4,0x81,0x2,0x64, 7 | 0x85,0x2,0x60,0x85,0x4,0x81,0x2,0x41,0x85,0x2,0x40,0x85,0x4,0x81,0x2,0x38, 8 | 0x85,0x2,0x30,0x85 9 | }; 10 | -------------------------------------------------------------------------------- /unicode/other-uppercase.inc: -------------------------------------------------------------------------------- 1 | static const uint8_t s_other_uppercase[28] = { 2 | 0xa,0x23,0x21,0x66,0x61,0x73,0x6c,0x30,0xa,0x80,0x3,0x82,0x4,0x81,0x2,0x4f, 3 | 0xc9,0x2,0x36,0xc9,0x4,0x81,0x2,0x6f,0xc2,0x2,0x60,0xc2 4 | }; 5 | -------------------------------------------------------------------------------- /unicode/ucd/other-lowercase.datum: -------------------------------------------------------------------------------- 1 | ( 2 | (688 . 696) 3 | (704 . 705) 4 | (736 . 740) 5 | (837 . 837) 6 | (890 . 890) 7 | (7468 . 7521) 8 | (7544 . 7544) 9 | (7579 . 7615) 10 | (8336 . 8340) 11 | (8560 . 8575) 12 | (9424 . 9449) 13 | ) 14 | -------------------------------------------------------------------------------- /unicode/ucd/other-uppercase.datum: -------------------------------------------------------------------------------- 1 | ( 2 | (8544 . 8559) 3 | (9398 . 9423) 4 | ) 5 | -------------------------------------------------------------------------------- /unicode/ucd/special-casing-lower.datum: -------------------------------------------------------------------------------- 1 | ((8183 8183) (8097 8097) (8124 8115) (8151 8151) (64261 64261) (8087 8087) (8167 8167) (64277 64277) (8178 8178) (8076 8068) (8103 8103) (8130 8130) (8088 8080) (8066 8066) (8146 8146) (64256 64256) (8135 8135) (8162 8162) (8082 8082) (8109 8101) (8114 8114) (8098 8098) (8018 8018) (7831 7831) (64262 64262) (64278 64278) (8077 8069) (8067 8067) (8093 8085) (8147 8147) (64257 64257) (8179 8179) (8163 8163) (8083 8083) (8072 8064) (8099 8099) (7832 7832) (8115 8115) (8131 8131) (8106 8098) (64279 64279) (8180 8180) (8078 8070) (8105 8097) (8094 8086) (8110 8102) (8100 8100) (64258 64258) (8164 8164) (8084 8084) (8073 8065) (8089 8081) (8020 8020) (7833 7833) (8116 8116) (8132 8132) (8079 8071) (8085 8085) (8068 8068) (8095 8087) (8090 8082) (8111 8103) (8188 8179) (64275 64275) (8074 8066) (64259 64259) (329 329) (7834 7834) (8069 8069) (8101 8101) (8140 8131) (912 912) (8096 8096) (8016 8016) (223 223) (8102 8102) (944 944) (8107 8099) (8075 8067) (8104 8096) (8064 8064) (8091 8083) (8081 8081) (8080 8080) (8086 8086) (8134 8134) (8070 8070) (496 496) (8150 8150) (64260 64260) (8119 8119) (8166 8166) (64276 64276) (8182 8182) (1415 1415) (8022 8022) (8071 8071) (8118 8118) (304 105 775) (8065 8065) (8092 8084) (7830 7830) (8108 8100)) -------------------------------------------------------------------------------- /ypsilon.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | if exist "C:\Program files\Ypsilon\Ypsilon.exe" goto run 3 | echo error: Ypsilon.exe not installed properly. 4 | goto end 5 | :run 6 | "c:\program files\Ypsilon\Ypsilon.exe" %1 %2 %3 %4 %5 %6 %7 %8 %9 7 | :end -------------------------------------------------------------------------------- /ypsilon.rc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/ypsilon.rc -------------------------------------------------------------------------------- /ypsilon.vcproj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/imrehg/ypsilon/e57a06ef5c66c1a88905b2be2fa791fa29848514/ypsilon.vcproj --------------------------------------------------------------------------------