Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
;;; -*-scheme-*-
|
|
|
|
|
|
2018-07-22 13:24:36 +01:00
|
|
|
|
;;; GNU Mes --- Maxwell Equations of Software
|
2017-11-21 18:22:26 +00:00
|
|
|
|
;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
;;;
|
2018-07-22 13:24:36 +01:00
|
|
|
|
;;; This file is part of GNU Mes.
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
;;;
|
2018-07-22 13:24:36 +01:00
|
|
|
|
;;; GNU Mes is free software; you can redistribute it and/or modify it
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
|
;;; your option) any later version.
|
|
|
|
|
;;;
|
2018-07-22 13:24:36 +01:00
|
|
|
|
;;; GNU Mes is distributed in the hope that it will be useful, but
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
|
;;;
|
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
2018-07-22 13:24:36 +01:00
|
|
|
|
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
2016-12-23 19:09:57 +00:00
|
|
|
|
;;; Implement core functionality that depends on implementation
|
|
|
|
|
;;; specifics of Mes cell types.
|
|
|
|
|
|
2016-12-23 17:05:45 +00:00
|
|
|
|
;;; Code:
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(define cell:type-alist
|
2018-11-11 15:25:36 +00:00
|
|
|
|
(list (cons <cell:bytes> (quote <cell:bytes>))
|
|
|
|
|
(cons <cell:char> (quote <cell:char>))
|
2016-12-23 17:48:36 +00:00
|
|
|
|
(cons <cell:closure> (quote <cell:closure>))
|
2016-12-28 21:04:57 +00:00
|
|
|
|
(cons <cell:continuation> (quote <cell:continuation>))
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(cons <cell:keyword> (quote <cell:keyword>))
|
|
|
|
|
(cons <cell:macro> (quote <cell:macro>))
|
|
|
|
|
(cons <cell:number> (quote <cell:number>))
|
|
|
|
|
(cons <cell:pair> (quote <cell:pair>))
|
|
|
|
|
(cons <cell:ref> (quote <cell:ref>))
|
|
|
|
|
(cons <cell:special> (quote <cell:special>))
|
|
|
|
|
(cons <cell:string> (quote <cell:string>))
|
2018-10-13 16:34:27 +01:00
|
|
|
|
(cons <cell:struct> (quote <cell:struct>))
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(cons <cell:symbol> (quote <cell:symbol>))
|
|
|
|
|
(cons <cell:values> (quote <cell:values>))
|
2017-12-09 07:33:50 +00:00
|
|
|
|
(cons <cell:variable> (quote <cell:variable>))
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(cons <cell:vector> (quote <cell:vector>))
|
|
|
|
|
(cons <cell:broken-heart> (quote <cell:broken-heart>))))
|
|
|
|
|
|
|
|
|
|
(define (cell:type-name x)
|
|
|
|
|
(cond ((assq (core:type x) cell:type-alist) => cdr)))
|
2016-10-23 09:08:04 +01:00
|
|
|
|
|
2018-11-11 15:25:36 +00:00
|
|
|
|
(define (bytes? x)
|
|
|
|
|
(eq? (core:type x) <cell:bytes>))
|
|
|
|
|
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(define (char? x)
|
2018-01-04 20:36:46 +00:00
|
|
|
|
(and (eq? (core:type x) <cell:char>)
|
2018-01-25 06:00:48 +00:00
|
|
|
|
(> (char->integer x) -1)))
|
2018-01-04 20:36:46 +00:00
|
|
|
|
|
|
|
|
|
(define (eof-object? x)
|
|
|
|
|
(and (eq? (core:type x) <cell:char>)
|
|
|
|
|
(= (char->integer x) -1)))
|
2016-10-23 09:08:04 +01:00
|
|
|
|
|
2016-12-23 17:48:36 +00:00
|
|
|
|
(define (closure? x)
|
|
|
|
|
(eq? (core:type x) <cell:closure>))
|
|
|
|
|
|
2016-12-28 21:04:57 +00:00
|
|
|
|
(define (continuation? x)
|
|
|
|
|
(eq? (core:type x) <cell:continuation>))
|
|
|
|
|
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(define (keyword? x)
|
|
|
|
|
(eq? (core:type x) <cell:keyword>))
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(define (macro? x)
|
|
|
|
|
(eq? (core:type x) <cell:macro>))
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(define (number? x)
|
|
|
|
|
(eq? (core:type x) <cell:number>))
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
2018-04-29 16:48:38 +01:00
|
|
|
|
(define (port? x)
|
|
|
|
|
(eq? (core:type x) <cell:port>))
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
2020-11-01 15:09:27 +00:00
|
|
|
|
(define (procedure? p)
|
|
|
|
|
(and (or (builtin? p)
|
|
|
|
|
(and (pair? p) (eq? (car p) 'lambda))
|
|
|
|
|
(closure? p))
|
|
|
|
|
#t))
|
|
|
|
|
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(define (special? x)
|
|
|
|
|
(eq? (core:type x) <cell:special>))
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
|
|
|
|
(define (string? x)
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(eq? (core:type x) <cell:string>))
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
2018-10-13 16:34:27 +01:00
|
|
|
|
(define (struct? x)
|
|
|
|
|
(eq? (core:type x) <cell:struct>))
|
|
|
|
|
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
(define (symbol? x)
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(eq? (core:type x) <cell:symbol>))
|
|
|
|
|
|
|
|
|
|
(define (values? x)
|
|
|
|
|
(eq? (core:type x) <cell:values>))
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
|
2017-12-09 07:33:50 +00:00
|
|
|
|
(define (variable? x)
|
|
|
|
|
(eq? (core:type x) <cell:variable>))
|
|
|
|
|
|
|
|
|
|
(define (variable-global? x)
|
|
|
|
|
(core:cdr x))
|
|
|
|
|
|
Move optional type predicates to type.c.
* mes.c (char_p, macro_p, number_p, pair_p, string_p, symbol_p,
vector_p, builtin_p, boolean_p): Move to type.c
* type.c: New file.
* GNUmakefile (mes.o): Depend on type snarf output.
* module/mes/loop-0.mes (cond, map, let, or, and not, evlis-env,
apply-env, eval-expand, uquote, add-unquoters, eval,
expand-macro-env, eval-begin-env, eval-if-env, sexp:define,
env:define, env:macro): Move to mes-0.mes.
* module/mes/mes-0.mes: New file.
* module/mes/type-0.mes: New file.
* scripts/include.mes: If BOOT, also include mes-0.mes. If TYPE0,
also include type-0.mes.
2016-10-22 11:16:19 +01:00
|
|
|
|
(define (vector? x)
|
2016-12-23 17:05:45 +00:00
|
|
|
|
(eq? (core:type x) <cell:vector>))
|
|
|
|
|
|
2018-11-11 15:25:36 +00:00
|
|
|
|
(define (broken-heart? x)
|
|
|
|
|
(eq? (core:type x) <cell:broken-heart>))
|
2016-12-23 17:05:45 +00:00
|
|
|
|
|
|
|
|
|
(define (atom? x)
|
|
|
|
|
(not (pair? x)))
|
|
|
|
|
|
|
|
|
|
(define (boolean? x)
|
|
|
|
|
(or (eq? x #f) (eq? x #t)))
|
2016-12-23 19:09:57 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; core: accessors
|
2016-12-23 19:56:37 +00:00
|
|
|
|
(define (string . lst)
|
2018-11-11 15:25:36 +00:00
|
|
|
|
(list->string lst))
|
2016-12-23 21:48:27 +00:00
|
|
|
|
|
2018-11-11 15:25:36 +00:00
|
|
|
|
(define (keyword->list s)
|
|
|
|
|
(string->list (keyword->string s)))
|
2018-02-03 20:43:52 +00:00
|
|
|
|
|
2016-12-23 21:48:27 +00:00
|
|
|
|
(define (symbol->list s)
|
2018-11-11 15:25:36 +00:00
|
|
|
|
(string->list (symbol->string s)))
|