home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1089 / files1.lzh / EWAPIIMP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-29  |  13.2 KB  |  256 lines
  1. {************************************************}
  2. {                                                }
  3. { E! for Windows                                 }
  4. { (c) - Patrick Philippot - 1992,93              }
  5. { EWAPI DLL import unit                          }
  6. { version 1.2                                    }
  7. {                                                }
  8. {************************************************}
  9. {$IFDEF DEBUG}
  10. {$A-,G+,B-,D+,F+,I-,N-,R+,S-,V-,L+}
  11. {$ELSE}
  12. {$A-,G+,B-,D-,F+,I-,N-,R-,S-,V-,L-}
  13. {$ENDIF}
  14.  
  15. unit EWAPIImp;
  16.  
  17. INTERFACE
  18.  
  19. uses WinTypes, EWTypes;
  20.  
  21. {$I ewuser.inc}
  22.  
  23. {///////////////////////////// EW Primer access ///////////////////////////}
  24.  
  25. function EWAddTab(col : integer; fAdd : word) : integer;
  26. function EWAlternateHelp(col, row : integer) : integer;
  27. function EWBeginLine(fSkipToPrev : word) : integer;
  28. function EWBlockShift : integer;
  29. function EWBlockSort(fAscend : word) : integer;
  30. function EWCase(fUpper : word) : integer;
  31. function EWCheckBrace(col, row : integer) : integer;
  32. function EWClearLine(row : integer) : integer;
  33. function EWExecCompileCommand(commandindex : word) : integer;
  34. function EWDeleteChar : integer;
  35. function EWDeleteCurLine : integer;
  36. function EWDeleteEOL : integer;
  37. function EWDeleteLeft(fDeleteCurrent : word) : integer;
  38. function EWDeleteLines(start, num : integer) : integer;
  39. function EWDeleteSelection  : integer;
  40. function EWDeleteWord : integer;
  41. function EWEndLine(fSkipToNext, fStrip : word) : integer;
  42. function EWFillBlock(ch : char) : integer;
  43. function EWGetFile(Name : PChar; row : integer) : integer;
  44. function EWGotoBookmark(index : word) : integer;
  45. function EWGotoNextParagraph : integer;
  46. function EWGotoNextTab : integer;
  47. function EWGotoPrevTab : integer;
  48. function EWGotoPrevParagraph : integer;
  49. function EWGotoCompileError(fNext : word) : integer;
  50. function EWGotoLine(row : integer) : integer;
  51. function EWGotoXY(col, row : integer) : integer;
  52. function EWGotoSelection(fBegin : word) : integer;
  53. function EWInsertBrace(col, row : integer) : integer;
  54. function EWInsertLines(start, num : integer) : integer;
  55. function EWInsertMacroText(col, row : integer; macrotype : word) : integer;
  56. function EWJoinLine(row : integer) : integer;
  57. function EWLoadUserFile(col, row : integer) : integer;
  58. function EWNextCol : integer;
  59. function EWNextLine : integer;
  60. function EWNextWord(fNext : word) : integer;
  61. function EWTopOfPage(fTop : word) : integer;
  62. function EWHorzPageScroll(fLeft : word) : integer;
  63. function EWVerPageScroll(fUp : word) : integer;
  64. function EWPrevCol : integer;
  65. function EWPrevLine : integer;
  66. function EWPaste(fInsert : word) : integer;
  67. function EWReflow(row : integer) : integer;
  68. function EWRefresh(fAsk : word) : integer;
  69. function EWRemoveBookmark(index : word) : integer;
  70. function EWSaveFile(Name : PChar) : integer;
  71. function EWSelectAll : integer;
  72. function EWSetBookmark(col, row : integer) : integer;
  73. function EWSetClipboard(fAppend : word) : integer;
  74. function EWPositionCurLine(position : word) : integer;
  75. function EWShiftTextRight(col, row, count : integer) : integer;
  76. function EWSplitLine(col, row : integer) : integer;
  77. function EWStepScroll(dX, dY : integer) : integer;
  78. function EWSumBlock : integer;
  79. function EWStripFlow : integer;
  80. function EWTopOfText(fTop : word) : integer;
  81. function EWTextToCurSor : integer;
  82. function EWToggleInsert : integer;
  83. function EWUpcaseFirst(col, row : integer) : integer;
  84. function EWWriteBlock(startrow, endrow, startcol, endcol : integer;
  85.                       Name      : PChar;
  86.                       mode,
  87.                       fBlock,
  88.                       fCompress : word) : integer;
  89.  
  90. {//////////////////////// Service Routines ////////////////////////////////}
  91.  
  92. function  EWAddMenuEntry(Command, Title : PChar; CommandId : word; AssignMode : word; RoutineId : word) : longint;
  93. function  EWBeginSelection(SelType : word; col, row : integer) : integer;
  94. function  EWCallUserExt(ExtName : PChar) : integer;
  95. function  EWEditFile(Name : PChar) : longint;
  96. function  EWEndSelection : integer;
  97. procedure EWEnumClones(EditorId : longint; CloneEnumProc : TEnumClonesProc);
  98. procedure EWEnumEditors(EdEnumProc : TEnumEditorsProc);
  99. function  EWFind(MatchLen : PWord) : longint;
  100. function  EWFindRegular(src, dest : PChar; MatchLen : PWord) : word;
  101. function  EWGetCaretPos : longint;
  102. function  EWGetCloneNum : word;
  103. function  EWGetCurWord : longint;
  104. function  EWGetCurrentEditor : longint;
  105. function  EWGetFileName(EditorId : longint) : PChar;
  106. function  EWGetGlobalFlag(FlagId : word) : integer;
  107. function  EWGetInsertState : word;
  108. function  EWGetLineAt(index : integer) : PChar;
  109. function  EWGetLineCount : integer;
  110. function  EWGetLocalFlag(FlagId : word) : integer;
  111. function  EWGetEditorLocalFlag(FlagId : word) : integer;
  112. function  EWGetSearchFlag(FlagId : word) : integer;
  113. procedure EWGetSelection(Selection : PSelStruct);
  114. function  EWGetTextPos : longint;
  115. function  EWGetVersion : word;
  116. function  EWGetWindowHandle : word;
  117. function  EWGetTextWindowHandle : word;
  118. function  EWIsRegistered :word;
  119. procedure EWRemoveHook(hFlag : word; HookAddress : pointer);
  120. function  EWRemoveMenuEntry(Id : longint) : longint;
  121. function  EWRepeatFind(MatchLen : PWord) : longint;
  122. procedure EWSetCCHandle(H : HWnd);
  123. function  EWSetCurrentEditor(EditorId : longint) : longint;
  124. procedure EWSetEditorId(EditorId : longint);
  125. procedure EWSetFindPattern(pattern : PChar);
  126. function  EWSetGlobalFlag(FlagId, value : word) : integer;
  127. procedure EWSetHook(hFlag : word; HookAddress : pointer);
  128. function  EWSetLineAt(P : PChar; index : integer) : integer;
  129. function  EWSetLocalFlag(FlagId, value : word) : integer;
  130. function  EWSetEditorLocalFlag(FlagId, value : word) : integer;
  131. procedure EWSetModified;
  132. function  EWSetSearchFlag(FlagId, value : word) : integer;
  133. procedure EWSetWindowHandle(H : HWnd);
  134. function  EWStopSelection(col, row : integer) : integer;
  135. function  EWUpdateSelection(col, row : integer) : integer;
  136. procedure EWWriteMessage(message : PChar);
  137. function  EWGetInstance : word;
  138. function  EWIsModified : word;
  139. function  EWSaveAll : integer;
  140.  
  141. {-Please see Technical Note #008 before using these functions}
  142. procedure EWSetEditorId(EditorId : longint);
  143. procedure EWSetWindowHandle(H : HWnd);
  144.  
  145. IMPLEMENTATION
  146.  
  147. function EWAddTab;                     external 'ewapi' index  1;
  148. function EWBeginLine;                  external 'ewapi' index  2;
  149. function EWBlockShift;                 external 'ewapi' index  3;
  150. function EWBlockSort;                  external 'ewapi' index  4;
  151. function EWCase;                       external 'ewapi' index  5;
  152. function EWCheckBrace;                 external 'ewapi' index  6;
  153. function EWClearLine;                  external 'ewapi' index  7;
  154. function EWExecCompileCommand;         external 'ewapi' index  8;
  155. function EWDeleteChar;                 external 'ewapi' index  9;
  156. function EWDeleteCurLine;              external 'ewapi' index 10;
  157. function EWDeleteEOL;                  external 'ewapi' index 11;
  158. function EWDeleteLeft;                 external 'ewapi' index 12;
  159. function EWDeleteLines;                external 'ewapi' index 13;
  160. function EWDeleteSelection;            external 'ewapi' index 14;
  161. function EWDeleteWord;                 external 'ewapi' index 15;
  162. function EWEndLine;                    external 'ewapi' index 16;
  163. function EWFillBlock;                  external 'ewapi' index 17;
  164. function EWGetFile;                    external 'ewapi' index 18;
  165. function EWGotoBookmark;               external 'ewapi' index 19;
  166. function EWGotoNextParagraph;          external 'ewapi' index 20;
  167. function EWGotoNextTab;                external 'ewapi' index 21;
  168. function EWGotoPrevTab;                external 'ewapi' index 22;
  169. function EWGotoPrevParagraph;          external 'ewapi' index 23;
  170. function EWGotoCompileError;           external 'ewapi' index 24;
  171. function EWGotoLine;                   external 'ewapi' index 25;
  172. function EWGotoXY;                     external 'ewapi' index 26;
  173. function EWGotoSelection;              external 'ewapi' index 27;
  174. function EWInsertBrace;                external 'ewapi' index 28;
  175. function EWInsertLines;                external 'ewapi' index 29;
  176. function EWInsertMacroText;            external 'ewapi' index 30;
  177. function EWJoinLine;                   external 'ewapi' index 31;
  178. function EWLoadUserFile;               external 'ewapi' index 32;
  179. function EWNextCol;                    external 'ewapi' index 33;
  180. function EWNextLine;                   external 'ewapi' index 34;
  181. function EWNextWord;                   external 'ewapi' index 35;
  182. function EWTopOfPage;                  external 'ewapi' index 36;
  183. function EWHorzPageScroll;             external 'ewapi' index 37;
  184. function EWVerPageScroll;              external 'ewapi' index 38;
  185. function EWPrevCol;                    external 'ewapi' index 39;
  186. function EWPrevLine;                   external 'ewapi' index 40;
  187. function EWPaste;                      external 'ewapi' index 41;
  188. function EWReflow;                     external 'ewapi' index 42;
  189. function EWRefresh;                    external 'ewapi' index 43;
  190. function EWRemoveBookmark;             external 'ewapi' index 44;
  191. function EWSaveFile;                   external 'ewapi' index 45;
  192. function EWSelectAll;                  external 'ewapi' index 46;
  193. function EWSetBookmark;                external 'ewapi' index 47;
  194. function EWSetClipboard;               external 'ewapi' index 48;
  195. function EWPositionCurLine;            external 'ewapi' index 49;
  196. function EWShiftTextRight;             external 'ewapi' index 50;
  197. function EWSplitLine;                  external 'ewapi' index 51;
  198. function EWStepScroll;                 external 'ewapi' index 52;
  199. function EWSumBlock;                   external 'ewapi' index 53;
  200. function EWStripFlow;                  external 'ewapi' index 54;
  201. function EWTopOfText;                  external 'ewapi' index 55;
  202. function EWTextToCurSor;               external 'ewapi' index 56;
  203. function EWToggleInsert;               external 'ewapi' index 57;
  204. function EWUpcaseFirst;                external 'ewapi' index 58;
  205. function EWWriteBlock;                 external 'ewapi' index 59;
  206. function EWAlternateHelp;              external 'ewapi' index 60;
  207. {///////////////////////////////////////////////////////////////}
  208. function  EWAddMenuEntry;              external 'ewapi' index 61;
  209. function  EWBeginSelection;            external 'ewapi' index 62;
  210. function  EWCallUserExt;               external 'ewapi' index 63;
  211. function  EWEditFile;                  external 'ewapi' index 64;
  212. function  EWEndSelection;              external 'ewapi' index 65;
  213. procedure EWEnumClones;                external 'ewapi' index 66;
  214. procedure EWEnumEditors;               external 'ewapi' index 67;
  215. function  EWFind;                      external 'ewapi' index 68;
  216. function  EWFindRegular;               external 'ewapi' index 69;
  217. function  EWGetCaretPos;               external 'ewapi' index 70;
  218. function  EWGetCloneNum;               external 'ewapi' index 71;
  219. function  EWGetCurWord;                external 'ewapi' index 72;
  220. function  EWGetCurrentEditor;          external 'ewapi' index 73;
  221. function  EWGetFileName;               external 'ewapi' index 74;
  222. function  EWGetGlobalFlag;             external 'ewapi' index 75;
  223. function  EWGetInsertState;            external 'ewapi' index 76;
  224. function  EWGetLineAt;                 external 'ewapi' index 77;
  225. function  EWGetLineCount;              external 'ewapi' index 78;
  226. function  EWGetLocalFlag;              external 'ewapi' index 79;
  227. function  EWGetSearchFlag;             external 'ewapi' index 80;
  228. procedure EWGetSelection;              external 'ewapi' index 81;
  229. function  EWGetTextPos;                external 'ewapi' index 82;
  230. function  EWGetVersion;                external 'ewapi' index 83;
  231. function  EWGetWindowHandle;           external 'ewapi' index 84;
  232. procedure EWRemoveHook;                external 'ewapi' index 86;
  233. function  EWRemoveMenuEntry;           external 'ewapi' index 87;
  234. function  EWRepeatFind;                external 'ewapi' index 88;
  235. function  EWSetCurrentEditor;          external 'ewapi' index 90;
  236. procedure EWSetEditorId;               external 'ewapi' index 91;
  237. procedure EWSetFindPattern;            external 'ewapi' index 92;
  238. function  EWSetGlobalFlag;             external 'ewapi' index 93;
  239. procedure EWSetHook;                   external 'ewapi' index 94;
  240. function  EWSetLineAt;                 external 'ewapi' index 95;
  241. function  EWSetLocalFlag;              external 'ewapi' index 96;
  242. function  EWSetSearchFlag;             external 'ewapi' index 97;
  243. procedure EWSetWindowHandle;           external 'ewapi' index 98;
  244. function  EWStopSelection;             external 'ewapi' index 99;
  245. function  EWUpdateSelection;           external 'ewapi' index 100;
  246. procedure EWWriteMessage;              external 'ewapi' index 101;
  247. function  EWGetTextWindowHandle;       external 'ewapi' index 102;
  248. procedure EWSetModified;               external 'ewapi' index 103;
  249. function  EWGetInstance;               external 'ewapi' index 104;
  250. function  EWIsModified;                external 'ewapi' index 105;
  251. function  EWGetEditorLocalFlag;        external 'ewapi' index 106;
  252. function  EWSetEditorLocalFlag;        external 'ewapi' index 107;
  253. function  EWSaveAll;                   external 'ewapi' index 108;
  254.  
  255. end.
  256.