source: trunk/txlib/txstdcmd.c@ 13

Last change on this file since 13 was 13, checked in by Jan van Wijk, 19 years ago

Logfile size-limit and automatic logfile rotation, very useful for crash tracing
File size: 30.0 KB
Line 
1//
2// TxWin, Textmode Windowing Library
3//
4// Original code Copyright (c) 1995-2005 Fsys Software and Jan van Wijk
5//
6// ==========================================================================
7//
8// This file contains Original Code and/or Modifications of Original Code as
9// defined in and that are subject to the GNU Lesser General Public License.
10// You may not use this file except in compliance with the License.
11// BY USING THIS FILE YOU AGREE TO ALL TERMS AND CONDITIONS OF THE LICENSE.
12// A copy of the License is provided with the Original Code and Modifications,
13// and is also available at http://www.dfsee.com/txwin/lgpl.htm
14//
15// This library is free software; you can redistribute it and/or modify
16// it under the terms of the GNU Lesser General Public License as published
17// by the Free Software Foundation; either version 2.1 of the License,
18// or (at your option) any later version.
19//
20// This library is distributed in the hope that it will be useful,
21// but WITHOUT ANY WARRANTY; without even the implied warranty of
22// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
23// See the GNU Lesser General Public License for more details.
24//
25// You should have received a copy of the GNU Lesser General Public License
26// along with this library; (lgpl.htm) if not, write to the Free Software
27// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
28//
29// Questions on TxWin licensing can be directed to: txwin@fsys.nl
30//
31// ==========================================================================
32//
33// TX standard command execution
34//
35// Author: J. van Wijk
36//
37// Developed for LPT/DFSEE utilities
38//
39// 20-11-2001 // Use TXA command parser only
40// 11-10-2001 // Reduced memory usage for SMALLMEM by removing commands
41// 15-02-2000 // Fixed 'set ansi on/off' bug
42
43#include <txlib.h> // TX library interface
44#include <txtpriv.h> // TX library privates
45#include <txwpriv.h> // TX windows privates
46
47#if defined (__WATCOMC__)
48 #ifndef LINUX
49 #include <dos.h>
50 #endif
51#endif
52
53static char txsetPrio = 'S'; // default Std priority
54
55/*****************************************************************************/
56// Execute standard commands
57/*****************************************************************************/
58ULONG TxStdCommand
59(
60 void // parameters through TXA
61)
62{
63 ULONG rc = NO_ERROR;
64 LONG nr = 0;
65 TXLN dc; // local command string
66 int cc = 0; // command string count
67 char *c0, *c1, *c2, *c3; // parsed command parts
68 char *c4, *c5, *c6, *c7; // parsed command parts
69 TXLN s1; // temporary string space
70 char *pp; // parameter pointers
71
72 ENTER();
73
74 #if defined (USEWINDOWING)
75 if (txwa->sbview)
76 {
77 TxaGetArgString( TXA_CUR, 0, TXA_OPT, TXMAXLN, dc);
78 sprintf( s1, "TxWin executing: %s", dc);
79 txwSendMsg( (TXWHANDLE) txwa->sbview, TXWM_STATUS, (ULONG) s1, cSchemeColor);
80 }
81 #endif // USEWINDOWING
82
83 pp = TxaGetArgString( TXA_CUR, 1, 0, TXMAXLN, dc); // dc => cmd from arg 1
84 cc = TxaArgCount( ); // number of parameters
85 c0 = TxaArgValue(0);
86 c1 = TxaArgValue(1);
87 c2 = TxaArgValue(2);
88 c3 = TxaArgValue(3);
89 c4 = TxaArgValue(4);
90 c5 = TxaArgValue(5);
91 c6 = TxaArgValue(6);
92 c7 = TxaArgValue(7);
93
94 TRACES(("cc: %u c0:'%s' c1:'%s' c2:'%s' c3:'%s' c4:'%s' c5:'%s' c6:'%s' c7:'%s' pp:'%s'\n",
95 cc, c0, c1, c2, c3, c4, c5, c6, c7, pp));
96
97 if (stricmp(c0, "log" ) == 0)
98 {
99 if (TxaOptSet('r'))
100 {
101 TxSetLogReOpen( TxaOption('r'));
102 }
103 if (TxaOptSet('m'))
104 {
105 TxSetLogMaxSize( TxaOptBkmg( 'm', 2047, 'k'));
106 }
107 if (TxaOptSet('f'))
108 {
109 TxSetLogRetain( TxaOptNum('f', NULL, 1));
110 }
111 TxAppendToLogFile( c1, TRUE);
112 }
113 else if (stricmp(c0, "trace" ) == 0)
114 {
115 if ((c1[0] == '?') || TxaOption('?'))
116 {
117 TxPrint( "\nSet and check TRACE level, format and destinations\n\n"
118 "Usage: trace [-r] [-s] [-t] [level | filename]\n\n"
119 " -d[:xx] add xx ms delay for each trace line, slowdown\n"
120 " -f[:ff] retain ff numbered logfiles when cycling\n"
121 " -m[:mm] cycle to next logfile after size mm\n"
122 " -r close and reopen log on each line (slow)\n"
123 " -r- open log just once (this is the default)\n"
124 " -s trace to the scoll-buffer (screen) too\n"
125 " -s- switch off trace to screen\n"
126 " -t add timestamps and force thread-id display\n"
127 " -t- switch off timestamp and thread-id\n"
128 " level 0 = off, 1 = window-title, 10..999 = detail\n"
129 " filename filename with optional path for tracefile\n"
130 " (this is the same file used as normal LOG)\n\n"
131 " The (left) <Alt>+/ key cycles levels 0 -> 1 -> 100 -> 0\n\n");
132 }
133 else
134 {
135 if (TxaOptSet('d')) // delay xx ms per traceline
136 {
137 TxTrSlowDown = TxaOptNum( 'd', NULL, 100);
138 }
139 if (TxaOptSet('r'))
140 {
141 TxSetLogReOpen( TxaOption('r'));
142 }
143 if (TxaOptSet('t')) // timestamping specified
144 {
145 TxTraceSetStamp( TxaOption('t'));
146 }
147 if (TxaOptSet('s'))
148 {
149 TxTrLogOnly = !TxaOption('s'); // to screen with -s
150 }
151 if (TxaOptSet('m'))
152 {
153 TxSetLogMaxSize( TxaOptBkmg( 'm', 2047, 'k'));
154 }
155 if (TxaOptSet('f'))
156 {
157 TxSetLogRetain( TxaOptNum('f', NULL, 1));
158 }
159 if (isdigit( c1[0])) // setting a level
160 {
161 TxTrLevel = atol(c1);
162 }
163 else
164 {
165 if (strlen( c1))
166 {
167 TxAppendToLogFile( c1, TRUE);
168 TxTrLevel = 100;
169 }
170 }
171 }
172 TxPrint("Funct trace level : %lu trace to %s\n", TxTrLevel,
173 (TxTrLevel == 1) ? "Window title-bar" :
174 (TxTrLogOnly) ? (TxQueryLogFile( NULL, NULL)) ? "logfile only"
175 : "nowhere!"
176 : (TxQueryLogFile( NULL, NULL)) ? "log and screen"
177 : "screen only");
178 }
179 else if (stricmp(c0, "cmd" ) == 0)
180 {
181 if (cc > 1)
182 {
183 rc = TxExternalCommand( pp); // execute parameter as cmd
184 }
185 else
186 {
187 if ((pp = getenv( "COMSPEC")) != NULL) // when defined
188 {
189 TxaOptSetItem( "-B"); // no trusted command check
190 TxExternalCommand( pp); // run command interpreter
191 }
192 else
193 {
194 TxPrint( "No command processor defined in 'COMSPEC' environment variable\n");
195 }
196 }
197 }
198 #ifndef TXMIN
199 else if (stricmp(c0, "cboxes" ) == 0)
200 {
201 TxPrint("\n%s", ansi[NORMAL]);
202 TxPrint(" ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄ¿ \n");
203 TxPrint(" ³ Single line ³default ³ \n");
204 TxPrint(" ³ box character ÃÄÄÄÄÄÄÄÄŽ \n");
205 TxPrint(" ³ with joints ³colors ³ \n");
206 TxPrint(" ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÙ \n");
207 TxPrint("\n");
208 TxPrint(" %s ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍ» %s\n", ansi[TXaBYnC], ansi[NORMAL]);
209 TxPrint(" %s º Double line ºYellow º %s\n", ansi[TXaBYnC], ansi[NORMAL]);
210 TxPrint(" %s º box character ÌÍÍÍÍÍÍÍ͹ %s\n", ansi[TXaBYnC], ansi[NORMAL]);
211 TxPrint(" %s º with joints ºon Cyan º %s\n", ansi[TXaBYnC], ansi[NORMAL]);
212 TxPrint(" %s ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍŒ %s\n", ansi[TXaBYnC], ansi[NORMAL]);
213 TxPrint("\n");
214 TxPrint(" %s ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍž %s ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÒÄÄÄÄÄÄÄÄ· %s\n", ansi[TXaNMnW], ansi[TXaNWnM], ansi[NORMAL]);
215 TxPrint(" %s ³ Mixed lines ³Magenta ³ %s º Mixed lines ºWhite onº %s\n", ansi[TXaNMnW], ansi[TXaNWnM], ansi[NORMAL]);
216 TxPrint(" %s ³ box character ÆÍÍÍÍÍÍÍ͵ %s º box character ÇÄÄÄÄÄÄÄĶ %s\n", ansi[TXaNMnW], ansi[TXaNWnM], ansi[NORMAL]);
217 TxPrint(" %s ³ with joints ³on Grey ³ %s º with joints ºMagenta º %s\n", ansi[TXaNMnW], ansi[TXaNWnM], ansi[NORMAL]);
218 TxPrint(" %s ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍŸ %s ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÐÄÄÄÄÄÄÄÄœ %s\n", ansi[TXaNMnW], ansi[TXaNWnM], ansi[NORMAL]);
219 TxPrint("%s\n", ansi[NORMAL]);
220 }
221 else if (stricmp(c0, "charset" ) == 0)
222 {
223 TxPrint( " %s\n", "ÚÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" );
224 TxPrint( " %s\n", "³\\³0123456789ABCDEF³" );
225 TxPrint( " %s\n", "³0³
226
227 ³" );
228 TxPrint( " %s\n", "³1³
229
230
231³" );
232 TxPrint( " %s\n", "³2³ ! #$%&'()*+,-./³" );
233 TxPrint( " %s\n", "³3³0123456789:;<=>?³" );
234 TxPrint( " %s\n", "³4³@ABCDEFGHIJKLMNO³" );
235 TxPrint( " %s\n", "³5³PQRSTUVWXYZ[ ]^_³" );
236 TxPrint( " %s\n", "³6³`abcdefghijklmno³" );
237 TxPrint( " %s\n", "³7³pqrstuvwxyz{|}~³" );
238 TxPrint( " %s\n", "³8³€‚ƒ„…
239†‡ˆ‰Š‹ŒŽ³" );
240 TxPrint( " %s\n", "³9³‘’“”•–—˜™š›œžŸ³" );
241 TxPrint( " %s\n", "³A³ ¡¢£€¥Š§š©ª«¬­®¯³" );
242 TxPrint( " %s\n", "³B³°±²³Žµ¶·ž¹º»ŒœŸ¿³" );
243 TxPrint( " %s\n", "³C³ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎϳ" );
244 TxPrint( " %s\n", "³D³ÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß³" );
245 TxPrint( " %s\n", "³E³àáâãäåæçèéêëìíîï³" );
246 TxPrint( " %s\n", "³F³ðñòóôõö÷øùúûüýþÿ³" );
247 TxPrint( " %s\n", "³/³0123456789ABCDEF³" );
248 TxPrint( " %s\n", "ÀÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ" );
249 }
250 else if (stricmp(c0, "colors" ) == 0)
251 {
252 int bg,fg;
253
254 TxPrint("%s", ansi[NORMAL]);
255 for (bg = 0; bg < 16; bg++)
256 {
257 TxPrint("\n ");
258 for (fg = 0; fg < 16; fg++)
259 {
260 TxPrint( "%s %1X%1X %s", ansi[fg + (bg * 16)],
261 bg, fg, ansi[NORMAL]);
262 }
263 }
264 TxPrint("\n\n");
265 }
266 else if (strnicmp(c0, "txd", 3) == 0)
267 {
268 char *filter[5] = {NULL,NULL,NULL,NULL,NULL};
269
270 if (TxaOption('?') || (c1[0] == '?')) // explicit help request
271 {
272 TxPrint("\nShow files and/or directories in selectable format\n");
273 TxPrint("\n Usage: %s fspec select 'attrs' [includes] [-b]\n\n"
274 " fspec = File or directory spec, including wildcards\n"
275 " search = display selection criteria: SFDP\n"
276 " S=subdirs, F=Files, D=Dirs, P=Parent ..\n"
277 " attrs = file-attributes to match : '+A+R+S+H-A-R-S-H'\n"
278 " +A archive-bit -A NO archive bit\n"
279 " +R read-only -R NOT read-only\n"
280 " +S system-bit -S NO system bit\n"
281 " +H hidden -H NOT hidden\n"
282 " inexcl = include/exclude wildcards\n", c0);
283 TxPrint("\n -b = show basename only\n\n");
284 }
285 else
286 {
287 if (cc > 4)
288 {
289 filter[0] = c4;
290 }
291 if (cc > 5)
292 {
293 filter[1] = c5;
294 }
295 if (cc > 6)
296 {
297 filter[2] = c6;
298 }
299 if (cc > 7)
300 {
301 filter[3] = c7;
302 }
303 TxPrint( "\nTxDir for: %s, options: %s, attributes: %s\n\n",
304 (cc > 1) ? c1 : "current dir",
305 (cc > 2) ? c2 : "file+dirs",
306 (cc > 3) ? c3 : "all files");
307 if (TxaOption('b')) // basename only
308 {
309 rc = TxFileTree( c1, c2, c3, "", filter, txFileTreeNoPath, NULL);
310 }
311 else
312 {
313 rc = TxFileTree( c1, c2, c3, "", filter, txFileTreeOneFile, NULL);
314 }
315 }
316 }
317 else if (stricmp(c0, "keys" ) == 0)
318 {
319 ULONG input;
320 TXW_INPUT_EVENT mouse;
321
322 while ((input = txwGetInputEvent( &mouse)) != TXK_ESCAPE)
323 {
324 if (input == TXW_INPUT_MOUSE) // mouse
325 {
326 TxPrint("Mouse @ : % 3hu % 3hu button:%4.4hx Kstate: %4.4hx\n",
327 mouse.row, mouse.col, mouse.value, mouse.state);
328 }
329 else
330 {
331 TxPrint("Keyvalue: %3.3lX\n", input);
332 }
333 }
334 }
335 #if defined (USEWINDOWING)
336 else if (stricmp(c0, "mode" ) == 0) // change display mode
337 {
338 if ((cc > 1) && // resize screen using OS cmd
339 (!TxaExeSwitch('S'))) // when not in shell-mode
340 {
341 USHORT cols;
342 USHORT rows;
343
344 if ((cc > 2) && (isdigit(c2[0])))
345 {
346 rows = (USHORT) atoi( c2); // nr of rows
347 }
348 else if ((pp = strchr( c1, ',')) != NULL)
349 {
350 rows = (USHORT) atoi( pp+1);
351 }
352 else // single param, keep rows
353 {
354 rows = TxScreenRows();
355 }
356 cols = (USHORT) atoi( c1); // nr of columns
357 if (cols < 10)
358 {
359 cols = TxScreenCols();
360 }
361 sprintf( s1, "mode %hu,%hu", cols, rows);
362
363 TxExternalCommand( s1); // set mode, will cls too
364 }
365 TxSetBrightBgMode( TRUE); // no blinking, use bright BG
366 rc = TX_DISPLAY_CHANGE; // signal display change
367 }
368 #endif // windowing
369 #endif // not TXMIN
370 else if (stricmp(c0, "confirm" ) == 0)
371 {
372 if (cc > 1)
373 {
374 strcpy( s1, pp);
375 TxRepl( s1, '~', '\n');
376 }
377 else // no text specified
378 {
379 strcpy( s1, "Continue");
380 }
381 if (TxaOption('y')) // confirm Yes/No
382 {
383 strcat( s1, " ? [Y/N] : ");
384 if (!TxConfirm( 0, s1))
385 {
386 rc = TX_ABORTED; // Will result in 'better'
387 } // message to user :-)
388 }
389 else
390 {
391 if (cc == 1) // no ? after custom text
392 {
393 strcat( s1, " ?");
394 }
395 if (!TxMessage( !TxaOption('n'), 0, s1)) // -n needs no key pressed
396 {
397 rc = TX_ABORTED; // Will result in 'better'
398 } // message to user :-)
399 }
400 }
401#if defined (DOS32)
402 else if (stricmp(c0, "keyb" ) == 0) // change keyboard mapping
403 {
404 if ((cc > 1) && (!TxaOption('?')))
405 {
406 if ((rc = TxSetNlsKeyboard( c1, c2)) != NO_ERROR)
407 {
408 TxPrint( "\nError %lu setting keyboard mapping '%s'\n\n", rc, c1);
409 }
410 }
411 else // give help
412 {
413 TxPrint("\nSet country or codepage-specific keyboard mapping\n");
414 TxPrint("\n Usage: %s def [cp]\n\n"
415 " def = Keyboard definition file (.kl) basename\n"
416 " cp = Codepage value valid for that language\n\n"
417 " Example: keyb nl 850\n\n", c0);
418
419 TxExternalCommand( "keyb"); // show current keyb, if any
420 }
421 }
422#endif
423 else if (stricmp(c0, "start" ) == 0)
424 {
425 sprintf( s1, "start /b /c %s", pp);
426 rc = system( s1); // execute parameter as cmd
427 }
428 else if ((stricmp(c0, "cd") == 0) ||
429 ((strlen(c0) == 2) && (c0[1] == ':') ))
430 {
431 if (stricmp(c0, "cd") == 0)
432 {
433 strcpy( s1, pp);
434 }
435 else
436 {
437 strcpy( s1, c0);
438 }
439 #if defined (LINUX)
440 rc = (ULONG) chdir( s1);
441 #else
442 if (s1[1] == ':') // set drive too, if specified
443 {
444 #if defined (__WATCOMC__)
445 #ifndef LINUX
446 unsigned drives;
447
448 _dos_setdrive(toupper( s1[0]) - 'A' +1, &drives);
449 #endif
450 #else
451 _chdrive(toupper( s1[0]) - 'A' +1);
452 #endif
453 }
454 if ((strlen( s1) > 2) || (s1[1] != ':'))
455 {
456 rc = (ULONG) chdir( s1);
457 }
458 #endif
459 getcwd(s1, TXMAXLN);
460 TxPrint("\nWorking directory : %s%s%s%s\n",
461 CBC, s1, (strlen(s1) > 3) ? FS_PATH_STR : "", CNN);
462 }
463 else if (stricmp(c0, "exist" ) == 0)
464 {
465 if (cc > 1)
466 {
467 TxPrint("File '%s' does%s exist\n", s1, (TxFileExists(c1)) ? "": " NOT");
468 }
469 }
470 #if defined (USEWINDOWING)
471 else if ((stricmp(c0, "scrfile") == 0)) // screen to file
472 {
473 ULONG lines = -1; // default all lines
474
475 if (cc <= 1)
476 {
477 strcpy( s1, "screen");
478 }
479 else
480 {
481 strcpy( s1, c1);
482 }
483 TxFnameExtension( s1, "log"); // append default extension
484 if (cc > 2)
485 {
486 lines = (ULONG) atol( c2);
487 }
488 lines = txwSavePrintfSB( s1, lines, (cc <= 3));
489 TxPrint( "Saved %lu lines from screen-buffer to %s\n", lines, s1);
490 }
491 #endif // USEWINDOWING
492 else if ((stricmp(c0, "screen" ) == 0)) // backward compatibility!
493 {
494 if ((cc > 1) && (!TxaOption('?')))
495 {
496 if ((strcmpi(c1, "on") == 0) || (c1[0] == '1'))
497 {
498 TxScreenState(DEVICE_ON);
499 }
500 else
501 {
502 TxScreenState(DEVICE_OFF);
503 }
504 }
505 else
506 {
507 rc = (ULONG) TxScreenState( DEVICE_TEST);
508 TxPrint("Screen output is switched %s.\n",
509 (rc == (ULONG) DEVICE_ON) ? "on" : "off");
510 }
511 }
512 else if ((stricmp(c0, "set" ) == 0))
513 {
514 if ((cc > 1) && (!TxaOption('?')))
515 {
516 if ((stricmp(c1, "screen" ) == 0))
517 {
518 if (cc > 2)
519 {
520 #if defined (USEWINDOWING)
521 if (strnicmp(c2, "i", 1) == 0)
522 {
523 if (txwa->sbview)
524 {
525 txwa->sbview->window->sb.altcol ^= TXSB_COLOR_INVERT;
526 }
527 }
528 else if (strnicmp(c2, "b", 1) == 0)
529 {
530 if (txwa->sbview)
531 {
532 txwa->sbview->window->sb.altcol ^= TXSB_COLOR_BRIGHT;
533 }
534 }
535 else if (strnicmp(c2, "s", 1) == 0)
536 {
537 if (txwa->sbview)
538 {
539 txwa->sbview->window->sb.altcol ^= TXSB_COLOR_B2BLUE;
540 }
541 }
542 else
543 #endif // USEWINDOWING
544 if ((strcmpi(c2, "on") == 0) || (c2[0] == '1'))
545 {
546 TxScreenState(DEVICE_ON);
547 }
548 else
549 {
550 TxScreenState(DEVICE_OFF);
551 }
552 }
553 else
554 {
555 rc = TxScreenState( DEVICE_TEST);
556 TxPrint("\nSet screen text-output properties\n\n"
557 " Usage: %s %s on | off"
558 #if defined (USEWINDOWING)
559 " | invert | bright | swapblue"
560 #endif // USEWINDOWING
561 " Usage: %s %s on | off | invert | bright | swapblue\n\n"
562 "\n\nScreen output is switched %s.\n\n", c0, c1,
563 (rc == DEVICE_ON) ? "on" : "off");
564 }
565 }
566 else if ((strnicmp(c1, "logfile", 7 ) == 0))
567 {
568 if (cc > 2)
569 {
570 if ((strcmpi(c2, "on") == 0) || (c2[0] == '1'))
571 {
572 TxLogfileState(DEVICE_ON);
573 }
574 else
575 {
576 TxLogfileState(DEVICE_OFF);
577 }
578 }
579 else
580 {
581 rc = TxLogfileState( DEVICE_TEST);
582 TxPrint("\nSet logfile output status\n\n"
583 " Usage: %s %s on | off\n\n"
584 "ANSI is currently %s\n\n", c0, c1,
585 (rc == DEVICE_ON) ? "on" : "off");
586 }
587 }
588 else if ((strnicmp(c1, "ansi", 4 ) == 0))
589 {
590 if (cc > 2)
591 {
592 if ((strcmpi(c2, "on") == 0) || (c2[0] == '1'))
593 {
594 TxSetAnsiMode( A_ON);
595 }
596 else
597 {
598 TxSetAnsiMode( A_OFF);
599 }
600 }
601 else
602 {
603 TxPrint("\nSet usage of ANSI color for text output\n\n"
604 " Usage: %s %s on | off\n\n"
605 "ANSI is currently %s\n\n", c0, c1,
606 (TxGetAnsiMode() == A_ON) ? "ON" : "OFF");
607 }
608 }
609 #if defined (USEWINDOWING)
610 else if ((strnicmp(c1, "scheme", 6 ) == 0))
611 {
612 if (cc > 2)
613 {
614 txwColorScheme( c2[0], NULL);
615 }
616 else
617 {
618 TxPrint("\nSet color-scheme used for Windowing\n\n"
619 " Usage: %s %s grey|m3d|nobl|cmdr|half|full|white|black|dfsee\n\n"
620 "SCHEME is currently: '%s'\n\n", c0, c1, txwcs->name);
621 }
622 if (txwa->desktop != NULL)
623 {
624 txwInvalidateAll();
625 }
626 }
627 else if ((strnicmp(c1, "style", 5 ) == 0))
628 {
629 if (cc > 2)
630 {
631 txwcs->linestyle = (atol(c2) % TXW_CS_LAST);
632 }
633 else
634 {
635 TxPrint("\nSet linestyle used for Windowing\n\n"
636 " Usage: %s %s 0..3\n\n"
637 " 0=double 1=3d 2=halfblock 3=fullblock\n\n"
638 "STYLE is currently: %lu\n\n", c0, c1, txwcs->linestyle);
639 }
640 if (txwa->desktop != NULL)
641 {
642 txwInvalidateAll();
643 }
644 }
645 else if ((strnicmp(c1, "color", 5 ) == 0))
646 {
647 if (txwa->sbview)
648 {
649 TXWINDOW *sbwin = txwa->sbview->window;
650
651 if (cc > 2)
652 {
653 sbwin->sb.altcol = atol(c2) & TXSB_COLOR_MASK;
654 txwInvalidateWindow((TXWHANDLE) txwa->sbview, FALSE, FALSE);
655 }
656 else
657 {
658 TxPrint("\nSet color-scheme used for Output\n\n"
659 " Usage: %s %s numeric-value 0 .. 8\n\n"
660 " 0 = standard output colors\n"
661 " 1 = invert all color values\n"
662 " 2 = force bright foreground\n"
663 " 4 = use Blue/Brown background\n\n"
664 " Values can be combined by adding them.\n\n"
665 "COLOR value is currently: '%lu'\n\n",
666 c0, c1, sbwin->sb.altcol);
667 }
668 }
669 else
670 {
671 TxPrint("\nSet color-scheme for output not supported.\n");
672 }
673 }
674 #endif // USEWINDOWING
675 else if ((strnicmp(c1, "asc", 3) == 0))
676 {
677 if (cc > 2)
678 {
679 if ((strcmpi(c2, "on") == 0) || (c2[0] == '7'))
680 {
681 TxSetAscii7Mode( TRUE);
682 }
683 else
684 {
685 TxSetAscii7Mode( FALSE);
686 }
687 }
688 else
689 {
690 TxPrint("\nSet ASCII output to 7-bit only\n\n"
691 " Usage: %s %s 7 | 8\n\n"
692 "ASCII is currently %s-bit\n\n", c0, c1,
693 (TxGetAscii7Mode()) ? "7" : "8");
694 }
695 }
696 else if ((strnicmp(c1, "type", 4 ) == 0))
697 {
698 if (cc > 2)
699 {
700 if ((strcmpi(c2, "on") == 0) || (c2[0] == '1'))
701 {
702 txwa->typeahead = TRUE;
703 }
704 else
705 {
706 txwa->typeahead = FALSE;
707 }
708 }
709 else
710 {
711 TxPrint("\nSet keyboard type-ahead"
712 " Usage: %s %s on | off\n\n"
713 "TYPEahead is currently set: %s\n", c0, c1,
714 (txwa->typeahead) ? "on" : "off");
715 }
716 }
717 else if ((strnicmp(c1, "radix", 5 ) == 0))
718 {
719 if (cc > 2)
720 {
721 if (toupper(c2[0]) == 'H')
722 {
723 txwa->radixclass = 0xFFFFFFFF;
724 }
725 else
726 {
727 txwa->radixclass = TxaParseNumber( c2, TX_RADIX_STD_CLASS, NULL);
728 }
729 }
730 else
731 {
732 TxPrint("\nSet mcs-number Radix mask, default 0x2a\n\n"
733 " Usage: %s %s H | 0 | mask\n\n"
734 " H = all classes set to HEX\n"
735 " 0 = all classes set to DECimal\n"
736 " mask = classes with bit SET will be HEX\n"
737 " all others are DECimal\n\n"
738 "Number Radix class mask currently set to: 0x%8.8lx = %lu\n",
739 c0, c1, txwa->radixclass, txwa->radixclass );
740 }
741 }
742 #ifndef DOS32
743 else if (strnicmp(c1, "prio", 4 ) == 0)
744 {
745 TxPrint("\nRelative priority : ");
746 switch (TxSetPriority( c2[0]))
747 {
748 case 'M': TxPrint( "Minimum\n"); break;
749 case 'L': TxPrint( "Low\n"); break;
750 case 'S': TxPrint( "Standard\n"); break;
751 case 'H': TxPrint( "High\n"); break;
752 case 'X': TxPrint( "maXimum\n"); break;
753 default: TxPrint( "unknown!\n"); break;
754 }
755 TxPrint( "\n");
756 }
757 #endif
758 else // non TXLIB set property
759 {
760 rc = TX_PENDING;
761 }
762 }
763 else
764 {
765 TxPrint( "\nSet program property to specified value, or show current\n"
766 "\n Usage: %s property value\n", c0);
767 TxPrint( "\nTxWindows SET properties are :\n"
768 " SCREEN : on | off"
769 " LOGFILE : on | off"
770 #if defined (USEWINDOWING)
771 " | invert | bright | swapblue\n"
772 " COLOR output: numeric-value 0 .. 8\n"
773 " STYLE lines : numeric-value 0 .. 3\n"
774 " SCHEME color : 3d |dfsee| nobl | cmdr | half | full | white | black | grey"
775 #endif // USEWINDOWING
776 "\n ANSI-colors : on | off\n"
777 " ASCii-7bit : on | off\n"
778 " TYPEahead : on | off\n"
779 " Radix : H | 0 | mask\n"
780 #ifndef DOS32
781 " PRIOrity : Min | Low | Std | High | maX | Query\n"
782 #endif
783 "\n");
784 rc = TX_PENDING;
785 }
786 }
787 else if ((stricmp(c0, "say" ) == 0))
788 {
789 TxPrint("%s\n", pp);
790 }
791 else if ((stricmp(c0, "sleep" ) == 0))
792 {
793 nr = atol( c1);
794 if (nr == 0)
795 {
796 nr = 1; // default 1 sec
797 }
798 if (!TxaOption('q'))
799 {
800 TxPrint( "\nSleeping for %ld seconds ...\n", nr);
801 }
802 TxSleep( nr * 1000);
803 }
804 else
805 {
806 rc = TX_CMD_UNKNOWN;
807 }
808 RETURN (rc);
809} // end 'TxStdCommand'
810/*---------------------------------------------------------------------------*/
811
812
813/*****************************************************************************/
814// Set current thread priority Min/Low/Std/High/maX
815/*****************************************************************************/
816char TxSetPriority // RET resulting priority
817(
818 char prio // IN priority M/L/S/H/X/Q
819)
820{
821 ENTER();
822 TRACES(( "Priority command: %2.2hu\n", prio));
823
824 if (prio && strchr( "mlshxMLSHX", prio) != NULL)
825 {
826 txsetPrio = toupper(prio);
827 switch (txsetPrio)
828 {
829 case 'M': TxThreadPrioMin(); break;
830 case 'L': TxThreadPrioLow(); break;
831 case 'S': TxThreadPrioStd(); break;
832 case 'H': TxThreadPrioHigh(); break;
833 case 'X': TxThreadPrioMax(); break;
834 }
835 }
836 RETURN (txsetPrio);
837} // end 'TxSetPriority'
838/*---------------------------------------------------------------------------*/
839
Note: See TracBrowser for help on using the repository browser.