startup.java

类似于Windows上的Excel

            ShortAtom.ZERO,
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                ShortAtom.ZERO)),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_SELECTION_SET],
            ShortAtom.ZERO,
            ShortAtom.ONE,
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                ShortAtom.ONE)),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_SELECTION_SET],
            ShortAtom.ONE,
            ShortAtom.ZERO,
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                ShortAtom.ZERO)),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_SELECTION_SET],
            ShortAtom.ONE,
            ShortAtom.ONE,
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                ShortAtom.ONE)),
        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_REPAINT] )} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        NIL,
        NIL,
        new ModuleStringConstant(120),
        new QuotedList( new LispObject[] { 
            new ShortAtom(50) ,
            new ShortAtom(50) } ),
        new FunctorList3( BFUNC_table[Bfunc.INDEX_CELL_COPY],
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SHEET_GETCELL],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SELECTION_GET],
                    ShortAtom.ZERO,
                    ShortAtom.ONE),
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SELECTION_GET],
                    ShortAtom.ZERO,
                    ShortAtom.ZERO)),
            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_SSUB],
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ZERO),
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SELECTION_GET],
                    ShortAtom.ZERO,
                    ShortAtom.ZERO))),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
            ShortAtom.ONE)} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
    new LispObject[] {
        new ModuleStringConstant(143),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_FORMULA],
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CELL_GETFORMAT],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] ))),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_FORMULA],
            new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                    table[INDEX_FORMULA],
                    ShortAtom.ZERO),
                ShortAtom.ONE,
                new FunctorList3( BFUNC_table[Bfunc.INDEX_IF],
                    new FunctorList2( BFUNC_table[Bfunc.INDEX_SEQ],
                        table[INDEX_FORMULA],
                        ShortAtom.ONE),
                    new ShortAtom(2) ,
                    ShortAtom.ZERO))),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_CELL_SETFORMAT],
            new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] ),
            table[INDEX_FORMULA]),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_CELL_REPAINT],
            new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] ))} ),
    new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_BIND],
    new LispObject[] {
        NIL,
        NIL,
        new ModuleStringConstant(175),
        new QuotedList( new LispObject[] { 
            new ShortAtom(50) ,
            new ShortAtom(51) } ),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_CELL_CLEAR],
            new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] )),
        new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_RECALCULATE],
            ShortAtom.ONE)} ),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(198),
        new FunctorListN( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
        new LispObject[] {
            new ModuleStringConstant(215),
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
                table[INDEX_SHEETNAME],
                new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                    ShortAtom.ZERO,
                    NIL,
                    new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_GETNAME],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] )))),
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SHEET_SETNAME],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                table[INDEX_SHEETNAME]),
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SHEET_SAVE],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                table[INDEX_SHEETNAME]),
            new FunctorList2( BFUNC_table[Bfunc.INDEX_SHEET_SETCHANGED],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                BooleanAtom.FALSE )} )),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(236),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
            new FunctorList0( table[INDEX_CHECK_CHANGES] ),
            new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
                new ModuleStringConstant(267),
                new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVATE],
                    new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_LOAD],
                        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                            new ShortAtom(100) ,
                            NIL,
                            new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_LIST] ))))))),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(278),
        new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(267),
            new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVATE],
                new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_LOAD],
                    new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                        new ShortAtom(100) ,
                        NIL,
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_LIST] )))))),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(296),
        new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(315),
            new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_DELETE],
                new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                    new ShortAtom(100) ,
                    NIL,
                    new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_LIST] ))))),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(328),
        new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(350),
            new FunctorList2( BFUNC_table[Bfunc.INDEX_IF],
                new FunctorList2( BFUNC_table[Bfunc.INDEX_STR_EQ],
                    new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                        new ShortAtom(100) ,
                        NIL,
                        new QuotedList( new LispObject[] { 
                            new ModuleStringConstant(360),
                            new ModuleStringConstant(364)} )),
                    new ModuleStringConstant(360)),
                new QuotedList( new LispObject[] { 
                    new FunctorList1( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVATE],
                        new FunctorListN( BFUNC_table[Bfunc.INDEX_SHEET_CREATE],
                        new LispObject[] {
                            new ModuleStringConstant(367),
                            new QuotedList( new LispObject[] { 
} ),
                            new QuotedList( new LispObject[] { 
} ),
                            new QuotedList( new LispObject[] { 
} )} )),
                    new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_SETDEFAULTSIZE],
                        new FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_ACTIVE] ),
                        ShortAtom.ZERO,
                        new ShortAtom(256) )} )))),
    new FunctorList1( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(376)),
    new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
        table[INDEX_URL],
        new ModuleStringConstant(406)),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(414),
        new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(402),
            new FunctorList1( BFUNC_table[Bfunc.INDEX_SEXP_EVALUATE],
                new FunctorList1( BFUNC_table[Bfunc.INDEX_SEXP_PARSE],
                    new FunctorList1( ServerUploader.SERVERUPLOADER.table[ServerUploader.INDEX_HTTP_LOAD],
                        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
                            table[INDEX_URL],
                            new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_PROMPT],
                                ShortAtom.ZERO,
                                NIL,
                                table[INDEX_URL]))))))),
    new FunctorList2( SCREENLITE_table[ScreenLite.INDEX_BIND_TO_MENU],
        new ModuleStringConstant(440),
        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(460),
            new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_INSERT],
                ShortAtom.ZERO,
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ZERO),
                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(475),
        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(495),
            new FunctorList3( BFUNC_table[Bfunc.INDEX_SHEET_INSERT],
                ShortAtom.ZERO,
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CURSOR_GET],
                    ShortAtom.ZERO),
                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(510),
        new FunctorList3( SCREENLITE_table[ScreenLite.INDEX_INPUT_FORM],
            new ModuleStringConstant(529),
            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),
                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 FunctorList0( BFUNC_table[Bfunc.INDEX_SHEET_REPAINT] ))),
    new FunctorList3( BFUNC_table[Bfunc.INDEX_DEFUN],
        table[INDEX_COLUMN_FIT],
        new FunctorList0( table[INDEX_CELL] ),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SADD],
            new FunctorList1( BFUNC_table[Bfunc.INDEX_STR_GETWIDTH],
                new FunctorList1( BFUNC_table[Bfunc.INDEX_CELL_GETWSVALUE],
                    table[INDEX_CELL])),
            new ShortAtom(64) )),
    new FunctorList3( BFUNC_table[Bfunc.INDEX_DEFUN],
        table[INDEX_ACTIVECELL_FIT],
        new QuotedList( new LispObject[] { 
} ),
        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),
            new FunctorList1( table[INDEX_COLUMN_FIT],
                new FunctorList0( BFUNC_table[Bfunc.INDEX_CELL_ACTIVE] ))} )),
    new FunctorListN( BFUNC_table[Bfunc.INDEX_DEFUN],
    new LispObject[] {
        table[INDEX_ACTIVECELL_FIT_CONDITIONAL],
        new QuotedList( new LispObject[] { 
} ),
        new FunctorList2( BFUNC_table[Bfunc.INDEX_SETQ],
            table[INDEX_CELLTYPE],
            new FunctorList1( BFUNC_table[Bfunc.INDEX_CELL_GETTYPE],