Carp/examples/temp.carp

64 lines
1.0 KiB
Plaintext
Raw Normal View History

2018-05-31 18:34:03 +03:00
;; (Debug.sanitize-addresses)
;; (Project.config "print-ast" true)
;; (doc f "This function will return 123.")
;; (sig f (Fn [] Int))
;; (defn f [] 123)
;; (defmodule Foo
;; (doc f "This is an evil function.")
;; (defn f [] 666)
;; (hidden h)
;; (defn h [] @"trash")
;; (defn g [] 10000))
;; (doc Foo.g "The 10000 dollar function, annotated from afar.")
2018-03-27 15:32:47 +03:00
;; (Project.config "docs-directory" "./out/")
;; (Project.config "title" "Temp")
2018-03-27 15:32:47 +03:00
;; (save-docs Foo)
;;; Hide docs for deps
;; (defmodule Abc
;; (defn a [] 123)
;; (hidden b)
;; (defn b [] 123.0)
;; (defn c [x] x)
;; (defn d []
;; (c 123))
;; (defn e []
;; (c @"hej"))
;; )
;; (Project.config "docs-directory" "./out/")
;; (Project.config "title" "ABC")
;; (save-docs Abc)
2018-05-31 18:34:03 +03:00
;; (sig foo String)
;; (def foo 123)
2018-06-01 10:42:02 +03:00
;; PRIVATE
;; (load "Macros.carp")
;; ;; (load "Int.carp")
;; ;; (load "Char.carp")
;; ;; (load "IO.carp")
;; (defmodule A
;; (private f)
;; (defn f [] 127)
;; ;;(defn g [] (f))
;; )
;; (defn amam []
;; (A.f))
;; (use A)
;; (defn main []
;; (f))