home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / Rich-Martin.LZH / Config!F next >
Text File  |  1988-11-15  |  2KB  |  56 lines
  1.                     /* C LANGUAGE COMMANDS */
  2.  
  3. /* create comment brackets */
  4.     <alt-/:         insertRgn(curFile,atCursor,"/*  */",all)
  5.                 do(n50,0,2)
  6.                     runKey(normal-leftArrow) >
  7.  
  8. /* draw a line of commented asterisks */
  9.     <shftctl-/:        typeChar(47)
  10.                 do(n50,0,59) typeChar(42)
  11.                 typeChar(47)
  12.                 typeChar(10) >
  13.  
  14. /* create "if" structure */
  15.     <shftCtl-i:    
  16.                 insertRgn(curFile,atCursor,"if () {",all)
  17.                 do(n50,0,1) typeChar(10)
  18.                 typeChar("}")
  19.                 runKey(normal-upArrow)
  20.                 insertChar(curFile,9)  ..tab 4 spaces
  21.                 runKey(normal-upArrow) >
  22. /* create "for" structure */
  23.     <shftCtl-f:    insertRgn(curFile,atCursor,"for (i=0; i<; i++) {",all)
  24.                 do(n50,0,1) typeChar(10)
  25.                 typeChar("}")
  26.                 runKey(normal-upArrow)
  27.                 insertChar(curFile,9)  ..tab 4 spaces
  28.                 runKey(normal-upArrow)
  29.                 do(n50,0,1) runKey(shft-tab) >
  30.  
  31. /* create "while" structure */
  32.     <shftCtl-w:    insertRgn(curFile,atCursor,"while() {",all)
  33.                 do(n50,0,1) typeChar(10)
  34.                 typeChar("}")
  35.                 runKey(normal-upArrow)
  36.                 insertChar(curFile,9)  ..tab 4 spaces
  37.                 runKey(normal-upArrow)
  38.                 do(n50,0,1) runKey(normal-rightArrow) >
  39.  
  40. /* create "switch" structure */
  41.     <shftCtl-s:    insertRgn(curFile,atCursor,"switch () {",all)
  42.                 typeChar(10)
  43.                 insertChar(curFile,9)  ..tab 4 spaces
  44.                 insertRgn(curFile,atCursor,"case :",all)
  45.                 typeChar(10)
  46.                 insertRgn(curFile,atCursor,"default:",all)
  47.                 typeChar(10)
  48.                 insertChar(curFile,9)  ..tab 4 spaces
  49.                 insertRgn(curFile,atCursor,"break;",all)
  50.                 typeChar(10)
  51.                 do(n50,0,1) runKey(shft-kp7)
  52.                 typeChar("}")
  53.                 do(n50,0,3) runKey(normal-upArrow)
  54.                 do(n50,0,1) runKey(shft-tab) >
  55.  
  56.