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_PushASTStack.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_PushASTStack.sci')
| -rw-r--r-- | macros/ASTManagement/AST_PushASTStack.sci | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/macros/ASTManagement/AST_PushASTStack.sci b/macros/ASTManagement/AST_PushASTStack.sci new file mode 100644 index 0000000..34cd883 --- /dev/null +++ b/macros/ASTManagement/AST_PushASTStack.sci @@ -0,0 +1,36 @@ +function AST_PushASTStack(stackelement) +// function AST_PushASTStack(stackelement) +// ----------------------------------------------------------------- +// Push 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),1,1); + + +global SCI2CSTACK +global StackPosition; +global STACKDEDUG + +StackPosition = StackPosition + 1; +SCI2CSTACK(StackPosition,1) = stackelement; + +if (STACKDEDUG == 1) + AST_DisplayStack(); +end + +endfunction |