home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
amac41.arj
/
COMT16.QM
< prev
next >
Wrap
Text File
|
1991-08-26
|
10KB
|
215 lines
* COMT16.QM, v1.6c
* Commenting/Uncommenting Macros
* Written by Tom Hogshead
* With Macro Contributions by John Goodman, et al
* 8/15/91
* Key Subfile Description
* ===== ========= =====================================================
* New Macros
* ----------
* @(1) {e:\up\rfr003} |new
* --Formats Commented or Uncommented PARAGRAPH,
* Leaves Commented Paragraph Uncommented,
* and Vice Versa
* @(2) {e:\up\rfr003} |new
* --Formats Commented or Uncommented PARAGRAPH,
* Leaves Paragraph in Original Commented
* or Uncommented State
*--
* ^(cursordown) {e:\up\com001}
* --Comment or Un-Comment Line or Block With * in Col 1,
* Blank Lines NOT Commented,
* Pauses To Mark Block If Not Marked
* (John Goodman and Tom Hogshead, Authors)
* @(3) {e:\up\com001}
* --Comment or Un-Comment Line or Block With * in Col 1,
* Blank Lines NOT Commented
* (John Goodman and Tom Hogshead, Authors)
* @(8) {e:\up\com001}
* --Comment or Un-Comment Line or Block With * in Col 1,
* Blank Lines Are Commented,
* (John Goodman and Tom Hogshead, Authors)
* @(2) {e:\up\com001}
* --Comment or Un-comment With "*»" in Col 1,
* Blank Lines NOT Commented,
*» (like this)
* @(1) {e:\up\com001}
* --Add/Delete '*-- ' in Front Of Commenting Line,
*-- (like this)
* @(4) {e:\up\com001}
* --Center Macro Comment * -- <Comment> --*
* @(7) {e:\up\com001}
* --Remove Macro Comment * -- <Comment> --*
* @(F1) {e:\up\com001}
* --Comment Non-macro Portion Of File
* @(5) {e:\up\com001}
* --Un-comment Non-macro Portion Of File
* @(F5) {e:\up\com001}
* --Original Commenting Macro (John Goodman, Author)
* ^(F5_) {e:\up\com001}
* --Original Un-commenting Macro (John Goodman, Author)
* #(F5__) {e:\up\com001}
* --Revised Original Goodman Un-commenting,
* Checks Before Un-commenting
* @(F2) {e:\up\com001}
* --Comment Paragraph or Block
* #(F2__) {e:\up\com001}
* --Builds A "Comment Box" For C Programmers,
* (Tim Farley, Author)
* @(F3) {e:\up\com001}
* --Comment Whole File
* ^(F3_) {e:\up\com001}
* --Un-comment Whole File
* #(F3__) {e:\up\com001}
* --Center C Program Comment (Richard Blackburn, Author)
*--
* @(5) {e:\up\com002}
* --Make Macro Title Box
* @(6) {e:\up\com002}
* --Copy Macro Title To Index
* @(9) {e:\up\com002}
* --Remove Macro Title Box
*--
* #(F4__) {e:\up\com003}
* --Surround Column-Blocked Text With Box Of Desired Characters,
* (John Goodman, Author)
* ********
* (Box Drawn Around Outside *Border* Of Column Block, Juxtapose Text)
* ********
* @(F4) {e:\up\com003}
* --Erase Outside Border Of Column-Blocked Text and Collapse Text
* Surronding Block To Original Position Before Box Was Made,
* (John Goodman, Author)
* @(F8) {e:\up\com003}
* --Put Colon in Front Of "Rem" Lines For Faster Batch File Operation
* ^(F7_) {e:\up\com003}
* --Prepend Prompted Text To, or Delete Prompted Text From,
* The Beginning Of The Current or Blocked Line(s),
* (John Goodman, Author)
* #(F7__) {e:\up\com003}
* --Prepend Prompted Text To, or Delete Prompted Text From,
* The Beginning Of The Current or Blocked Line(s),
* Initialize Find Prompt With Last Prompted Text
* (Tom Hogshead Modification Of ^F7)
* @(F7) {e:\up\com003}
* --Insert Text At Beginning Of All Blocked Lines,
* (John Goodman, Author)
* @(8) {e:\up\com003}
* --Insert Text at Beginning of Blocked Lines (or Current
* Line If No Blocks Marked), John Goodman, Author
*--
* {e:\up\com004} [ Reserved for later use ]
*--
* @(h) Jump From Index Line To (Locate) Macro or Item in Document Below
*
*
* (Index) - How to locate macro or item below from Index using @h
* (Description)
* (Startup)
* (Macros)
* (Other) Macros
* (Version) history
*
*-- eoi
* (DESCRIPTION): COMT16.QM contains macros to comment and un-comment
* lines, blocks, paragraphs, macros, C programs, and dBase lines. Also
* has macros to insert and delete text at beginning of lines or blocks,
* macro to speed up batch file running, and macro to make and remove
* boxes with any desired border surrounding text.
* (INDEX) USE: To locate a macro or item in this file, press @h, place
* the cursor line on the desired item in the Index above, and press
* <enter>. See BOOKxx.QM for more details.
* (STARTUP): To BEGIN, just type "START COMT" <Enter>. All pertinent
* files will be loaded in the "Ring" for viewing, and COMT16.MAC is
* read. Alternatively, type "START COMT 0" <Enter> and the disk copies
* of all files in the "Ring" will be loaded ready for editing, saving
* time.
* These macros require "QEdit and QMAC v2.1, February, 1990" or later.
* For (other) macros, see ALLMACRO.INF.
* (MACROS)
* ---------
* See subfiles 'com00x.qm' for macros. Use @f in BOOKxx.QM to access
* macros.
*
* ----------------------------------------------------------------------
* @(h) Jump From Index Line To (Locate) Macro or Item in Document Below
* ----------------------------------------------------------------------
* Alt_h can be used to quickly jump from Index Line to the desired
* item or macro in the document below:
* 1. Press Alt and h at the same time. Line 1 is marked to
* highlight. Cursor down to desired line in Index.
* 2. Press Enter. The macro then locates and jumps to the item
* selected on the cursor line in the document below.
* See BOOKxx.Qm and JMPPOSxx.QM in AMACxx.ZIP for more discussion about
* using bookmarks and positions markers ( ) to jump to positions in
* files.
@h macrobegin
unmarkblock * Unmark any marked blocks
defaultwordset * in case altwordset on
begfile * Go to file begin
markline markline * and highlight line 1
pause * Pause for Index selection
wordright markword * Mark first word on line
copy * Copy word to scrap
endpara * Go to end of Index
makectrofscreen * Cursor line center of window
find "(" paste ")"
return "I" return * Find first marked word in doc
jfalse NOMARK:
begline * If mark found, go to begline
jump END:
NOMARK:
begfile * if no mark found, go to begfile
END:
*
* 33 bytes Wed 07-10-1991 10:11:24 (TH @1 in BOOKxx.QM)
* (Version) History;
*
* 1.0 - Initial
* 1.1 - Modified @5, @6 and @9 to handle multi-line titles.
* - Added ^F7, #F4 and #F7
* - Added @2 and @3
* 1.2 - Shortened #F4 from 92 to 67 bytes. Handles full documents OK.
* - Modified @9 to remove macro title box if marked with JMPPOS.
* 1.3 - Shortened #f4 from 67 to 49 bytes. Added alternate version
* written by John Goodman.
* 1.4 - Added new #F4 written by John Goodman.
* 1.4a- Changed description of @2.
* 1.5 - Modified @8 description.
* - Changed ^F6 key to #F5.
* - Modified @5 to put position marker on top of box and pause to
* select title lines.
* - Added @1 to Add/Delete '* -- ' in Front of Commenting Line, Like <new
*-- this.
* - Added latest version of @h.
* - Added [ ^cursordown ] to comment/uncoment without having to mark
* block before macro execuction. Column/Char/Line blocks OK.
* 1.5a- Moved begline up in [ ^cursordown ] to keep cursor in col 1.
* - Included in AMAC38.ZIP, July 21, 1991.
* 1.6 - Modified ^cursordown per John Goodman, shortened 3 bytes to
* 71 bytes, July 24, 1991.
* 1.6a- Added subfiles com001/002/003, July 26, 1991.
* - Added @8 to com003, July 28, 1991.
* - Included in AMAC39A.ZIP. 7/29/91
* 1.6b- Changed ^f1 in com001.qm to @5. 7/30/91
* (ver 1.6b in AMACxx.ZIP, v4.0)
* 1.6c- Added cross reference to macros in rfr003.qm. 8/6/91
* Modified @7 in com001.qm. 8/6/91
* Added com004.qm and com004.mac reserved for later use. 8/7/91
* Modified com003.qm documentation. 8/8/91
* Added new macros @1 and @2 from rfr003.qm. 8/15/91
*