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     ! 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.