Return to balance CVS log

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

Annotation of researchv9/cmd/emacs/macros/balance, revision 1.1.1.1

1.1       root        1: backscan -- scan backwards for [](){}
                      2: 
                      3: Warren A. Montgomery, IH 6E314, Version 3.4
                      4: 
                      5:  returns 0 if not found, 1 if found.
                      6: 
                      7: .  This set requires emacs version 3.2, with the case command
                      8: 
                      9: |�   see if at beggining of file
                     10:        �<[][(){}]
                     11:                -4��If not, backsearch
                     12:        � 0�False
                     13: �
                     14: match) match a right parenthesis
                     15: 
                     16:       Returns 1 if it can match the current (, 0 otherwise
                     17: ^�|���backscan
                     18:        !�  see what backscan found
                     19:                �)�match)
                     20: �
                     21:                �]�match]
                     22: �
                     23:                �}�match}
                     24: ���
                     25:        � 0���        found something that made us stop
                     26: ~�(
                     27: )paren_match Shows matching ( for a )
                     28: 
                     29: 
                     30: )�|�
                     31:        ��match)
                     32:        �
                     33:        � ��
                     34: match] match a right bracket
                     35: 
                     36:       Returns 1 if it can match the current ], 0 otherwise
                     37: ^�|���backscan
                     38:        !�  see what backscan found
                     39:                �)�match)
                     40: �
                     41:                �]�match]
                     42: �
                     43:                �}�match}
                     44: ���
                     45:        � 0���        found something that made us stop
                     46: ~�[
                     47: ]bracket_match Shows matching [ for a ]
                     48: 
                     49: 
                     50: ]�|�
                     51:        ��match]
                     52:        �
                     53:        � ��
                     54: match} match a right curly bracket
                     55: 
                     56:       Returns 1 if it can match the current }, 0 otherwise
                     57: ^�|���backscan
                     58:        !�  see what backscan found
                     59:                �)�match)
                     60: �
                     61:                �]�match]
                     62: �
                     63:                �}�match}
                     64: ���
                     65:        � 0���        found something that made us stop
                     66: ~�{
                     67: }brace_match  Show matching { for }
                     68: 
                     69: 
                     70: |�
                     71:        �~�  �
                     72:        � ��  simulate c mode
                     73: }�|�
                     74:        ��match}
                     75:        �
                     76:        � ��
                     77: �Show_match -- show matching terminator.
                     78: �!�                Match the current character
                     79:        �)�match)
                     80: �
                     81:        �]�match]
                     82: �
                     83:        �}�match}
                     84: �
                     85:        ��            Not matchable
                     86: �
                     87: �

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