home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / TEXT / EDITOR / TSQED16.ZIP / SESSION.QMA < prev    next >
Encoding:
Text File  |  1991-12-26  |  3.6 KB  |  124 lines
  1. *                                                All rights reserved
  2. *
  3. * Terminal emulators such as MsKermit, Telix and Procomm can capture
  4. * the session in a capture file. A problem with these files is that
  5. * (depending on the host) the capture files can end up with lots of
  6. * escape sequences, and other control characters. This macro is for
  7. * stripping them from a Unix host session. Particularly useful after
  8. * reading InterNet news with a capture file turned on.
  9. *
  10. * By Timo Salmi, Thu 26-Dec-91
  11. *
  12. * To compile this macro apply QMAC SESSION.MAC SESSION.QMA /A- /B
  13. * The QMAC.EXE macro translator is from
  14. * garbo.uwasa.fi:/pc/editor/qmac215.zip
  15. * (Also the earlier version 2.1 will do).
  16. *
  17.  
  18. * ┌───────────────────────────────────────────────────────────────────┐
  19. * │ Filter escape sequences & other garbage from a session log, ALT-5 │
  20. * └───────────────────────────────────────────────────────────────────┘
  21. @5      MacroBegin
  22.  
  23. * Perform the deletes required by backspaces,
  24. * and simultaneously filter the backspace characters 
  25.         BegFile
  26.         next10:
  27.           Find #8
  28.           Return
  29.           Return
  30.           JFalse next11:
  31.           DelCh
  32.           Backspace
  33.         Jump next10:
  34.  
  35. * Replace  by proper linefeeds
  36.         next11:
  37.         BegFile
  38.         next12:
  39.           Find #13
  40.           Return
  41.           Return
  42.           JFalse next15:
  43.           DelCh
  44.           Return
  45.         Jump next12:
  46.  
  47. * Replace the clear screen ansi code with a few linefeeds
  48.         next15:
  49.         BegFile
  50.         next16:
  51.           Find #27 "[2J"
  52.           Return
  53.           Return
  54.           JFalse next17:
  55.           DelCh DelCh DelCh DelCh
  56.           Return
  57.           Return
  58.           Return
  59.         Jump next16:
  60.  
  61. * Filter certain escape sequences
  62.         next17:
  63.         BegFile
  64.         next18:
  65.           Find #27 "[5"
  66.           Return
  67.           Return
  68.           JFalse next19:
  69.           DelCh DelCh DelCh
  70.           Return
  71.         Jump next18:
  72.  
  73.         next19:
  74.         BegFile
  75.         next20:
  76.           Find #27 "[19"
  77.           Return
  78.           Return
  79.           JFalse next21:
  80.           DelCh DelCh DelCh DelCh
  81.           Return
  82.         Jump next20:
  83.  
  84.         next21:
  85.         BegFile FindReplace ";1H" Return Return " " backSpace Return
  86.                 Jfalse label1: "r"
  87.         label1:
  88.         BegFile FindReplace #27 "[K" Return Return Return Jfalse label2: "r"        label2:
  89.         BegFile FindReplace #27 ";4H" Return Return Return Jfalse label3: "r"
  90.         label3:
  91.         BegFile FindReplace #27 "[m" Return Return Return Jfalse label4: "r"
  92.         label4:
  93.         BegFile FindReplace #27 "[4m" Return Return Return Jfalse label5: "r"
  94.         label5:
  95.         BegFile FindReplace #27 "[A" Return Return Return Jfalse label6: "r"
  96.         label6:
  97.         BegFile FindReplace #27 "[7m" Return Return Return Jfalse label7: "r"
  98.         label7:
  99.         BegFile FindReplace #27 "[;H" Return Return Return Jfalse label8: "r"
  100.         label8:
  101.         BegFile FindReplace #27 "[2" Return Return Return Jfalse label9: "r"
  102.         label9:
  103.         BegFile FindReplace #27 "[24" Return Return Return Jfalse label10: "r"
  104.         label10:
  105.         BegFile FindReplace #27 "[17" Return Return Return Jfalse label11: "r"
  106.         label11:
  107.         BegFile FindReplace ";10H" Return Return Return Jfalse label12: "r"
  108.         label12:
  109.  
  110. * Strip InterNet news more-response lines
  111.         addr1:
  112.         BegFile
  113.         addr2:
  114.           Find "--more--("
  115.           Return
  116.           Return
  117.           JFalse addr3:
  118.           DelLine
  119.         Jump addr2:
  120.  
  121. * Back to the beginning
  122.         addr3:
  123.         BegFile
  124.