Return to template CVS log

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

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

1.1     ! root        1: �template expand template and execute commands [MACRO]
        !             2: 
        !             3: 
        !             4: Modified by K. R. Stanley, IH 4F-321, Version 4.2    8/31/81
        !             5: Based on abbrev macro
        !             6: Uses TEMPLATE FILE: for file name
        !             7: last modified 11/17/82
        !             8: uses a caret "^" to delineate where the cursor will go.
        !             9: 
        !            10: restrictions: uses mark 15 as temporary  marker
        !            11: 
        !            12: It uses the name after TEMPLATE FILE: as the file to use
        !            13: in the $HOME directory.
        !            14: B�           save buffer, and delete previous word then add an @
        !            15: +<@
        !            16: <^
        !            17: 
        !            18: +                   make a copy starting with a newline
        !            19:                       search for string  "TEMPLATE FILE:" in
        !            20:                       first 10 lines
        !            21: 15�10�      mark here - go to 10'th line
        !            22: <TEMPLATE FILE:
        !            23:                       look for string starting with "TEMPLATE FILE:"
        !            24: |� �                in front of this line  -  if found
        !            25: 14�-      get file name, delete, and reinsert
        !            26: <$HOME/
        !            27: +�           start file name at home and add new file name
        !            28: �                     else
        !            29: � <$HOME/.templates
        !            30: ��            put default file name in,end if and go back to
        !            31: 1515�     where should be and set mark 15
        !            32: -          switch to file  (but don't complain if new)
        !            33: 2>B                Prepare to check if in same buffer (get old buffer
        !            34:                       name and check present against it)
        !            35: |�           See if in buffer
        !            36:        �&-2-�    in buffer, just ignore it
        !            37:                       (dump 2 copies of abbreviation and buffer name)
        !            38:        � �|� Not in buffer, process abbrevs
        !            39:                �-�< 
        !            40:                       search for abbreviation from back and if found
        !            41:                -�<@
        !            42:                       find space and mark next character go to next line
        !            43:                |��&�search for next at and go to end of 
        !            44:                                       previous line
        !            45:                        � �&��or go to end of buffer and
        !            46:                               back up to end of next line
        !            47:                �      put abbreviation on kill stack
        !            48:                <...
        !            49:                -</usr/tmp/emacs$LOGNAME
        !            50: 
        !            51:                B%go to home buffer and destroy temp buff
        !            52:                </usr/tmp/emacs$LOGNAME
        !            53:                       execute input
        !            54:                �&delete newline and indentation
        !            55:                15�go to start of abbrev and do M-^
        !            56:                �end of found
        !            57:                � %-
        !            58:                                                        question
        !            59:                        ����if found if in buffer
        !            60: 
        !            61: �d_caret find and delete the next caret
        !            62: <^
        !            63: 

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