Skrylar
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #[crate_id = "mu1"]; | |
| #[crate_type = "bin"]; | |
| use std::cast::transmute; | |
| use std::cell::RefCell; | |
| use std::libc::size_t; | |
| use std::rc::{Rc, Weak}; | |
| static ErrAlreadyParented: &'static str = "Morph already has a parent."; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import unittest | |
| proc doThings(spuds: var int): int = | |
| spuds = 24 | |
| return 99 | |
| suite "broken": | |
| test "count the spuds": | |
| var spuds = 0 | |
| check doThings(spuds) == 99 |
Skrylar
/ maxrectpack.nim
Created
March 16, 2014 10:18
Code to demonstrate a crash in the Nimrod compiler. Its important that both files are separate, combining the two makes the crash go away.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import | |
| rectangle | |
| type | |
| MaxRectPacker* [T] = object | |
| initialWidth, initialHeight: T | |
| freeGeometry: seq[Rectangle[T]] | |
| proc TryGet* [T](self: var MaxRectPacker[T]; |
Skrylar
/ cyclic.nim
Created
March 22, 2014 09:12
Demonstrating how cyclic references which are both made weak will result in a GC crash.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type | |
| RPizza = ref Pizza | |
| Pizza = object | |
| Backref: RPizza | |
| proc NoPizza(self: RPizza) = | |
| debugEcho "Pizza eaten by ghosts." | |
| proc main() = |
Skrylar
/ eventhandle.nim
Created
March 24, 2014 12:16
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Something kind of like this; replicating wxWidgets style event mapping: | |
| ImplHandleEvent(MyEventHandler): | |
| On(CommandTriggeredEvent, self.OnCommand) | |
| On MorphClosedEvent, self.OnClosed | |
| On SomethingEvent do: | |
| debugEcho "Something else entirely..." |
Skrylar
/ results_from_hell.nim
Created
March 24, 2014 13:48
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # This works | |
| macro MakeIntoEvent* (etype: typedesc): stmt = | |
| let uid = NextEventTypeUID | |
| Inc(NextEventTypeUID) | |
| debugEcho "DUMP ID #", uid, ": ", repr(etype) | |
| result = quote do: | |
| proc GetEventTypeUid* ( | |
| self: typedesc[`etype`]): EventTypeUid {.inline.} = | |
| let x = `uid` | |
| return x |
Skrylar
/ eventmacro.nim
Created
March 26, 2014 20:41
An example of my attempts at event map macros.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type | |
| CommandEvent = object | |
| Actions = enum | |
| AMeep, | |
| APacake | |
| MakeIntoEvent CommandEvent | |
| when isMainModule: |
Skrylar
/ weirdtypes.nim
Created
March 29, 2014 01:28
Produces an "invalid type: Receivers" compile error, instead of warning that proc(x) should be proc(x:type).
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type | |
| FHandler = proc(x) {.closure.} | |
| Receivers = seq[FHandler] | |
| Beans = object | |
| floor: bool | |
| proc Emit(self: Receivers; x: int) = | |
| for e in items(self): | |
| e(x) |
Skrylar
/ JSON.red
Last active
October 20, 2015 16:19
— forked from dockimbel/JSON.red
JSON toy parser for Red
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Red [] | |
| digit-nz: charset "123456789" | |
| digit: append copy digit-nz #"0" | |
| hex: append copy digit "abcdefABCDEF" | |
| sign: charset "+-" | |
| exponent-e: charset "eE" | |
| dquot: #"^"" | |
| exponent: [ exponent-e opt sign some digit ] |
Skrylar
/ genalg.red
Created
November 24, 2015 05:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Red [] | |
| random/seed 1337 | |
| ; produces a series of chromosomes within [0, dna] of each supplied maximum | |
| make-dna-strand: func[dna | |
| /local dna-length result][ | |
| dna-length: length? dna | |
| result: make block! dna-length | |
| foreach chromosome dna [ |
OlderNewer