dos_compilers/Microsoft Cobol v5/BIN/SAMPLE.INI

;   Sample TOOLS.INI file for:
;
;   Microsoft Programmer's WorkBench Version 2.00
;   Copyright (c), 1989-1992  Microsoft Corp.
;
;----------------------------------------------------------------------
;   To use the macros or settings in this file, copy or merge this file
;   with your TOOLS.INI file.
;
;   Once in TOOLS.INI, the macros and editor settings in this file can
;   be defined by initializing the appropriate tagged section. A tagged
;   section for PWB begins with a tag, which has the form:
;
;       [PWB-name]
;
;   Where <name> is the name of the tagged section.
;
;   To initialize a named section of TOOLS.INI, execute Arg <name>
;   Initialize, as follows:
;
;   1.  Execute the Arg function (press ALT+A).
;   2.  Type the name of the tagged section.
;   3.  Execute the Initialize function (press SHIFT+F8).
;
;   If you want certain settings to be your default settings, copy the
;   contents of that section to the main PWB section.

;----------------------------------------------------------------------
;   Contents
;
;   Tag                 Description
;   --------------      -----------------------------------------------
;   [pwb pwb-main]      Main PWB section
;   [pwb-4.0]           Settings for MS-DOS 4.0 and 4.1
;   [pwb-5.0]           Settings for MS-DOS 5.0
;   [pwb-..]            Default file-extension settings
;   [pwb-.bak]          Settings for .BAK files
;   [pwb-utility]       Miscellaneous utility macros
;   [pwb-emulations]    Selected editor emulations
;   [pwb-visible]       Settings for visisble whitespace characters
;   [pwb-invisible]     Settings for invisisble whitespace characters
;   [pwb-wptab]         Settings for word-processor-like tab handling
;   [pwb-notab]         Settings for no tab characters
;   [pwb-CTPL]          C templates
;   [pwb-ckeys]         Key assignments for C templates
;   [pwb-samples]       Sample macros from Help
;   [pwb-tutor]         Sample macros from the PWB tutorial
;   [pwb-abbr]          Abbreviation facility

;----------------------------------------------------------------------
;   Note  - Some macros in this file assume certain conditions.
;
;   All macros in this file that use regular expressions assume that the
;   Unixre switch is set to yes, the default value for Unixre.
;
;   Many macros assume that the current selection mode is stream or box
;   mode. These macros may not work correctly in line selection mode.

;----------------------------------------------------------------------
[pwb pwb-main]
;   Main section of TOOLS.INI
;
;   Only this section, operating-system-specific, and file extension
;   sections are initialized at startup. For more information on these
;   sections, see the PWB Help under TOOLS.INI.

;   Autostart is executed automatically at startup.
Autostart :=

;----------------------------------------------------------------------
;   Sample operating system tagged sections

[pwb-4.0]
;   Settings when running on MS-DOS version 4.0 or 4.1

[pwb-5.0]
;   Settings when running on MS-DOS version 5.0

;----------------------------------------------------------------------
;   Sample file extension tagged sections

[pwb-..]
;   Default settings for any file extension that is not otherwise
;   defined.

color:text 17

[pwb-.bak]
;   It's easy to open a .BAK file by mistake, so this section defines
;   the text color to something noticeable.

color:text 4e

;----------------------------------------------------------------------
[pwb-utility]
;   Utility macros

;   Window and file management

;   Close all files in the active window except the current file.
;   When multiple files have been opened in a single window, this
;   macro removes the extra files.
AllBut1File  := cancel :>s setfile -> closefile < =>s

;   Close all windows except for the active window.
AllBut1Window:= cancel :>s openfile -> meta window < =>s

;   Minimize all windows.
MinimizeAll := cancel arg minimize

;   Restore all windows.
RestoreAll  := cancel arg minimize :>s selwindow minimize ->s  \
               selwindow minimize

;   Change directory to directory of current file.
;   Requires an editable file.
ccd  := linsert curfile arg curfilenam msearch arg meta ldelete  \
        begline arg right right setfile begline arg setfile undo

;   Change directory to directory of current file.
;   Requires an editable file.
;   This version is slower, but does not change the current search
;   pattern.
ccd2 := linsert curfile savecur curfilenam curfileext restcur  \
        :>s delete cdelete left right +>s  \
        begline arg right right setfile begline arg setfile undo


;   Synchronized error traversal: Build Results, source, and Help.
;
;   Traverses messages in the build results, showing the message, the
;   location of the message in the source file, and help for the message
;   in arranged windows.
;
;psync  - Synchronize to next message
;msync  - Synchronize to previous message
;setsync- Synchronize to message at the cursor in Build Results.

syncmsg := nextmsg -> pwbhelperr openfile arg arrangewindow

psync   := cancel syncmsg
msync   := cancel arg "-1" syncmsg
setsync := cancel arg "<COMPILE>" pwbwindow arg arg syncmsg

psync   :Alt+Down
msync   :Alt+Up
setsync :Alt+Goto

;----------------------------------------------------------------------
[pwb-emulations]
;   These macros approximate selected behaviors of other editors.

;   Successively go to beginning of line, top left window corner,
;   beginning of file.
BRIEFHome := begline +> home +> begfile

;   Successively go to end of line, end of last line in the window,
;   end of file.
BRIEFEnd  := endline +> meta down endline +> endfile

;   Emulate an emacs-style character delete. When at the end of a line,
;   delete the line break. Otherwise delete the character at the cursor.
;   Note that this macro includes the line break when deleting the last
;   character on a line.

EmacsDel  := delete "-" left right ->eol emacscdel => :>eol left  \
             arg meta sdelete

;----------------------------------------------------------------------
[pwb-visible]
;   Settings to make tabs, trailing spaces, and trailing lines visible.

tabdisp       :250
traildisp     :177
traillinesdisp:7

;----------------------------------------------------------------------
[pwb-invisible]
;   Settings to make tabs, trailing spaces, and trailing lines invisible.

tabdisp       :32
traildisp     :32
traillinesdisp:32

;----------------------------------------------------------------------
[pwb-wptab]
;   Word-processor-like settings.
;   Because tab characters and trailing spaces are allowed, the visible
;   whitespace settings above are recommended.

;   You can change tabstops and filetab to your preference, but should
;   have the same value for proper emulation.
tabstops  :8
filetab   :8

realtabs  :yes
tabalign  :yes
entab     :0
trailspace:yes

;   Insert a tab character in insert mode.
;   Move the cursor right one tab stop in overtype mode.
tabio := insertmode +>over insertmode "\t" =>  \
      :>over insertmode tab
tabio : Tab

;   Move right one tab stop in both insert mode and overtype mode.
;   To insert a tab in all modes, use Quote TAB (CTRL+P, TAB)
tab   :ctrl+tab

;----------------------------------------------------------------------
[pwb-notab]
;   Settings so that no new tab characters are added to the file.
;

Filetab :8          ;Tabs expand to 8 spaces
Realtabs:no         ;Do not preserve tabs
Entab   :0          ;Translate whitespace to spaces

;   Note that tab characters on unmodified lines are preserved.
;
;   To strip all tabs from the file, execute the TouchAll macro with
;   these settings. To also strip trailing spaces, uncomment the next
;   line.
;trailspace:no

;  TouchAll - Modify all nonblank lines
TouchAll:= savecur  \
           begfile arg arg replace "^." newline "\\0" newline restcur
TouchAll:Alt+D      ;Press Alt+D to touch all nonempty lines in the file

;----------------------------------------------------------------------
[pwb-CTPL]
;   C template macro set for Microsoft Programmer's WorkBench
;   Copyright (c), 1989-1992  Microsoft Corp.
;
;   CTPL is a useful example of an extended system of macros to
;   customize the PWB. You can change this set to implement your own C
;   programming style.
;
;   To install CTPL, add this section to your TOOLS.INI. When you want
;   to activate the macros, type:
;
;       Arg "ctpl" Initialize
;
;   Or define the following macro in the main section of TOOLS.INI:
;
;       CTPL:=arg "Ctpl" initialize
;       CTPL:Alt+F10
;
;   and press ALT+F10 to initialize the C templates.
;
;   Most templates are activated by typing a C keyword and executing the
;   DoTpl macro (Alt+T). Templates usually insert some text, then select
;   an active area--a "tag".
;
;   To fill out a tag, type the replacement text.
;
;   To skip the tag, execute Cancel (Press ESC).
;
;   To move back and forth among tags use the Mrec (ALT+PGUP) and Prec
;   (ALT+PGDN) macros.
;
;   Since tags are C comments, you can compile code with incompletely
;   filled-in templates.
;
;   For templates that do not have a keyword--a function or prototype,
;   for example--CTPL defines a key assignment. This command structure
;   minimizes the number of key bindings necessary to support the CTPL
;   macro set.
;
;   For example, the switch template uses the macro AddCase (ALT+F9) to
;   insert a case just before the default case provided by the switch
;   template.
;
;   HINT: Sometimes you don't want the semicolon that CTPL often places
;   after a tag. In these situations press RIGHT to extend the selection
;   to include the semicolon as well as the tag, and it is replaced by
;   what you type.
;
;   NOTE: CTPL macros assume that the current selection mode is box or
;   stream mode. If this becomes troublesome for you, use the mode-safe
;   versions of the SelTag and DoTpl macros. The CTPL macros also work
;   correctly in stream-selection mode. If you prefer stream selection,
;   change the mode-safe versions to use the _pwbstreammode macro.
;
;   NOTE: Because PWB rereads a file-extension tagged section each time
;   you move to the file, It is not recommend to rename the CTPL section
;   as [pwb-.C]. This works, but slows down switching to .C files.


;   Select word
selword    :=pword ->eof mword arg meta pword =>  \
           :>eof mword pword arg meta pword

;-- The core macro for CTPL
;   select the current word and execute it
DoTpl      :=selword execute

;   selection-mode safe DoTpl
;DoTpl     :=_pwbboxmode selword execute

;-- simple 'pairs'
parens     :="()" left
subscript  :="[]" left
angles     :="<>" left
quotes     :="\"\"" left

;-- messages
notag      :=arg "No more tags" message
nobrace    :=arg "Missing right brace" message
nodefault  :=arg "No \"default:\" found" message

;-- tag & utilities
tag        :="/*%*/"
stmt       :="/*%*/;"

seltag     :=arg right right right right right
;   selection-mode safe seltag
;seltag    :=_pwbboxmode arg right right right right right

;   Tag movement - Move to and select the position to be filled in.
;mrec      - Move to and select previous tag
;prec      - Move to and select next tag
mrec       :=cancel left  arg tag msearch ->f seltag => :>f notag
prec       :=cancel right arg tag psearch ->f seltag => :>f notag

;-- Utilities -- redefine to change indentation styles
;test      - condition in parentheses
;plist     - parameter list
;testbreak - type of break (if any) after a test
test       :="( " tag " )"
plist      :="( " tag " )"
testbreak  :=addline

;-- utilities for adding components of C constructs
;
;addline  - Add a line, with same indentation as this line
;addstmt  - Add a statement after this line
;addstmti - Add an indented statement after this line
;block    - Add a statement block after this line
;
addline  :=cancel begline down linsert
addstmt  :=addline tag mrec
addstmti :=addline tab tag mrec
block    :="{" addline "}" begline linsert tab tag down endline

;-- function, prototype and utilities
;
;func    - Parameter list and body
;proto   - Semicolon-terminated parameter list
;main    - Alias of func
;additem - Add item to the current parameter list or 'for' control
;
func     :=endline savecur plist addline block restcur prec
proto    :=endline plist ";" mrec
main     :=func
additem  :=cancel left arg arg "[;:)}]" psearch ->   \
           arg arg "[^ \t]" msearch right ", " tag right mrec

;printf, fprintf, sprintf  - Handy templates
;
printf   :=proto quotes tag "\\n"  mrec
fprintf  :=proto "std" tag ", " quotes tag "\\n" begline prec
sprintf  :=proto tag ", " tag ", " tag mrec mrec quotes tag  \
           endline mrec mrec

;-- conditional constructs
;
;if      - Add a condition and statement block
;else    - You usually use addelse, but this is still useful
;addelse - Add an else clause to the current if statement
;addelif - Add an else-if clause to the current if statement
;while   - While loop
;for     - For loop template. Use additem for comma-op items
;do      - Do  loop template
;queryop - "() ? : " template for the ternary operator
;
if      :=endline savecur  test testbreak block  restcur prec
else    :=testbreak block  mrec
addelse :=cancel arg "}" psearch ->f testbreak "else" else => :>f nobrace
addelif :=cancel arg "}" psearch ->f testbreak "else if" if => :>f nobrace
while   :=if
for     :=if stmt " " stmt " " tag  begline prec
do      :=testbreak block " while" test endline ";" mrec
queryop :=savecur test " ? " tag " : " tag restcur prec

_asm    :=testbreak block mrec

;-- declarations
;
enum    :=endline " " tag " { " tag " } " stmt begline prec
typedef :=endline " " tag " " stmt begline prec
struct  :=endline savecur " " tag testbreak block " " stmt restcur prec
class   :=struct

;-- switch statement and components
;   Use add-case to build the cases of the switch.
;   Use addbreak to terminate a statement section.
;
;case     - Colon-terminated placeholder
;addbreak - Insert a break statement after the current statement
;addcase  - Insert case just before the next or default case
;switch   - Condition, block, and default case.
;swiback  - By default case labels appear at the same indentation level
;           as the opening 'case' For indented case labels, define it
;           as 'swiback:='
swiback :=backtab
case    :=endline " " tag ":" mrec
addbreak:=addstmt "break;"  begline
addcase :=cancel arg arg "\\{default:\\!case\\}" psearch ->f   \
          linsert "case" case => :>f nodefault
switch  :=endline test testbreak block mrec right meta delete swiback   \
          "default:" addstmti "break" mrec

;-- preprocessor utilities
;inc     - #include <x>
;def     - #define x x
;pragma  - #pragma x( x )
inc   :=begline "#" endline "lude <>"  left
def   :=begline "#" endline "ine " tag " " tag  begline prec
pragma:=begline "#" endline " " tag plist begline prec

;   The OpenInclude macro opens an include file named in the next
;   #include directive. The macro demonstrates a technique using the
;   Lasttext function to pick up text from the file and modify it
;   without modifying the file or the clipboard.
OpenInclude :=  \
    up meta begline arg arg "^[ \t]*#[ \t]*include" psearch ->  \
    arg arg "[<>\"]" psearch -> right savecur psearch ->        \
    selcur lasttext begline "$INCLUDE:" openfile <n +>          \
    lastselect openfile <

;   Key Assignments
mrec      :Alt+PgUp
prec      :Alt+PgDn
addcase   :Alt+F9
addbreak  :Alt+F10
addelse   :Shift+Ctrl+E
addelif   :Shift+Ctrl+I
additem   :Alt+,
queryop   :Alt+/
parens    :Ctrl+0
subscript :Alt+]
quotes    :alt+'
angles    :Alt+>
addstmt   :Ctrl+;
addstmti  :Shift+Ctrl+:
proto     :Shift+Ctrl+P
func      :Shift+Ctrl+F
dotpl     :Alt+T

;-------------------
[pwb-ckeys]
;   Initialize this section if you've switched to another type of file
;   and need to recover your CTPL keys.
mrec :=cancel left  arg tag msearch ->f seltag => :>f notag
prec :=cancel right arg tag psearch ->f seltag => :>f notag
mrec        :Alt+PgUp
prec        :Alt+PgDn
addcase     :Alt+F9
addbreak    :Alt+F10
addelse     :Shift+Ctrl+E
addelif     :Shift+Ctrl+I
additem     :Alt+,
queryop     :Alt+/
parens      :Ctrl+0
subscript   :Alt+]
quotes      :alt+'
angles      :Alt+>
addstmt     :Ctrl+;
addstmti    :Shift+Ctrl+:
proto       :Shift+Ctrl+P
func        :Shift+Ctrl+F
dotpl       :Alt+T

;----------------------------------------------------------------------
[pwb-samples]
;   This section contains example macros from help.
;

;   Run the program for current PWB project
Run  :=arg "run" compile

;   Debug the program for current PWB project
Debug:=arg "debug" compile


;   Insert spaces to next tab stop.
InsertTab := arg tab sinsert

;   Indent a paragraph to the next tab stop:
para_indent:=_pwbboxmode meta mpara down begline arg   \
             meta ppara up begline tab insert

;    Move the cursor to column one, then toggle between column one and
;    the first nonblank character on the line.
ToggleBegline := left ->x meta :>x begline

;   Put parts of current filename on the clipboard.
Path2clip     := Arg Curfile Copy
Name2clip     := Arg Curfilenam Copy
Filename2clip := Arg Curfilenam Curfileext Copy

;-------------------
;   Macro utilities
;   Macro writing and debugging tools, plus convenient shorthands

;   Set True return value. Side effect: cancels active arguments
True := cancel

;   Set False return value. Side effect: turns off Meta
False := meta +>off meta :>off meta

;   The following macros test common conditions.
;
;   At beginning of line?
bol? := savecur begline +>no True => :>no restcur False

;   Any text at cursor?
text? := right +>yes left False => :>yes left True

;   Is the current line an empty line?
empty? := meta begline endline ->yes False => :>yes True


;   Display the current macro return value on the status bar, then
;   reset return value. Use this macro when debugging loops and
;   conditional flow control.
? := +>t arg "FALSE" message => :>t arg "TRUE" message

;   Refresh - force a full screen redraw
! := meta message


;   These two utilities make readable find/replace macros. For example,
;   use the phrase:
;       replace "<junk text>" with nothing
;   to delete <junk text> from the file.
With    := newline
Nothing := " " cdelete newline


;   Position the window so that the next tagged section of TOOLS.INI
;   starts at the top of the window.
FindTag:=arg arg "^\\[[^\\]]+\\]" psearch ->none  \
         arg setwindow => :>none arg "no tag" message

;   Adjust each line continuation (backslash at the end of a line) so
;   that it appears in column 73.
SlashJust:=savecur begfile arg arg replace    \
           "^\\(.*[^ ]\\)  +\\\\$" newline    \
           "\\(-70,1)  \\\\" newline restcur


;   Prompt for help topic to look up.
QueryHelp := arg "Get Help On:" prompt ->no pwbhelp =>  \
          :>no arg "Query Cancelled" message

;-------------------
;   Iterations on the file.
;   All... - Macros that iterate over the file, one line at a time.
;   Act    - Define as the action to be performed on each line.
Act :=

;   Perform Act on all lines of the file, starting from the end.
AllBackward := endfile :>s act up +>s

;   Perform Act on all lines from start, including a page of blank lines
;   at the end of the file.
AllForward  := begfile :>s act down +>s

;   Perform Act on all lines from start, testing for end-of-file at each
;   step. Solves 'extra lines' problem of AllForward at the cost of
;   speed.
AllForward2 := begfile savecur :>s restcur act   \
               down savecur begline endfile +>s

;-------------------
;   Perform Act at each occurrence of a regular expression in the file.
Act :=

;   Regular expression to match (example is for blank line)
RE   := "^$"

;   Perform Act at each occurrence of RE.
For1 := begfile :>s arg arg RE psearch -> act =>s

;   Like For1, but iterates much faster with the restriction that Act
;   cannot perform a search.
For2 := begfile arg arg RE :>s psearch -> act =>s

;-------------------
;GetMac - Load a separate file of macros or assignments.
;
;Usage: Arg 'file' getMac where <file> is the base name of
;       a file in the INIT directory
;
GetMac := cancel lasttext begline "$INIT:" endline ".MAC"  \
          setfile <n +>Ok lasttext begline               \
          "Can't find \"" endline "\"" message =>          \
       :>Ok begfile arg endfile assign ->  arg refresh

;----------------------------------------------------------------------
[pwb-tutor]
;   PWB Tutorial macro examples
CloseWindows := :>Loop Openfile -> Meta Window Window =>Loop
CloseWindows : SHIFT+CTRL+W

LineComment := "//  "
RevHead     := "** Revision History **"
RevComment  :=  \
  Arg Arg "Start" Mark                 \
  Begfile Arg RevHead Psearch +>Found  \
  Linsert LineComment RevHead          \
:>Found  \
  Down Linsert Begline LineComment Curdate " ("    \
  Arg "Initials" Prompt ->Quit Paste Endline ") "  \
  Arg "Comment"  Prompt ->Quit Paste =>End         \
:>Quit Meta Ldelete  \
:>End Arg "Start" Mark
RevComment:CTRL+H


;----------------------------------------------------------------------
[pwb-abbr]
;   Abbreviations - Define and expand abbreviations.

;  Select the current word
SelWord:= pword ->eof mword arg meta pword =>  \
                :>eof mword pword arg meta pword

;  Delete the current word and execute it
Expand := selword lasttext cancel lastselect meta sdelete lasttext execute
Expand :Alt+T

;  Simple text expansion
prog   := "program"
ex     := "example"

;  Expand 'cmd' once to get 'command', Expand twice to get 'command line'
cmd    := "command"
command:= "command line"

;   Expand to the contents of the file HEADER.TPL in the INIT
;   directory--a good technique for large boilerplate text.
Header := arg arg "$INIT:header.TPL" paste


[end]