diff options
Diffstat (limited to 'usr.sbin/pcvt/kcon')
| -rw-r--r-- | usr.sbin/pcvt/kcon/Makefile | 14 | ||||
| -rw-r--r-- | usr.sbin/pcvt/kcon/kcon.1 | 122 | ||||
| -rw-r--r-- | usr.sbin/pcvt/kcon/kcon.c | 753 |
3 files changed, 0 insertions, 889 deletions
diff --git a/usr.sbin/pcvt/kcon/Makefile b/usr.sbin/pcvt/kcon/Makefile deleted file mode 100644 index 77a9f26..0000000 --- a/usr.sbin/pcvt/kcon/Makefile +++ /dev/null @@ -1,14 +0,0 @@ -PROG= kcon -DEVICE= /dev/ttyv0 -CFLAGS+= -I${.CURDIR}/../keycap -DKEYB_DEVICE=\"${DEVICE}\" - -.if exists(${.OBJDIR}/../keycap) -LIBKEYCAP= ${.OBJDIR}/../keycap/libkeycap.a -.else -LIBKEYCAP= ${.CURDIR}/../keycap/libkeycap.a -.endif - -DPADD= ${LIBKEYCAP} -LDADD= ${LIBKEYCAP} - -.include <bsd.prog.mk> diff --git a/usr.sbin/pcvt/kcon/kcon.1 b/usr.sbin/pcvt/kcon/kcon.1 deleted file mode 100644 index b430340..0000000 --- a/usr.sbin/pcvt/kcon/kcon.1 +++ /dev/null @@ -1,122 +0,0 @@ -.\" Copyright (c) 1992,1993,1994 Hellmuth Michaelis -.\" -.\" All rights reserved. -.\" -.\" Redistribution and use in source and binary forms, with or without -.\" modification, are permitted provided that the following conditions -.\" are met: -.\" 1. Redistributions of source code must retain the above copyright -.\" notice, this list of conditions and the following disclaimer. -.\" 2. Redistributions in binary form must reproduce the above copyright -.\" notice, this list of conditions and the following disclaimer in the -.\" documentation and/or other materials provided with the distribution. -.\" 3. All advertising materials mentioning features or use of this software -.\" must display the following acknowledgement: -.\" This product includes software developed by Hellmuth Michaelis -.\" 4. The name authors may not be used to endorse or promote products -.\" derived from this software without specific prior written permission. -.\" -.\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR -.\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES -.\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. -.\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, -.\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT -.\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -.\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -.\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -.\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -.\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -.\" -.\" @(#)kcon.1, 3.20, Last Edit-Date: [Wed Jan 25 16:34:56 1995] -.\" -.Dd January 25, 1995 -.Dt KCON 1 -.Sh NAME -.Nm kcon -.Nd keyboard control and remapping -.Sh SYNOPSIS -.Nm kcon -.Op Fl d Ar delay -.Op Fl l -.Op Fl m Ar map -.Op Fl o -.Op Fl p -.Op Fl R -.Op Fl r Ar rate -.Op Fl s -.Op Fl t Ns Ar +/- -.Op Fl x -.Sh DESCRIPTION -.Nm kcon -is used for controlling all aspects of keyboard configuration for the 'pcvt' -video driver. -.Pp -The available options are: -.Bl -tag -width flag -.It Fl d Ar delay -Specifies the delay after which the last key entered will be repeated by the -Keyboard. Valid values are 0..3 corresponding to delays of 250, 500, 750 and -1000 milliseconds. -.It Fl l -Displays the current keyboard map in use by the driver. -.It Fl m Ar map -Specifies the map entry to be searched in the keyboard capabilities database -.Nm keycap. -The database is searched for the entry and if found, the mapping -is loaded and is used in the driver from then on. -.It Fl o -Switches display of control codes to octal in the listing of the current map. -To be used in conjunction with the -.Fl l -option. -.It Fl p -Uses 'pure' output when listing - the Escape character is displayed in either -octal or hexadecimal and not as 'ESC'. To be used in conjunction with the -.Fl l -option. -.It Fl r Ar rate -Specifies the character repetition rate. Valid argument values are 0...31 -corresponding to rates of 30 characters/second ... 2 characters/second. -.It Fl R -Reset the Keyboard. -.It Fl s -Displays the current settings of the rate and delay values. -.It Fl t Ar +/- -Specify this option to enable ( -.Ar + -) or disable ( -.Ar - -) the repetition of keys. -.It Fl x -Switches display of control codes to hexadecimal in the listing of the current map. -To be used in conjunction with the -.Fl l -option. This is the default behaviour. -.Sh FILES -.Bl -tag -width /usr/share/misc/keycap.pcvt -compact -.It Pa /usr/share/misc/keycap.pcvt -Keyboard capabilities data base file if nothing else was chosen during installation. -.It Pa /dev/console -Keyboard raw device. -.Sh SEE ALSO -.Xr keycap 3 , -.Xr keycap 5 -.Sh BUGS -.Nm kcon -detects several inconsistencies in the keycap database. In case of errors -.Nm kcon -exits with an error message. If this happens, the keyboard may remain in -an undefined state. To recover from such situation, execute -.Nm kcon -m default -.Sh EXAMPLES -The command -.Dq Li kcon -m gb -loads the entry 'gb' from the keycap file into the keyboard to switch to -a british keyboard behaviour. - -The command -.Dq Li kcon -r 0 -d 0 -switches the keyboard to emit characters at a rate of 30 characters per second -after a key has been held down for 250 milliseconds. - - diff --git a/usr.sbin/pcvt/kcon/kcon.c b/usr.sbin/pcvt/kcon/kcon.c deleted file mode 100644 index 1f9cded..0000000 --- a/usr.sbin/pcvt/kcon/kcon.c +++ /dev/null @@ -1,753 +0,0 @@ -/* - * Copyright (c) 1992,1993,1994 Hellmuth Michaelis - * - * Copyright (c) 1992,1993 Holger Veit. - * - * All rights reserved. - * - * This code is derived from software contributed to 386BSD by - * Holger Veit - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by - * Hellmuth Michaelis and Holger Veit - * 4. The name authors may not be used to endorse or promote products - * derived from this software without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR - * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES - * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. - * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, - * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT - * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, - * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY - * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT - * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF - * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - * - */ - -static char *id = - "@(#)kcon.c, 3.20, Last Edit-Date: [Wed Jan 25 16:33:08 1995]"; - -/*---------------------------------------------------------------------------* - * - * kcon.c Keyboard control and remapping - * ---------------------------------------------- - * - * based on "keymap" which was written by - * Holger Veit (veit@du9ds3.uni-duisburg.de) - * - * -hm a first rewrite - * -hm rewrite for pcvt 2.0 distribution - * -hm adding show current typematic values - * -hm hex/octal/esc output choices - * -hm remapping debugging - * -hm garbage output for remapped keys bugfix - * -hm patch from Lon Willet, adding -R - * - *---------------------------------------------------------------------------*/ - -#include <stdio.h> -#include <string.h> -#include <sys/types.h> -#include <sys/ioctl.h> -#include <machine/pcvt_ioctl.h> - -#include "keycap.h" - -int Rf = 0; -int df = 0; -int lf = 0; -int mf = 0; -int of = 0; -int pf = 0; -int rf = 0; -int tf = 0; -int xf = 0; -int sf = 0; - -/*---------------------------------------------------------------------------* - * main entry - *---------------------------------------------------------------------------*/ -main(argc, argv) -int argc; -char *argv[]; -{ - extern char *optarg; - extern int optind; - - int c = 0; - - int errf = 0; - - int rate = -1; - int delay = -1; - char *map; - int kbfd; - - while((c = getopt(argc, argv, "Rd:lm:opr:st:x")) != -1) - { - switch(c) - { - case 'R': - Rf = 1; - break; - - case 'd': - df = 1; - delay = atoi(optarg); - break; - - case 'l': - lf = 1; - break; - - case 'm': - mf = 1; - map = optarg; - break; - - case 'o': - if(xf) - errf = 1; - else - of = 1; - break; - - case 'p': - pf = 1; - break; - - case 'r': - rf = 1; - rate = atoi(optarg); - break; - - case 's': - sf = 1; - break; - - case 't': - if(*optarg == '+') - tf = 1; - else if(*optarg == '-') - tf = -1; - else - errf = 1; - break; - - case 'x': - if(of) - errf = 1; - else - xf = 1; - break; - - default: - usage(); - } - } - - if((Rf == 0 && df == 0 && lf == 0 && tf == 0 && sf == 0 && - rf == 0 && mf == 0 ) || errf) - { - usage(); - } - - if((kbfd = open(KEYB_DEVICE, 0)) < 0) - { - perror("kcon: keyboard open failiure"); - exit(1); - } - - if(sf) - { - showtypeamatic(kbfd); - exit(0); - } - - if(lf) - { - listcurrent(kbfd); - exit(0); - } - - if (Rf) - { - if (ioctl(kbfd, KBDRESET, 0) < 0) { - perror ("kcon: ioctl KBDRESET failed"); - exit (1); - } - } - - if(tf) - { - setrepeat(kbfd, tf); - } - - if(df || rf) - { - if(delay > 3) - { - fprintf(stderr,"Delay value (%d) out of range, possible values are 0..3!\n",delay); - exit(1); - } - if(rate > 31) - { - fprintf(stderr,"Rate value (%d) out of range, possible values are 0..31!\n",rate); - exit(1); - } - settypeam(kbfd, delay, rate); - } - - if(mf) - { - remapkeys(kbfd, map); - } - - close(kbfd); - exit(0); -} - -/*---------------------------------------------------------------------------* - * display usage info & exit - *---------------------------------------------------------------------------*/ -usage() -{ - fprintf(stderr, "\nkcon: keyboard control and remapping utility for pcvt video driver\n"); - fprintf(stderr, "usage: [-R] [-d delay] [-l] [-m map] [-o] [-p] [-r rate] [-t +/-] [-x]\n"); - fprintf(stderr, " -R full reset of keyboard\n"); - fprintf(stderr, " -d delay until a key is repeated (range: 0...3 => 250...1000ms)\n"); - fprintf(stderr, " -l produce listing of current keyboard mapping\n"); - fprintf(stderr, " -m set keyboard remapping from a keycap entry\n"); - fprintf(stderr, " -o set octal output for listing\n"); - fprintf(stderr, " -p pure, don't display escape as 'ESC' for listing\n"); - fprintf(stderr, " -r chars/second repeat value (range: 0...31 => 30...2 chars/sec)\n"); - fprintf(stderr, " -s show, display the current keyboard typematic values\n"); - fprintf(stderr, " -t switch repeat on(+) or off(-)\n"); - fprintf(stderr, " -x set hexadecimal output for listing\n\n"); - exit(1); -} - -/*---------------------------------------------------------------------------* - * convert control char in string to printable values - *---------------------------------------------------------------------------*/ -char *showcntrl(s) -u_char *s; -{ - static char res_str[80]; - static char conv_buf[80]; - int i; - - res_str[0] = '\0'; - - for(i = 0; s[i]; i++) - { - if(((s[i] > 0x20) && (s[i] <= 0x7e)) || ((s[i] >= 0xa0) && (s[i] <= 0xff))) - { - conv_buf[0] = s[i]; - conv_buf[1] = '\0'; - } - else if((s[i] == 0x1b) && (pf == 0)) - { - strcpy(conv_buf,"ESC "); - } - else if(of) - { - sprintf(conv_buf,"\\%03.3o ", s[i]); - } - else - { - sprintf(conv_buf,"0x%02.2X ", s[i]); - } - strcat(res_str, conv_buf); - } - return(res_str); -} - -/*---------------------------------------------------------------------------* - * list the current keyboard mapping - *---------------------------------------------------------------------------*/ -listcurrent(kbfd) -int kbfd; -{ - static char *keytypetab[] = { - "NONE ", - "SHIFT ", - "ALT/META ", - "NUMLOCK ", - "CONTROL ", - "CAPSLOCK ", - "ASCII ", - "SCROLL ", - "FUNCTION ", - "KEYPAD ", - "BREAK ", - "ALTGR ", - "SHIFTLOCK", - "CURSOR ", - "RETURN " - }; - - struct kbd_ovlkey keyboardmap[KBDMAXKEYS]; - struct kbd_ovlkey *kbmapp; - int keytype; - int altgr_defined; - int i; - - altgr_defined = 0; - kbmapp = keyboardmap; - - for (i = 0; i < KBDMAXKEYS; i++) - { - kbmapp->keynum = i; - - if(ioctl(kbfd, KBDGCKEY, kbmapp) < 0) - { - perror("kcon: ioctl KBDGCKEY failed"); - exit(1); - } - - if((kbmapp->type & KBD_MASK) == KBD_ALTGR) - altgr_defined = i; - - kbmapp++; - } - - if(altgr_defined) - { - printf("S Key KeyType Normal Shift Control Altgr \n"); - printf("- --- --------- --------------- --------------- --------------- ---------------\n"); - } - else - { - printf("S Key KeyType Normal Shift Control \n"); - printf("- --- --------- --------------- --------------- ---------------\n"); - } - - kbmapp = &keyboardmap[1]; - - for(i = 1; i < KBDMAXKEYS; i++) - { - keytype = kbmapp->type; - - if(keytype) - { - if(keytype & KBD_OVERLOAD) - printf("! %3.3d %9.9s ", i, keytypetab[keytype & KBD_MASK]); - else - printf("- %3.3d %9.9s ", i, keytypetab[keytype & KBD_MASK]); - - switch(keytype & KBD_MASK) - { - - case KBD_NUM: - case KBD_ASCII: - case KBD_FUNC: - case KBD_KP: - case KBD_CURSOR: - case KBD_RETURN: /* ??? */ - - if(kbmapp->subu == KBD_SUBT_STR) - printf("%-15s ",showcntrl(kbmapp->unshift)); - else - printf("Function() "); - - if(kbmapp->subs == KBD_SUBT_STR) - printf("%-15s ",showcntrl(kbmapp->shift)); - else - printf("Function() "); - - if(kbmapp->subc == KBD_SUBT_STR) - printf("%-15s ",showcntrl(kbmapp->ctrl)); - else - printf("Function() "); - - if(altgr_defined) - { - if(kbmapp->suba == KBD_SUBT_STR) - printf("%-15s ",showcntrl(kbmapp->altgr)); - else - printf("Function() "); - } - break; - } - putchar('\n'); - } - kbmapp++; - } -} - -/*---------------------------------------------------------------------------* - * show delay and rate values for keyboard - *---------------------------------------------------------------------------*/ -showtypeamatic(kbfd) -int kbfd; -{ - static char *delaytab[] = { - "250", - "500", - "750", - "1000" - }; - - static char *ratetab[] = { - "30.0", - "26.7", - "24.0", - "21.8", - "20.0", - "18.5", - "17.1", - "16.0", - "15.0", - "13.3", - "12.0", - "10.9", - "10.0", - "9.2", - "8.6", - "8.0", - "7.5", - "6.7", - "6.0", - "5.5", - "5.0", - "4.6", - "4.3", - "4.0", - "3.7", - "3.3", - "3.0", - "2.7", - "2.5", - "2.3", - "2.1", - "2.0" - }; - - int cur_typemat_val; - int delay, rate; - - if((ioctl(kbfd, KBDGTPMAT, &cur_typemat_val)) < 0) - { - perror("kcon: ioctl KBDGTPMAT failed"); - exit(1); - } - - delay = ((cur_typemat_val & 0x60) >> 5); - rate = cur_typemat_val & 0x1f; - - printf("\nDisplaying the current keyboard typematic values:\n\n"); - printf("The delay-until-repeat time is [ %s ] milliseconds\n",delaytab[delay]); - printf("The repeat-rate is [ %s ] characters per second\n\n",ratetab[rate]); -} - -/*---------------------------------------------------------------------------* - * set repeat feature on/off - *---------------------------------------------------------------------------*/ -setrepeat(kbfd, tf) -int kbfd; -int tf; -{ - int srepsw_val; - - if(tf == 1) - srepsw_val = KBD_REPEATON; - else - srepsw_val = KBD_REPEATOFF; - - if(ioctl(kbfd, KBDSREPSW, &srepsw_val) < 0) - { - perror("kcon: ioctl KBDREPSW failed"); - exit(1); - } -} - -/*---------------------------------------------------------------------------* - * set delay and rate values for keyboard - *---------------------------------------------------------------------------*/ -settypeam(kbfd, delay, rate) -int kbfd; -int delay; -int rate; -{ - int cur_typemat_val; - int new_typemat_val; - - if((ioctl(kbfd, KBDGTPMAT, &cur_typemat_val)) < 0) - { - perror("kcon: ioctl KBDGTPMAT failed"); - exit(1); - } - - if(delay == -1) - delay = (cur_typemat_val & 0x60); - else - delay = ((delay << 5) & 0x60); - - if(rate == -1) - rate = (cur_typemat_val & 0x1f); - else - rate &= 0x1f; - - new_typemat_val = delay | rate; - - if((ioctl(kbfd, KBDSTPMAT, &new_typemat_val)) < 0) - { - perror("kcon: ioctl KBDSTPMAT failed"); - exit(1); - } -} - -/*---------------------------------------------------------------------------* - * remap keyboard from keycap entry - *---------------------------------------------------------------------------*/ -remapkeys(kbfd, map) -int kbfd; -char *map; -{ - char cap_entry[1024]; - int ret; - char keyflag[128]; - int i; - - /* try to find the entry */ - - ret = kgetent(cap_entry, map); - - if(ret == -1) - { - fprintf(stderr, "kcon: keycap database not found or not accessible!\n"); - exit(1); - } - else if(ret == 0) - { - fprintf(stderr, "kcon: keycap entry [%s] not found in database!\n", map); - exit(1); - } - - /* set default mapping */ - - if((ioctl(kbfd, KBDDEFAULT)) < 0) - { - perror("kcon: ioctl KBDDEFAULT failed"); - exit(1); - } - - /* DE flag present? */ - - if(kgetflag("de")) - return; - - for(i = 0; i < KBDMAXKEYS; i++) - keyflag[i] = 0; - - set_lock(keyflag, kbfd); - - set_shift(keyflag, kbfd); - - set_char(keyflag, kbfd); -} - -/*---------------------------------------------------------------------------* - * care for lock keys - *---------------------------------------------------------------------------*/ -set_lock(keyflag, kbfd) -char keyflag[]; -int kbfd; -{ - int i, j; - char cap[16]; - struct kbd_ovlkey entry; - - struct { - char *ch; - u_short typ; - } lock[] = - { - "ca", KBD_CAPS, - "sh", KBD_SHFTLOCK, - "nl", KBD_NUMLOCK, - "sc", KBD_SCROLL - }; - - - for(i = 0; i < 4; i++) - { - int n; - - sprintf(cap, "%s", lock[i].ch); - - n = kgetnum(cap); - - if(n > 0) - { - if (keyflag[n]) - { - fprintf(stderr,"kcon: duplicate key definition for key [%d]!\n",n); - exit(1); - } - keyflag[n] = 1; - - entry.keynum = n; - entry.type = lock[i].typ; - - if((ioctl(kbfd, KBDSCKEY, &entry)) < 0) - { - perror("kcon: ioctl KBDSCKEY failed"); - exit(1); - } - } - } -} - -/*---------------------------------------------------------------------------* - * care for shifting keys - *---------------------------------------------------------------------------*/ -set_shift(keyflag, kbfd) -char keyflag[]; -int kbfd; -{ - int i, j; - char cap[16]; - struct kbd_ovlkey entry; - - struct { - char ch; - u_short typ; - } shift[] = - { - 'm', KBD_META, - 'l', KBD_ALTGR, - 'h', KBD_SHIFT, - 't', KBD_CTL - }; - - for(i = 0; i < 4; i++) - { - for(j = 1; j < 10; j++) - { - int n; - - sprintf(cap, "%c%d", shift[i].ch,j); - - n = kgetnum(cap); - - if (n >= 0) - { - if (keyflag[n]) - { - fprintf(stderr,"kcon: duplicate key definition for key [%d]!\n",n); - exit(1); - } - keyflag[n] = 1; - - entry.keynum = n; - entry.type = shift[i].typ; - if((ioctl(kbfd, KBDSCKEY, &entry)) < 0) - { - perror("kcon: ioctl KBDSCKEY failed"); - exit(1); - } - } - } - } -} - -/*---------------------------------------------------------------------------* - * care for normal keys - *---------------------------------------------------------------------------*/ -set_char(keyflag, kbfd) -char keyflag[]; -int kbfd; -{ - int i, j; - char cap[16]; - int setflag; - char *addr_str; - char *new_str; - struct kbd_ovlkey entry; - - struct { - char *addr; - char ch; - } standard[] = { - 0, 'D', - &entry.unshift[0], 'K', - &entry.shift[0], 'S', - &entry.ctrl[0], 'C', - &entry.altgr[0], 'A' - }; - - for(i = 1; i < KBDMAXKEYS; i++) - { - setflag = 0; - - entry.keynum = i; - - if((ioctl(kbfd, KBDGOKEY, &entry)) < 0) - { - perror("kcon: ioctl KBDGOKEY failed"); - exit(1); - } - - entry.type = KBD_ASCII; - - for(j = 0; j < 5; j++) - { - sprintf(cap, "%c%d", standard[j].ch,i); - - if((j == 0) && (kgetflag(cap))) - { - /* delete a key */ - - entry.type = KBD_NONE; - setflag = 1; - goto setit; - - } - else - { - addr_str = standard[j].addr; - if(new_str = kgetstr(cap, &addr_str)) - { - if(strlen(new_str) > KBDMAXOVLKEYSIZE) - { - fprintf(stderr, "kcon: database entry string [%s] longer than max [%d]!\n",new_str,KBDMAXOVLKEYSIZE); - exit(1); - } - setflag = 1; - } - } - } - -setit: if (setflag) - { - if (keyflag[i]) - { - fprintf(stderr,"kcon: duplicate key definition for key [%d]!\n",i); - exit(1); - } - keyflag[i] = 1; - - if((ioctl(kbfd, KBDSCKEY, &entry)) < 0) - { - perror("kcon: ioctl KBDSCKEY failed"); - exit(1); - } - } - } -} - -/*------------------- EOF ------------------------------------------------*/ |
