/prog/ - Made in Lisp

Name: Anonymous 2011-03-17 8:32

X server in Common Lisp: https://github.com/pyb/zen

Name: Anonymous 2011-03-17 8:54

Common Lisp?
U MENA HASKAL

Name: Anonymous 2011-03-17 9:08

In just 5500 lines of Common Lisp.
Pff, It's a one liner in perl

Name: Anonymous 2011-03-17 9:12

>>3
But how many OPERATORS would that one liner contain‽

Name: Perlmer 2011-03-17 9:34

OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS OPERATORS

Name: Anonymous 2011-03-17 10:05

In just 5500 lines of Common Lisp.
What? I implemented a Warcraft 2 video game in 1500 lines of my Lisp DSL.

Name: Anonymous 2011-03-17 10:08

>>6
Anyway, the most complicated part was interfacing with SDL, because fucking lispbuilder-sdl sucks a big bloated cock, where I need simple framebuffer and audio routines.

Name: Anonymous 2011-03-17 10:11

>>6
Post code.

Name: Anonymous 2011-03-17 10:14

>>8



defineTileset name filename slots

 -> n:0 tiles:(Vector 4096) gfxes:(Vector 4096) mixes:[] bases:[]

    image:(loadFrames 32 32 filename)

    addTile:{t x -> map {i g -> aset n+i image,g gfxes

                             -> aset n+i t tiles}

                        [0..x.len] x

                 -> !n+16}

    slots |> fe

     {no -> !n+16

     ;[sc c @xs] -> t:["class"=c "sc"=sc "mask"=tileMasks.c]

                 -> sc.{lst?->[sc=n @!mixes]; _->[sc=n @!bases]}

                 -> map (addTile t ?) xs}

 -> tilesets.name =: ["name"=name "file"=filename "gfxes"=gfxes "tiles"=tiles

                      "bases"=bases "mixes"=mixes]

Name: Anonymous 2011-03-17 10:14

>>7
A frenchman? On my /prog/?

Name: Anonymous 2011-03-17 10:15

>>9
All 1500 lines I mean.

Name: Anonymous 2011-03-17 10:20

No!

Name: Anonymous 2011-03-17 10:36

>>9
["name"=name "file"=filename "gfxes"=gfxes "tiles"=tiles "bases"=bases "mixes"=mixes]
You could reduce it even further.

Name: Anonymous 2011-03-17 10:42

>>13
How?

Name: Anonymous 2011-03-17 11:29

>>1
>CANCEL DOWNLOAD

Name: Made in C 2011-03-17 13:22

>>15
>Segmentation fault

Name: Made in Java 2011-03-17 13:35

>>16
>CANCE^C^C^C^C^C^C^Z^CFUCKYOUFUCKYOU^C^C^C^C^C^CLDOWNLOAD

Name: Anonymous 2011-03-17 14:20

>>14

Cool jews?

Name: Anonymous 2011-03-17 14:24

>>38
bampu!

Name: Anonymous 2011-03-17 14:30

HASKELL

Name: Anonymous 2011-03-17 14:32

GCC complains about random shit sometimes - you might be including the wrong file from the library, or you might have an old version.

Name: Anonymous 2011-03-17 14:35

>>18
??? ????

Name: Anonymous 2011-03-17 15:03

>>1
Got any recommended implementation of Common Lisp to use with this?

Name: Anonymous 2011-03-17 15:15

>>23
INSTRUCTIONS :

You will need :
Linux.
A decent OpenGL driver, and therefore, unfortunately, a running X server :) (to create a GLX context)
SBCL with cl-opengl, CFFI, CLX, Skippy, CL-PPCRE, bordeaux-threads

SBCL

Name: Anonymous 2011-03-17 16:35

I support CL implementations of useful software, but doesn't
A decent OpenGL driver, and therefore, unfortunately, a running X server :) (to create a GLX context)
SBCL with cl-opengl, CFFI, CLX, Skippy, CL-PPCRE, bordeaux-threadskind of defeat the purpose of making an X server?

I suppose a non-X-based OpenGL implementation would remove this need.

Name: Anonymous 2011-03-17 19:01

>>8
Stfu n00b.
Prelude> 32.3 <=> ((30932022.0^23209320323340920432)/(30932022.0^23209320323340920432))
True

Made in Lisp

1 Name: Anonymous 2011-03-17 8:32

2 Name: Anonymous 2011-03-17 8:54

3 Name: Anonymous 2011-03-17 9:08

4 Name: Anonymous 2011-03-17 9:12

5 Name: Perlmer 2011-03-17 9:34

6 Name: Anonymous 2011-03-17 10:05

7 Name: Anonymous 2011-03-17 10:08

8 Name: Anonymous 2011-03-17 10:11

9 Name: Anonymous 2011-03-17 10:14

10 Name: Anonymous 2011-03-17 10:14

11 Name: Anonymous 2011-03-17 10:15

12 Name: Anonymous 2011-03-17 10:20

13 Name: Anonymous 2011-03-17 10:36

14 Name: Anonymous 2011-03-17 10:42

15 Name: Anonymous 2011-03-17 11:29

16 Name: Made in C 2011-03-17 13:22

17 Name: Made in Java 2011-03-17 13:35

18 Name: Anonymous 2011-03-17 14:20

19 Name: Anonymous 2011-03-17 14:24

20 Name: Anonymous 2011-03-17 14:30

21 Name: Anonymous 2011-03-17 14:32

22 Name: Anonymous 2011-03-17 14:35

23 Name: Anonymous 2011-03-17 15:03

24 Name: Anonymous 2011-03-17 15:15

25 Name: Anonymous 2011-03-17 16:35

26 Name: Anonymous 2011-03-17 19:01

Name: Anonymous 2011-03-17 8:32

Name: Anonymous 2011-03-17 8:54

Name: Anonymous 2011-03-17 9:08

Name: Anonymous 2011-03-17 9:12

Name: Perlmer 2011-03-17 9:34

Name: Anonymous 2011-03-17 10:05

Name: Anonymous 2011-03-17 10:08

Name: Anonymous 2011-03-17 10:11

Name: Anonymous 2011-03-17 10:14

Name: Anonymous 2011-03-17 10:14

Name: Anonymous 2011-03-17 10:15

Name: Anonymous 2011-03-17 10:20

Name: Anonymous 2011-03-17 10:36

Name: Anonymous 2011-03-17 10:42

Name: Anonymous 2011-03-17 11:29

Name: Made in C 2011-03-17 13:22

Name: Made in Java 2011-03-17 13:35

Name: Anonymous 2011-03-17 14:20

Name: Anonymous 2011-03-17 14:24

Name: Anonymous 2011-03-17 14:30

Name: Anonymous 2011-03-17 14:32

Name: Anonymous 2011-03-17 14:35

Name: Anonymous 2011-03-17 15:03

Name: Anonymous 2011-03-17 15:15

Name: Anonymous 2011-03-17 16:35

Name: Anonymous 2011-03-17 19:01