chebert

(defpackage :pacman
  (:use :cl))

(in-package :pacman)

;;; The charms/ll library contains all of the FFI bindings to Ncurses.
(ql:quickload :cl-charms)

;;; Here are all of the functions I'll be using from Ncurses.
(import '(

chebert

(cl:defpackage #:pipe-client
  (:use #:cl))

(in-package #:pipe-client)

;;; Create/Close pipe
(defun create-pipe-client! (pipe-filename)
  "Creates a pipe-client with the given pipe-filename.
Returns a valid pipe handle or signals an error.
Assumes a pipe-server is already open with the same pipe-filname."

chebert

#ifndef RUN_PIPE_SERVER_H
#define RUN_PIPE_SERVER_H

#include <stdint.h>

#ifndef REQUEST_BUFFER_SIZE
#define REQUEST_BUFFER_SIZE (1024*1024*128)
#endif

#ifndef RESPONSE_BUFFER_SIZE

chebert

#include "run_pipe_server.h"

#include <windows.h>
#include <stdio.h>

// Create a named pipe with the given pipe_filename.
static Pipe CreateServerPipe(String pipe_filename);
// Wait for a client connection to pipe.
static b4 ConnectPipe(Pipe);
// Loop that processes and responds to client requests from Pipe, until the client disconnects.

chebert

;;; Slime/Swank Setup

(defun multiline? (string)
  "True if the string has multiple lines."
  (position ?\n string))

(defun multiline-comment (string)
  "Return string formatted as a multi-line Lisp comment"
  (concat "#||\n" string "\n||#\n"))

chebert

/* Folder structure
 workspace
   |- build.bat   -- listing below
   |- Glew dlls
   |- SDL2 dlls
   |- include\
         |- SDL2\ -- SDL2 header files
         |- GL\   -- Glew header files
   |- lib\
         |- Glew libs

chebert

LICENSE-CC-BY-4.0.md

UNLESS OTHERWISE NOTED, THE CONTENTS OF THESE PUBLIC GISTS ARE LICENSED UNDER THE CREATIVE COMMONS ATTRIBUTION 4.0 INTERNATIONAL LICENSE.

License Summary of CC-BY 4.0 International

This section is a human-readable summary of (and not a substitute for) the full license included below.

chebert

(defun make-vector (length elt) (make-array length :initial-element elt))
(defun vector-elt (vec i) (aref vec i))
(defun vector-set! (vec i elt) (setf (aref vec i) elt))

(defun matrix (m n vec) (list m n vec))
(defun matrix-m (m) (first m))
(defun matrix-n (m) (second m))
(defun matrix-vec (m) (third m))

(defun num-elements (m n)

chebert

/*
map ,g :!clang -DDEBUG % -o %:r -lncurses && ./%:r <CR>

gcc pacman.c -o pacman -lncurses
./pacman
 */

/*
 * TODO
 * minor: ghosts should go all the way to their bottom positions (TILE_CENTER)

chebert

/*
map ,g :!gcc % -o %:r -lncurses && ./%:r <CR>

gcc freecell.c -o freecell -lncurses
./freecell
 */

#include <assert.h>
#include <stdint.h>
#include <ncurses.h>