/* --------------- memopad.c ----------- */ #include "dflat.h" extern DF_DBOX PrintSetup; char DFlatApplication[] = "MemoPad"; static char Untitled[] = "Untitled"; static int wndpos; static int MemoPadProc(DFWINDOW, DFMESSAGE, DF_PARAM, DF_PARAM); static void NewFile(DFWINDOW); static void SelectFile(DFWINDOW); static void PadWindow(DFWINDOW, char *); static void OpenPadWindow(DFWINDOW, char *); static void LoadFile(DFWINDOW); static void PrintPad(DFWINDOW); static void SaveFile(DFWINDOW, int); static void MemoPadDeleteFile(DFWINDOW); static int EditorProc(DFWINDOW, DFMESSAGE, DF_PARAM, DF_PARAM); static char *NameComponent(char *); static int PrintSetupProc(DFWINDOW, DFMESSAGE, DF_PARAM, DF_PARAM); static void FixTabMenu(void); #ifndef TURBOC void Calendar(DFWINDOW); #endif //void BarChart(DFWINDOW); char **Argv; #define CHARSLINE 80 #define LINESPAGE 66 void main(int argc, char *argv[]) { DFWINDOW wnd; if (!init_messages()) return; Argv = argv; DfLoadConfig(); // if (!DfLoadConfig()) // DfCfg.ScreenLines = DF_SCREENHEIGHT; wnd = DfDfCreateWindow(DF_APPLICATION, "FreeDos Edit " DF_VERSION, 0, 0, -1, -1, &DfMainMenu, NULL, MemoPadProc, DF_MOVEABLE | DF_SIZEABLE | DF_HASBORDER | DF_MINMAXBOX | DF_HASSTATUSBAR ); DfLoadHelpFile(); DfSendMessage(wnd, DFM_SETFOCUS, TRUE, 0); while (argc > 1) { PadWindow(wnd, argv[1]); --argc; argv++; } while (dispatch_message()) ; } /* ------ open text files and put them into editboxes ----- */ static void PadWindow(DFWINDOW wnd, char *FileName) { int ax; struct _finddata_t ff; char path[64]; char *cp; DfCreatePath(path, FileName, FALSE, FALSE); cp = path+strlen(path); DfCreatePath(path, FileName, TRUE, FALSE); ax = _findfirst(path, &ff); if (ax == -1) return; do { strcpy(cp, ff.name); OpenPadWindow(wnd, path); } while (_findnext (ax, &ff) == 0); _findclose (ax); } /* ------- window processing module for the memopad application window ----- */ static int MemoPadProc(DFWINDOW wnd,DFMESSAGE msg,DF_PARAM p1,DF_PARAM p2) { int rtn; switch (msg) { case DFM_CREATE_WINDOW: rtn = DfDefaultWndProc(wnd, msg, p1, p2); if (DfCfg.InsertMode) DfSetCommandToggle(&DfMainMenu, DF_ID_INSERT); if (DfCfg.WordWrap) DfSetCommandToggle(&DfMainMenu, DF_ID_WRAP); FixTabMenu(); return rtn; case DFM_COMMAND: switch ((int)p1) { case DF_ID_NEW: NewFile(wnd); return TRUE; case DF_ID_OPEN: SelectFile(wnd); return TRUE; case DF_ID_SAVE: SaveFile(DfInFocus, FALSE); return TRUE; case DF_ID_SAVEAS: SaveFile(DfInFocus, TRUE); return TRUE; case DF_ID_DELETEFILE: MemoPadDeleteFile(DfInFocus); return TRUE; case DF_ID_PRINTSETUP: DfDialogBox(wnd, &PrintSetup, TRUE, PrintSetupProc); return TRUE; case DF_ID_PRINT: PrintPad(DfInFocus); return TRUE; case DF_ID_EXIT: if (!DfYesNoBox("Exit Memopad?")) return FALSE; break; case DF_ID_WRAP: DfCfg.WordWrap = DfGetCommandToggle(&DfMainMenu, DF_ID_WRAP); return TRUE; case DF_ID_INSERT: DfCfg.InsertMode = DfGetCommandToggle(&DfMainMenu, DF_ID_INSERT); return TRUE; case DF_ID_TAB2: DfCfg.Tabs = 2; FixTabMenu(); return TRUE; case DF_ID_TAB4: DfCfg.Tabs = 4; FixTabMenu(); return TRUE; case DF_ID_TAB6: DfCfg.Tabs = 6; FixTabMenu(); return TRUE; case DF_ID_TAB8: DfCfg.Tabs = 8; FixTabMenu(); return TRUE; case DF_ID_CALENDAR: #ifndef TURBOC Calendar(wnd); #endif return TRUE; // case DF_ID_BARCHART: // BarChart(wnd); // return TRUE; case DF_ID_ABOUT: DfMessageBox( "About D-Flat and the MemoPad", " 旼컴컴컴컴컴컴컴컴컴컴컴�\n" " � 複� 複� � �\n" " � � � � � � �\n" " � � � � � � �\n" " � � � � � � � �\n" " � 賽� 賽� 賽 �\n" " 읕컴컴컴컴컴컴컴컴컴컴컴�\n" "D-Flat implements the SAA/CUA\n" "interface in a public domain\n" "C language library originally\n" "published in Dr. Dobb's Journal\n" " ------------------------ \n" "MemoPad is a multiple document\n" "editor that demonstrates D-Flat"); return TRUE; default: break; } break; default: break; } return DfDefaultWndProc(wnd, msg, p1, p2); } /* --- The New command. Open an empty editor window --- */ static void NewFile(DFWINDOW wnd) { OpenPadWindow(wnd, Untitled); } /* --- The Open... command. Select a file --- */ static void SelectFile(DFWINDOW wnd) { char FileName[64]; if (DfOpenFileDialogBox("*.PAD", FileName)) { /* --- see if the document is already in a window --- */ DFWINDOW wnd1 = DfFirstWindow(wnd); while (wnd1 != NULL) { if (stricmp(FileName, wnd1->extension) == 0) { DfSendMessage(wnd1, DFM_SETFOCUS, TRUE, 0); DfSendMessage(wnd1, DFM_RESTORE, 0, 0); return; } wnd1 = DfNextWindow(wnd1); } OpenPadWindow(wnd, FileName); } } /* --- open a document window and load a file --- */ static void OpenPadWindow(DFWINDOW wnd, char *FileName) { static DFWINDOW wnd1 = NULL; DFWINDOW wwnd; struct stat sb; char *Fname = FileName; char *ermsg; if (strcmp(FileName, Untitled)) { if (stat(FileName, &sb)) { ermsg = DfMalloc(strlen(FileName)+20); strcpy(ermsg, "No such file as\n"); strcat(ermsg, FileName); DfErrorMessage(ermsg); free(ermsg); return; } Fname = NameComponent(FileName); } wwnd = DfWatchIcon(); wndpos += 2; if (wndpos == 20) wndpos = 2; wnd1 = DfDfCreateWindow(DF_EDITBOX, Fname, (wndpos-1)*2, wndpos, 10, 40, NULL, wnd, EditorProc, DF_SHADOW | DF_MINMAXBOX | DF_CONTROLBOX | DF_VSCROLLBAR | DF_HSCROLLBAR | DF_MOVEABLE | DF_HASBORDER | DF_SIZEABLE | DF_MULTILINE ); if (strcmp(FileName, Untitled)) { wnd1->extension = DfMalloc(strlen(FileName)+1); strcpy(wnd1->extension, FileName); LoadFile(wnd1); } DfSendMessage(wwnd, DFM_CLOSE_WINDOW, 0, 0); DfSendMessage(wnd1, DFM_SETFOCUS, TRUE, 0); DfSendMessage(wnd1, DFM_MAXIMIZE, 0, 0); } /* --- Load the notepad file into the editor text buffer --- */ static void LoadFile(DFWINDOW wnd) { char *Buf = NULL; int recptr = 0; FILE *fp; if ((fp = fopen(wnd->extension, "rt")) != NULL) { while (!feof(fp)) { DfHandshake(); Buf = DfRealloc(Buf, recptr+150); memset(Buf+recptr, 0, 150); fgets(Buf+recptr, 150, fp); recptr += strlen(Buf+recptr); } fclose(fp); if (Buf != NULL) { DfSendMessage(wnd, DFM_SETTEXT, (DF_PARAM) Buf, 0); free(Buf); } } } static int LineCtr; static int CharCtr; /* ------- print a character -------- */ static void PrintChar(FILE *prn, int c) { int i; if (c == '\n' || CharCtr == DfCfg.RightMargin) { fputs("\r\n", prn); LineCtr++; if (LineCtr == DfCfg.BottomMargin) { fputc('\f', prn); for (i = 0; i < DfCfg.TopMargin; i++) fputc('\n', prn); LineCtr = DfCfg.TopMargin; } CharCtr = 0; if (c == '\n') return; } if (CharCtr == 0) { for (i = 0; i < DfCfg.LeftMargin; i++) { fputc(' ', prn); CharCtr++; } } CharCtr++; fputc(c, prn); } /* --- print the current notepad --- */ static void PrintPad(DFWINDOW wnd) { if (*DfCfg.PrinterPort) { FILE *prn; if ((prn = fopen(DfCfg.PrinterPort, "wt")) != NULL) { long percent; BOOL KeepPrinting = TRUE; unsigned char *text = DfGetText(wnd); unsigned oldpct = 100, cct = 0, len = strlen(text); DFWINDOW swnd = DfSliderBox(20, DfGetTitle(wnd), "Printing"); /* ------- print the notepad text --------- */ LineCtr = CharCtr = 0; while (KeepPrinting && *text) { PrintChar(prn, *text++); percent = ((long) ++cct * 100) / len; if ((int)percent != (int)oldpct) { oldpct = (int) percent; KeepPrinting = DfSendMessage(swnd, DFM_PAINT, 0, oldpct); } } if (KeepPrinting) /* ---- user did not cancel ---- */ if (oldpct < 100) DfSendMessage(swnd, DFM_PAINT, 0, 100); /* ------- follow with a form feed? --------- */ if (DfYesNoBox("Form Feed?")) fputc('\f', prn); fclose(prn); } else DfErrorMessage("Cannot open printer file"); } else DfErrorMessage("No printer selected"); } /* ---------- save a file to disk ------------ */ static void SaveFile(DFWINDOW wnd, int Saveas) { FILE *fp; if (wnd->extension == NULL || Saveas) { char FileName[64]; if (DfSaveAsDialogBox(FileName)) { if (wnd->extension != NULL) free(wnd->extension); wnd->extension = DfMalloc(strlen(FileName)+1); strcpy(wnd->extension, FileName); DfAddTitle(wnd, NameComponent(FileName)); DfSendMessage(wnd, DFM_BORDER, 0, 0); } else return; } if (wnd->extension != NULL) { DFWINDOW mwnd = DfMomentaryMessage("Saving the file"); if ((fp = fopen(wnd->extension, "wt")) != NULL) { fwrite(DfGetText(wnd), strlen(DfGetText(wnd)), 1, fp); fclose(fp); wnd->TextChanged = FALSE; } DfSendMessage(mwnd, DFM_CLOSE_WINDOW, 0, 0); } } /* -------- delete a file ------------ */ static void MemoPadDeleteFile(DFWINDOW wnd) { if (wnd->extension != NULL) { if (strcmp(wnd->extension, Untitled)) { char *fn = NameComponent(wnd->extension); if (fn != NULL) { char msg[30]; sprintf(msg, "Delete %s?", fn); if (DfYesNoBox(msg)) { unlink(wnd->extension); DfSendMessage(wnd, DFM_CLOSE_WINDOW, 0, 0); } } } } } /* ------ display the row and column in the statusbar ------ */ static void ShowPosition(DFWINDOW wnd) { char status[30]; sprintf(status, "Line:%4d Column: %2d", wnd->CurrLine, wnd->CurrCol); DfSendMessage(DfGetParent(wnd), DFM_ADDSTATUS, (DF_PARAM) status, 0); } /* ----- window processing module for the editboxes ----- */ static int EditorProc(DFWINDOW wnd,DFMESSAGE msg,DF_PARAM p1,DF_PARAM p2) { int rtn; switch (msg) { case DFM_SETFOCUS: if ((int)p1) { wnd->InsertMode = DfGetCommandToggle(&DfMainMenu, DF_ID_INSERT); wnd->WordWrapMode = DfGetCommandToggle(&DfMainMenu, DF_ID_WRAP); } rtn = DfDefaultWndProc(wnd, msg, p1, p2); if ((int)p1 == FALSE) DfSendMessage(DfGetParent(wnd), DFM_ADDSTATUS, 0, 0); else ShowPosition(wnd); return rtn; case DFM_KEYBOARD_CURSOR: rtn = DfDefaultWndProc(wnd, msg, p1, p2); ShowPosition(wnd); return rtn; case DFM_COMMAND: switch ((int) p1) { case DF_ID_SEARCH: SearchText(wnd); return TRUE; case DF_ID_REPLACE: ReplaceText(wnd); return TRUE; case DF_ID_SEARCHNEXT: SearchNext(wnd); return TRUE; case DF_ID_CUT: DfCopyToClipboard(wnd); DfSendMessage(wnd, DFM_COMMAND, DF_ID_DELETETEXT, 0); DfSendMessage(wnd, DFM_PAINT, 0, 0); return TRUE; case DF_ID_COPY: DfCopyToClipboard(wnd); DfClearTextBlock(wnd); DfSendMessage(wnd, DFM_PAINT, 0, 0); return TRUE; case DF_ID_PASTE: DfPasteFromClipboard(wnd); DfSendMessage(wnd, DFM_PAINT, 0, 0); return TRUE; case DF_ID_DELETETEXT: case DF_ID_CLEAR: rtn = DfDefaultWndProc(wnd, msg, p1, p2); DfSendMessage(wnd, DFM_PAINT, 0, 0); return rtn; case DF_ID_HELP: DfDisplayHelp(wnd, "MEMOPADDOC"); return TRUE; case DF_ID_WRAP: DfSendMessage(DfGetParent(wnd), DFM_COMMAND, DF_ID_WRAP, 0); wnd->WordWrapMode = DfCfg.WordWrap; return TRUE; case DF_ID_INSERT: DfSendMessage(DfGetParent(wnd), DFM_COMMAND, DF_ID_INSERT, 0); wnd->InsertMode = DfCfg.InsertMode; DfSendMessage(NULL, DFM_SHOW_CURSOR, wnd->InsertMode, 0); return TRUE; default: break; } break; case DFM_CLOSE_WINDOW: if (wnd->TextChanged) { char *cp = DfMalloc(25+strlen(DfGetTitle(wnd))); DfSendMessage(wnd, DFM_SETFOCUS, TRUE, 0); strcpy(cp, DfGetTitle(wnd)); strcat(cp, "\nText changed. Save it?"); if (DfYesNoBox(cp)) DfSendMessage(DfGetParent(wnd), DFM_COMMAND, DF_ID_SAVE, 0); free(cp); } wndpos = 0; if (wnd->extension != NULL) { free(wnd->extension); wnd->extension = NULL; } break; default: break; } return DfDefaultWndProc(wnd, msg, p1, p2); } /* -- point to the name component of a file specification -- */ static char *NameComponent(char *FileName) { char *Fname; if ((Fname = strrchr(FileName, '\\')) == NULL) if ((Fname = strrchr(FileName, ':')) == NULL) Fname = FileName-1; return Fname + 1; } static char *ports[] = { "Lpt1", "Lpt2", "Lpt3", "Com1", "Com2", "Com3", "Com4", NULL }; static int PrintSetupProc(DFWINDOW wnd, DFMESSAGE msg, DF_PARAM p1, DF_PARAM p2) { int rtn, i = 0, mar; char marg[10]; DFWINDOW cwnd; switch (msg) { case DFM_CREATE_WINDOW: rtn = DfDefaultWndProc(wnd, msg, p1, p2); DfPutItemText(wnd, DF_ID_PRINTERPORT, DfCfg.PrinterPort); while (ports[i] != NULL) DfPutComboListText(wnd, DF_ID_PRINTERPORT, ports[i++]); for (mar = CHARSLINE; mar >= 0; --mar) { sprintf(marg, "%3d", mar); DfPutItemText(wnd, DF_ID_LEFTMARGIN, marg); DfPutItemText(wnd, DF_ID_RIGHTMARGIN, marg); } for (mar = LINESPAGE; mar >= 0; --mar) { sprintf(marg, "%3d", mar); DfPutItemText(wnd, DF_ID_TOPMARGIN, marg); DfPutItemText(wnd, DF_ID_BOTTOMMARGIN, marg); } cwnd = DfControlWindow(&PrintSetup, DF_ID_LEFTMARGIN); DfSendMessage(cwnd, DFM_LB_SETSELECTION, CHARSLINE-DfCfg.LeftMargin, 0); cwnd = DfControlWindow(&PrintSetup, DF_ID_RIGHTMARGIN); DfSendMessage(cwnd, DFM_LB_SETSELECTION, CHARSLINE-DfCfg.RightMargin, 0); cwnd = DfControlWindow(&PrintSetup, DF_ID_TOPMARGIN); DfSendMessage(cwnd, DFM_LB_SETSELECTION, LINESPAGE-DfCfg.TopMargin, 0); cwnd = DfControlWindow(&PrintSetup, DF_ID_BOTTOMMARGIN); DfSendMessage(cwnd, DFM_LB_SETSELECTION, LINESPAGE-DfCfg.BottomMargin, 0); return rtn; case DFM_COMMAND: if ((int) p1 == DF_ID_OK && (int) p2 == 0) { DfGetItemText(wnd, DF_ID_PRINTERPORT, DfCfg.PrinterPort, 4); cwnd = DfControlWindow(&PrintSetup, DF_ID_LEFTMARGIN); DfCfg.LeftMargin = CHARSLINE - DfSendMessage(cwnd, DFM_LB_CURRENTSELECTION, 0, 0); cwnd = DfControlWindow(&PrintSetup, DF_ID_RIGHTMARGIN); DfCfg.RightMargin = CHARSLINE - DfSendMessage(cwnd, DFM_LB_CURRENTSELECTION, 0, 0); cwnd = DfControlWindow(&PrintSetup, DF_ID_TOPMARGIN); DfCfg.TopMargin = LINESPAGE - DfSendMessage(cwnd, DFM_LB_CURRENTSELECTION, 0, 0); cwnd = DfControlWindow(&PrintSetup, DF_ID_BOTTOMMARGIN); DfCfg.BottomMargin = LINESPAGE - DfSendMessage(cwnd, DFM_LB_CURRENTSELECTION, 0, 0); } break; default: break; } return DfDefaultWndProc(wnd, msg, p1, p2); } static void FixTabMenu(void) { char *cp = DfGetCommandText(&DfMainMenu, DF_ID_TABS); if (cp != NULL) { cp = strchr(cp, '('); if (cp != NULL) { *(cp+1) = DfCfg.Tabs + '0'; if (DfGetClass(DfInFocus) == DF_POPDOWNMENU) DfSendMessage(DfInFocus, DFM_PAINT, 0, 0); } } } void DfPrepFileMenu(void *w, struct DfMenu *mnu) { DFWINDOW wnd = w; DfDeactivateCommand(&DfMainMenu, DF_ID_SAVE); DfDeactivateCommand(&DfMainMenu, DF_ID_SAVEAS); DfDeactivateCommand(&DfMainMenu, DF_ID_DELETEFILE); DfDeactivateCommand(&DfMainMenu, DF_ID_PRINT); if (wnd != NULL && DfGetClass(wnd) == DF_EDITBOX) { if (DfIsMultiLine(wnd)) { DfActivateCommand(&DfMainMenu, DF_ID_SAVE); DfActivateCommand(&DfMainMenu, DF_ID_SAVEAS); DfActivateCommand(&DfMainMenu, DF_ID_DELETEFILE); DfActivateCommand(&DfMainMenu, DF_ID_PRINT); } } } void DfPrepSearchMenu(void *w, struct DfMenu *mnu) { DFWINDOW wnd = w; DfDeactivateCommand(&DfMainMenu, DF_ID_SEARCH); DfDeactivateCommand(&DfMainMenu, DF_ID_REPLACE); DfDeactivateCommand(&DfMainMenu, DF_ID_SEARCHNEXT); if (wnd != NULL && DfGetClass(wnd) == DF_EDITBOX) { if (DfIsMultiLine(wnd)) { DfActivateCommand(&DfMainMenu, DF_ID_SEARCH); DfActivateCommand(&DfMainMenu, DF_ID_REPLACE); DfActivateCommand(&DfMainMenu, DF_ID_SEARCHNEXT); } } } void DfPrepEditMenu(void *w, struct DfMenu *mnu) { DFWINDOW wnd = w; DfDeactivateCommand(&DfMainMenu, DF_ID_CUT); DfDeactivateCommand(&DfMainMenu, DF_ID_COPY); DfDeactivateCommand(&DfMainMenu, DF_ID_CLEAR); DfDeactivateCommand(&DfMainMenu, DF_ID_DELETETEXT); DfDeactivateCommand(&DfMainMenu, DF_ID_PARAGRAPH); DfDeactivateCommand(&DfMainMenu, DF_ID_PASTE); DfDeactivateCommand(&DfMainMenu, DF_ID_UNDO); if (wnd != NULL && DfGetClass(wnd) == DF_EDITBOX) { if (DfIsMultiLine(wnd)) { if (DfTextBlockMarked(wnd)) { DfActivateCommand(&DfMainMenu, DF_ID_CUT); DfActivateCommand(&DfMainMenu, DF_ID_COPY); DfActivateCommand(&DfMainMenu, DF_ID_CLEAR); DfActivateCommand(&DfMainMenu, DF_ID_DELETETEXT); } DfActivateCommand(&DfMainMenu, DF_ID_PARAGRAPH); if (!DfTestAttribute(wnd, DF_READONLY) && DfClipboard != NULL) DfActivateCommand(&DfMainMenu, DF_ID_PASTE); if (wnd->DeletedText != NULL) DfActivateCommand(&DfMainMenu, DF_ID_UNDO); } } } /* EOF */