68 lines
600 B
C
68 lines
600 B
C
|
#include "a.h"
|
||
|
|
||
|
/*
|
||
|
* 12. Overstrike, bracket, line-drawing, graphics, and zero-width functions.
|
||
|
*/
|
||
|
|
||
|
/*
|
||
|
\o'asdf'
|
||
|
\zc
|
||
|
\b'asdf'
|
||
|
\l'Nc'
|
||
|
\L'Nc'
|
||
|
\D'xxx'
|
||
|
*/
|
||
|
|
||
|
int
|
||
|
e_o(void)
|
||
|
{
|
||
|
pushinputstring(getqarg());
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
int
|
||
|
e_z(void)
|
||
|
{
|
||
|
getnext();
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
int
|
||
|
e_b(void)
|
||
|
{
|
||
|
pushinputstring(getqarg());
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
int
|
||
|
e_l(void)
|
||
|
{
|
||
|
getqarg();
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
int
|
||
|
e_L(void)
|
||
|
{
|
||
|
getqarg();
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
int
|
||
|
e_D(void)
|
||
|
{
|
||
|
getqarg();
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
t12init(void)
|
||
|
{
|
||
|
addesc('o', e_o, 0);
|
||
|
addesc('z', e_z, 0);
|
||
|
addesc('b', e_b, 0);
|
||
|
addesc('l', e_l, 0);
|
||
|
addesc('L', e_L, 0);
|
||
|
addesc('D', e_D, 0);
|
||
|
}
|