What projects are you working on?
Name:
Anonymous
2013-07-30 6:05
Well /prog/?
Name:
Anonymous
2013-07-30 6:06
im reading the elements of euclid, too busy to program.
Name:
Anonymous
2013-07-30 6:18
I want to see the Brainfuck threads in here burn, so I write a small C-like language that compiles to Brainfuck.
Name:
Anonymous
2013-07-30 6:22
Symta. Doing a bootstrap macroexpander
(_set list (_fn (@Xs) Xs))
(_set error (_fn (@Xs)
(text_out (Xs join_text))
(halt)))
(_set list>map
(_fn (Xs F)
(_if (Xs end)
Xs
((list>map (Xs tail) F) headed (F (Xs head))))))
(_set list>size
(_fn (Xs)
(_if (Xs end)
0
(1 `+` (list>size (Xs tail))))))
(_set headed
(_fn (X Xs)
(_if ((tag_of Xs) is list)
(_if (Xs end)
No
((Xs head) is X))
No)))
(_set fn? (_fn (Xs) (headed _fn Xs)))
(_set Env (list))
(_set get_macro
(_fn (N)
(_if ((tag_of N) is macro)
N
No)))
(_set applyMacro
(_fn (F As success fail)
((_fn (M)
(_if ((tag_of M) is macro)
(success (F @As))
(fail)))
(get_macro F))))
(_set expandAll (_fn (Xs) (Xs map &expand)))
(_set expandFn2
(_fn (OEnv As Xs)
(_set Env (Env headed As))
(_set Xs (expandAll Xs))
(_set Env OEnv)
Xs))
(_set expandFn
(_fn (Tag As Xs)
(_if ((tag_of As) is list)
(_if Tag
(list Tag As @(expandFn2 Env As Xs))
(list As @(expandFn2 Env As Xs)))
(expandFn As (Xs head) (Xs tail)))))
(_if A B C D)
(_set expand
(_fn (E)
(_if ((tag_of E) is list)
(_if (E end)
E
((_fn (Head Tail)
(_if (Head is _)
(_if (Tail end)
(error invalid builtin)
(expandBuiltin (Tail head) (Tail tail) Tail))
(expandNormal Head Tail))
) (E head) (E tail)))
E)))
(_set expandBuiltin
(_fn (X Xs Base)
(_if (X is _fn) (list _ X @(expandFn No (Xs head) (Xs tail)))
(_if (X is _if) (expandAll Base)
(_if (X is _quote) Base
(_if (X is _set) (expandAll Base)
(_if (X is _goto) (expandAll Base)
(_if (X is _show) (expandAll Base)
(error invalid builtin X)
))))))))
(_set expandNormal2
(_fn (F As)
((_fn (M)
(_if ((tag_of M) is macro)
(expand (list F @As))
(list F (expandAll As))))
(get_macro F))))
(_set expandNormal
(_fn (F As)
(_if (fn? F) //expand args before body
((_fn (As) (list (expand F) @As)) (expandAll As))
(applyMacro F As
&expand
(_fn ()
((_fn (F)
(_if ((tag_of F) is list)
(applyMacro (F head) (F tail)
(_fn (F) (expand (list F @As))))
(_fn () (list F @(expandAll As)))))
(expand F)))))))
Name:
Anonymous
2013-07-30 8:13
Working on a Scrolling shooter
Copied to pastebin, but it ruined my formatting because I use tab size=4 instead of 8...
http://pastebin.com/qSBuYHZw
Name:
Anonymous
2013-07-30 8:16
/* struct describing a single playing ADPCM voice */
struct YMZ280BVoice
{
UINT8 playing; /* 1 if we are actively playing */
UINT8 keyon; /* 1 if the key is on */
UINT8 looping; /* 1 if looping is enabled */
UINT8 mode; /* current playback mode */
UINT16 fnum; /* frequency */
UINT8 level; /* output level */
UINT8 pan; /* panning */
UINT32 start; /* start address, in nibbles */
UINT32 stop; /* stop address, in nibbles */
UINT32 loop_start; /* loop start address, in nibbles */
UINT32 loop_end; /* loop end address, in nibbles */
UINT32 position; /* current position, in nibbles */
NIBBLE MY ANUS
Name:
Anonymous
2013-07-30 10:58
>>5
What sort of retard gets affected by tab space size?
Name:
Anonymous
2013-07-30 11:07
Name:
Anonymous
2013-07-30 11:18
Touhou online roguelike ``in Lisp''.
Name:
Anonymous
2013-07-30 12:15
Name:
Anonymous
2013-07-30 13:13
Reported. All threads should pertain to a specific topic.