Return to crypt CVS log

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

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

1.1       root        1: READ_ENCRYPTED Read Encrypted File
                      2: 
                      3: Warren A. Montgomery 10/20/80 (EMACS 4.0)
                      4: 
                      5: This macro library contains macros for reading and writing
                      6: files encrypted with crypt (1) from emacs.  The macros prompt for
                      7: key name and behave like ^X^R, ^X^W, and ^X^S
                      8: 
                      9: READ_ENCRYPTED
                     10: 
                     11: Read an encrypted file into the buffer
                     12: Kill Stack contains  calling parameters of Key and File Name
                     13: 
                     14: <usilent
                     15: 
                    silence unix
                     16: B2%%<.exec
                     17: &crypt - <   Form Commannd Line  in File
                     18: &            Kill Stack Now Contains
                     19:               crypt (key) < (file)
                     20:               File Name
                     21:               then buffer name
                     22: �     Run "crypt <key> <file"
                     23:    change file name
                     24: 0>      change buffer name
                     25: <usilent
                     26: 
�� Remove linefeed introduced by crypt
                     27: 
                     28: WRITE_ENCRYPTED
                     29: 
                     30: Write an encrypted file from the buffer
                     31: 
                     32: Kill Stack Contains parameters of key and file name
                     33: 
                     34: <usilent
                     35: 
                    silence echoes
                     36: &crypt - > �&Form Command Line
                     37: 
                     38:                       Kill Stack Now contains
                     39:                       crypt (key) > (File)
                     40:                       File Name
                     41:                       usilent
                     42: �            Run crypt <key> >file from buffer
                     43: �  Change File Name and mark buffer
                     44: <usilent
                     45: 

                     46: RRead_Encrypted      Read an encrypted file into the buffer
                     47: 
                     48: Prompts for key and file name
                     49: 
                     50: |�           Conditionals Here implement
                     51:                       If ((File entered) && (key entered)) do_it
                     52: �<Read File? 
                     53:        |��<Key? 
                     54:                �READ_ENCRYPTED
                     55: ����
                     56: WWrite_Encrypted     Write to a file from the buffer
                     57: 
                     58: Prompts for key and file name
                     59: 
                     60: |�           Conditionals Here implement
                     61:                       If ((File entered) && (key entered)) do_it
                     62: �<Write File? 
                     63:        |��<Key? 
                     64:                �WRITE_ENCRYPTED
                     65: ����
                     66: SSAVE_ENCRYPTED  Save the buffer to a encrypted file
                     67: 
                     68: Save an encrypted file from the buffer
                     69: 
                     70: |�           If (Key Entered)
                     71: �<Key? 
                     72:        F%�WRITE_ENCRYPTED
                     73: ��

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