From b94b500bffe93d1c6779766a169eb94bf6d740e6 Mon Sep 17 00:00:00 2001 From: jofret Date: Tue, 5 May 2009 07:38:19 +0000 Subject: Rename file so that function name match file name. --- macros/ASTManagement/AST_PopASTStack.sci | 40 ++++++++++++++++++++++++++++++ macros/ASTManagement/AST_PopSCI2CStack.sci | 40 ------------------------------ 2 files changed, 40 insertions(+), 40 deletions(-) create mode 100644 macros/ASTManagement/AST_PopASTStack.sci delete mode 100644 macros/ASTManagement/AST_PopSCI2CStack.sci diff --git a/macros/ASTManagement/AST_PopASTStack.sci b/macros/ASTManagement/AST_PopASTStack.sci new file mode 100644 index 00000000..bff1d9fa --- /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 + SCI2Cerror('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 diff --git a/macros/ASTManagement/AST_PopSCI2CStack.sci b/macros/ASTManagement/AST_PopSCI2CStack.sci deleted file mode 100644 index bff1d9fa..00000000 --- a/macros/ASTManagement/AST_PopSCI2CStack.sci +++ /dev/null @@ -1,40 +0,0 @@ -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 - SCI2Cerror('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 -- cgit