mirror of
git://git.psyced.org/git/psyced
synced 2024-08-15 03:25:10 +00:00
let the past begone in cvs land. welcome to igit igit!
This commit is contained in:
commit
4e601cf1c7
509 changed files with 77963 additions and 0 deletions
29
place/telex.c
Normal file
29
place/telex.c
Normal file
|
@ -0,0 +1,29 @@
|
|||
#define NAME "TELEX"
|
||||
#define PLACE_HISTORY
|
||||
#define ON_ANY telexify(&data, &vars);
|
||||
|
||||
/*
|
||||
#ifdef BRAIN
|
||||
# define MASTER
|
||||
#else
|
||||
# define CONNECT_DEFAULT
|
||||
#endif
|
||||
*/
|
||||
|
||||
#include <place.gen>
|
||||
|
||||
/*** 6-BIT ROOM FOR 60S/70S COMPUTER *** ONLY SUPPORTS UPPER CASE TEXT ***/
|
||||
|
||||
mapping cache = ([ "lynX" : "lynX" ]);
|
||||
|
||||
telexify(data, vars) {
|
||||
string k, val;
|
||||
|
||||
foreach (k, val: vars) if (stringp(val)) {
|
||||
if (cache[val]) vars[k] = cache[val];
|
||||
else vars[k] = cache[val] = upper_case(val);
|
||||
}
|
||||
if (stringp(data)) {
|
||||
data = upper_case(data);
|
||||
}
|
||||
}
|
Loading…
Add table
Add a link
Reference in a new issue