From 6d6bb88a0215b87a4a47ed86a84ae3c75d399962 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sun, 24 Apr 2016 18:05:02 -0400
Subject: Initial import of 5.0 source code with minor changes to use termios
 on Linux.

---
 wsedt.c | 1175 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 1175 insertions(+)
 create mode 100644 wsedt.c

(limited to 'wsedt.c')

diff --git a/wsedt.c b/wsedt.c
new file mode 100644
index 0000000..31f687b
--- /dev/null
+++ b/wsedt.c
@@ -0,0 +1,1175 @@
+/*Copyright (c) Anker Berg-Sonne, 1985,1986,1987*/
+#include "proto.h"
+#include "commdlg.h"
+#include "print.h"
+
+char szAppName[10];
+char szWindowTitle[30];
+HANDLE hInst, hCursor;
+FARPROC lpprocAbout;
+FARPROC lpprocPrompt;
+HWND Curr_Wnd, Buf_Wnd[Maxbuffers];
+LOGFONT LF;
+int Char_Width, Rfreshed=0, Char_Height, Dragging=0, DragX, DragY;
+int Ch_Ch, Ch_Count=0, First=1, Cursor_On=0, Sav_Cur, Def_Height,
+ Def_Width, Saved_Num_Lock, Lst_Index;
+char Work[80];
+struct SREGS Rrv;
+char Fil_String[128], Sel_Dir[80];
+char Keyb_State[256];
+int Save_My_Num_Lock, Save_Their_Num_Lock;
+
+extern int __argc;
+extern char **__argv;
+
+BOOL FAR PASCAL _export About(HWND hDlg,unsigned message,WORD W,LONG L)
+{if (message == WM_COMMAND)
+ {EndDialog( hDlg, TRUE );
+  return TRUE;
+ } else
+ if (message == WM_INITDIALOG)
+  return TRUE; else
+  return FALSE;
+}
+
+void SedtPaint(HWND H,PAINTSTRUCT *pps,int Is_Current )
+{HBRUSH hbr, hbrOld;
+ HDC hDC;
+ if (Rfreshed)
+ {Rfreshed=0;
+  return;
+ }
+ hDC=pps->hdc;
+ if (pps->fErase)
+ {hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
+  hbrOld = (HBRUSH)SelectObject( hDC, (HANDLE)hbr );
+  FillRect( hDC, (LPRECT)&pps->rcPaint, hbr );
+  SelectObject( hDC, (HANDLE)hbrOld );
+  DeleteObject( (HANDLE)hbr );
+ }
+ SetBkMode( hDC, OPAQUE);
+ if (Out_Count)
+  Out_Zap();
+ S_Header();
+ if (In_Help)
+ {Display_Help(Help_Pos);
+  Out_Zap();
+  Win_On_Curs();
+ } else
+ {if (Show_Ruler)
+   S_Ruler();
+  Fill_Screen(Rel_First,Rel_Last);
+  if (!Is_Current)
+	Mark_Cursor();
+  Out_Zap();
+ }
+}
+
+BOOL SedtInit(HANDLE hInstance )
+{WNDCLASS   SedtClass;
+ LoadString( hInstance, IDSNAME, (LPSTR)szAppName, 10 );
+ LoadString( hInstance, IDSTITLE, (LPSTR)szWindowTitle, 30 );
+ SedtClass.hCursor       = LoadCursor( (HINSTANCE) NULL, (LPCSTR)IDC_IBEAM );
+ SedtClass.hIcon         = LoadIcon( hInstance, (LPSTR)szAppName );
+ SedtClass.lpszMenuName  = (LPSTR)"SedtMenu";
+ SedtClass.lpszClassName = (LPSTR)szAppName;
+ SedtClass.hbrBackground = (HBRUSH)GetStockObject( WHITE_BRUSH );
+ SedtClass.hInstance     = hInstance;
+ SedtClass.style         = CS_VREDRAW | CS_HREDRAW | CS_CLASSDC;
+ SedtClass.lpfnWndProc   = SedtWndProc;
+ SedtClass.cbClsExtra    = 0;
+ SedtClass.cbWndExtra    = 0;
+ if (!RegisterClass( &SedtClass ) )
+  return FALSE;
+ return TRUE;        /* Initialization succeeded */
+}
+
+int Make_Window(int B,int Show)
+{HWND hWnd;
+ HMENU hMenu, hMenu1;
+ HDC hDC;
+ RECT Rect;
+ TEXTMETRIC TM;
+ HANDLE Old_Font;
+ LOGFONT SLF;
+ int I;
+ if ((hWnd = CreateWindow((LPSTR)szAppName,
+   (LPSTR)szWindowTitle,
+   WS_OVERLAPPED|WS_VSCROLL|WS_MINIMIZEBOX|WS_MAXIMIZEBOX|
+   WS_THICKFRAME|WS_SYSMENU,
+   CW_USEDEFAULT,0,CW_USEDEFAULT,0,
+   (HWND)NULL,        /* no parent */
+   (HMENU)NULL,       /* use class menu */
+   (HANDLE)hInst, /* handle to window instance */
+   (LPSTR)NULL        /* no params to pass on */
+  ))==(HWND)NULL)
+   return 0;
+ Curr_Wnd=Buf_Wnd[B]=hWnd;
+ hDC = GetDC( hWnd );
+ LF.lfWidth=0;
+ LF.lfEscapement=0;
+ LF.lfOrientation=0;
+ LF.lfItalic=0;
+ LF.lfUnderline=0;
+ LF.lfStrikeOut=0;
+ LF.lfCharSet=ANSI_CHARSET;
+ LF.lfOutPrecision=OUT_DEFAULT_PRECIS;
+ LF.lfClipPrecision=CLIP_DEFAULT_PRECIS;
+ LF.lfQuality=DRAFT_QUALITY;
+ LF.lfPitchAndFamily=FF_MODERN;
+ if (Def_Font!=0)
+ {strcpy(LF.lfFaceName,"Courier New");
+  LF.lfWeight=FW_BOLD;
+  LF.lfHeight= -Def_Font;
+ } else
+ {strcpy(LF.lfFaceName,"Fixedsys");
+  LF.lfWeight=FW_DONTCARE;
+  LF.lfHeight=-9;
+ }
+ SLF=LF;
+ SLF.lfHeight=MulDiv(SLF.lfHeight,GetDeviceCaps(hDC,LOGPIXELSY),72);
+ Buf_Font=CreateFontIndirect((LPLOGFONT)&SLF);
+ Old_Font=SelectObject(hDC,Buf_Font);
+ GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
+ SelectObject(hDC,Old_Font);
+ GetClientRect(Curr_Wnd,(LPRECT)&Rect);
+ Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
+ Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
+ ReleaseDC( hWnd, hDC );
+ SetScrollRange(hWnd,SB_VERT,0,100,1);
+ if (Zoom_Windows)
+  ShowWindow(hWnd,Show|SW_SHOWMAXIMIZED); else
+  ShowWindow( hWnd, Show );
+ Rfreshed=1;
+ UpdateWindow( hWnd );
+ hMenu=GetMenu(hWnd);
+ for (I=0;I<Maxbuffers;I++)
+ if (Buf_Wnd[I]!=0&&I!=B)
+ {hMenu1=GetMenu(Buf_Wnd[I]);
+  GetMenuString(hMenu1,20+I,(LPSTR)Work,80,MF_BYCOMMAND);
+  ChangeMenu(hMenu,20+I,(LPSTR)Work,20+I,MF_CHANGE|MF_STRING|MF_BYCOMMAND);
+ }
+ for (I=0;I<Maxbuffers;I++)
+ if (Buf_Wnd[I]!=0)
+ {hMenu=GetMenu(Buf_Wnd[I]);
+  ChangeMenu(hMenu,20+B,(LPSTR)(char *)Txt_Untitled,20+B,MF_CHANGE|MF_STRING);
+ }
+ EnableMenuItem(hMenu,20+B,MF_GRAYED);
+ return 1;
+}
+
+int PASCAL WinMain(HANDLE hInstance,HANDLE hPrevInstance,LPSTR L,int cmdShow )
+{Show_First=cmdShow;
+ if (!hPrevInstance)
+ {if (!SedtInit( hInstance ))
+   return FALSE;
+ } else
+ {GetInstanceData( hPrevInstance, (BYTE *)szAppName, 10 );
+  GetInstanceData( hPrevInstance, (BYTE *)szWindowTitle, 30 );
+ }
+ lpprocAbout = MakeProcInstance( (FARPROC)About, hInstance );
+ lpprocPrompt = MakeProcInstance( (FARPROC)Prompt, hInstance );
+ hInst = hInstance;
+ getcwd(Sel_Dir,80);
+ Sedt_Args(__argc,(char * *)__argv);
+ Sedt_Init();
+ Readruler('0');
+ Sedt_Files(__argc,(char * *)__argv);
+ if (!(File_Arguments&&Outfile==NULL))
+ {Sedt_Main();
+ } else
+ {Sedt_Cleanup();
+  Sedt_Shutdown();
+ }
+ exit(Return_Value);
+ return Return_Value;
+}
+
+void Make_File()
+{
+ if (Fil_String[0]=='\\'||Fil_String[0]=='/'||Fil_String[1]==':')
+  strcpy(Com_Arg,Fil_String); else
+ {strcpy(Com_Arg,Sel_Dir);
+  if (Sel_Dir[strlen(Sel_Dir)-1]!='\\')
+  strcat(Com_Arg,"\\");
+  strcat(Com_Arg,Fil_String);
+ }
+}
+
+long FAR PASCAL _export SedtWndProc(HWND hWnd,unsigned message,unsigned wParam,LONG lParam )
+{RECT rect;
+ HBRUSH hbr, hbrOld;
+ PAINTSTRUCT ps;
+ int mx, my, Offset, I, B, Is_Current;
+ char *S;
+ if (hWnd==Curr_Wnd)
+ {B=Cur_Buffer;
+  Is_Current=1;
+ } else
+ {Is_Current=0;
+  for (B=0;B<Maxbuffers;B++)
+   if (Buf_Wnd[B]==hWnd)
+    break;
+ }
+ switch (message)
+ {case WM_SYSCOMMAND:
+   return DefWindowProc(hWnd, message, wParam, lParam );
+  case WM_SETFOCUS:
+   if (!Is_Current)
+    Ch_Window(B);
+   CreateCaret( hWnd, (HBITMAP)NULL,(int)Char_Width,
+    (int)Char_Height);
+   SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
+    (int)(Char_Height*(My_Line-1)));
+   if (Cursor_On)
+    ShowCaret(Curr_Wnd);
+	Dragging=0;
+   if (Set_Num_Lock!=-1)
+	{GetKeyboardState((BYTE far *)Keyb_State);
+    Save_Their_Num_Lock=Keyb_State[VK_NUMLOCK];
+    Keyb_State[VK_NUMLOCK]=Save_My_Num_Lock;
+	 SetKeyboardState((BYTE far *)Keyb_State);
+   }
+   break;
+  case WM_KILLFOCUS:
+   if (Cursor_On)
+    HideCaret(Curr_Wnd);
+   DestroyCaret();
+   if (Set_Num_Lock!=-1)
+	{GetKeyboardState((BYTE far *)Keyb_State);
+    Save_My_Num_Lock=Keyb_State[VK_NUMLOCK];
+    Keyb_State[VK_NUMLOCK]=Save_Their_Num_Lock;
+	 SetKeyboardState((BYTE far *)Keyb_State);
+   }
+	break;
+  case WM_PAINT:
+   if (!Is_Current)
+    Swap_Window(B);
+   BeginPaint( hWnd, (LPPAINTSTRUCT)&ps );
+   SedtPaint( hWnd,(PAINTSTRUCT *)&ps ,Is_Current);
+   EndPaint( hWnd, (LPPAINTSTRUCT)&ps );
+   if (!Is_Current)
+    Restore_Window(B);
+   break;
+  case WM_SIZE:
+	if (!Is_Current)
+    Swap_Window(B);
+   Scr_Width=LOWORD(lParam)/Char_Width;
+   Scr_Length=HIWORD(lParam)/Char_Height;
+   Scr_Shift=0;
+   if (First)
+    First=0; else
+	{if (Do_Shift)
+    {if (My_Col-Scr_Shift>=Scr_Width)
+     {while (My_Col-Scr_Shift>=Scr_Width)
+       Scr_Shift+=Shift_Screen?Shift_Screen:Scr_Width/2;
+     }
+    }
+    Offset=Rel_First+Rel_Last;
+    Rel_First=Show_Ruler?3:2;
+    Rel_Last=Scr_Length-2;
+    My_Line=Home=(Rel_First+Rel_Last+1)/2;
+    Rel_First-=Home;
+    Rel_Last-=Home;
+    if (Float_Cursor)
+     Set_Offset(Offset);
+    SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
+     (int)(Char_Height*(My_Line-1)));
+   }
+	if (!Is_Current)
+	 Restore_Window(B);
+   break;
+  case WM_ERASEBKGND:
+   GetClientRect( hWnd, (LPRECT)&rect );
+   hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
+   hbrOld = (HBRUSH)SelectObject( (HDC)wParam, (HANDLE)hbr );
+   FillRect( (HDC)wParam, (LPRECT)&rect, hbr );
+   SelectObject( (HDC)wParam, (HANDLE)hbrOld );
+   DeleteObject( (HANDLE)hbr );
+   break;
+  case WM_QUERYENDSESSION:
+   for (I=0;I<Maxbuffers;I++)
+   if (Buf_Wnd[I]!=0&&(Any_Changes[Cur_Buffer]&1))
+    return Win_Yes_No(Unsaved_Chng_Txt);
+   return 1;
+  case WM_LBUTTONDOWN:
+   if (In_Help)
+    break;
+	if (!Mouse_OK)
+    break;
+   Win_Off_Curs();
+   DragY=my=(HIWORD(lParam))/Char_Height+1;
+   DragX=mx=(LOWORD(lParam))/Char_Width+1;
+	Mouse_Execute(my,mx,1,0,0);
+   Dragging=1;
+   Win_On_Curs();
+   break;
+  case WM_LBUTTONUP:
+   Dragging=0;
+   break;
+  case WM_RBUTTONDOWN:
+  case WM_MOUSEMOVE:
+   if (!Mouse_OK||(message==WM_MOUSEMOVE&&!Dragging))
+    break;
+   Win_Off_Curs();
+   my=(HIWORD(lParam))/Char_Height+1;
+	mx=(LOWORD(lParam))/Char_Width+1;
+   if (DragX!=mx||DragY!=my)
+    Mouse_Execute(my,mx,1,0,1);
+   Win_On_Curs();
+   break;
+  case WM_CLOSE:
+   if (In_Help)
+    break;
+   Win_Quit();
+   break;
+  case WM_VSCROLL:
+	if (In_Help)
+    break;
+   if (wParam!=SB_ENDSCROLL)
+   {Win_Off_Curs();
+    if (Err_Display)
+     Clr_Error();
+    Init_Entity();
+	 switch (wParam)
+    {case SB_LINEUP:
+      Ent_Direction=0;
+     case SB_LINEDOWN:
+      Line();
+      break;
+     case SB_PAGEUP:
+      Ent_Direction=0;
+     case SB_PAGEDOWN:
+      Screen();
+      break;
+     case SB_TOP:
+      Top();
+      break;
+     case SB_BOTTOM:
+      Bottom();
+      break;
+	  case SB_THUMBPOSITION:
+		if ((Ent_Count=((LOWORD(lParam)*Buf_Lines)/100)+1)>Buf_Lines)
+       Ent_Count=Buf_Lines;
+      Abs_Line();
+      break;
+    }
+    Move_Entity();
+    Upd_Header();
+    Win_On_Curs();
+   }
+   Out_Zap();
+   break;
+  case WM_COMMAND:
+   if (In_Help)
+    break;
+   if (!Mouse_OK)
+    break;
+   Win_Off_Curs();
+   switch (wParam)
+	{case FILE_OPEN:
+     if (Open_File_Dialog())
+     {Make_File();
+      Count=1;
+      Edit_File(Com_Arg);
+		Upd_Header();
+     }
+     break;
+    case FILE_SAVE:
+     if ((S=Outfile)==NULL||S[0]==0)
+      Error(2,No_Output_File_Txt); else
+     {Wr_Buffer(S);
+     }
+     if (!Err_Flag)
+      Clr_Changes();
+     Upd_Header();
+     break;
+    case FILE_SAVE_AS:
+	  if (Save_As_Dialog())
+     {Make_File();
+      strcpy(New_File,Com_Arg);
+      Wr_Buffer(Outfile=New_File);
+      S_Header();
+      if (!Err_Flag)
+       Clr_Changes();
+      Upd_Header();
+     }
+     break;
+    case FILE_INSERT:
+	  if (Open_File_Dialog())
+     {Make_File();
+      Include_File(Com_Arg,File_Not_Found_Txt);
+      Fill_Screen(0,Rel_Last);
+      Set_Changes();
+      S_Header();
+     }
+	  break;
+    case FILE_QUIT:
+     if (In_Help)
+      break;
+     Win_Quit();
+     break;
+    case FILE_ABOUT:
+     DialogBox( hInst, MAKEINTRESOURCE(ABOUTBOX), hWnd, lpprocAbout );
+     break;
+    case FILE_PRINT:
+     Print_Buffer();
+     break;
+    case WINDOW_0:
+    case WINDOW_1:
+    case WINDOW_2:
+    case WINDOW_3:
+     Ch_Window(wParam-20);
+	  break;
+	 case WINDOW_SWITCH:
+     Other_Window();
+     break;
+    case FILE_NEW:
+     Zero();
+     break;
+    case EDIT_CLEAR:
+     Reset();
+     break;
+    case EDIT_CUT:
+     This_Cmd=C_Delete;
+     Init_Entity();
+     Sel_Range();
+     if (!Err_Flag)
+     {if (Blk_Mode)
+       Blk_Rem_It(Past_String); else
+       Rem_It(Past_String);
+      Set_Changes();
+	  }
+     break;
+    case EDIT_PASTE:
+     Count=1;
+     Paste();
+	  Upd_Header();
+     break;
+    case RULER_0:
+    case RULER_1:
+    case RULER_2:
+    case RULER_3:
+    case RULER_4:
+    case RULER_5:
+    case RULER_6:
+    case RULER_7:
+    case RULER_8:
+    case RULER_9:
+     Readruler((char)('0'+wParam-40));
+	  if (Show_Ruler)
+      S_Ruler();
+     break;
+    case HELP:
+     strcpy(Com_Arg,Do_Mapping("HELP.HLP"));
+     Do_Help();
+     break;
+    case FONT_SELECT:
+     Win_Font();
+     break;
+   }
+	Out_Zap();
+   Win_On_Curs();
+   break;
+  default:
+   return DefWindowProc( hWnd, message, wParam, lParam );
+ }
+ return(0L);
+}
+
+void Win_Scroll(int T,int B,int S)
+{RECT Rect;
+ Rect.top=(T-1)*Char_Height;
+ Rect.bottom=B*Char_Height;
+ Rect.left=0;
+ Rect.right=Scr_Width*Char_Width;
+ ScrollWindow(Curr_Wnd,0,-S*Char_Height,&Rect,&Rect);
+ Rfreshed=1;
+ UpdateWindow(Curr_Wnd);
+}
+
+void Win_Clear()
+{HDC hDC;
+ RECT rect;
+ HBRUSH hbr, hbrOld;
+ hDC = GetDC(Curr_Wnd);
+ GetClientRect( Curr_Wnd, (LPRECT)&rect );
+ hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
+ hbrOld = (HBRUSH)SelectObject( hDC, (HANDLE)hbr );
+ FillRect( hDC, (LPRECT)&rect, hbr );
+ SelectObject( hDC, (HANDLE)hbrOld );
+ DeleteObject( (HANDLE)hbr );
+ ReleaseDC(Curr_Wnd, hDC );
+}
+
+void Win_Erase(int L,int C,int W)
+{HDC hDC;
+ RECT rect;
+ HBRUSH hbr, hbrOld;
+ hDC = GetDC(Curr_Wnd);
+ rect.top=(L-1)*Char_Height;
+ rect.left=(C-1)*Char_Width;
+ rect.bottom=rect.top+Char_Height;
+ rect.right=rect.left+W*Char_Width;
+ hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
+ hbrOld = (HBRUSH)SelectObject( hDC, (HANDLE)hbr );
+ FillRect( hDC, (LPRECT)&rect, hbr );
+ SelectObject( hDC, (HANDLE)hbrOld );
+ DeleteObject( (HANDLE)hbr );
+ ReleaseDC(Curr_Wnd, hDC );
+}
+
+void Win_On_Curs()
+{
+ if (Cursor_On)
+  Win_Off_Curs();
+ SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
+  (int)(Char_Height*(My_Line-1)));
+ ShowCaret(Curr_Wnd);
+ Cursor_On=1;
+}
+
+void Win_Off_Curs()
+{
+ HideCaret(Curr_Wnd );
+ Cursor_On=0;
+}
+
+void Win_Getmem(HANDLE H,int A,int L)
+{LPSTR P;
+ P=GlobalLock(H);
+ LockData(0);
+ segread(&Rrv);
+ movedata(HIWORD(P),LOWORD(P),Rrv.ds,A,L);
+ UnlockData(0);
+ GlobalUnlock(H);
+}
+
+void Win_Putmem(int A,HANDLE H,int L)
+{LPSTR P;
+ P=GlobalLock(H);
+ LockData(0);
+ segread(&Rrv);
+ movedata(Rrv.ds,A,HIWORD(P),LOWORD(P),L);
+ UnlockData(0);
+ GlobalUnlock(H);
+}
+
+HANDLE Win_Alloc(int L)
+{
+ return GlobalAlloc(GMEM_MOVEABLE,(long)L);
+}
+
+void Win_Free(HANDLE H)
+{
+ GlobalFree(H);
+}
+
+void WinText(int L,int C,char *S,int A)
+{HDC hDC;
+ HANDLE Old_Font;
+ hDC = GetDC(Curr_Wnd);
+ Old_Font=SelectObject(hDC,Buf_Font);
+ SetBkMode( hDC, OPAQUE);
+ if (A&A_Reverse)
+ {SetTextColor(hDC,GetSysColor(COLOR_WINDOW));
+  SetBkColor(hDC,GetSysColor(COLOR_WINDOWTEXT));
+ } else
+ {SetTextColor( hDC, GetSysColor(COLOR_WINDOWTEXT) );
+  SetBkColor(hDC,GetSysColor(COLOR_WINDOW));
+ }
+ TextOut(hDC,Char_Width*(C-1),Char_Height*(L-1),
+  (char FAR *)S,strlen(S));
+ SelectObject(hDC,Old_Font);
+ ReleaseDC(Curr_Wnd, hDC );
+}
+
+void WinChar()
+{static MSG msg;
+ int I;
+ static Last_Character, Last_Scancode;
+ if (Ch_Count>0)
+ {Ch_Count--;
+  Character=Last_Character;
+  Scancode=Last_Scancode;
+  return;
+ }
+ Rfreshed=0;
+ while (1)
+ {if (Working_Flag)
+   Clr_Working();
+  Err_Flag=0;
+  if (!GetMessage((LPMSG)&msg,(HWND)NULL,0,0))
+  {Not_End=0;
+   return;
+  }
+  if (msg.message==WM_CHAR)
+  {Ch_Count=(int)(msg.lParam&0xFFFF)-1;
+   Last_Character=Character=msg.wParam;
+   if (Do_Debug)
+    Diag("Character:Scancode=%d,Character=%d",Scancode,Character);
+   return;
+  } else
+  if (msg.message==WM_KEYDOWN)
+  {Ch_Count=(int)(msg.lParam&0xFFFF)-1;
+	Last_Scancode=Scancode=(int)(msg.lParam>>16)&0xFF;
+   if (Set_Num_Lock!=-1&&Scancode==0x45)
+	{GetKeyboardState((BYTE far *)Keyb_State);
+    Keyb_State[VK_NUMLOCK]=Set_Num_Lock;
+	 SetKeyboardState((BYTE far *)Keyb_State);
+   }
+   if (Do_Debug)
+    Diag("Scancode=%d,Window code=%d",Scancode,msg.wParam);
+   for (I=0;I<Scan_Defs;I++)
+   {if ((Last_Scancode=Scancode)==Scan_Tab[I].Scancode&&
+	  !Scan_Tab[I].Flags&Ext_Code)
+    {
+     /*Diag("Scan code");*/
+     Last_Character=Character=Scan_Tab[I].Char;
+     return;
+	 }
+    if (msg.wParam==Scan_Tab[I].Scancode&&Scan_Tab[I].Flags&Window_Code)
+    {
+     /*Diag("Window Code");*/
+     Last_Character=Character=Scan_Tab[I].Char;
+     Last_Scancode=Scancode=msg.wParam;
+     return;
+    }
+   }
+	TranslateMessage((LPMSG)&msg);
+   DispatchMessage((LPMSG)&msg);
+  } else
+  {TranslateMessage((LPMSG)&msg);
+	DispatchMessage((LPMSG)&msg);
+  }
+  if (!Not_End)
+   return;
+ }
+}
+
+int Win_Yes_No(char *S)
+{int Res;
+  Res=MessageBox(Curr_Wnd,(LPSTR)S,(LPSTR)(char *)Txt_Warning,MB_YESNOCANCEL|
+   MB_ICONEXCLAMATION|MB_APPLMODAL);
+  UpdateWindow(Curr_Wnd);
+  if (Res==IDCANCEL)
+  {Error(3,Txt_Cancelled);
+   return 0;
+  }
+  return Res==IDYES;
+}
+
+void Win_Error(char *S)
+{
+ MessageBox(Curr_Wnd,(LPSTR)S,NULL,MB_OK|MB_ICONEXCLAMATION|MB_APPLMODAL);
+ UpdateWindow(Curr_Wnd);
+}
+
+void Win_P_Bar(long H,long L)
+{if (L==0||H==0)
+  SetScrollPos(Curr_Wnd,SB_VERT,0,1); else
+  SetScrollPos(Curr_Wnd,SB_VERT,(int)((100L*(L-1))/H),1);
+}
+
+int Prompt_Input()
+{int Res;
+ Res=DialogBox(hInst,MAKEINTRESOURCE(PROMPTBOX),Curr_Wnd,lpprocPrompt);
+ UpdateWindow(Curr_Wnd);
+ return Res;
+}
+
+void Prompt_Init(HWND hDlg)
+{
+ SetDlgItemText(hDlg,PROMPTTEXT,(LPSTR)Dsk_Rec);
+ Lst_Index=-1;
+}
+
+void Prompt_Exit(HWND hDlg)
+{
+ GetDlgItemText(hDlg,PROMPTINPUT,(LPSTR)Dsk_Rec,Blksize);
+ if (Dsk_Rec[0]!=0)
+ {C_Move(Lst_Input[0],Lst_Input[1],132*9);
+  strcpy(Lst_Input[0],Dsk_Rec);
+ }
+ EndDialog(hDlg,TRUE);
+}
+
+BOOL FAR PASCAL _export Prompt(HWND hDlg,unsigned message,WORD wParam,LONG lParam)
+{switch (message)
+ {case WM_COMMAND:
+   switch (wParam)
+   {case PROMPTOK:
+     Prompt_Exit(hDlg);
+     break;
+    case PROMPTCANCEL:
+     EndDialog( hDlg, FALSE );
+     break;
+    case PROMPTINPUT:
+     if (HIWORD(lParam)==0)
+      Prompt_Exit(hDlg);
+	  break;
+	 case PROMPTNEXT:
+     if (Lst_Index>0)
+      SetDlgItemText(hDlg,PROMPTINPUT,(LPSTR)Lst_Input[--Lst_Index]);
+     break;
+    case PROMPTPREV:
+     if (Lst_Index<9)
+      SetDlgItemText(hDlg,PROMPTINPUT,(LPSTR)Lst_Input[++Lst_Index]);
+     break;
+   }
+   break;
+  case WM_INITDIALOG:
+   Prompt_Init(hDlg);
+   break;
+  default:
+   return FALSE;
+ }
+ return TRUE;
+}
+
+int Win_Newwindow(int B,int Show)
+{
+ return Make_Window(B,Show);
+}
+
+void Win_Topwindow(int B)
+{
+ SetFocus(Curr_Wnd=Buf_Wnd[B]);
+}
+
+void Swap_Window(int B)
+{
+ Out_Zap();
+ Sav_Window(Cur_Buffer);
+ Sav_Cur=Cur_Buffer;
+ Cur_Buffer=B;
+ Current=(&Main_Buffer);
+ Load_Window(Cur_Buffer);
+ Curr_Wnd=Buf_Wnd[B];
+}
+
+void Restore_Window(int I)
+{
+ Out_Zap();
+ Sav_Window(Cur_Buffer);
+ Cur_Buffer=Sav_Cur;
+ Current=(&Main_Buffer);
+ Load_Window(Cur_Buffer);
+ Curr_Wnd=Buf_Wnd[Cur_Buffer];
+}
+
+void Win_Name(char *S)
+{int I;
+ HMENU hMenu;
+ strcpy(Com_Arg,(char *)Txt_Sedt);
+ if (S==NULL)
+  strcat(Com_Arg,(char *)Txt_Untitled); else
+  strcat(Com_Arg,S);
+ SetWindowText(Curr_Wnd,Com_Arg);
+ for (I=0;I<Maxbuffers;I++)
+ if (Buf_Wnd[I]!=0)
+ {hMenu=GetMenu(Buf_Wnd[I]);
+  ChangeMenu(hMenu,20+Cur_Buffer,(LPSTR)(S==NULL?(char *)Txt_Untitled:S),
+    20+Cur_Buffer,MF_CHANGE|MF_STRING);
+ }
+ hMenu=GetMenu(Buf_Wnd[Cur_Buffer]);
+ EnableMenuItem(hMenu,20+Cur_Buffer,MF_GRAYED);
+}
+
+void Win_Put_Clip(long L)
+{HANDLE M;
+ LPSTR P;
+ long I;
+ int C;
+ if (!OpenClipboard(Curr_Wnd))
+ {Error(2,No_Clipboard_Txt);
+  return;
+ }
+ if (!EmptyClipboard())
+ {Error(2,Bad_Clipboard_Txt);
+  CloseClipboard();
+  return;
+ }
+ if ((M=GlobalAlloc(GMEM_MOVEABLE,(long)((I=Dl_Pointers[Past_String][1])+L+1)))
+  ==(HGLOBAL)NULL)
+ {Error(2,No_Clipboard_Memory_Txt);
+  CloseClipboard();
+  return;
+ }
+ P=GlobalLock(M);
+ B_Goto(&Del,Dl_Pointers[Past_String][0]);
+ while (I--)
+ {if ((C=B_Get(&Del))=='\n')
+   *(P++)=13;
+  *(P++)=C;
+ }
+ *(P++)=0;
+ GlobalUnlock(M);
+ SetClipboardData(CF_TEXT,M);
+ CloseClipboard();
+}
+
+void Win_Load_Clip()
+{long L=0;
+ HANDLE M;
+ LPSTR P;
+ int C, L_C=0;
+ Erase_Del(Dl_Pointers[Past_String]);
+ if (!OpenClipboard(Curr_Wnd))
+ {Error(2,No_Clipboard_Txt);
+  return;
+ }
+ if ((M=GetClipboardData(CF_TEXT))==(HANDLE)NULL)
+ {Error(2,Empty_Clipboard_Txt);
+  CloseClipboard();
+  return;
+ }
+ P=GlobalLock(M);
+ while ((C=*(P++))!=0)
+ {if (L_C==13)
+  {if (C!='\n')
+   {B_Put(&Del,13);
+    L++;
+   }
+  }
+  if (C!=13)
+  {B_Put(&Del,(char)C);
+   L++;
+  }
+  L_C=C;
+ }
+ if (L_C==13)
+ {B_Put(&Del,13);
+  L++;
+ }
+ Dl_Pointers[Past_String][1]=L;
+ GlobalUnlock(M);
+ CloseClipboard();
+}
+
+void Win_Tempfile(char *F)
+{
+ GetTempFileName(0,(LPSTR)"SEDT",0,(LPSTR) F);
+}
+
+void Win_Del_Window()
+{int I, B;
+ HMENU hMenu;
+ B=Cur_Buffer;
+ Any_Changes[Cur_Buffer]=0;
+ Zero();
+ Not_End=0;
+ My_Col=0;
+ for (I=0;I<Maxbuffers;I++)
+  if (I!=B&&Buf_Wnd[I]!=0)
+  {Not_End=1;
+   hMenu=GetMenu(Buf_Wnd[I]);
+   ChangeMenu(hMenu,20+B,(LPSTR)(char *)Txt_Unused,20+B,MF_CHANGE|MF_STRING);
+  }
+ DestroyWindow(Curr_Wnd);
+ Buf_Wnd[B]=0;
+}
+
+void Win_Quit()
+{int I, B;
+ HMENU hMenu;
+ B=Cur_Buffer;
+ if (Any_Changes[Cur_Buffer]&1)
+  if (!Yes_No(Unsaved_Chng_Txt))
+   return;
+ Any_Changes[Cur_Buffer]=0;
+ Zero();
+ Not_End=0;
+ My_Col=0;
+ for (I=0;I<Maxbuffers;I++)
+  if (I!=B&&Buf_Wnd[I]!=0)
+  {Not_End=1;
+   hMenu=GetMenu(Buf_Wnd[I]);
+   ChangeMenu(hMenu,20+B,(LPSTR)(char *)Txt_Unused,20+B,MF_CHANGE|MF_STRING);
+  }
+ if (Not_End)
+ {/*DeleteObject(Buf_Font);*/
+  DestroyWindow(Curr_Wnd);
+  Buf_Wnd[B]=0;
+ } else
+  PostQuitMessage(0);
+ Not_End=1;
+}
+
+void Win_Font()
+{RECT Rect;
+ HDC hDC;
+ CHOOSEFONT Choose;
+ TEXTMETRIC TM;
+ HANDLE Old_Font;
+ LOGFONT SLF;
+ hDC = GetDC(Curr_Wnd);
+ DeleteObject(Buf_Font);
+ SLF=LF;
+ SLF.lfHeight=MulDiv(SLF.lfHeight,GetDeviceCaps(hDC,LOGPIXELSY),72);
+ memset(&Choose,0,sizeof(CHOOSEFONT));
+ Choose.lStructSize=sizeof(CHOOSEFONT);
+ Choose.hwndOwner=Curr_Wnd;
+ Choose.lpLogFont=&SLF;
+ Choose.Flags=CF_SCREENFONTS|CF_INITTOLOGFONTSTRUCT|CF_ANSIONLY|CF_FIXEDPITCHONLY;
+ Choose.nFontType=SCREEN_FONTTYPE;
+ ChooseFont(&Choose);
+ Buf_Font=CreateFontIndirect(&SLF);
+ LF=SLF;
+ LF.lfHeight=MulDiv(LF.lfHeight,72,GetDeviceCaps(hDC,LOGPIXELSY));
+ Old_Font=SelectObject(hDC,Buf_Font);
+ GetClientRect(Curr_Wnd,(LPRECT)&Rect);
+ GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
+ Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
+ Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
+ if (Cursor_On)
+  HideCaret(Curr_Wnd);
+ DestroyCaret();
+ CreateCaret( Curr_Wnd, (HBITMAP)NULL,(int)Char_Width,
+  (int)Char_Height);
+ SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
+  (int)(Char_Height*(My_Line-1)));
+ if (Cursor_On)
+  ShowCaret(Curr_Wnd);
+ SelectObject(hDC,Old_Font);
+ ReleaseDC(Curr_Wnd,hDC);
+ Refresh();
+}
+
+void Win_Larger()
+{RECT Rect;
+ HDC hDC;
+ TEXTMETRIC TM;
+ HANDLE Old_Font;
+ LOGFONT SLF;
+ hDC = GetDC(Curr_Wnd);
+ DeleteObject(Buf_Font);
+ if (LF.lfHeight>0)
+  LF.lfHeight*=-1;
+ LF.lfHeight--;
+ LF.lfWidth=0;
+ SLF=LF;
+ SLF.lfHeight=MulDiv(SLF.lfHeight,GetDeviceCaps(hDC,LOGPIXELSY),72);
+ Buf_Font=CreateFontIndirect(&SLF);
+ Old_Font=SelectObject(hDC,Buf_Font);
+ GetClientRect(Curr_Wnd,(LPRECT)&Rect);
+ GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
+ Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
+ Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
+ if (Cursor_On)
+  HideCaret(Curr_Wnd);
+ DestroyCaret();
+ CreateCaret( Curr_Wnd, (HBITMAP)NULL,(int)Char_Width,
+  (int)Char_Height);
+ SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
+  (int)(Char_Height*(My_Line-1)));
+ if (Cursor_On)
+  ShowCaret(Curr_Wnd);
+ SelectObject(hDC,Old_Font);
+ ReleaseDC(Curr_Wnd,hDC);
+ Refresh();
+}
+
+void Win_Smaller()
+{RECT Rect;
+ HDC hDC;
+ TEXTMETRIC TM;
+ HANDLE Old_Font;
+ LOGFONT SLF;
+ hDC = GetDC(Curr_Wnd);
+ DeleteObject(Buf_Font);
+ if (LF.lfHeight>0)
+  LF.lfHeight*=-1;
+ LF.lfHeight++;
+ LF.lfWidth=0;
+ SLF=LF;
+ SLF.lfHeight=MulDiv(SLF.lfHeight,GetDeviceCaps(hDC,LOGPIXELSY),72);
+ Buf_Font=CreateFontIndirect(&SLF);
+ Old_Font=SelectObject(hDC,Buf_Font);
+ GetClientRect(Curr_Wnd,(LPRECT)&Rect);
+ GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
+ Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
+ Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
+ if (Cursor_On)
+  HideCaret(Curr_Wnd);
+ DestroyCaret();
+ CreateCaret( Curr_Wnd, (HBITMAP)NULL,(int)Char_Width,
+  (int)Char_Height);
+ SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
+  (int)(Char_Height*(My_Line-1)));
+ if (Cursor_On)
+  ShowCaret(Curr_Wnd);
+ SelectObject(hDC,Old_Font);
+ ReleaseDC(Curr_Wnd,hDC);
+ Refresh();
+}
+
+void Win_Set_Num_Lock(void)
+{Save_My_Num_Lock=1;
+ GetKeyboardState((BYTE far *)Keyb_State);
+ Save_Their_Num_Lock=Keyb_State[VK_NUMLOCK];
+ Keyb_State[VK_NUMLOCK]=1;
+ SetKeyboardState((BYTE far *)Keyb_State);
+}
+
+void Win_Clear_Num_Lock(void)
+{Save_My_Num_Lock=0;
+ GetKeyboardState((BYTE far *)Keyb_State);
+ Save_Their_Num_Lock=Keyb_State[VK_NUMLOCK];
+ Keyb_State[VK_NUMLOCK]=0;
+ SetKeyboardState((BYTE far *)Keyb_State);
+}
+
+void Win_Reset_Num_Lock(void)
+{GetKeyboardState((BYTE far *)Keyb_State);
+ Keyb_State[VK_NUMLOCK]=Save_Their_Num_Lock;
+ SetKeyboardState((BYTE far *)Keyb_State);
+}
+
+int Open_File_Dialog()
+{OPENFILENAME Ofn;
+ Ofn.lStructSize=sizeof(OPENFILENAME);
+ Ofn.hwndOwner=Curr_Wnd;
+ Ofn.lpstrFilter=NULL;
+ Ofn.lpstrCustomFilter=NULL;
+ strcpy(Fil_String,"*.*");
+ Ofn.lpstrFile=Fil_String;
+ Ofn.nMaxFile=128;
+ Ofn.lpstrFileTitle=NULL;
+ Ofn.lpstrInitialDir=Sel_Dir;
+ Ofn.lpstrTitle=NULL;
+ Ofn.Flags=OFN_PATHMUSTEXIST|OFN_HIDEREADONLY;
+ Ofn.lpstrDefExt=NULL;
+ if (GetOpenFileName(&Ofn))
+ {strcpy(Com_Arg,Fil_String);
+  strncpy(Sel_Dir,Fil_String,Ofn.nFileOffset);
+  Sel_Dir[Ofn.nFileOffset]=0;
+  return 1;
+ } else
+  return 0;
+}
+
+int Save_As_Dialog()
+{OPENFILENAME Ofn;
+ Ofn.lStructSize=sizeof(OPENFILENAME);
+ Ofn.hwndOwner=Curr_Wnd;
+ Ofn.lpstrFilter=NULL;
+ Ofn.lpstrCustomFilter=NULL;
+ strcpy(Fil_String,Outfile);
+ Ofn.lpstrFile=Fil_String;
+ Ofn.nMaxFile=128;
+ Ofn.lpstrFileTitle=NULL;
+ Ofn.lpstrInitialDir=NULL;
+ Ofn.lpstrTitle=NULL;
+ Ofn.Flags=OFN_PATHMUSTEXIST|OFN_HIDEREADONLY;
+ Ofn.lpstrDefExt=NULL;
+ if (GetSaveFileName(&Ofn))
+ {strcpy(Com_Arg,Fil_String);
+  strncpy(Sel_Dir,Fil_String,Ofn.nFileOffset);
+  Sel_Dir[Ofn.nFileOffset]=0;
+  return 1;
+ } else
+  return 0;
+}
+
+void Print_Buffer()
+{PRINTDLG Dlg;
+ memset(&Dlg,0,sizeof(PRINTDLG));
+ Dlg.lStructSize=sizeof(PRINTDLG);
+ Dlg.hwndOwner=Curr_Wnd;
+ Dlg.Flags=PD_RETURNDC|PD_NOPAGENUMS|PD_NOSELECTION;
+ if (PrintDlg(&Dlg))
+ {int X, Y, MaxX, MaxY, Char_Width, Char_Height;
+  long Save_Col;
+  char Output[100];
+  int Out_Length=0, Out_X, Out_Y, I;
+  TEXTMETRIC TM;
+  DOCINFO DI;
+  HANDLE Font;
+  LOGFONT PLF;
+  SetCursor(LoadCursor((HINSTANCE)NULL,IDC_WAIT));
+  PLF=LF;
+  PLF.lfHeight=MulDiv(PLF.lfHeight,GetDeviceCaps(Dlg.hDC,LOGPIXELSY),72);
+  Font=CreateFontIndirect(&PLF);
+  MaxX=GetDeviceCaps(Dlg.hDC,HORZRES);
+  MaxY=GetDeviceCaps(Dlg.hDC,VERTRES);
+  SelectObject(Dlg.hDC,Font);
+  GetTextMetrics( Dlg.hDC, (LPTEXTMETRIC)&TM );
+  Char_Width=TM.tmAveCharWidth;
+  Char_Height=TM.tmHeight;
+  DI.cbSize=sizeof(DOCINFO);
+  DI.lpszDocName=Outfile;
+  DI.lpszOutput=NULL;
+  StartDoc(Dlg.hDC,&DI);
+  StartPage(Dlg.hDC);
+  B_Goto(Current,1);
+  X=0;
+  Y=Char_Height*4;
+  Save_Col=My_Col;
+  My_Col=1;
+  while (Current->Pos<=Current->Bufsize)
+  {char C, Rep[10];
+   int L;
+	C=B_Get(Current);
+	if (C==12)
+	{if (Out_Length>0)
+	 {TextOut(Dlg.hDC,Out_X,Out_Y,Output,Out_Length);
+	  Out_Length=0;
+	 }
+	 EndPage(Dlg.hDC);
+	 StartPage(Dlg.hDC);
+	 SelectObject(Dlg.hDC,Font);
+	 X=0;
+	 My_Col=1;
+	 Y=Char_Height*4;
+	} else
+	if (C==10)
+	{if (Out_Length>0)
+	 {TextOut(Dlg.hDC,Out_X,Out_Y,Output,Out_Length);
+	  Out_Length=0;
+	 }
+	 X=0;
+	 My_Col=1;
+	 Y+=Char_Height;
+	 if (Y>MaxY-Char_Height*4&&MaxY!=0)
+	 {EndPage(Dlg.hDC);
+	  StartPage(Dlg.hDC);
+	  SelectObject(Dlg.hDC,Font);
+	  Y=Char_Height*4;
+	 }
+	} else
+	if (C==13)
+	 ; else
+	if (X<=MaxX||MaxX==0)
+	{L=Char_Rep(C,Rep);
+	 if (Out_Length+L>100)
+	 {TextOut(Dlg.hDC,Out_X,Out_Y,Output,Out_Length);
+	  Out_Length=0;
+	 }
+	 if (Out_Length==0)
+	 {Out_X=X;
+	  Out_Y=Y;
+    }
+    for (I=0;I<=L;I++)
+     Output[Out_Length+I]=Rep[I];
+    Out_Length+=L;
+	 X+=Char_Width*L;
+    My_Col+=L;
+   }
+  }
+  if (Out_Length>0)
+  {TextOut(Dlg.hDC,Out_X,Out_Y,Output,Out_Length);
+   Out_Length=0;
+  }
+  My_Col=Save_Col;
+  EndPage(Dlg.hDC);
+  EndDoc(Dlg.hDC);
+  DeleteDC(Dlg.hDC);
+  DeleteObject(Font);
+  if (Dlg.hDevMode!=(HGLOBAL)NULL)
+   GlobalFree(Dlg.hDevMode);
+  if (Dlg.hDevNames!=(HGLOBAL)NULL)
+   GlobalFree(Dlg.hDevNames);
+  SetCursor(LoadCursor((HINSTANCE)NULL,IDC_IBEAM));
+ }
+}
-- 
cgit v1.2.3