![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to putmsg.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to putmsg.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 root 1: #line 1 "PUTMSG.C"
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: #include "sbbs.h"
6:
7: /****************************************************************************/
8: /* Outputs a NULL terminated string locally and remotely (if applicable) */
9: /* checking for message aborts, pauses, ANSI escape and ^A sequences. */
10: /* Changes local text attributes if necessary. Max length of str is 4 gig */
11: /* Returns the last char of the buffer access.. 0 if not aborted. */
12: /* If P_SAVEATR bit is set in mode, the attributes set by the message */
13: /* will be the current attributes after the message is displayed, otherwise */
14: /* the attributes prior to diplaying the message are always restored. */
15: /* Ignores Ctrl-Z's */
16: /****************************************************************************/
17: char putmsg(char HUGE16 *str, int mode)
18: {
19: uchar tmpatr,tmp2[256],tmp3[128],*p,exatr=0;
20: int orgcon=console,i;
21: ulong l=0,sys_status_sav=sys_status;
22:
23: tmpatr=curatr; /* was lclatr(-1) */
24: if(!(mode&P_SAVEATR))
25: attr(LIGHTGRAY);
26: while(str[l] && (mode&P_NOABORT || !msgabort()) && online) {
27: if(str[l]==1) { /* Ctrl-Ax sequence */
28: if(str[l+1]=='"' && !(sys_status&SS_NEST_PF)) { /* Quote a file */
29: l+=2;
30: i=0;
31: while(i<12 && isprint(str[l]) && str[l]!='\\' && str[l]!='/')
32: tmp2[i++]=str[l++];
33: tmp2[i]=0;
34: sys_status|=SS_NEST_PF; /* keep it only one message deep! */
35: sprintf(tmp3,"%s%s",text_dir,tmp2);
36: printfile(tmp3,0);
37: sys_status&=~SS_NEST_PF; }
38: else if(toupper(str[l+1])=='Z') /* Ctrl-AZ==EOF */
39: break;
40: else {
41: ctrl_a(str[l+1]);
42: l+=2; } }
43: else if((str[l]=='`' || str[l]=='�') && str[l+1]=='[') {
44: outchar(ESC); /* Convert `[ and �[ to ESC[ */
45: l++; }
46: else if(sys_misc&SM_PCBOARD && str[l]=='@' && str[l+1]=='X'
47: && isxdigit(str[l+2]) && isxdigit(str[l+3])) {
48: sprintf(tmp2,"%.2s",str+l+2);
49: attr(ahtoul(tmp2));
50: exatr=1;
51: l+=4; }
52: else if(sys_misc&SM_WILDCAT && str[l]=='@' && str[l+3]=='@'
53: && isxdigit(str[l+1]) && isxdigit(str[l+2])) {
54: sprintf(tmp2,"%.2s",str+l+1);
55: attr(ahtoul(tmp2));
56: // exatr=1;
57: l+=4; }
58: else if(sys_misc&SM_RENEGADE && str[l]=='|' && isdigit(str[l+1])
59: && !(useron.misc&(RIP|WIP))) {
60: sprintf(tmp2,"%.2s",str+l+1);
61: i=atoi(tmp2);
62: if(i>=16) { /* setting background */
63: i-=16;
64: i<<=4;
65: i|=(curatr&0x0f); } /* leave foreground alone */
66: else
67: i|=(curatr&0xf0); /* leave background alone */
68: attr(i);
69: exatr=1;
70: l+=2; /* Skip |x */
71: if(isdigit(str[l]))
72: l++; } /* Skip second digit if it exists */
73: else if(sys_misc&SM_CELERITY && str[l]=='|' && isalpha(str[l+1])
74: && !(useron.misc&(RIP|WIP))) {
75: switch(str[l+1]) {
76: case 'k':
77: attr((curatr&0xf0)|BLACK);
78: break;
79: case 'b':
80: attr((curatr&0xf0)|BLUE);
81: break;
82: case 'g':
83: attr((curatr&0xf0)|GREEN);
84: break;
85: case 'c':
86: attr((curatr&0xf0)|CYAN);
87: break;
88: case 'r':
89: attr((curatr&0xf0)|RED);
90: break;
91: case 'm':
92: attr((curatr&0xf0)|MAGENTA);
93: break;
94: case 'y':
95: attr((curatr&0xf0)|YELLOW);
96: break;
97: case 'w':
98: attr((curatr&0xf0)|LIGHTGRAY);
99: break;
100: case 'd':
101: attr((curatr&0xf0)|BLACK|HIGH);
102: break;
103: case 'B':
104: attr((curatr&0xf0)|BLUE|HIGH);
105: break;
106: case 'G':
107: attr((curatr&0xf0)|GREEN|HIGH);
108: break;
109: case 'C':
110: attr((curatr&0xf0)|CYAN|HIGH);
111: break;
112: case 'R':
113: attr((curatr&0xf0)|RED|HIGH);
114: break;
115: case 'M':
116: attr((curatr&0xf0)|MAGENTA|HIGH);
117: break;
118: case 'Y': /* Yellow */
119: attr((curatr&0xf0)|YELLOW|HIGH);
120: break;
121: case 'W':
122: attr((curatr&0xf0)|LIGHTGRAY|HIGH);
123: break;
124: case 'S': /* swap foreground and background */
125: attr((curatr&0x07)<<4);
126: break; }
127: exatr=1;
128: l+=2; /* Skip |x */
129: } /* Skip second digit if it exists */
130: else if(sys_misc&SM_WWIV && str[l]==3 && isdigit(str[l+1])) {
131: exatr=1;
132: switch(str[l+1]) {
133: default:
134: attr(LIGHTGRAY);
135: break;
136: case '1':
137: attr(CYAN|HIGH);
138: break;
139: case '2':
140: attr(BROWN|HIGH);
141: break;
142: case '3':
143: attr(MAGENTA);
144: break;
145: case '4':
146: attr(LIGHTGRAY|HIGH|(BLUE<<4));
147: break;
148: case '5':
149: attr(GREEN);
150: break;
151: case '6':
152: attr(RED|HIGH|BLINK);
153: break;
154: case '7':
155: attr(BLUE|HIGH);
156: break;
157: case '8':
158: attr(BLUE);
159: break;
160: case '9':
161: attr(CYAN);
162: break; }
163: l+=2; }
164: else {
165: if(exatr && str[l]==LF) /* clear at newline for extra attr codes */
166: attr(LIGHTGRAY);
167: if(lclaes()) {
168: if(str[l]=='A' || str[l]=='B' || str[l]=='H' || str[l]=='J'
169: || str[l]=='f' || str[l]=='u') /* ANSI anim */
170: lncntr=0; /* so defeat pause */
171: if(str[l]=='"') {
172: l++; /* don't pass on keyboard reassignment */
173: continue; } }
174: if(str[l]=='!' && str[l+1]=='|' && useron.misc&(RIP|WIP)) /* RIP */
175: lncntr=0; /* so defeat pause */
176: if(str[l]==ESC && str[l+1]=='$') /* WIP command */
177: lncntr=0;
178: if(str[l]=='@' && !(mode&P_NOATCODES)) {
179: i=atcodes((char *)str+l); /* returns 0 if not valid @ code */
180: l+=i; /* i is length of code string */
181: if(i) /* if valid string, go to top */
182: continue; }
183: if(str[l]!=26)
184: outchar(str[l]);
185: l++; } }
186: //curatr=lclatr(-1); 01/29/96
187: if(!(mode&P_SAVEATR)) {
188: console=orgcon;
189: attr(tmpatr); }
190:
191: /* Restore original settings of Forced Pause On/Off */
192: sys_status&=~(SS_PAUSEOFF|SS_PAUSEON);
193: sys_status|=(sys_status_sav&(SS_PAUSEOFF|SS_PAUSEON));
194: return(str[l]);
195: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.