startup.java

类似于Windows上的Excel

        new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETMODE] ),
                new ShortAtom(4) ),
            new FunctorList0( BFUNC_table[Bfunc.INDEX_FORMULABAR_REPAINT] ))} ),
    new FunctorList3( BFUNC_table[Bfunc.INDEX_DEFUN],
        table[INDEX_ASSIGN_COMMANDS],
        new QuotedList( new LispObject[] { 
} ),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETMODE] ),
                ShortAtom.ONE),
            new QuotedList( new LispObject[] { 
                new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
                new LispObject[] {
                    NIL,
                    new QuotedList( new LispObject[] { 
                        new ModuleStringConstant(820),
                        new ShortAtom(4) ,
                        ShortAtom.ONE,
                        NIL} ),
                    NIL,
                    NIL,
                    NIL} ),
                new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
                new LispObject[] {
                    NIL,
                    new QuotedList( new LispObject[] { 
                        new ModuleStringConstant(826),
                        new ShortAtom(2) ,
                        new ShortAtom(2) ,
                        NIL} ),
                    NIL,
                    NIL,
                    NIL} ),
                new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_COMMAND],
                new LispObject[] {
                    new ModuleStringConstant(831),
                    new ShortAtom(4) ,
                    ShortAtom.ONE,
                    NIL,
                    new FunctorList1( SCREENLITE_table[ScreenLite.INDEX_MENU_START],
                        new ModuleStringConstant(836))} )} ),
            new QuotedList( new LispObject[] { 
                new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
                new LispObject[] {
                    NIL,
                    new QuotedList( new LispObject[] { 
                        new ModuleStringConstant(831),
                        new ShortAtom(4) ,
                        ShortAtom.ONE,
                        NIL} ),
                    NIL,
                    NIL,
                    NIL} ),
                new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_COMMAND],
                new LispObject[] {
                    new ModuleStringConstant(820),
                    new ShortAtom(4) ,
                    ShortAtom.ONE,
                    NIL,
                    new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
                        table[INDEX_FBAR],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETFORMULABAR] )),
                    new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                        new FunctorList2( Operator.OPERATOR.table[Operator.INDEX_OR],
                            new FunctorList2( BFUNC_table[Bfunc.INDEX_STR_EQ],
                                table[INDEX_FBAR],
                                new ModuleStringConstant(69)),
                            new FunctorList2( BFUNC_table[Bfunc.INDEX_STR_EQ],
                                table[INDEX_FBAR],
                                new ModuleStringConstant(68))),
                        new QuotedList( new LispObject[] { 
                            new FunctorList1( table[INDEX_SCREEN_SETMODE1],
                                ShortAtom.ONE),
                            new FunctorList0( BFUNC_table[Bfunc.INDEX_FORMULABAR_REPAINT] )} ),
                        new QuotedList( new LispObject[] { 
                            new FunctorList2( BFUNC_table[Bfunc.INDEX_CELL_SETWSFORMULA],
                                new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] ),
                                new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETFORMULABAR] )),
                            new FunctorList1( table[INDEX_SCREEN_SETMODE1],
                                ShortAtom.ONE),
                            new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
                                ShortAtom.ZERO),
                            new FunctorList0( table[INDEX_ACTIVECELL_FIT_CONDITIONAL] ),
                            new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_REPAINT] )} ))} ),
                new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_COMMAND],
                new LispObject[] {
                    new ModuleStringConstant(826),
                    new ShortAtom(2) ,
                    new ShortAtom(2) ,
                    NIL,
                    new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
                        table[INDEX_FBAR],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETFORMULABAR] )),
                    new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                        new FunctorList2( BFUNC_table[Bfunc.INDEX_STR_EQ],
                            table[INDEX_FBAR],
                            new ModuleStringConstant(68)),
                        new QuotedList( new LispObject[] { 
                            new FunctorList1( BFUNC_table[Bfunc.INDEX_SCREEN_SETMODE],
                                ShortAtom.ONE),
                            new FunctorList0( table[INDEX_ASSIGN_COMMANDS] ),
                            new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_REPAINT] )} ),
                        new QuotedList( new LispObject[] { 
                            new FunctorList1( BFUNC_table[Bfunc.INDEX_SCREEN_SETFORMULABAR],
                                new FunctorList3( BFUNC_table[Bfunc.INDEX_STR_SUB],
                                    table[INDEX_FBAR],
                                    ShortAtom.ZERO,
                                    new FunctorList2( BFUNC_table[Bfunc.INDEX_SSUB],
                                        new FunctorList1( BFUNC_table[Bfunc.INDEX_STR_LEN],
                                            table[INDEX_FBAR]),
                                        ShortAtom.ONE))),
                            new FunctorList0( BFUNC_table[Bfunc.INDEX_FORMULABAR_REPAINT] ),
                            new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
                                table[INDEX_FBAR],
                                NIL)} ))} )} ))),
    new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
        table[INDEX_SELECTIONBORDER],
        ShortAtom.ZERO),
    new FunctorList3( BFUNC_table[Bfunc.INDEX_DEFUN],
        table[INDEX_SELECTION_COPY],
        new FunctorList0( table[INDEX_CELL] ),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_CELL_COPY],
            table[INDEX_CELL],
            table[INDEX_DI],
            table[INDEX_DJ])),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        NIL,
        NIL,
        new ModuleStringConstant(901),
        new QuotedList( new LispObject[] { 
            new ShortAtom(51) ,
            new ShortAtom(49) } ),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_SELECTION_SET],
            table[INDEX_SELECTIONBORDER],
            ShortAtom.ZERO,
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                ShortAtom.ZERO)),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_SELECTION_SET],
            table[INDEX_SELECTIONBORDER],
            ShortAtom.ONE,
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                ShortAtom.ONE)),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_SELECTIONBORDER],
            new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                    table[INDEX_SELECTIONBORDER],
                    ShortAtom.ZERO),
                ShortAtom.ONE,
                ShortAtom.ZERO)),
        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_REPAINT] )} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        NIL,
        NIL,
        new ModuleStringConstant(928),
        new QuotedList( new LispObject[] { 
            new ShortAtom(51) ,
            new ShortAtom(50) } ),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_DI],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SSUB],
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ONE),
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SELECTION_GET],
                    ShortAtom.ZERO,
                    ShortAtom.ONE))),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_DJ],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SSUB],
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ZERO),
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SELECTION_GET],
                    ShortAtom.ZERO,
                    ShortAtom.ZERO))),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_REFERENCE_PROCESS],
            new FunctorList0( BFUNC_table[Bfunc.INDEX_SELECTION] ),
            table[INDEX_SELECTION_COPY]),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
            ShortAtom.ONE)} ),
    new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(956),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_REFERENCE_PROCESS],
            new FunctorList0( BFUNC_table[Bfunc.INDEX_SELECTION] ),
            BFUNC_table[Bfunc.INDEX_CELL_CLEAR]),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
            ShortAtom.ONE)),
    new FunctorListN( BFUNC_table[Bfunc.INDEX_DEFUN],
    new LispObject[] {
        table[INDEX_SCREEN_SETMODE1],
        new FunctorList0( table[INDEX_MODE1] ),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_SCREEN_SETMODE],
            table[INDEX_MODE1]),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_SCREEN_SETFORMULABAR],
            new ModuleStringConstant(68)),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                table[INDEX_MODE1],
                new ShortAtom(2) ),
            new FunctorList1( table[INDEX_ADDFORMULAKEY],
                new ModuleStringConstant(69))),
        new FunctorList0( table[INDEX_ASSIGN_COMMANDS] )} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_GOLD],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(48) } ),
        NIL,
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_SCREENMODE],
            new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETMODE] )),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                table[INDEX_SCREENMODE],
                ShortAtom.ONE),
            new QuotedList( new LispObject[] { 
                new FunctorList1( table[INDEX_SCREEN_SETMODE1],
                    new ShortAtom(2) ),
                new FunctorList0( BFUNC_table[Bfunc.INDEX_FORMULABAR_REPAINT] )} ),
            new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                    table[INDEX_SCREENMODE],
                    new ShortAtom(2) ),
                new QuotedList( new LispObject[] { 
                    new FunctorList1( table[INDEX_SCREEN_SETMODE1],
                        new ShortAtom(4) ),
                    new FunctorList0( BFUNC_table[Bfunc.INDEX_FORMULABAR_REPAINT] )} ),
                new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
                    new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                        table[INDEX_SCREENMODE],
                        new ShortAtom(4) ),
                    new QuotedList( new LispObject[] { 
                        new FunctorList1( table[INDEX_SCREEN_SETMODE1],
                            ShortAtom.ONE),
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_FORMULABAR_REPAINT] )} ))))} ),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(995),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList0( table[INDEX_CHECK_CHANGES] ),
            new FunctorList0( SCREENLITE_table[ScreenLite.INDEX_APP_EXIT] ))),
    new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_SETDEFAULTSIZE],
        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
        ShortAtom.ZERO,
        new ShortAtom(256) ),
    new FunctorList3( BFUNC_table[Bfunc.INDEX_SCREEN_SETFONT],
        ShortAtom.ZERO,
        ShortAtom.ZERO,
        new ShortAtom(8) ),
    new FunctorList0( table[INDEX_ASSIGN_COMMANDS] ),
    new FunctorList1( SCREENLITE_table[ScreenLite.INDEX_MENU_START],
        new ModuleStringConstant(1006))} ).interpret();
}
return rez;
}
}