//MACRO CheckNest //-------------------------------------------------------------------------------------------------- // // @ CopyRight Roberti & Parau Enterprises, Inc. 2021-2023 // // This work is licensed under the Creative Commons Attribution-NoDerivatives 4.0 International License. // To view a copy of this license, visit http://creativecommons.org/licenses/by-nd/4.0/ // or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA. // //-------------------------------------------------------------------------------------------------- // if (Label !== "") DVASM.putError("Label is not allowed for this macro"); var nestStack= DVASM.getJSGlobal("__arch_condNestBlockStack"); if (nestStack == null || nestStack.length == 0) return DVASM.putInfo("Nest stack is empy"); DVASM.putInfo("--- List of nest blocks from outer-most to inner-most"); DVASM.putInfo(" Type Label where defined"); for (var i= 0; i < nestStack.length; i ++) { var stackEntry= nestStack[i]; DVASM.putInfo(" " + stackEntry[0].padEnd(13) + stackEntry[1]); } DVASM.putInfo("--- End of nest blocks list");