This is xkeyboardstate.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1736,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1736 );
DEFSTRING( t1737, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1738, "XKEYBOARDSTATEP", 15 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1737 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1738 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( oardstate_boardstate_653f3eae_v );
DEFSTRING( t1739, "MAKE-XKEYBOARDSTATE", 19 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP oardstate_boardstate_653f3eae( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1746;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1747;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1748;
L1747:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1748:
if ( TRUE( X4 ) ) goto L1746;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1755;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1746;
goto L1762;
L1755:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1762;
L1746:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1762:
X1 = sc_make_2dstring( _TSCP( 224 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( oardstate_k__percent_eaadaa7f_v );
DEFSTRING( t1763, "XKEYBOARDSTATE-KEY_CLICK_PERCENT", 32 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( xlibtypes_oardstatep_c630d819 );
EXTERNTSCP( xlibtypes_oardstatep_c630d819_v );
TSCP oardstate_k__percent_eaadaa7f( x1630 )
TSCP x1630;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1630 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) );
}
DEFTSCP( oardstate_percent_21_786c9977_v );
DEFSTRING( t1765, "XKEYBOARDSTATE-KEY_CLICK_PERCENT!", 33 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP oardstate_percent_21_786c9977( x1633, y1634 )
TSCP x1633, y1634;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1633 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) );
}
DEFTSCP( oardstate_l__percent_f4c58be8_v );
DEFSTRING( t1767, "XKEYBOARDSTATE-BELL_PERCENT", 27 );
TSCP oardstate_l__percent_f4c58be8( x1637 )
TSCP x1637;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1637 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( oardstate_percent_21_4fc6cb95_v );
DEFSTRING( t1769, "XKEYBOARDSTATE-BELL_PERCENT!", 28 );
TSCP oardstate_percent_21_4fc6cb95( x1641, y1642 )
TSCP x1641, y1642;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1641 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1642 ) );
}
DEFTSCP( oardstate_ell__pitch_f588102_v );
DEFSTRING( t1771, "XKEYBOARDSTATE-BELL_PITCH", 25 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP oardstate_ell__pitch_f588102( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1645 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( oardstate___pitch_21_9fe2996b_v );
DEFSTRING( t1773, "XKEYBOARDSTATE-BELL_PITCH!", 26 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
TSCP oardstate___pitch_21_9fe2996b( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1649 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 32 ), y1650 ) );
}
DEFTSCP( oardstate___duration_a51cfe04_v );
DEFSTRING( t1775, "XKEYBOARDSTATE-BELL_DURATION", 28 );
TSCP oardstate___duration_a51cfe04( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1653 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( oardstate_uration_21_427905c3_v );
DEFSTRING( t1777, "XKEYBOARDSTATE-BELL_DURATION!", 29 );
TSCP oardstate_uration_21_427905c3( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1657 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 48 ), y1658 ) );
}
DEFTSCP( oardstate_dled__mask_135adeeb_v );
DEFSTRING( t1779, "XKEYBOARDSTATE-LED_MASK", 23 );
TSCP oardstate_dled__mask_135adeeb( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1661 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( oardstate_d__mask_21_eafc52ef_v );
DEFSTRING( t1781, "XKEYBOARDSTATE-LED_MASK!", 24 );
TSCP oardstate_d__mask_21_eafc52ef( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1665 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 64 ), y1666 ) );
}
DEFTSCP( oardstate_to__repeat_12f287ed_v );
DEFSTRING( t1783, "XKEYBOARDSTATE-GLOBAL_AUTO_REPEAT", 33 );
TSCP oardstate_to__repeat_12f287ed( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1669 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( oardstate__repeat_21_5d05e39b_v );
DEFSTRING( t1785, "XKEYBOARDSTATE-GLOBAL_AUTO_REPEAT!", 34 );
TSCP oardstate__repeat_21_5d05e39b( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_oardstatep_c630d819( x1673 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1674 ) );
}
DEFTSCP( oardstate_o__repeats_5b614e66_v );
DEFSTRING( t1787, "XKEYBOARDSTATE-AUTO_REPEATS", 27 );
EXTERNTSCPP( scrt4_c_2dbyte_2dref );
EXTERNTSCP( scrt4_c_2dbyte_2dref_v );
EXTERNTSCPP( scrt2__2a_2dtwo );
EXTERNTSCP( scrt2__2a_2dtwo_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP oardstate_o__repeats_5b614e66( x1677, i1678 )
TSCP x1677, i1678;
{
TSCP X3, X2, X1;
X1 = xlibtypes_oardstatep_c630d819( x1677 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( i1678 ) ),
3 ) ) goto L1790;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( i1678 ) ) );
goto L1791;
L1790:
X3 = scrt2__2a_2dtwo( _TSCP( 4 ), i1678 );
L1791:
if ( BITAND( BITOR( INT( _TSCP( 96 ) ), INT( X3 ) ),
3 ) ) goto L1793;
X2 = _TSCP( IPLUS( INT( _TSCP( 96 ) ), INT( X3 ) ) );
goto L1794;
L1793:
X2 = scrt2__2b_2dtwo( _TSCP( 96 ), X3 );
L1794:
return( scrt4_c_2dbyte_2dref( X1, X2 ) );
}
DEFTSCP( oardstate_repeats_21_c35bb94a_v );
DEFSTRING( t1795, "XKEYBOARDSTATE-AUTO_REPEATS!", 28 );
EXTERNTSCPP( scrt4_c_2dbyte_2dset_21 );
EXTERNTSCP( scrt4_c_2dbyte_2dset_21_v );
TSCP oardstate_repeats_21_c35bb94a( x1699, i1700, y1701 )
TSCP x1699, i1700, y1701;
{
TSCP X3, X2, X1;
X1 = xlibtypes_oardstatep_c630d819( x1699 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( i1700 ) ),
3 ) ) goto L1798;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( i1700 ) ) );
goto L1799;
L1798:
X3 = scrt2__2a_2dtwo( _TSCP( 4 ), i1700 );
L1799:
if ( BITAND( BITOR( INT( _TSCP( 96 ) ), INT( X3 ) ),
3 ) ) goto L1801;
X2 = _TSCP( IPLUS( INT( _TSCP( 96 ) ), INT( X3 ) ) );
goto L1802;
L1801:
X2 = scrt2__2b_2dtwo( _TSCP( 96 ), X3 );
L1802:
return( scrt4_c_2dbyte_2dset_21( X1, X2, y1701 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
xlibtypes__init();
scrt4__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xkeyboardstate__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xkeyboardstate SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1739 ) ),
ADR( oardstate_boardstate_653f3eae_v ),
MAKEPROCEDURE( 0,
0,
oardstate_boardstate_653f3eae,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1763 ) ),
ADR( oardstate_k__percent_eaadaa7f_v ),
MAKEPROCEDURE( 1,
0,
oardstate_k__percent_eaadaa7f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1765 ) ),
ADR( oardstate_percent_21_786c9977_v ),
MAKEPROCEDURE( 2,
0,
oardstate_percent_21_786c9977,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1767 ) ),
ADR( oardstate_l__percent_f4c58be8_v ),
MAKEPROCEDURE( 1,
0,
oardstate_l__percent_f4c58be8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1769 ) ),
ADR( oardstate_percent_21_4fc6cb95_v ),
MAKEPROCEDURE( 2,
0,
oardstate_percent_21_4fc6cb95,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1771 ) ),
ADR( oardstate_ell__pitch_f588102_v ),
MAKEPROCEDURE( 1,
0,
oardstate_ell__pitch_f588102,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1773 ) ),
ADR( oardstate___pitch_21_9fe2996b_v ),
MAKEPROCEDURE( 2,
0,
oardstate___pitch_21_9fe2996b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1775 ) ),
ADR( oardstate___duration_a51cfe04_v ),
MAKEPROCEDURE( 1,
0,
oardstate___duration_a51cfe04,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1777 ) ),
ADR( oardstate_uration_21_427905c3_v ),
MAKEPROCEDURE( 2,
0,
oardstate_uration_21_427905c3,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1779 ) ),
ADR( oardstate_dled__mask_135adeeb_v ),
MAKEPROCEDURE( 1,
0,
oardstate_dled__mask_135adeeb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1781 ) ),
ADR( oardstate_d__mask_21_eafc52ef_v ),
MAKEPROCEDURE( 2,
0,
oardstate_d__mask_21_eafc52ef,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1783 ) ),
ADR( oardstate_to__repeat_12f287ed_v ),
MAKEPROCEDURE( 1,
0,
oardstate_to__repeat_12f287ed,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1785 ) ),
ADR( oardstate__repeat_21_5d05e39b_v ),
MAKEPROCEDURE( 2,
0,
oardstate__repeat_21_5d05e39b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1787 ) ),
ADR( oardstate_o__repeats_5b614e66_v ),
MAKEPROCEDURE( 2,
0,
oardstate_o__repeats_5b614e66,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1795 ) ),
ADR( oardstate_repeats_21_c35bb94a_v ),
MAKEPROCEDURE( 3,
0,
oardstate_repeats_21_c35bb94a,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.