This is xkeyboardcontrol.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1706,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1706 );
DEFSTRING( t1707, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1708, "XKEYBOARDCONTROLP", 17 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1707 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1708 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( rdcontrol_ardcontrol_113c4ed_v );
DEFSTRING( t1709, "MAKE-XKEYBOARDCONTROL", 21 );
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 rdcontrol_ardcontrol_113c4ed( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1716;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1717;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1718;
L1717:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1718:
if ( TRUE( X4 ) ) goto L1716;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1725;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1716;
goto L1732;
L1725:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1732;
L1716:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1732:
X1 = sc_make_2dstring( _TSCP( 128 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( rdcontrol_k__percent_ed8370c4_v );
DEFSTRING( t1733, "XKEYBOARDCONTROL-KEY_CLICK_PERCENT", 34 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( xlibtypes_rdcontrolp_b8c5a0f8 );
EXTERNTSCP( xlibtypes_rdcontrolp_b8c5a0f8_v );
TSCP rdcontrol_k__percent_ed8370c4( x1630 )
TSCP x1630;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1630 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) );
}
DEFTSCP( rdcontrol_percent_21_1666a8db_v );
DEFSTRING( t1735, "XKEYBOARDCONTROL-KEY_CLICK_PERCENT!", 35 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP rdcontrol_percent_21_1666a8db( x1633, y1634 )
TSCP x1633, y1634;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1633 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) );
}
DEFTSCP( rdcontrol_l__percent_935e9642_v );
DEFSTRING( t1737, "XKEYBOARDCONTROL-BELL_PERCENT", 29 );
TSCP rdcontrol_l__percent_935e9642( x1637 )
TSCP x1637;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1637 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( rdcontrol_percent_21_3983594_v );
DEFSTRING( t1739, "XKEYBOARDCONTROL-BELL_PERCENT!", 30 );
TSCP rdcontrol_percent_21_3983594( x1641, y1642 )
TSCP x1641, y1642;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1641 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1642 ) );
}
DEFTSCP( rdcontrol_ell__pitch_318063ad_v );
DEFSTRING( t1741, "XKEYBOARDCONTROL-BELL_PITCH", 27 );
TSCP rdcontrol_ell__pitch_318063ad( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1645 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( rdcontrol___pitch_21_a9864880_v );
DEFSTRING( t1743, "XKEYBOARDCONTROL-BELL_PITCH!", 28 );
TSCP rdcontrol___pitch_21_a9864880( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1649 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1650 ) );
}
DEFTSCP( rdcontrol___duration_93782fef_v );
DEFSTRING( t1745, "XKEYBOARDCONTROL-BELL_DURATION", 30 );
TSCP rdcontrol___duration_93782fef( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1653 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( rdcontrol_uration_21_35326bab_v );
DEFSTRING( t1747, "XKEYBOARDCONTROL-BELL_DURATION!", 31 );
TSCP rdcontrol_uration_21_35326bab( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1657 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 48 ), y1658 ) );
}
DEFTSCP( rdcontrol_trol_2dled_19c1b62d_v );
DEFSTRING( t1749, "XKEYBOARDCONTROL-LED", 20 );
TSCP rdcontrol_trol_2dled_19c1b62d( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1661 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( rdcontrol_l_2dled_21_b5271374_v );
DEFSTRING( t1751, "XKEYBOARDCONTROL-LED!", 21 );
TSCP rdcontrol_l_2dled_21_b5271374( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1665 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 64 ), y1666 ) );
}
DEFTSCP( rdcontrol_dled__mode_8a6804f_v );
DEFSTRING( t1753, "XKEYBOARDCONTROL-LED_MODE", 25 );
TSCP rdcontrol_dled__mode_8a6804f( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1669 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( rdcontrol_d__mode_21_a4be69a5_v );
DEFSTRING( t1755, "XKEYBOARDCONTROL-LED_MODE!", 26 );
TSCP rdcontrol_d__mode_21_a4be69a5( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1673 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1674 ) );
}
DEFTSCP( rdcontrol_trol_2dkey_7f88cc71_v );
DEFSTRING( t1757, "XKEYBOARDCONTROL-KEY", 20 );
TSCP rdcontrol_trol_2dkey_7f88cc71( x1677 )
TSCP x1677;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1677 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 96 ) ) );
}
DEFTSCP( rdcontrol_l_2dkey_21_a51ac8e_v );
DEFSTRING( t1759, "XKEYBOARDCONTROL-KEY!", 21 );
TSCP rdcontrol_l_2dkey_21_a51ac8e( x1681, y1682 )
TSCP x1681, y1682;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1681 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 96 ), y1682 ) );
}
DEFTSCP( rdcontrol_peat__mode_425e2f8f_v );
DEFSTRING( t1761, "XKEYBOARDCONTROL-AUTO_REPEAT_MODE", 33 );
TSCP rdcontrol_peat__mode_425e2f8f( x1685 )
TSCP x1685;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1685 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 112 ) ) );
}
DEFTSCP( rdcontrol_t__mode_21_afe825a7_v );
DEFSTRING( t1763, "XKEYBOARDCONTROL-AUTO_REPEAT_MODE!", 34 );
TSCP rdcontrol_t__mode_21_afe825a7( x1689, y1690 )
TSCP x1689, y1690;
{
TSCP X1;
X1 = xlibtypes_rdcontrolp_b8c5a0f8( x1689 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 112 ), y1690 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
xlibtypes__init();
scrt4__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xkeyboardcontrol__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xkeyboardcontrol SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1709 ) ),
ADR( rdcontrol_ardcontrol_113c4ed_v ),
MAKEPROCEDURE( 0,
0,
rdcontrol_ardcontrol_113c4ed,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1733 ) ),
ADR( rdcontrol_k__percent_ed8370c4_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol_k__percent_ed8370c4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1735 ) ),
ADR( rdcontrol_percent_21_1666a8db_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol_percent_21_1666a8db,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1737 ) ),
ADR( rdcontrol_l__percent_935e9642_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol_l__percent_935e9642,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1739 ) ),
ADR( rdcontrol_percent_21_3983594_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol_percent_21_3983594,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1741 ) ),
ADR( rdcontrol_ell__pitch_318063ad_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol_ell__pitch_318063ad,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1743 ) ),
ADR( rdcontrol___pitch_21_a9864880_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol___pitch_21_a9864880,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1745 ) ),
ADR( rdcontrol___duration_93782fef_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol___duration_93782fef,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1747 ) ),
ADR( rdcontrol_uration_21_35326bab_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol_uration_21_35326bab,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1749 ) ),
ADR( rdcontrol_trol_2dled_19c1b62d_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol_trol_2dled_19c1b62d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1751 ) ),
ADR( rdcontrol_l_2dled_21_b5271374_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol_l_2dled_21_b5271374,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1753 ) ),
ADR( rdcontrol_dled__mode_8a6804f_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol_dled__mode_8a6804f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1755 ) ),
ADR( rdcontrol_d__mode_21_a4be69a5_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol_d__mode_21_a4be69a5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1757 ) ),
ADR( rdcontrol_trol_2dkey_7f88cc71_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol_trol_2dkey_7f88cc71,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1759 ) ),
ADR( rdcontrol_l_2dkey_21_a51ac8e_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol_l_2dkey_21_a51ac8e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1761 ) ),
ADR( rdcontrol_peat__mode_425e2f8f_v ),
MAKEPROCEDURE( 1,
0,
rdcontrol_peat__mode_425e2f8f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1763 ) ),
ADR( rdcontrol_t__mode_21_afe825a7_v ),
MAKEPROCEDURE( 2,
0,
rdcontrol_t__mode_21_afe825a7,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.