Skip to content

Commit

Permalink
Pow! 3.1.2 2005-03-16
Browse files Browse the repository at this point in the history
  • Loading branch information
@pahihu
pahihu committed Nov 10, 2018
1 parent b217f60 commit bd0b2d8
Show file tree
Hide file tree
Showing 16 changed files with 2,638 additions and 1,544 deletions.
311 changes: 159 additions & 152 deletions BoostEd/OptionDialogs.mod
View file

Large diffs are not rendered by default.

629 changes: 382 additions & 247 deletions BoostEd/boosted32.mod
View file

Large diffs are not rendered by default.

Binary file modified BoostEd/boosted32.prj
View file
Binary file not shown.
340 changes: 186 additions & 154 deletions BoostEd/editwin.mod
View file

Large diffs are not rendered by default.

522 changes: 394 additions & 128 deletions BoostEd/envhnd.mod
View file

Large diffs are not rendered by default.

596 changes: 453 additions & 143 deletions BoostEd/filehnd.mod
View file

Large diffs are not rendered by default.

106 changes: 70 additions & 36 deletions BoostEd/globmem.mod
View file
Original file line number Diff line number Diff line change
@@ -1,80 +1,108 @@
(******************************************************************************
* Module GlobMem
*
* This module supports handling of Windows Global Memory objects.
******************************************************************************)
(*****************************************************************************)
(* *)
(* Project: BoostEd32 *)
(* *)
(* Module: GlobMem V 2.00.03 *)
(* 2004MAY01 *)
(* PURPOSE: This module supports handling of Windows Global Memory *)
(* objects. *)
(* *)
(* FUNCTIONS: *)
(* *)
(* Author(s): *)
(* Michael Bogner, Max Mayrbäurl *)
(* BL Bernhard Leisch *)
(* Alexander Bergsmann *)
(* KlS schultze-schoenberg@t-online.de *)
(* *)
(* Configuration Management *)
(* *)
(* created *)
(* 1998 *)
(* *)
(* update *)
(* *)
(* release *)
(* *)
(* Comments *)
(* *)
(*****************************************************************************)

MODULE GlobMem;


IMPORT SYSTEM,
WB:=WinBase, WD:=WinDef, WU:=WinUser,
List:=ListSt, Strings, GlobWin;
IMPORT
SYSTEM,
WinBase, WinDef, WinUser,
Strings,
ListSt, GlobWin;


PROCEDURE CopyChar*(globMem:WD.HGLOBAL; ch:CHAR);
(*****************************************************************************)
PROCEDURE CopyChar*(globMem:WinDef.HGLOBAL; ch:CHAR);
(* Globaler Speicherbuffer, kopiert ein Zeichen in globalen Speicher *)
VAR
lpGlob,inx : LONGINT;
chx : CHAR;
BEGIN
IF globMem=WD.NULL THEN
IF globMem=WinDef.NULL THEN
GlobWin.Beep;
RETURN;
END;
lpGlob := WB.GlobalLock(globMem); (* globalen Speicherbereich sperren *)
ASSERT(lpGlob#WD.NULL);
lpGlob := WinBase.GlobalLock(globMem); (* globalen Speicherbereich sperren *)
ASSERT(lpGlob#WinDef.NULL);
inx:=0;
SYSTEM.GET(lpGlob+inx,chx);
WHILE (inx<List.MAXLENGTH) & (chx#0X) DO
WHILE (inx<ListSt.MAXLENGTH) & (chx#0X) DO
INC(inx);
SYSTEM.GET(lpGlob+inx,chx);
END;
IF inx<List.MAXLENGTH THEN
IF inx<ListSt.MAXLENGTH THEN
SYSTEM.PUT(lpGlob+inx,ch);
SYSTEM.PUT(lpGlob+inx+1,0X);
ELSE
GlobWin.Beep;
END;
lpGlob := WB.GlobalUnlock(globMem); (* Sperren aufheben *)
lpGlob := WinBase.GlobalUnlock(globMem); (* Sperren aufheben *)
END CopyChar;


PROCEDURE NewLineBuf*(VAR globMem:WD.HGLOBAL);
(*****************************************************************************)
PROCEDURE NewLineBuf*(VAR globMem:WinDef.HGLOBAL);
(* globalen Speicherbuffer allokieren ausreichend für eine Zeile und Initialisieren *)
(* mit einem leeren String. *)
VAR
lpGlob : LONGINT;
BEGIN
globMem:=WB.GlobalAlloc(WB.GMEM_MOVEABLE,List.MAXLENGTH+1); (* Speicher allokieren *)
IF globMem=WD.NULL THEN RETURN END; (* Speicherallokierung erfolglos ? *)
lpGlob:=WB.GlobalLock(globMem); (* Speicherbereich sperren *)
ASSERT(lpGlob#WD.NULL);
globMem:=WinBase.GlobalAlloc(WinBase.GMEM_MOVEABLE,ListSt.MAXLENGTH+1); (* Speicher allokieren *)
IF globMem=WinDef.NULL THEN RETURN END; (* Speicherallokierung erfolglos ? *)
lpGlob:=WinBase.GlobalLock(globMem); (* Speicherbereich sperren *)
ASSERT(lpGlob#WinDef.NULL);
SYSTEM.PUT(lpGlob,0X);
lpGlob:=WB.GlobalUnlock(globMem); (* Sperren aufheben *)
lpGlob:=WinBase.GlobalUnlock(globMem); (* Sperren aufheben *)
END NewLineBuf;

(**********************************************************************************************)

PROCEDURE InsertChar*(globMem:WD.HGLOBAL; ch:CHAR);
(*****************************************************************************)
PROCEDURE InsertChar*(globMem:WinDef.HGLOBAL; ch:CHAR);
(* ein Zeichen am Beginn des globalen Speicherbuffers einfügen *)
VAR
lpGlob,i,inx : LONGINT;
chx : CHAR;
BEGIN
IF globMem=WD.NULL THEN
IF globMem=WinDef.NULL THEN
GlobWin.Beep;
RETURN;
END;
lpGlob:=WB.GlobalLock(globMem); (* globalen Speicherbereich sperren *)
ASSERT(lpGlob#WD.NULL);
lpGlob:=WinBase.GlobalLock(globMem); (* globalen Speicherbereich sperren *)
ASSERT(lpGlob#WinDef.NULL);
inx:=0;
SYSTEM.GET(lpGlob+inx,chx);
WHILE (inx<List.MAXLENGTH) & (chx#0X) DO
WHILE (inx<ListSt.MAXLENGTH) & (chx#0X) DO
INC(inx);
SYSTEM.GET(lpGlob+inx,chx);
END;
IF inx<List.MAXLENGTH THEN
IF inx<ListSt.MAXLENGTH THEN
FOR i:=inx TO 0 BY -1 DO
SYSTEM.GET(lpGlob+i,chx);
SYSTEM.PUT(lpGlob+i+1,chx);
Expand All @@ -83,34 +111,40 @@ BEGIN
ELSE
GlobWin.Beep;
END;
lpGlob:=WB.GlobalUnlock(globMem); (* Sperren aufheben *)
lpGlob:=WinBase.GlobalUnlock(globMem); (* Sperren aufheben *)
END InsertChar;


PROCEDURE CopyString*(globMem:WD.HGLOBAL; txt:ARRAY OF CHAR);
(*****************************************************************************)
PROCEDURE CopyString*(globMem:WinDef.HGLOBAL; txt:ARRAY OF CHAR);
(* einen String samt Carriage Return in einen globalen Speicherbuffer kopieren *)
VAR
lpGlob,len : LONGINT;
BEGIN
IF globMem=WD.NULL THEN
IF globMem=WinDef.NULL THEN
GlobWin.Beep;
RETURN;
END;
lpGlob:=WB.GlobalLock(globMem); (* Speicherbereich sperren *)
ASSERT(lpGlob#WD.NULL);
lpGlob:=WinBase.GlobalLock(globMem); (* Speicherbereich sperren *)
ASSERT(lpGlob#WinDef.NULL);
len:=Strings.Length(txt);
IF len>List.MAXLENGTH-2 THEN
len:=List.MAXLENGTH-2;
IF len>ListSt.MAXLENGTH-2 THEN
len:=ListSt.MAXLENGTH-2;
GlobWin.Beep;
END;
SYSTEM.MOVE(SYSTEM.ADR(txt),lpGlob,len);
INC(lpGlob,len);
SYSTEM.PUT(lpGlob,0DX); INC(lpGlob);
SYSTEM.PUT(lpGlob,0AX); INC(lpGlob);
SYSTEM.PUT(lpGlob,0X);
lpGlob:=WB.GlobalUnlock(globMem); (* Sperren aufheben *)
lpGlob:=WinBase.GlobalUnlock(globMem); (* Sperren aufheben *)
END CopyString;


(*****************************************************************************)
(*****************************************************************************)
BEGIN;
;
END GlobMem.


123 changes: 84 additions & 39 deletions BoostEd/globwin.mod
View file
Original file line number Diff line number Diff line change
@@ -1,68 +1,113 @@
(******************************************************************************
* Module GlobWin
*
* This module provides global access to some commonly used functions
* which are closely tied to the Windows API.
******************************************************************************)
(*****************************************************************************)
(* *)
(* Project: BoostEd32 *)
(* *)
(* Module: GlobWin V 2.00.04 *)
(* 2004OCT18 *)
(* PURPOSE: This module provides global access to some commonly used *)
(* functions which are closely tied to the Windows API. *)
(* *)
(* FUNCTIONS: *)
(* *)
(* Author(s): *)
(* Michael Bogner, Max Mayrbäurl *)
(* BL Bernhard Leisch *)
(* Alexander Bergsmann *)
(* KlS schultze-schoenberg@t-online.de *)
(* *)
(* Configuration Management *)
(* *)
(* created *)
(* 1998 *)
(* *)
(* update *)
(* *)
(* release *)
(* *)
(* Comments *)
(* *)
(*****************************************************************************)

MODULE GlobWin;

IMPORT SYSTEM,
WD:=WinDef, WB:=WinBase, WU:=WinUser, WN:=WinNT,
Strings;
IMPORT
Strings,
WinBase, WinDef, WinNT, WinUser,
SYSTEM;

CONST
HELPFILENAME="BoostEd.hlp";
HELPFILENAME = "BoostEd.hlp";

VAR
hInstance* : WD.HINSTANCE;
hInstance*: WinDef.HINSTANCE;


PROCEDURE DisplayError*(title: ARRAY OF CHAR; msg: ARRAY OF CHAR);
(* Show a pop-up window with an error message.
The procedure returns after the user has acknowledged
the error message. *)
VAR
r: WD.BOOL;
(*****************************************************************************)
PROCEDURE DisplayError* (Title: ARRAY OF CHAR;
Message: ARRAY OF CHAR);
(* Show a pop-up window with an error message. *)
(* The procedure returns after the user has acknowledged the error message. *)
VAR
ResultBool: WinDef.BOOL;
BEGIN
r := WU.MessageBoxA(WD.NULL, SYSTEM.ADR(msg), SYSTEM.ADR(title), WU.MB_OK);
ResultBool := WinUser.MessageBoxA(WinDef.NULL,
SYSTEM.ADR(Message),
SYSTEM.ADR(Title),
WinUser.MB_OK);
END DisplayError;


PROCEDURE ShowHelp*(hEdit:WD.HWND);
VAR
ret,i : LONGINT;
tmp,help : ARRAY 128 OF CHAR;
dmyi : LONGINT;
(*****************************************************************************)
PROCEDURE ShowHelp* (hEdit: WinDef.HWND);
VAR
ret,
i: LONGINT;
tmp,
help: ARRAY 128 OF CHAR;
dmyi: LONGINT;
BEGIN
ret:=WB.GetModuleFileNameA(hInstance,SYSTEM.ADR(help),128);
IF ret=0 THEN DisplayError("Error","Problems getting helpfile");
ret := WinBase.GetModuleFileNameA(hInstance,SYSTEM.ADR(help),128);
IF ret=0 THEN
DisplayError("Error","Problems getting helpfile");
ELSE
i:=ret-1;
i := ret-1;
WHILE (i>=0) & (help[i]#"\") DO
help[i]:=0X;
help[i] := 0X;
DEC(i);
END;
Strings.Append(help,HELPFILENAME);
dmyi:=WU.WinHelpA(hEdit, SYSTEM.ADR(help), WU.HELP_CONTENTS,0);
IF dmyi=0 THEN
tmp:="The helpfile must reside at ";

dmyi := WinUser.WinHelpA(hEdit, SYSTEM.ADR(help), WinUser.HELP_CONTENTS,0);
IF dmyi=0 THEN
tmp := "The helpfile must reside at ";
Strings.Append(tmp,help);
DisplayError("HELP",tmp);
END;
END;
END;
END ShowHelp;

PROCEDURE Beep*;


(*****************************************************************************)
PROCEDURE Beep* ();
VAR
res:WD.BOOL;
ResultBool: WinDef.BOOL;
BEGIN
res:=WU.MessageBeep(WU.MB_ICONEXCLAMATION);
END Beep;
ResultBool := WinUser.MessageBeep(WinUser.MB_ICONEXCLAMATION);
END Beep;

PROCEDURE RGB*(r,g,b:INTEGER):LONGINT;

(*****************************************************************************)
PROCEDURE RGB* (r,
g,
b: INTEGER)
:LONGINT;
BEGIN
RETURN (b*256+g)*256+r;
END RGB;

(*****************************************************************************)
(*****************************************************************************)
BEGIN;
;
END GlobWin.

28 changes: 14 additions & 14 deletions BoostEd/listst.mod
View file
Original file line number Diff line number Diff line change
Expand Up @@ -107,42 +107,42 @@ BEGIN
sCh:=0X;
IF line.commentNesting<=0 THEN
sInx:=0;
WHILE (Options.stringDelims[sInx]#0X) &
(Options.stringDelims[sInx]#txt[i]) DO
WHILE (Options.ActSyntaxColouring.StringDelims[sInx]#0X) &
(Options.ActSyntaxColouring.StringDelims[sInx]#txt[i]) DO
INC(sInx);
END;
IF Options.stringDelims[sInx]#0X THEN
sCh:=Options.stringDelims[sInx];
IF Options.ActSyntaxColouring.StringDelims[sInx]#0X THEN
sCh:=Options.ActSyntaxColouring.StringDelims[sInx];
INC(i);
WHILE (txt[i]#0X) & (txt[i]#sCh) DO INC(i) END;
IF txt[i]=sCh THEN INC(i) END;
END;
END;
IF sCh#0X THEN
ELSIF txt[i]=Options.commentStart[0] THEN
ELSIF txt[i]=Options.ActSyntaxColouring.CommentStart[0] THEN
sInx:=1;
WHILE (Options.commentStart[sInx]#0X) &
(txt[i+sInx]=Options.commentStart[sInx]) DO
WHILE (Options.ActSyntaxColouring.CommentStart[sInx]#0X) &
(txt[i+sInx]=Options.ActSyntaxColouring.CommentStart[sInx]) DO
INC(sInx);
END;
IF Options.commentStart[sInx]=0X THEN
IF Options.ActSyntaxColouring.CommentStart[sInx]=0X THEN
INC(i,sInx);
IF (line.commentNesting<=0) OR Options.commentsNested THEN
IF (line.commentNesting<=0) OR Options.ActSyntaxColouring.CommentsNested THEN
INC(line.commentNesting);
END;
line.isCommented:=TRUE;
ELSE
INC(i);
END;
ELSIF txt[i]=Options.commentEnd[0] THEN
ELSIF txt[i]=Options.ActSyntaxColouring.CommentEnd[0] THEN
sInx:=1;
WHILE (Options.commentEnd[sInx]#0X) &
(txt[i+sInx]=Options.commentEnd[sInx]) DO
WHILE (Options.ActSyntaxColouring.CommentEnd[sInx]#0X) &
(txt[i+sInx]=Options.ActSyntaxColouring.CommentEnd[sInx]) DO
INC(sInx);
END;
IF Options.commentEnd[sInx]=0X THEN
IF Options.ActSyntaxColouring.CommentEnd[sInx]=0X THEN
INC(i,sInx);
IF (line.commentNesting>=0) OR Options.commentsNested THEN
IF (line.commentNesting>=0) OR Options.ActSyntaxColouring.CommentsNested THEN
DEC(line.commentNesting);
END;
line.isCommented:=TRUE;
Expand Down
Loading

0 comments on commit bd0b2d8

Please sign in to comment.