Return to abbrev.krs CVS log

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

Annotation of researchv9/cmd/emacs/macros/abbrev.krs, revision 1.1

1.1     ! root        1: @expand_abbrev: expand abbreviation [MACRO]
        !             2: 
        !             3: Warren A. Montgomery, IH 6E-314, Version 3.2
        !             4: 
        !             5: Modified by K. R. Stanley, IH 4F-321, Version 4.2    5/26/81
        !             6: Uses ABBEVIATION FILE: for file name
        !             7: bugs: uses mark 15 for temporary usage
        !             8: To use this macro, set $HOME/.abbrevs to be the location of your
        !             9: abbreviation file.  Change @ to whatever character you want for
        !            10: your abbrevations or have a macro call expand_abbrev.
        !            11: It uses the name after ABBREVIATION FILE: as the file to use
        !            12: in the $HOME directory.
        !            13: B�           save buffer, and delete previous word then add an @
        !            14: +<@
        !            15: <^
        !            16: 
        !            17: +                   make a copy starting with a newline
        !            18:                       search for string  "ABBREVIATION FILE:" in
        !            19:                       first 10 lines
        !            20: 15�10�      mark here - go to 10'th line
        !            21: <ABBREVIATION FILE:
        !            22:                       look for string starting with "ABBREVIATION FILE:"
        !            23: |� �                in front of this line  -  if found
        !            24: 18�-      get file name, delete, and reinsert
        !            25: <$HOME/
        !            26: +�           start file name at home and add new file name
        !            27: �                     else
        !            28: � <$HOME/.abbrevs
        !            29: ��            put default file name in,end if and go back to
        !            30: 15         where should be
        !            31: -          switch to abbrevfile  (but don't complain if new)
        !            32: 2>B                Prepare to check if in .abbrevs (get old buffer
        !            33:                       name and check present against it)
        !            34: |�           See if in abbrevs buffer
        !            35:        �&-2-�    in buffer, just ignore it
        !            36:                       (dump 2 copies of abbreviation and buffer name)
        !            37:        � �|� Not in buffer, process abbrevs
        !            38:                �-�< 
        !            39:                       search for abbreviation from back and if found
        !            40:                -�<@
        !            41:                       find space and mark next character go to next line
        !            42:                |��&�search for next at and go to end of 
        !            43:                                       previous line
        !            44:                        � �&��or go to end of buffer and
        !            45:                               back up to end of next line
        !            46:                        �%-�save region, return to buffer
        !            47:                               and insert
        !            48:                �      if not found in abbrev file
        !            49:                <abbreviation for ?
        !            50:                0><
        !            51:                |� �4& ask what abbrev for - check if null
        !            52:                        �& -&if not - go to, end back up,
        !            53:                       open line, store response and abbrev in buffer
        !            54: �display_killstackshow status of buffer and stack
        !            55:                        %2-@�restore and try again
        !            56:                        � -   else restore back in old buffer
        !            57:                                %-��end of new abbrev
        !            58:                                                        question
        !            59:                        ����if found if in buffer
        !            60: 

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