#lang racket

(module proc-module racket
  (provide make-stx)

  (define (make-stx) #''i-am-syntax)
  
  )


(require (for-syntax 'proc-module))

(define-syntax (transformer stx) (make-stx))

(transformer)

quote: unbound identifier;
 also, no #%app syntax transformer is bound
  at: quote
  in: (quote i-am-syntax)

#lang racket


(module proc-module racket
  (provide (for-syntax make-stx))

  (define-for-syntax (make-stx) #''i-am-syntax)
  
  )


(require 'proc-module)

(define-syntax (transformer stx) (make-stx))

(transformer)

#lang racket

(define-syntax (suffixify stx)
  (syntax-case stx ()
    [(_ sym suffix)
     (let ([id (string->symbol (format "~a~a"
                                       (syntax->datum #'sym)
                                       (syntax->datum #'suffix)))])
       
       #`(define #,id 'something))]))

;; (suffixify wtf ?)
;; wtf? => 'something

#lang racket

(require (lib "parsack"))

(define $sep (char #\ ))

(define $cell (many1 $anyChar))

(define $cells (parser-cons $cell $rest))

(define $rest (<or> (parser-cons $sep $cells)
                    (return null)))

(parse-result $cells "asd asdf")

'((#\a #\s #\d) #\space (#\a #\s #\d #\f))

[1 2 3 4 5]

[2 3 4 5 6]

def fib1(n):
    a, b = 0, 1
    for _ in range(n):
        a, b = b, a + b
    return a

def fib2(n):
    if n < 2:
        return n
    return fib2(n-1) + fib2(n-2)

#include "arth.h"

static PyObject* add(PyObject* self, PyObject* args) {
    int a, b;

    if (!PyArg_ParseTuple(args, "ii", &a, &b))
	return NULL;
    
    return Py_BuildValue("(i)", a+b);
}

#include "arth.h"

static PyObject* add(PyObject* self, PyObject* args) {
    int a, b;

    if (!PyArg_ParseTuple(args, "ii", &a, &b))
	return NULL;
    
    return Py_BuildValue("(i)", a*b);
}

#include <Python.h>

static PyObject* add(PyObject* self, PyObject* args);
static PyObject* mult(PyObject* self, PyObject* args);

#include "arth.h"

static PyMethodDef ArthMethods[] = {
    {"add", add, METH_VARARGS, "a + b"},
    {"mult", mult, METH_VARARGS, "a * b"},
    {NULL, NULL, 0, NULL}
};

static struct PyModuleDef arth_module = {
    PyModuleDef_HEAD_INIT,
    "arth",   
    NULL, 
    -1,       
    ArthMethods
};
 
PyMODINIT_FUNC PyInit_arth(void)
{
    return PyModule_Create(&arth_module);
}

from distutils.core import setup, Extension

module1 = Extension('acc',
                    sources=['cext/add.c',
                             'cext/mult.c',
                             'cext/arth.c'])

setup(ext_modules = [module1])

python3 setup.py build_ext --inplace
running build_ext
building 'acc' extension
gcc -pthread -Wno-unused-result -DNDEBUG -g -fwrapv -O3 -Wall -Wstrict-prototypes -fPIC -I/usr/local/include/python3.3m -c cext/add.c -o build/temp.linux-i686-3.3/cext/add.o
cext/add.c:3:18: warning: ‘add’ defined but not used [-Wunused-function]
cext/arth.h:4:18: warning: ‘mult’ declared ‘static’ but never defined [-Wunused-function]
gcc -pthread -Wno-unused-result -DNDEBUG -g -fwrapv -O3 -Wall -Wstrict-prototypes -fPIC -I/usr/local/include/python3.3m -c cext/mult.c -o build/temp.linux-i686-3.3/cext/mult.o
cext/mult.c:3:18: warning: ‘add’ defined but not used [-Wunused-function]
cext/arth.h:4:18: warning: ‘mult’ declared ‘static’ but never defined [-Wunused-function]
gcc -pthread -Wno-unused-result -DNDEBUG -g -fwrapv -O3 -Wall -Wstrict-prototypes -fPIC -I/usr/local/include/python3.3m -c cext/arth.c -o build/temp.linux-i686-3.3/cext/arth.o
cext/arth.h:3:18: warning: ‘add’ used but never defined [enabled by default]
cext/arth.h:4:18: warning: ‘mult’ used but never defined [enabled by default]
gcc -pthread -shared build/temp.linux-i686-3.3/cext/add.o build/temp.linux-i686-3.3/cext/mult.o build/temp.linux-i686-3.3/cext/arth.o -o /home/username/some-dir/acc.cpython-33m.so

Compilation finished at Sat Nov 16 19:04:00

import acc
print(acc.add(1,2))

----> 1 import acc
      2 print(acc.add(1,2))
      3 

ImportError: ./acc.cpython-33m.so: undefined symbol: add