!Stack

About

The following is an experiment to create a pseudo stack implementation for use within a precompiler context.

Usage

Example

;!define !Stack_AllowRedefine
;!define !Stack_Delimiter ¤
!include "!Stack.nsh"
 
${!Push} TestStack 0            # Stack(TestStack): 0 
${!Push} TestStack 1            # Stack(TestStack): 1 0
${!Push} TestStack 2            # Stack(TestStack): 2 1 0
${!Push} TestStack 3            # Stack(TestStack): 3 2 1 0
${!Push} TestStack 4            # Stack(TestStack): 4 3 2 1 0
 
${!Exch} TestStack 1            # Stack(TestStack): 3 4 2 1 0
 
!define  ValueTmp 5
${!Exch} TestStack ValueTmp     # Stack(TestStack): 5 4 2 1 0
${!Push} TestStack ${ValueTmp}  # Stack(TestStack): 3 5 4 2 1 0
 
${!Exch} TestStack 2            # Stack(TestStack): 4 5 3 2 1 0
${!Exch} TestStack 1            # Stack(TestStack): 5 4 3 2 1 0
 
${!Pop}  TestStack Value5       # Stack(TestStack): 4 3 2 1 0
${!Pop}  TestStack Value4       # Stack(TestStack): 3 2 1 0
${!Peek} TestStack Value3       # Stack(TestStack): 3 2 1 0
${!Pop}  TestStack Value3       # Stack(TestStack): 2 1 0
${!Pop}  TestStack Value2       # Stack(TestStack): 1 0
${!Pop}  TestStack Value1       # Stack(TestStack): 0
${!Pop}  TestStack Value0       # Stack(TestStack): EMPTY
;${!Pop}  TestStack ValueE       # Stack(TestStack): ERROR! Stack is Empty!
 
!echo `5=${Value5}`
!echo `4=${Value4}`
!echo `3=${Value3}`
!echo `2=${Value2}`
!echo `1=${Value1}`
!echo `0=${Value0}`
;!echo `E=${ValueE}`

Source

<highlight-nsis>## !include "!Stack.nsh"

!verbose push !verbose 0

!ifndef ___!Stack_NSH___ !define ___!Stack_NSH___

/*#### PreCompiler Stack #########################################################################

   The following is a Psudo Stack implementation for use within a precompiler context.
   This may be useful when attempting to process across #includes.
   Imagine allowing a precompiler to know when a previous macro has enabled a feature ect.
   Be creative and use your imagination.  I'm sure you'll think of somethng.  ;o)
   
   FUNCTIONS:
       ${!Push}
       ${!Pop}
       ${!Peek}
       ${!Exch}
       
   FLAGS:
       !Stack_Delimiter
       !Stack_AllowRedefine
   
   As a possible guideline, I recommend using the intended library's filename.
       EXAMPLE:
           ${!Push} !Stack.nsh "Value to Store"
       
   Future Enhancments:
       * Expand the !Exch stack_index range beyond 13
           If I could implement a !For !Loop it would make this a snap!
       * Add commands:
           !Flush - Use to remove a certian number of elements from the stack

1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. */

/*#### Defines the Stack Delimiter ########

   You can change this to suite your needs.
   EXAMPLE:
    If you want to change the delimiter to a comma use...
       !define !Stack_Delimiter ,

1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. */

       !ifndef !Stack_Delimiter
           !define !Stack_Delimiter ¤
       !endif
       

/*#### Allows for Redefinition ############

   By default, if a define previously exists then a compiler time error will occur.
   Add this flag to enable automatic redefines to prevent this error.

1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. */

!define !Stack_AllowRedefine

/*#### !Push ##############################

      Usage:
      ------
       ${!Push} stackName value
       
       This command will Push a value onto a stack named "stackName".
       
      Example:
      --------
       ${!Push} ExampleStack "5"
       ${!Pop}  ExampleStack MyValue
       !Echo "${MyValue}"
       ;!echo: 5
      

1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. */

       !define !Push `!insertmacro _!Push`
       !macro _!Push _StackName _Value
           !verbose push
           !verbose 2
           !ifndef `_Stack_${_StackName}`
               ## First refereance to stack
                   !define `_Stack_${_StackName}` `${_Value}${!Stack_Delimiter}`
                   !define `_Stack_${_StackName}_Size` 0
           !else
               ## Push Value onto stack
                   !define _tmp_Stack `${_Value}${!Stack_Delimiter}${_Stack_${_StackName}}`
                   !undef `_Stack_${_StackName}`
                   !define `_Stack_${_StackName}` `${_tmp_Stack}`
                   !undef _tmp_Stack
               
               ## Increment Stack Size Counter
                   !define /math _tmp_Stack `${_Stack_${_StackName}_Size}` + 1
                   !undef `_Stack_${_StackName}_Size`
                   !define `_Stack_${_StackName}_Size` `${_tmp_Stack}`
                   !undef _tmp_Stack
           !endif
           !verbose pop
           ;!warning `STACK= ${_Stack_${_StackName}}`
       !macroend
       

/*#### !Pop ###############################

      Usage:
      ------
       ${!Pop} stackName gflag
       
       This command will Pop a value from the stack named "stackName".  The popped value will be defined as "gflag".  If "gflag" allready exists then it will be replaced without errors.
       
      Example:
      --------
       ${!Push} ExampleStack "5"
       ${!Pop}  ExampleStack MyValue
       !Echo "${MyValue}"
       ;!echo: 5
       

1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. */

       !define !Pop `!insertmacro _!Pop`
       !macro _!Pop _StackName _RetDef
           !verbose push
           !verbose 2
           
           !ifndef `_Stack_${_StackName}`
               !error `Requested stack dosn't exist: StackName=${_StackName}`
           !else if `${_Stack_${_StackName}}` == ``
               !error `Stack is Empty: StackName=${_StackName}`
           !else if `${_Stack_${_StackName}_Size}` < 0
               !error `Not enough stack elements to handle request: !Pop ${_RetDef}$\nStack Name=${_StackName}$\nStack Size=${_Stack_${_StackName}_Size}+1`
           !endif
           
           ${!Peek} `${_StackName}` `${_RetDef}`
           
           !undef `_Stack_${_StackName}`
           !define `_Stack_${_StackName}` `${_tmp_Stack}`
           !undef _tmp_Stack

           ## Decrement Stack Size Counter
               !define /math _tmp_Stack `${_Stack_${_StackName}_Size}` - 1
               !undef `_Stack_${_StackName}_Size`
               !define `_Stack_${_StackName}_Size` `${_tmp_Stack}`
               !undef _tmp_Stack

           !verbose pop
           ;!warning `STACK= ${_Stack_${_StackName}}`
       !macroend
   

/*#### !Peek ##############################

      Usage:
      ------
       ${!Peek} stackName gflag
       
       This command will Read a value from the stack named "stackName".  The read value will be defined as "gflag".  If "gflag" allready exists then it will be replaced without errors.
       This command is similar to the !Pop command but dose not remove the valu ... \n

The Way of the Peaceful Parent

The Way is only learned by walking it. Here are the steps I recommend:* Greet your child each morning with a smile, a hug, a loving Good Morning! This is how we would all like to be greeted each day.

[The Way of the Peaceful Parent]

[GoodvilleNews.com - good, positive news, inspirational stories, articles]

Pilgrims for Peace: One Couples Incredible Journey

"In the life of each and every one of us, there is a defining moment, one after which we know that our lives will never be the same. For me, 9/11 was that moment." Mony Dojeijis defining moment eventually led her to an ancient pilgrimage route in Spain, where a chance encounter with an artist would change both of their lives forever. Together they would end up walking a pilgrimage for peace in Jerusalem -- and in the process would uncover precious insights about themselves, each other and the goodness of humanity.

[Pilgrims for Peace: One Couples Incredible Journey]

[GoodvilleNews.com - good, positive news, inspirational stories, articles]

15 Life Changing Lessons to Learn from Wayne Dyer

Some of the most powerful and life changing lessons I have learned so far came from this great man, Wayne Dyer and today I would like to share with you some of these lessons. The lessons are in no particular order as all of them are equally important.

[15 Life Changing Lessons to Learn from Wayne Dyer]

[GoodvilleNews.com - good, positive news, inspirational stories, articles]

Servant Leadership: Helping People Come Alive

"Its a powerful perspective on work -- holding within it a value for collaboration, agency, creativity, and meaning. What if we all could see what we do in that way? What if our organizations supported us in holding that perspective, and to go one step further, how can we create institutions that release these core values? In his seminal 1970 essay 

[Servant Leadership: Helping People Come Alive]

[GoodvilleNews.com - good, positive news, inspirational stories, articles]

Meet The New Boss: You

What do coffee growers in Ethiopia, hardware store owners in America, and Basque entrepreneurs have in common? For one thing, many of them belong to cooperatives. By pooling their money and resources, and voting democratically on how those resources will be used, they can compete in business and reinvest the benefits in their communities.

[Meet The New Boss: You]

[GoodvilleNews.com - good, positive news, inspirational stories, articles]