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

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.