From 30472052edf39bba5ec5b4764354ebd929181fe6 Mon Sep 17 00:00:00 2001 From: Vladimir Zhbanov Date: Wed, 27 Sep 2023 22:42:49 +0300 Subject: [PATCH] sch2pcb: Make three variable setters available in Scheme. --- liblepton/scheme/lepton/ffi/sch2pcb.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/liblepton/scheme/lepton/ffi/sch2pcb.scm b/liblepton/scheme/lepton/ffi/sch2pcb.scm index bc58b6de83..0649c7cc03 100644 --- a/liblepton/scheme/lepton/ffi/sch2pcb.scm +++ b/liblepton/scheme/lepton/ffi/sch2pcb.scm @@ -58,8 +58,11 @@ sch2pcb_increment_verbose_mode sch2pcb_insert_element sch2pcb_get_n_empty + sch2pcb_set_n_empty sch2pcb_get_n_none + sch2pcb_set_n_none sch2pcb_get_n_unknown + sch2pcb_set_n_unknown sch2pcb_parse_schematics sch2pcb_get_pcb_element_list sch2pcb_pcb_element_list_append @@ -109,8 +112,11 @@ (define-lff sch2pcb_increment_verbose_mode void '()) (define-lff sch2pcb_insert_element int '(* * * * *)) (define-lff sch2pcb_get_n_empty int '()) +(define-lff sch2pcb_set_n_empty void (list int)) (define-lff sch2pcb_get_n_none int '()) +(define-lff sch2pcb_set_n_none void (list int)) (define-lff sch2pcb_get_n_unknown int '()) +(define-lff sch2pcb_set_n_unknown void (list int)) (define-lff sch2pcb_parse_schematics '* '(*)) (define-lff sch2pcb_get_pcb_element_list '* '()) (define-lff sch2pcb_pcb_element_list_append void '(*))