Action:
|
Determines if a Scheme object is a wire.
|
|
Filename:
|
kern/kern_scm/ent_scm.cxx
|
|
Syntax:
|
(wire? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
Description:
|
This extension returns
#t if the object is a wire; otherwise, it returns
#f. (Use
entity:wires to extract a list of wires from a wire body.)
|
|
|
object specifies the
scheme-object that has to be queried for a wire.
|
|
Example:
|
; wire?
|
|
; Create an edge.
|
|
(define edge1 (edge:circular
|
|
|
(position 0 0 0) 25 180 270))
|
|
;; edge1
|
|
; Check to see if the edge is a wire.
|
|
(wire? edge1)
|
|
;; #f
|
|
; Create a wire-body from the edge.
|
|
(define body1 (wire-body edge1))
|
|
;; body1
|
|
; Check to see if the wire-body is a wire.
|
|
(wire? body1)
|
|
;; #f
|
|
; Create a wire from the wire-body.
|
|
(define wires1 (entity:wires body1))
|
|
;; wires1
|
|
; Check to see if the wire is a wire.
|
|
(wire? (car wires1))
|
|
;; #t
|