home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fed024.zip / fed.ini < prev    next >
Text File  |  1999-03-08  |  16KB  |  466 lines
  1. //Module   :FED.INI
  2. //Abstract :Sample FED initialization file
  3. //
  4. //Copyright (C) Sergey I. Yevtushenko
  5. //
  6. //Log: Fri  27/03/1998 Created
  7. //     Mon  20/04/1998 Updated
  8. //
  9.  
  10. editor.hiliting = "CPP:*.c;*.cpp;*.cxx;*.cc;*.h;*.hpp;*.hxx;*.rc;fed.ini\n",
  11.                   "REXX:*.cmd\n",
  12.                   "ASM:*.asm\n",
  13.                   "MAKE:*.mak;makefile\n",
  14.                   "HTML:*.htm;*.html\n",
  15.                   "MAIL:*.bod;*.msg\n",
  16.                   "PAS:*.int;*.pas\n"
  17.  
  18. editor.untitled = ".Untitled"
  19.  
  20. cursor.shape.insert    = 90
  21. cursor.shape.overwrite = 30
  22.  
  23. editor.statusline = "[%n] L%4r:C%2c CHR(%xh,%3dd) [%h:%a:%u:%t:%f]"
  24.  
  25. editor.helptext =,
  26.        "FED key assignment:",
  27.        "\n",
  28.        " Esc           - Exit \n",
  29.        "\n",
  30.        " Gray +        - next open file \n",
  31.        " Gray -        - previous open file \n",
  32.        " Alt+_         - open files list \n",
  33.        "\n",
  34.        " F2            - save file \n",
  35.        " Alt+F2        - save file as ...\n",
  36.        " F3            - open file \n",
  37.        " Alt+F3        - open new .Untitled \n",
  38.        " Alt+F4        - close file \n",
  39.        "\n",
  40.        " Arrow keys    - move cursor \n",
  41.        " Home          - line begin \n",
  42.        " End           - line end \n",
  43.        " PgUp          - screen up \n",
  44.        " PgDn          - screen down \n",
  45.        " Ctrl+PgUp     - file begin \n",
  46.        " Ctrl+PgDn     - file end \n",
  47.        " Ctrl+Left     - word left \n",
  48.        " Ctrl+Right    - word right \n",
  49.        " Ctrl+J        - go to line \n",
  50.        " Alt+J         - go to column \n",
  51.        " Alt+?         - find matching bracket \n",
  52.        " Alt+]         - indent \n",
  53.        " Alt+[         - unindent \n",
  54.        "\n",
  55.        " Ctrl+Y        - delete line \n",
  56.        " Ctrl+T        - delete word right \n",
  57.        " Ctrl+Y        - delete line \n",
  58.        " Ctrl+E        - delete to end of line \n",
  59.        "\n",
  60.        " Shift+Arrow   - mark block \n",
  61.        " Shift+Ins     - paste from clipboard \n",
  62.        " Shift+Del     - cut to clipboard \n",
  63.        " Alt+Bksp      - undo \n",
  64.        "\n",
  65.        " Alt+H         - flip hiliting modes \n",
  66.        " Alt+A         - auto indent on/off \n",
  67.        " Alt+S         - flip block/stream marking \n",
  68.        " Alt+F         - search dialog \n",
  69.        " Ctrl+L        - search again \n",
  70.        " Alt+U         - convert characters to upper case \n",
  71.        " Alt+L         - convert characters to lower case \n",
  72.        " Alt+M         - flip Unix/DOS file type\n",
  73.        "\n"
  74.  
  75. //editor.force.pm=0
  76. //editor.default.format=0
  77.  
  78. kbAltShiftDiv       = MatchBracketMark
  79. kbAltA              = FlipAutoindent
  80. kbAltBksp           = Undo
  81. kbAltDiv            = MatchBracket
  82. kbAltF              = Search
  83. kbAltF1             = Copyright
  84. kbAltF2             = SaveAs
  85. kbAltF3             = New
  86. kbAltF4             = Close
  87. kbAltH              = FlipHiliting
  88. kbAltJ              = JumpCol
  89. kbAltL              = Lower
  90. kbAltM              = FlipType
  91. kbAltLbracket       = Unindent
  92. kbAltMinus          = FileList
  93. kbAltRbracket       = Indent
  94. kbAltS              = FlipBlockMode
  95. kbAltU              = Upper
  96. kbBksp              = Bksp
  97. kbCtrlBksp          = DelWordLeft
  98. kbCtrlE             = DelToEOL
  99. kbCtrlIns           = Copy
  100. kbCtrlJ             = JumpLine
  101. kbCtrlL             = SearchAgain
  102. kbCtrlLeft          = WordLeft
  103. kbCtrlPgDown        = FileEnd
  104. kbCtrlPgUp          = FileBegin
  105. kbCtrlRight         = WordRight
  106. kbCtrlShiftL        = SearchAgain
  107. kbCtrlShiftLeft     = WordLeftMark
  108. kbCtrlShiftPgDown   = FileEndMark
  109. kbCtrlShiftPgUp     = FileBeginMark
  110. kbCtrlShiftRight    = WordRightMark
  111. kbCtrlT             = DelWordRight
  112. kbCtrlY             = DelLine
  113. kbCtrlH             = HiliteSelect
  114. kbDel               = Del
  115. kbDown              = Down
  116. kbEnd               = End
  117. kbEsc               = Exit
  118. kbF1                = HelpScreen
  119. kbF2                = Save
  120. kbF3                = Load
  121. kbGrMinus           = NextFile
  122. kbGrPlus            = PrevFile
  123. kbHome              = Home
  124. kbIns               = Ins
  125. kbLeft              = Left
  126. kbPgDown            = PgDn
  127. kbPgUp              = PgUp
  128. kbRight             = Right
  129. kbShiftF3           = Sort
  130. kbShiftDel          = Cut
  131. kbShiftDown         = DownMark
  132. kbShiftEnd          = EndMark
  133. kbShiftHome         = HomeMark
  134. kbShiftIns          = Paste
  135. kbShiftLeft         = LeftMark
  136. kbShiftPgDown       = PgDnMark
  137. kbShiftPgUp         = PgUpMark
  138. kbShiftRight        = RightMark
  139. kbShiftUp           = UpMark
  140. kbUp                = Up
  141. kbGrEnter           = "\n"
  142. kbAltD              = InsDate
  143.  
  144. kbAltCtrl0          = MarkSet0
  145. kbAltCtrl1          = MarkSet1
  146. kbAltCtrl2          = MarkSet2
  147. kbAltCtrl3          = MarkSet3
  148. kbAltCtrl4          = MarkSet4
  149. kbAltCtrl5          = MarkSet5
  150. kbAltCtrl6          = MarkSet6
  151. kbAltCtrl7          = MarkSet7
  152. kbAltCtrl8          = MarkSet8
  153. kbAltCtrl9          = MarkSet9
  154. kbAlt0              = MarkGo0
  155. kbAlt1              = MarkGo1
  156. kbAlt2              = MarkGo2
  157. kbAlt3              = MarkGo3
  158. kbAlt4              = MarkGo4
  159. kbAlt5              = MarkGo5
  160. kbAlt6              = MarkGo6
  161. kbAlt7              = MarkGo7
  162. kbAlt8              = MarkGo8
  163. kbAlt9              = MarkGo9
  164.  
  165. kbAltComma          = FileBegin ,
  166.                       Home "\n" Up,
  167.                       "/*\n",
  168.                       "** Module   :" InsFileNameShort "\n",
  169.                       "** Abstract :\n",
  170.                       "**\n",
  171.                       "** Copyright (C) Sergey I. Yevtushenko\n",
  172.                       "**\n",
  173.                       "** Log: " InsDate "\tCreated\n",
  174.                       "**\n",
  175.                       "*/\n"
  176. kbAltPoint          = Home "\n" Up,
  177.                       "#ifndef __" InsFileNameShort WordLeft BkSp "_" End "\n",
  178.                       "#define __" InsFileNameShort WordLeft BkSp "_" End "\n",
  179.                       FileEnd End "\n" End,
  180.                       "#endif  /*__" InsFileNameShort WordLeft BkSp "_" End "*/\n",
  181.                       Up Up End
  182.  
  183. kbF11               = MacroRecStart
  184. kbF12               = MacroRecEnd
  185.  
  186. //
  187. // REXX Macro functions
  188. // Copyright (C) 1998 Vit Timchishin
  189. //
  190.  
  191. kbAltT              = { /* Mark word */
  192.                         lastpos = 0
  193.                         row=fedGet('r')
  194.                         col=fedGet('c')
  195.  
  196.                         do ncol=col to 1 by -1
  197.                             if fedGetChar(row,ncol,1)=' '
  198.                                 then leave;
  199.                         end
  200.  
  201.                         do while fedGetChar(row,col,1)<>'00'x
  202.                             if fedGetChar(row,col,1)=' '
  203.                                 then leave;
  204.                             col=col+1
  205.                         end
  206.                         ncol=ncol+1
  207.                         if ncol < col
  208.                         then do
  209.                             call fedSet 'C', ncol   /* Goto to start of word */
  210.                             call fedSet 'M', 0      /* unmark */
  211.  
  212.                             do while ncol < col
  213.                                 call fedRightMark
  214.                                 ncol=ncol+1
  215.                             end
  216.                         end
  217.                         return
  218.                       }
  219.  
  220. kbShiftTab          = { /* Long tab */
  221.                           if fedget('row')<>1 then
  222.                         do
  223.                             col=fedget('c');
  224.                              row=fedget('row');
  225.                             do while fedgetchar(row-1,col,1)=' ' &,
  226.                                fedgetchar(row-1,col,1)<>'0'x
  227.                                 col=col+1
  228.                             end
  229.  
  230.                             if fedgetchar(row-1,col,1)='0'x
  231.                                 then return;
  232.  
  233.                              call fedset 'col',col
  234.                         end
  235.                       }
  236.  
  237. kbShiftBkSp         = { /* Smart back space */
  238.                         col=fedget('c')
  239.                         do row=fedget('row')-1 to 1 by -1
  240.                             if fedgetchar(row,col-1,1)<>' ' then
  241.                              do cl=col-1 to 1 by -1
  242.  
  243.                                 if fedgetchar(row,cl,1)=' ' then
  244.                                   do
  245.                                     call fedset 'col',cl+1
  246.                                     return 0
  247.                                 end
  248.                              end
  249.                             call fedset 'col',1
  250.                         end
  251.                       }
  252. //
  253. // Jump List examples
  254. // Copyright (C) 1999, Sergey I. Yevtushenko
  255.  
  256. kbShiftF7 =           {
  257.                         fedMsgBox(lst.jump_len)
  258.                         fedOpenJumpList(2);
  259.                       }
  260.  
  261. kbAltF7             = { /* Jikes Java compiler */
  262.                         /* Using JumpList 2 */
  263.                         address cmd
  264.  
  265.                         rc = fedSaveAll()
  266.  
  267.                         'nmake | rxqueue'
  268.                         lst.jump_len=0
  269.                         i=0
  270.  
  271.                         do while queued() > 0
  272.                             parse pull str
  273.                             parse value str with fname':'l1':'c1':'l2':'c2':'msg
  274.                             if strip(fname)='' | l1='' | c1='' | l2='' | c2=''
  275.                                 then iterate;
  276.  
  277.                             if msg=''
  278.                             then do
  279.                                 parse pull msg
  280.                                 msg=strip(msg)
  281.                             end
  282.  
  283.                             lst.i.jump_header='('l1':'c1'):'msg
  284.                             lst.i.jump_file=fname
  285.                             lst.i.jump_row=l1
  286.                             lst.i.jump_col=c1
  287.                             i=i+1
  288.                         end
  289.                         lst.jump_len=i
  290.                         rc = fedFillJumpList('lst',2);
  291.                         rc = fedOpenJumpList(2);
  292.                       }
  293.  
  294. kbShiftF8 =           {
  295.                         fedOpenJumpList(1);
  296.                       }
  297.  
  298. kbAltF8             = { /* Borland make and Watcom C++ compiler */
  299.                         /* Using JumpList 1 */
  300.                         address cmd
  301.  
  302.                         rc = fedSaveAll()
  303.  
  304.                         'bmake | rxqueue'
  305.                         lst.jump_len=0
  306.                         i=0
  307.  
  308.                         do while queued() > 0
  309.                             parse pull str
  310.                             parse value str with fname'): 'msg
  311.                             if strip(fname)='' | strip(msg)=''
  312.                                 then iterate;
  313.  
  314.                             parse value fname with fname'('arow'):'txt': (col'acol')'rest
  315.  
  316.                             lst.i.jump_header=str
  317.                             lst.i.jump_file=fname
  318.                             lst.i.jump_row=arow
  319.                             lst.i.jump_col=acol
  320.                             i=i+1
  321.                         end
  322.                         lst.jump_len=i
  323.                         rc = fedFillJumpList('lst',1);
  324.                         rc = fedOpenJumpList(1);
  325.                       }
  326.  
  327. kbShiftF9 =           {
  328.                         fedOpenJumpList(0);
  329.                       }
  330.  
  331. kbAltF9             = { /* IBM's NMAKE and Visual Age C++ compiler */
  332.                         /* Using JumpList 0 */
  333.                         address cmd
  334.  
  335.                         rc = fedSaveAll()
  336.  
  337.                         'nmake | rxqueue'
  338.                         lst.jump_len=0
  339.                         i=0
  340.  
  341.                         do while queued() > 0
  342.                             parse pull str
  343.                             parse value str with fname' : 'msg
  344.                             if strip(fname)='' | strip(msg)=''
  345.                                 then iterate;
  346.  
  347.                             parse value fname with fname'('arow':'acol')'rest
  348.  
  349.                             lst.i.jump_header=str
  350.                             lst.i.jump_file=fname
  351.                             lst.i.jump_row=arow
  352.                             lst.i.jump_col=acol
  353.                             i=i+1
  354.                         end
  355.                         lst.jump_len=i
  356.                         rc = fedFillJumpList('lst',0);
  357.                         rc = fedOpenJumpList(0);
  358.                       }
  359.  
  360. kbAltV              = {
  361.                         /* List of functions in file */
  362.                         /* Using JumpList 9 */
  363.  
  364.                         fname=fedGet('Name');
  365.  
  366.                         lst.jump_len=0
  367.                         i=0
  368.  
  369.                         do j = 1 to fedGet('Last')
  370.  
  371.                             str=fedGetChar(j)
  372.                             chr=translate(left(str, 1))
  373.  
  374.                             if chr<'A' | chr > 'Z' | length(strip(str)) < 3
  375.                                 then iterate;
  376.  
  377.                             chr=translate(right(strip(str), 1))
  378.  
  379.                             if chr=';' | chr='=' | chr='{' | chr=']'
  380.                                 then iterate
  381.  
  382.                             lst.i.jump_header=str
  383.                             lst.i.jump_file=fname
  384.                             lst.i.jump_row=j
  385.                             lst.i.jump_col=1
  386.                             i=i+1
  387.  
  388.                         end
  389.                         lst.jump_len=i
  390.  
  391.                         rc = fedFillJumpList('lst',9)
  392.                         rc = fedOpenJumpList(9)
  393.  
  394.                       }
  395.  
  396. //----------------------------------------------------------------
  397. // kbInit/kbDone pseudo keys.
  398. //
  399. // Sample kbInit/kbDone is simple 'project' manager
  400. // if in current directory exist file 'fed.prj' then kbInit loads
  401. // all files listed in 'fed.prj'. kbDone macro is used for saving
  402. // list of all opened files into 'fed.prj' if 'fed.prj' exists
  403. // in current directory.
  404. //
  405. // WARNING: Old 'fed.prj' is replaced and old content is lost!
  406. //----------------------------------------------------------------
  407.  
  408. kbInit = { /* Load stored list of files opened last time */
  409.            /* Using 'fed.prj' in current directory */
  410.  
  411.             fil=fedGet('Dir')||'fed.prj'
  412.             first=''
  413.             current=fedGet('N')
  414.  
  415.             if stream(fil, 'c', 'query exists') = ''
  416.                 then return;
  417.  
  418.             do while lines(fil) > 0
  419.                 str=strip(linein(fil))
  420.  
  421.                 if str<>''
  422.                 then do
  423.                     if first=''
  424.                         then first=str
  425.                     rc=fedOpenFile(str);
  426.                 end
  427.             end
  428.  
  429.             call stream fil, 'c', 'close'
  430.  
  431.             if pos('.Untitled', current) = 0
  432.             then do
  433.                 rc = fedMsgBox(current)
  434.                 rc = fedOpen(current)
  435.                 return 0;
  436.             end
  437.  
  438.             if first=''
  439.                 then return 0;
  440.  
  441.             rc = fedMsgBox(current'<>'first)
  442.             rc = fedOpen(first)
  443.          }
  444.  
  445. kbDone = { /* Save opened files list */
  446.            /* Using 'fed.prj' in current directory */
  447.  
  448.             fil=fedGet('Dir')||'fed.prj'
  449.  
  450.             if stream(fil, 'c', 'query exists') = ''
  451.                 then return;
  452.  
  453.             address cmd
  454.  
  455.             'del 'fil '>nul 2>nul'
  456.  
  457.             handle=fedGet('Buffer')     /* get current buffer handle */
  458.  
  459.             do until handle=fedGet('Buffer')
  460.                 call lineout fil, fedGet('Name') /* store file name into list*/
  461.                 rc=fedNextFile()                 /* switch to next opended */
  462.             end
  463.             call stream fil, 'c', 'close'
  464.          }
  465.  
  466.