File: hello.scm

package info (click to toggle)
gauche-c-wrapper 0.5.4-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 3,892 kB
  • ctags: 2,869
  • sloc: ansic: 14,863; sh: 14,017; lisp: 6,822; asm: 6,456; makefile: 541; exp: 194; cpp: 157; objc: 144; perl: 2
file content (12 lines) | stat: -rw-r--r-- 227 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(use c-wrapper)

(c-load-library "libc")
(c-include "stdio.h")

(define (main args)
  (let ((fp (fopen "greeting.txt" "w")))
    (fprintf fp "Hello, %s\n" "world")
    (fclose fp))

  (printf "greeting.txt is created.\n")
  0)