#if WIN32 # define _MSC_VER 1 # define _CRT_SECURE_NO_WARNINGS # include #else # #endif #include #include #include #include #include #include char **quote_lines; int quote_line_count; char *msgfrom; char *msgto; char *msgsubj; char *msgarea; int msgpriv; char *message_editor() { char **body_lines; int body_line_count; int position_x; int position_y; int done; char line[81]; char line_cpy[81]; int top_of_screen = 0; int i, j; char *return_body; int body_len; tODInputEvent ch; int q_done; char q_marker; int q_start; int q_position; int *q_lines; int q_line_count; int q_unquote; int z; int redraw; int old_top_of_screen = 0; int stage = 0; int qq_start; position_x = 0; position_y = 0; body_line_count = 0; done = 0; q_position = 0; q_start = 0; memset(line, 0, 81); memset(line_cpy, 0, 81); while (!done) { od_clr_scr(); od_set_cursor(1, 1); od_send_file("magiedit.ans"); od_set_color(D_GREY, D_BLACK); od_set_cursor(2, 13); od_printf("%-26.26s", msgto); od_set_cursor(3, 13); od_printf("%-26.26s", msgsubj); od_set_cursor(2, 52); od_printf("%-26.26s", msgarea); od_set_cursor(5, 1); while (1) { od_get_input(&ch, OD_NO_TIMEOUT, GETIN_RAWCTRL); if (ch.EventType == EVENT_EXTENDED_KEY) { if (ch.chKeyPress == OD_KEY_UP) { if (position_y > 0) { strcpy(line_cpy, body_lines[position_y - 1]); free(body_lines[position_y - 1]); body_lines[position_y - 1] = strdup(line); strcpy(line, line_cpy); position_y--; if (position_x >= strlen(line)) { position_x = strlen(line); } if (position_y < top_of_screen) { top_of_screen--; } if (old_top_of_screen != top_of_screen) { od_set_cursor(5, 1); for (i=top_of_screen;i= strlen(line)) { position_x = strlen(line); } if (position_y > top_of_screen + 17) { top_of_screen++; } if (old_top_of_screen != top_of_screen) { od_set_cursor(3, 1); for (i=top_of_screen;i 0) { position_x--; od_set_cursor(position_y - top_of_screen + 5, position_x + 1); } } else if (ch.chKeyPress == OD_KEY_RIGHT) { if (position_x < strlen(line)) { position_x++; od_set_cursor(position_y - top_of_screen + 5, position_x + 1); } } else if (ch.chKeyPress == OD_KEY_END) { position_x = strlen(line); od_set_cursor(position_y - top_of_screen + 5, position_x + 1); } else if (ch.chKeyPress == OD_KEY_HOME) { position_x = 0; od_set_cursor(position_y - top_of_screen + 5, position_x + 1); } } else if (ch.EventType == EVENT_CHARACTER) { if (ch.chKeyPress == '\r' || (strlen(line) >= 73 && ch.chKeyPress > 31 && ch.chKeyPress != 127)) { if (strlen(line) >= 73 && ch.chKeyPress != '\r') { if (position_x == strlen(line)) { strncat(line, &ch.chKeyPress, 1); z = 1; } else { strncpy(line_cpy, line, position_x); line_cpy[position_x] = '\0'; strncat(line_cpy, &ch.chKeyPress, 1); strcat(line_cpy, &line[position_x]); memset(line, 0, 81); strcpy(line, line_cpy); memset(line_cpy, 0, 81); z = 0; } for (i=strlen(line)-1;i>0;i--) { if (line[i] == ' ') { line[i] = '\0'; strcpy(line_cpy, &line[i+1]); if (body_line_count == 0) { body_lines = (char **)malloc(sizeof(char *)); } else { body_lines = (char **)realloc(body_lines, sizeof(char *) * (body_line_count + 1)); } if (z == 1) { for (j=body_line_count;j>position_y;j--) { body_lines[j] = body_lines[j-1]; } body_line_count++; body_lines[j] = strdup(line); position_y++; if (position_y - top_of_screen > 17) { top_of_screen++; } strcpy(line, line_cpy); memset(line_cpy, 0, 81); position_x = strlen(line); } else { if (strlen(body_lines[position_y]) + strlen(line_cpy) + 1 <= 73) { strcat(line_cpy, " "); strcat(line_cpy, body_lines[position_y]); free(body_lines[position_y]); body_lines[position_y] = strdup(line_cpy); memset(line_cpy, 0, 81); position_x++; } else { for (j=body_line_count;j>position_y;j--) { body_lines[j] = body_lines[j-1]; } body_line_count++; body_lines[j] = strdup(line_cpy); memset(line_cpy, 0, 81); position_x++; } } od_set_cursor(position_y - top_of_screen + 5 - 1, 1); od_printf("%s", body_lines[position_y - 1]); od_clr_line(); od_set_cursor(position_y - top_of_screen + 5, 1); od_printf("%s", line); od_clr_line(); break; } } if (i==0) { position_x++; if (body_line_count == 0) { body_lines = (char **)malloc(sizeof(char *)); } else { body_lines = (char **)realloc(body_lines, sizeof(char *) * (body_line_count + 1)); } for (i=body_line_count;i>position_y;i--) { body_lines[i] = body_lines[i-1]; } body_line_count++; body_lines[i] = strdup(line); if (z == 1) { position_y++; if (position_y - top_of_screen > 17) { top_of_screen++; } position_x = 0; } memset(line, 0, 81); } } else { if (position_x < strlen(line)) { // insert line if (body_line_count == 0) { body_lines = (char **)malloc(sizeof(char *)); } else { body_lines = (char **)realloc(body_lines, sizeof(char *) * (body_line_count + 1)); } for (i=body_line_count;i>position_y;i--) { body_lines[i] = body_lines[i-1]; } body_line_count++; body_lines[i] = (char *)malloc(sizeof(char) * (position_x + 1)); strncpy(body_lines[i], line, position_x); body_lines[i][position_x] = '\0'; strcpy(line_cpy, &line[position_x]); memset(line, 0, 81); strcpy(line, line_cpy); memset(line_cpy, 0, 81); position_y++; if (position_y - top_of_screen > 17) { top_of_screen++; } position_x = 0; od_clr_line(); } else { if (body_line_count == 0) { body_lines = (char **)malloc(sizeof(char *)); } else { body_lines = (char **)realloc(body_lines, sizeof(char *) * (body_line_count + 1)); } for (i=body_line_count;i>position_y;i--) { body_lines[i] = body_lines[i-1]; } body_line_count++; body_lines[i] = strdup(line); position_y++; if (position_y - top_of_screen > 17) { top_of_screen++; } position_x = 0; memset(line, 0, 81); } } if (old_top_of_screen != top_of_screen) { od_set_cursor(5, 1); for (i=top_of_screen;i 0) { od_set_cursor(position_y - top_of_screen + 5, position_x); od_printf("%s", &line[position_x-1]); od_clr_line(); } else { od_set_cursor(position_y - top_of_screen + 5, 1); od_printf("%s", line); od_clr_line(); } for (i=position_y;i 0) { // TODO if (strlen(line) == 0) { // delete line move cursor to end of previous line if (position_y < body_line_count) { strcpy(line, body_lines[position_y - 1]); free(body_lines[position_y - 1]); for (i=position_y - 1;i 0) { if (position_x >= strlen(line)) { strncpy(line_cpy, line, strlen(line) - 1); line_cpy[strlen(line) - 1] = '\0'; memset(line, 0, 81); strcpy(line, line_cpy); memset(line_cpy, 0, 81); position_x--; } else { strncpy(line_cpy, line, position_x -1); line_cpy[position_x - 1] = '\0'; strcat(line_cpy, &line[position_x]); strcpy(line, line_cpy); memset(line_cpy, 0, 81); position_x--; } } } else if (ch.chKeyPress == 17) { if (quote_line_count > 0) { // Quote od_clr_scr(); od_set_cursor(1, 1); od_send_file("magiquote.ans"); od_set_color(D_GREY, D_BLACK); od_set_cursor(2, 13); od_printf("%-26.26s", msgto); od_set_cursor(3, 13); od_printf("%-26.26s", msgsubj); od_set_cursor(2, 52); od_printf("%-26.26s", msgarea); od_set_cursor(5, 1); q_line_count = 0; q_done = 0; redraw = 1; qq_start = 0; if (strlen(line) > 0) { if (body_line_count == 0) { body_lines = (char **)malloc(sizeof(char *)); } else { body_lines = (char **)realloc(body_lines, sizeof(char *) * (body_line_count + 1)); } for (i=body_line_count;i>position_y;i--) { body_lines[i] = body_lines[i-1]; } body_line_count++; body_lines[i] = strdup(line); position_y++; } // do quoting... while (!q_done) { if (redraw) { if (q_line_count - 9 < 0) { qq_start = 0; } else { qq_start = q_line_count - 9; } od_set_color(D_GREY, D_BLACK); for (i=qq_start;i= quote_line_count) { q_position = quote_line_count - 1; } if (q_position >= q_start + 7) { q_start = q_start + 7; if (q_start + 7 >= quote_line_count) { q_start = quote_line_count - 7; } redraw = 1; } if (!redraw) { od_set_cursor(q_position - q_start + 16, 1); od_set_color(D_BLACK, D_MAGENTA); od_printf("%s", quote_lines[q_position]); od_clr_line(); od_set_cursor(q_position - 1 - q_start + 16, 1); od_set_color(D_BLACK, D_MAGENTA); od_printf("%s", quote_lines[q_position - 1]); od_clr_line(); } } } else { if (ch.chKeyPress == 17) { // do quote for (i=0;iposition_y;j--) { body_lines[j] = body_lines[j-1]; } body_lines[j] = strdup(quote_lines[q_lines[i]]); position_y++; body_line_count++; } if (q_line_count) { free(q_lines); } position_x = 0; q_done = 1; } else if (ch.chKeyPress == 27) { if (q_line_count) { free(q_lines); } q_done = 1; } else if (ch.chKeyPress == 13) { // add line to quote body if (q_line_count == 0) { q_lines = (int *)malloc(sizeof(int *)); } else { q_lines = (int *)realloc(q_lines, sizeof(int *) * (q_line_count + 1)); } q_lines[q_line_count] = q_position; q_line_count++; q_position++; if (q_position >= quote_line_count) { q_position = quote_line_count - 1; } if (q_position >= q_start + 7) { q_start = q_start + 7; if (q_start + 7 >= quote_line_count) { q_start = quote_line_count - 7; } } redraw = 1; } } } od_set_color(D_GREY, D_BLACK); // restore screen od_clr_scr(); od_set_cursor(1, 1); od_send_file("magiedit.ans"); od_set_color(D_GREY, D_BLACK); od_set_cursor(2, 13); od_printf("%-26.26s", msgto); od_set_cursor(3, 13); od_printf("%-26.26s", msgsubj); od_set_cursor(2, 52); od_printf("%-26.26s", msgarea); od_set_cursor(5, 1); if (position_y - top_of_screen > 17) { top_of_screen = position_y - 17; } for (i=top_of_screen;i 0) { for (i=0;i 0) { memcpy(line, body_lines[body_line_count -1], 81); free(body_lines[body_line_count - 1]); body_line_count--; if (body_line_count == 0) { free(body_lines); } else { body_lines = (char **)realloc(body_lines, sizeof(char *) * (body_line_count)); } position_y--; } else { memset(line, 0, 81); } } if (position_y < top_of_screen) { top_of_screen--; } // refresh screen; position_x = 0; if (position_y <= body_line_count) { for (i=position_y; i< body_line_count && i < top_of_screen + 18;i++) { od_set_cursor(i - top_of_screen + 5, 1); od_printf("%s", body_lines[i]); od_clr_line(); } } for (;i< top_of_screen + 18;i++) { od_set_cursor(i - top_of_screen + 5, 1); od_clr_line(); } } else if (ch.chKeyPress == 26) { // save // save message body_len = 0; for (i=0;i 0) { for (i=0;i= strlen(line)) { strncat(line, &ch.chKeyPress, 1); } else { strncpy(line_cpy, line, position_x); line_cpy[position_x] = '\0'; strncat(line_cpy, &ch.chKeyPress, 1); strcat(line_cpy, &line[position_x]); memset(line, 0, 81); strcpy(line, line_cpy); memset(line_cpy, 0, 81); } position_x++; } if (position_x > 0) { od_set_cursor(position_y - top_of_screen + 5, position_x); od_printf("%s", &line[position_x-1]); od_clr_line(); } else { od_set_cursor(position_y - top_of_screen + 5, 1); od_printf("%s", line); od_clr_line(); } od_set_cursor(position_y - top_of_screen + 5, position_x + 1); } } } } return NULL; } #if _MSC_VER int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow) { #else int main(int argc, char **argv) { #endif char *msgtmp; char *msginf; char path_sep; char *msgpath; int noquote; char buffer[256]; FILE *fptr; char *body; char *unwrapped_quote; int unwrapped_quote_len; int i, j; int last_space; int start_line; msgpath = NULL; char *ptr; #if _MSC_VER int j; for (i=0;iod_page_pausing = FALSE; msgtmp = (char *)malloc(strlen(msgpath) + 8); if (!msgtmp) { od_printf("Out of Memory!\r\n"); od_exit(-1, FALSE); } msginf = (char *)malloc(strlen(msgpath) + 8); if (!msginf) { od_printf("Out of Memory!\r\n"); od_exit(-1, FALSE); } sprintf(msgtmp, "%s%cMSGTMP", msgpath, path_sep); sprintf(msginf, "%s%cMSGINF", msgpath, path_sep); fptr = fopen(msginf, "r"); if (!fptr) { sprintf(msginf, "%s%cmsginf", msgpath, path_sep); fptr = fopen(msginf, "r"); if (!fptr) { od_printf("Unable to open MSGINF!\r\n"); od_exit(-1, FALSE); return -1; } } fgets(buffer, 256, fptr); for (i=strlen(buffer) - 1; i > 0; i--) { if (buffer[i] != '\r' && buffer[i] != '\n') { break; } else { buffer[i] = '\0'; } } msgfrom = strdup(buffer); fgets(buffer, 256, fptr); for (i=strlen(buffer) - 1; i > 0; i--) { if (buffer[i] != '\r' && buffer[i] != '\n') { break; } else { buffer[i] = '\0'; } } msgto = strdup(buffer); fgets(buffer, 256, fptr); for (i=strlen(buffer) - 1; i > 0; i--) { if (buffer[i] != '\r' && buffer[i] != '\n') { break; } else { buffer[i] = '\0'; } } msgsubj = strdup(buffer); fgets(buffer, 256, fptr); // msg no, we don't care fgets(buffer, 256, fptr); for (i=strlen(buffer) - 1; i > 0; i--) { if (buffer[i] != '\r' && buffer[i] != '\n') { break; } else { buffer[i] = '\0'; } } msgarea = strdup(buffer); fgets(buffer, 256, fptr); for (i=strlen(buffer) - 1; i > 0; i--) { if (buffer[i] != '\r' && buffer[i] != '\n') { break; } else { buffer[i] = '\0'; } } if (strcasecmp(buffer, "YES") == 0) { msgpriv = 1; } else { msgpriv = 0; } fclose(fptr); noquote = 0; fptr = fopen(msgtmp, "r"); if (!fptr) { sprintf(msgtmp, "%s%cmsgtmp", msgpath, path_sep); fptr = fopen(msgtmp, "r"); if (!fptr) { sprintf(msgtmp, "%s%cMSGTMP", msgpath, path_sep); noquote = 1; } } quote_line_count = 0; if (!noquote) { unwrapped_quote_len = 0; fgets(buffer, 80, fptr); while (!feof(fptr)) { ptr = strrchr(buffer, '\n'); if (ptr != NULL) { ptr[0] = '\0'; } if (unwrapped_quote_len == 0) { unwrapped_quote = (char *)malloc(strlen(buffer) + 1); strcpy(unwrapped_quote, buffer); unwrapped_quote_len = strlen(unwrapped_quote); } else { unwrapped_quote = (char *)realloc(unwrapped_quote, unwrapped_quote_len + strlen(buffer) + 1); strcat(unwrapped_quote, buffer); unwrapped_quote_len = strlen(unwrapped_quote); } memset(buffer, 0, 256); fgets(buffer, 80, fptr); } fclose(fptr); unlink(msgtmp); // remove unneeded CRs for (i=0;i 0) { if (unwrapped_quote[i-1] == ' ' || unwrapped_quote[i-1] == '\r') { continue; } } if (i < unwrapped_quote_len - 1) { if (unwrapped_quote[i+1] == ' ' || unwrapped_quote[i+1] == '\r') { continue; } } unwrapped_quote[i] = ' '; } } // now wrap the quotes at 73 columns start_line = 0; j = 0; last_space = 0; for (i=0;i 71) { quote_lines[quote_line_count] = (char *)malloc(i - start_line + 6); memset(buffer, 0, 256); strncpy(buffer, &unwrapped_quote[start_line], (i - last_space > 71 ? 74 : 73)); sprintf(quote_lines[quote_line_count], " %c> %s", msgto[0], buffer); j = 0; start_line = i+1; last_space = i+1; } else { quote_lines[quote_line_count] = (char *)malloc(last_space - start_line + 6); memset(buffer, 0, 256); strncpy(buffer, &unwrapped_quote[start_line], last_space - start_line + 1); sprintf(quote_lines[quote_line_count], " %c> %s", msgto[0], buffer); j = 1; start_line = last_space+1; i = last_space + 1; } quote_line_count++; } else if (unwrapped_quote[i] == '\r' ) { if (quote_line_count == 0) { quote_lines = (char **)malloc(sizeof(char *)); } else { quote_lines = (char **)realloc(quote_lines, sizeof(char *) * (quote_line_count + 1)); } quote_lines[quote_line_count] = (char *)malloc(i - start_line + 6); memset(buffer, 0, 256); strncpy(buffer, &unwrapped_quote[start_line], j); sprintf(quote_lines[quote_line_count], " %c> %s", msgto[0], buffer); j = 0; start_line = i+1; last_space = i+1; quote_line_count++; } else { j++; } } if (j > 0) { if (quote_line_count == 0) { quote_lines = (char **)malloc(sizeof(char *)); } else { quote_lines = (char **)realloc(quote_lines, sizeof(char *) * (quote_line_count + 1)); } quote_lines[quote_line_count] = (char *)malloc(i - start_line + 6); memset(buffer, 0, 256); strncpy(buffer, &unwrapped_quote[start_line], j); sprintf(quote_lines[quote_line_count], " %c> %s", msgto[0], buffer); quote_line_count++; } } body = message_editor(); if (body == NULL) { od_printf("Message Aborted!\r\n"); od_exit(0, FALSE); return 0; } for (i=0;i