lagagain

(easy-menu-define testmenu nil "Test Menu" '(("Hello") ("abc") ("def")))

(windowp
 (get-buffer-window "*Messages*"))

(x-popup-menu `((0 0) ,(get-buffer-window "*Messages*")) testmenu)
(x-popup-menu `((0 0) ,(get-buffer-window)) testmenu)

lagagain

#include "hello.h"
#include<Python.h>

using namespace std;

extern "C"{
  static PyObject *_hello(PyObject *self, PyObject *args){
    hello();
    return self;
  }

lagagain

#include "lua.h"
#include "lauxlib.h"

#include<stdio.h>
#include<stdlib.h>

int l_bar0(lua_State *L){
    printf("----------- in the bar0 ---------------\n");
    printf("----------- out the bar0 ---------------\n\n");
    return 0;

lagagain

(defun send-region-to-term nil
  (interactive)
  (send-string "*terminal*" (buffer-substring-no-properties (region-beginning) (region-end)))
  (send-string "*terminal*" "\n"))

(local-set-key (kbd "C-c C-r")
               'send-region-to-term)

lagagain

This is a practice project to test Common Lisp + C with CFFI.

CFFI is a protocal for common lisp, and most popular impl like sbcl,ccl,cmucl,ecl and abcl have to this. So We can eazy to access C code from Common Lisp.

Env need

just only write for Linux(Unix) and need a lisp impl with cffi package. I pratice it with sbcl. You can install it with Roswell, or you can also ues more friendly env - cl-repl which also can install by roswell.

• OS: Linux(Unix)
• A Common lisp impl with cffi

lagagain

;;(ql:quickload :fiveam)
(require :fiveam)

(defpackage try-fiveam
  (:use :cl)
  (:import-from :fiveam test run run! def-suite is))

(in-package try-fiveam)

(test test+

lagagain

(define-condition div-by-zero ()
  ((message :initarg :message
            :accessor message
            :initform ""
            :type 'string))
  (:report (lambda (c s) (format s "Can not div by zero: ~A~&" (message c)))))

(defun prompt (message)
  (format t message)
  (read))

lagagain

Copyright (c) 2018, lagagain 
All rights reserved. 

Redistribution and use in source and binary forms, with or without 
modification, are permitted provided that the following conditions are met: 

 * Redistributions of source code must retain the above copyright notice, 
   this list of conditions and the following disclaimer. 
 * Redistributions in binary form must reproduce the above copyright 
   notice, this list of conditions and the following disclaimer in the 

lagagain

These files flow BSD-3
- init-local.el

Copyright (c) 2018, lagagain 
All rights reserved. 

Redistribution and use in source and binary forms, with or without 
modification, are permitted provided that the following conditions are met: 

 * Redistributions of source code must retain the above copyright notice, 

lagagain

(set-dispatch-macro-character #\# #\o
 (lambda (s c1 c2)
   (declare (ignore c1 c2))
   (let* ((form (read s))
          (obj (car form))
          (method (cadr form))
          (args (cddr form)))
     `(,method ,obj ,@args))))
           
(defmethod run ((name string))