Return to debug CVS log

Up to [Research Unix] / researchv9 / cmd / emacs / macros

Annotation of researchv9/cmd/emacs/macros/debug, revision 1.1

1.1     ! root        1: display_killstack -- display contents of killstack
        !             2: 
        !             3: Warren Montgomery, Version 3.5
        !             4: 
        !             5: This package contains misc macros for help in debugging/general
        !             6: programming.
        !             7: 
        !             8:   display_killstack displays the current contents of
        !             9: the kill stack in a temp buffer.  The bottom two items of the kill
        !            10: stack will be lost through this.  Typing ^Z returns you to where you
        !            11: left off.  This macro can be used in debugging other macros to
        !            12: give you a chance to see the state of the world in the middle
        !            13: of the macro
        !            14: 
        !            15: �    initialize count
        !            16: B<killstack
        !            17:             goto scratch file
        !            18: ��- empty it
        !            19: ^�%        while more stuff in kill stack to float to top
        !            20:        
        !            21:        Kill stack item number: �PNUMB
        !            22:        
        !            23:        %extract item and swap
        !            24:        �11~      increment item counter
        !            25:        ��B%
        !            26: PNUMB  -- print a number
        !            27: 
        !            28: Warren Montgomery, Version 3.5
        !            29: This macro converts its argument to decimal and inserts it in the buffer.
        !            30: 
        !            31: |�
        !            32:        �2~1011~060�� <10, print
        !            33:        � 14~10�PNUMB
        !            34: 11~06015~10��
        !            35: �
        !            36: TO_DECIMAL          Converts a number on the kill stack to a decimal return value
        !            37: 
        !            38: Warren Montgomery (EMACS 4.0)
        !            39: 
        !            40:  This macro takes the item on the top of the kill stack, converts
        !            41:  it to an integer, and returns the value as its result.
        !            42: 
        !            43: - �0    Initialize answer to zeero
        !            44: ^� While More to convert
        !            45: �11~13~1012~�0Process next digit
        !            46: -                Delete it and go back to the end
        !            47: �-

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.