; dans cpp-decl (define (testf) (pretty-print (c-parse-one)))

(define (test1) (let ((x (parse 10))) (warning "expression lue:" x) (pretty-print (analyze-declaration x))))

(define-macro (c++pat a1 . a2)

(define-macro (c++patl a1 . a2)

(define-macro (c++pati a1 . a2)

(define (cpp-pattern c hd s) (reset-curchar) ; danger: perte d'un carac!

(c-parse-one)

(trad-file f1 f2)

; int (*tab[5])(); ; int *(*(*x) ())[10](); ; int a=3,*b=&a, (*b)(int**x,int(*)[]); ; int (*f(int))[] p.240 ; extern int f(), (*fp) (), (*apr[]) (double); p.134 ; void (*signal(int sig,void(*func) (int sig)) (int sig); p.241

; dans c-print1 (define (tt) ; test: analyse puis ecriture d'une declaration C ; impression de: forme analysee

(define (d-expr x c) (pform x c #f))

(define (d-decl-sc x c) (define (d-decl x c)

; avec c2scheme.scm

(expr->scheme x)

(instr->scheme x)

(parse-instruction)

(parse-1i)

(trad-i)

(trad-i-file f1 f2)