startup.java

类似于Windows上的Excel

                new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] ))),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_WIDTH],
            new FunctorList1( table[INDEX_COLUMN_FIT],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] ))),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SNE],
                table[INDEX_CELLTYPE],
                new ShortAtom(10) ),
            new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SGT],
                    table[INDEX_WIDTH],
                    new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_GETWIDTHHEIGHT],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                        ShortAtom.ZERO,
                        new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                            ShortAtom.ZERO))),
                new FunctorListN( BFUNC_table[Bfunc.INDEX_SHEET_SETWIDTHHEIGHT],
                new LispObject[] {
                    new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                    ShortAtom.ZERO,
                    new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                        ShortAtom.ZERO),
                    table[INDEX_WIDTH]} )))} ),
    new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(588),
        new FunctorList0( table[INDEX_ACTIVECELL_FIT] ),
        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_REPAINT] )),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(605),
        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(632),
            new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_SETDEFAULTSIZE],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                ShortAtom.ZERO,
                new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                    ShortAtom.ONE,
                    NIL,
                    new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_GETWIDTHHEIGHT],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                        ShortAtom.ZERO,
                        new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                            ShortAtom.ZERO)))),
            new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
                new ShortAtom(2) ))),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(646),
        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(663),
            new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_INSERT],
                ShortAtom.ONE,
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ONE),
                new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                    ShortAtom.ONE,
                    NIL,
                    ShortAtom.ONE)),
            new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
                new ShortAtom(2) ))),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(675),
        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(692),
            new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_INSERT],
                ShortAtom.ONE,
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ONE),
                new FunctorList1( Operator.OPERATOR.table[Operator.INDEX_UMIN],
                    new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                        ShortAtom.ONE,
                        NIL,
                        ShortAtom.ONE))),
            new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
                new ShortAtom(2) ))),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(704),
        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(721),
            new FunctorListN( BFUNC_table[Bfunc.INDEX_SHEET_SETWIDTHHEIGHT],
            new LispObject[] {
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                ShortAtom.ONE,
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ONE),
                new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                    ShortAtom.ONE,
                    NIL,
                    new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_GETWIDTHHEIGHT],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                        ShortAtom.ONE,
                        new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                            ShortAtom.ONE)))} ),
            new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_REPAINT] ))),
    new FunctorList3( BFUNC_table[Bfunc.INDEX_DEFUN],
        table[INDEX_CHECK_CHANGES],
        new QuotedList( new LispObject[] { 
} ),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_ISCHANGED],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] )),
            new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_STR_EQ],
                    new FunctorList2( BFUNC_table[Bfunc.INDEX_TOTYPE],
                        new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
                            new ModuleStringConstant(732),
                            new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                                new ShortAtom(100) ,
                                NIL,
                                new QuotedList( new LispObject[] { 
                                    new ModuleStringConstant(360),
                                    new ModuleStringConstant(364)} ))),
                        new ShortAtom(10) ),
                    new ModuleStringConstant(360)),
                BooleanAtom.TRUE ,
                BooleanAtom.FALSE ),
            BooleanAtom.TRUE )),
    new FunctorListN( BFUNC_table[Bfunc.INDEX_DEFUN],
    new LispObject[] {
        table[INDEX_ADDFORMULAKEY],
        new FunctorList0( table[INDEX_KEY1] ),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_SCREEN_SETFORMULABAR],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_STR_CAT],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETFORMULABAR] ),
                table[INDEX_KEY1])),
        new FunctorList0( BFUNC_table[Bfunc.INDEX_FORMULABAR_REPAINT] )} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(48) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(768))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(49) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(770))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(50) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(772))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(51) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(774))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(52) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(776))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(53) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(778))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(54) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(780))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(55) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(782))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(56) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(784))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(57) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new ModuleStringConstant(786))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        new QuotedList( new LispObject[] { 
            new ShortAtom(2) ,
            NIL,
            new ShortAtom(42) } ),
        NIL,
        NIL,
        NIL,
        new FunctorList1( table[INDEX_ADDFORMULAKEY],
            new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                    new FunctorList1( BFUNC_table[Bfunc.INDEX_STR_LEN],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SCREEN_GETFORMULABAR] )),
                    ShortAtom.ZERO),
                new ModuleStringConstant(788),
                new ModuleStringConstant(790)))} ),
    new FunctorListN( BFUNC_table[Bfunc.INDEX_DEFUN],
    new LispObject[] {
        table[INDEX_CURSOR_MOVE1],
        new FunctorList1( table[INDEX_AXIS],
            table[INDEX_OFFSET]),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_CURSOR_MOVE],
            table[INDEX_AXIS],
            table[INDEX_OFFSET]),