mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-18 16:51:51 +03:00
Insert @generated marker into generated Scheme files
* `@generated` is a marked used by Phabricator to mark generated files, any other marker would do * it's easier to explore source tree when it's clear which files are sources and which are generated
This commit is contained in:
parent
dcf4c88e8c
commit
ac329c337c
@ -71,6 +71,7 @@ escapeString s = pack $ foldr escape [] $ unpack s
|
||||
schHeader : String -> List String -> String
|
||||
schHeader chez libs
|
||||
= (if os /= "windows" then "#!" ++ chez ++ " --script\n\n" else "") ++
|
||||
"; @generated\n" ++
|
||||
"(import (chezscheme))\n" ++
|
||||
"(case (machine-type)\n" ++
|
||||
" [(i3le ti3le a6le ta6le) (load-shared-object \"libc.so.6\")]\n" ++
|
||||
|
@ -39,7 +39,8 @@ findGSC =
|
||||
pure $ fromMaybe "/usr/bin/env gsc" env
|
||||
|
||||
schHeader : String
|
||||
schHeader = "(declare (block)
|
||||
schHeader = "; @generated\n
|
||||
(declare (block)
|
||||
(inlining-limit 450)
|
||||
(standard-bindings)
|
||||
(extended-bindings)
|
||||
|
@ -40,6 +40,7 @@ findRacoExe =
|
||||
schHeader : String -> String
|
||||
schHeader libs
|
||||
= "#lang racket/base\n" ++
|
||||
"; @generated\n" ++
|
||||
"(require racket/math)\n" ++ -- for math ops
|
||||
"(require racket/system)\n" ++ -- for system
|
||||
"(require rnrs/bytevectors-6)\n" ++ -- for buffers
|
||||
|
Loading…
Reference in New Issue
Block a user