https://github.com/jrincayc/ucblogo-code
Revision 83cc26c4471bbf5be58589e2f43a4caba6b98469 authored by Joshua J. Cogliati on 26 December 2019, 17:49:01 UTC, committed by Joshua J. Cogliati on 26 December 2019, 17:50:26 UTC
1 parent 750ff0d
Tip revision: 83cc26c4471bbf5be58589e2f43a4caba6b98469 authored by Joshua J. Cogliati on 26 December 2019, 17:49:01 UTC
Adding source code to windows install
Adding source code to windows install
Tip revision: 83cc26c
case
;;; -*- logo -*-
.macro case :case.value :case.clauses [:caseignoredp "true]
catch "case.error [output case.helper :case.value :case.clauses]
(throw "error [Empty CASE clause])
end
to case.helper :case.value :case.clauses
if emptyp :case.clauses [output []]
if emptyp first :case.clauses [throw "case.error]
if or equalp first first :case.clauses "else ~
memberp :case.value first first :case.clauses ~
[output butfirst first :case.clauses]
output case.helper :case.value butfirst :case.clauses
end
bury [case case.helper]
Computing file changes ...