diff options
| author | Sandeep Gupta | 2017-06-18 23:55:40 +0530 |
|---|---|---|
| committer | Sandeep Gupta | 2017-06-18 23:55:40 +0530 |
| commit | 277d1edfa17bf3719d90ddbac8e31f6181e952c3 (patch) | |
| tree | 0661f1f52af0a0fd654edd4984c30e57037303c6 /macros/ASTManagement/AST_PopASTStack.sci | |
| download | Scilab2C_fossee_old-277d1edfa17bf3719d90ddbac8e31f6181e952c3.tar.gz Scilab2C_fossee_old-277d1edfa17bf3719d90ddbac8e31f6181e952c3.tar.bz2 Scilab2C_fossee_old-277d1edfa17bf3719d90ddbac8e31f6181e952c3.zip | |
First commit
Diffstat (limited to 'macros/ASTManagement/AST_PopASTStack.sci')
| -rw-r--r-- | macros/ASTManagement/AST_PopASTStack.sci | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/macros/ASTManagement/AST_PopASTStack.sci b/macros/ASTManagement/AST_PopASTStack.sci new file mode 100644 index 0000000..3485749 --- /dev/null +++ b/macros/ASTManagement/AST_PopASTStack.sci @@ -0,0 +1,40 @@ +function stackelement = AST_PopASTStack() +// function stackelement = AST_PopASTStack() +// ----------------------------------------------------------------- +// Pop the AST stack. +// +// Input data: +// --- +// +// Output data: +// //NUT: add description here +// +// Status: +// 11-Aug-2007 -- Raffaele Nutricato: Author. +// +// Copyright 2007 Raffaele Nutricato. +// Contact: raffaele.nutricato@tiscali.it +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),0,0); + +global SCI2CSTACK; +global StackPosition; +global STACKDEDUG; + +if StackPosition == 1 + error(9999, 'Stack empty. Cannot pop from stack.'); +end + +stackelement = SCI2CSTACK(StackPosition,1); +SCI2CSTACK = SCI2CSTACK(1:StackPosition-1); +StackPosition = StackPosition - 1; + +if (STACKDEDUG == 1) + AST_DisplayStack(); +end + +endfunction |