Skip to main content

Browse the archive

Revision 62fc2f7d6c41edcf685277a872c68e47a76fb254 authored by Dan Malec on 12 December 2020, 01:50:52 UTC, committed by Dan Malec on 14 December 2020, 02:13:28 UTC 
FEAT-CD: Initial pass at having a CD build.
 
* Add a workflow which builds candidate release artifacts for Linux, OSX, & Windows
* Cache wxWidgets builds for build speed and to not put load on their servers
* Cache download of inno installer to avoid putting load on their servers
* Create a development release
* Fixed compiler error that shows up on OSX CD machines
1 parent 7f090ac
Raw File
for 
;;; -*- logo -*-

.macro for :for.values :for.instr ~
   [:for.var first :for.values] ~
   [:for.initial run first bf :for.values] ~
   [:for.final run first bf bf :for.values] ~
   [:for.step forstep] ~
   [:for.tester (ifelse :for.step < 0 ~
                        [[:for.initial < :for.final]] ~
                        [[:for.initial > :for.final]])]
local :for.var
catch "for.catchtag [op for.done runresult [forloop :for.initial]]
op []
end

to forloop :for.initial
make :for.var :for.initial
if run :for.tester [throw "for.catchtag]
run :for.instr
.maybeoutput forloop (:for.initial + :for.step)
end

to for.done :for.result
if emptyp :for.result [op [stop]]
op (list "output "first (list first :for.result))
end

to forstep
if equalp count :for.values 4 [op run last :for.values]
op ifelse :for.initial > :for.final [-1] [1]
end

bury [for forstep forloop for.done]
back to top