view oldXMenu/compile.com @ 30411:41f228350eca

Got rid of all byte-compiler warnings on Emacs Load ada-xref.el before ada-prj.el, so that the Project menu is created when ada-prj tries to add to it. (ada-activate-keys-for-case): Suppress the characters that are not part of the Ada syntax. Better compatibility with else-mode (ada-adjust-case-interactive): When auto-casing is not active, correctly insert newlines (used to insert only ^M). Prevent the syntax table from being changed in case of an error (or '_' becomes part of a word and some commands are confused). Do nothing if ada-auto-case is nil. (ada-after-keyword-p): Ignore keywords that are also attributes (ada-batch-reformat): Update usage comment (ada-call-from-contextual-menu): New function (ada-case-read-exceptions): Reinitialize the casing exception list first to nil first, so that the casing exception file can be shared. (ada-check-defun-name): Handles "configure" keyword for gnatdist files. (ada-compile-goto-error): Fix regexp used to detect a file:line anywhere in the error message (ada-contextual-menu-last-point): New variable (ada-create-keymap): If the variable delete-key-deletes-forward is t on XEmacs, it means that DEL should delete one character forward. (ada-create-menu): Use :included instead of :visible for XEmacs. New submenu "Options". (ada-end-stmt-re): Correctly indent "select ... then abort" statements. (ada-fill-comment-paragraph): Correctly delete all leading '--' even if they don't match ada-fill-comment-prefix Fix handling of paragraphs on the first or last line of a file. (ada-format-paramlist): Fix handling of default parameter values. (ada-get-body-name): New function. (ada-get-current-indent): Optimized by searchling directly for an existing generic part or a statement outside of it. Handle ada-indent-align-comments when indenting comments Replaced some regexps by testing directly the next character. This results in a huge speedup on some files. New indentation scheme for renames statements. Stop looking for the 'while' or 'for' associated with a 'loop' at the first semicolon encountered. A "return" can also match an anonymous access subprogram declaration. (ada-get-indent-noindent): Ignore strings and comments when looking for the keywords "record" and "private". (ada-goto-matching-decl-start): When matching "if", make sure we are not in fact seeing "end if". Ignore "when" statements except when initial keyword was "begin". Fix handling of nested procedures. Add a recursive call to this function to skip over other 'end' statmts. Fix indentation for "when .. => begin" (ada-in-open-paren-p): Fix indentation for complex boolean expressions, where 'and then', 'or else' and parenthesis statements are mixed up. (ada-in-paramlist-p): Skip comments while searching for the beginning Fix handling of operator declarations. (ada-indent-align-comments): New variable (ada-indent-current): Change the syntax table only in the protected section, so that we are sure it is restored correctly. (ada-indent-on-previous-lines): Use ada-use-indent and ada-with-indent Correctly indent "select ... then" (ada-indent-region): Slight speedup. (ada-indent-renames): New variable. (ada-last-which-function-subprog, ada-last-which-function-line): New variables (ada-looking-at-semi-private): Correctly indent the 'private' keyword when it is the first word in a package declaration. (ada-loose-case-word): Stop searching if at the end of the buffer. (ada-loose-case-word, ada-capitalize-word): Recase the whole word even if point is not initially at the end of the word. (ada-matching-decl-start-re): Add "when". (ada-mode): Add support for abbrev-mode, outline-mode and which-func-mode Override the old find-file.el entry in ff-special-constructs since it is using the obsolete ada-spec-suffix variable (ada-no-auto-case): New function (ada-scan-paramlist): When parsing the argument type, accept spaces (as in "X 'Class", generated by Rational Rose). (ada-other-file-name): No longer loads the other file. (ada-popup-menu): Save and restore the current buffer and cursor position before and after displaying the menu. (ada-search-ignore-complex-boolean): New function. (ada-uncomment-region): Emacs21 already knows how to delete comments not starting in the first column. (ada-use-indent): New variable (ada-which-function): New function. (ada-with-indent): New variable (ada-xemacs): evaluate it at compile time too, so that ada-mode.el can be batch-compiled from the command line.

$! This file was autogenerated with the command:
$!
$!	mms/noaction/output = compile.com
$ if f$search("ACTIVATE.OBJ") then delete ACTIVATE.OBJ.*
$ cc /obj=ACTIVATE.OBJ /NOLIST/OBJECT=ACTIVATE.OBJ ACTIVATE.c
$ if f$search("ADDPANE.OBJ") then delete ADDPANE.OBJ.*
$ cc /obj=ADDPANE.OBJ /NOLIST/OBJECT=ADDPANE.OBJ ADDPANE.c
$ if f$search("ADDSEL.OBJ") then delete ADDSEL.OBJ.*
$ cc /obj=ADDSEL.OBJ /NOLIST/OBJECT=ADDSEL.OBJ ADDSEL.c
$ if f$search("CHGPANE.OBJ") then delete CHGPANE.OBJ.*
$ cc /obj=CHGPANE.OBJ /NOLIST/OBJECT=CHGPANE.OBJ CHGPANE.c
$ if f$search("CHGSEL.OBJ") then delete CHGSEL.OBJ.*
$ cc /obj=CHGSEL.OBJ /NOLIST/OBJECT=CHGSEL.OBJ CHGSEL.c
$ if f$search("CREATE.OBJ") then delete CREATE.OBJ.*
$ cc /obj=CREATE.OBJ /NOLIST/OBJECT=CREATE.OBJ CREATE.c
$ if f$search("DELPANE.OBJ") then delete DELPANE.OBJ.*
$ cc /obj=DELPANE.OBJ /NOLIST/OBJECT=DELPANE.OBJ DELPANE.c
$ if f$search("DELSEL.OBJ") then delete DELSEL.OBJ.*
$ cc /obj=DELSEL.OBJ /NOLIST/OBJECT=DELSEL.OBJ DELSEL.c
$ if f$search("DESTROY.OBJ") then delete DESTROY.OBJ.*
$ cc /obj=DESTROY.OBJ /NOLIST/OBJECT=DESTROY.OBJ DESTROY.c
$ if f$search("ERROR.OBJ") then delete ERROR.OBJ.*
$ cc /obj=ERROR.OBJ /NOLIST/OBJECT=ERROR.OBJ ERROR.c
$ if f$search("EVHAND.OBJ") then delete EVHAND.OBJ.*
$ cc /obj=EVHAND.OBJ /NOLIST/OBJECT=EVHAND.OBJ EVHAND.c
$ if f$search("FINDPANE.OBJ") then delete FINDPANE.OBJ.*
$ cc /obj=FINDPANE.OBJ /NOLIST/OBJECT=FINDPANE.OBJ FINDPANE.c
$ if f$search("FINDSEL.OBJ") then delete FINDSEL.OBJ.*
$ cc /obj=FINDSEL.OBJ /NOLIST/OBJECT=FINDSEL.OBJ FINDSEL.c
$ if f$search("INSPANE.OBJ") then delete INSPANE.OBJ.*
$ cc /obj=INSPANE.OBJ /NOLIST/OBJECT=INSPANE.OBJ INSPANE.c
$ if f$search("INSSEL.OBJ") then delete INSSEL.OBJ.*
$ cc /obj=INSSEL.OBJ /NOLIST/OBJECT=INSSEL.OBJ INSSEL.c
$ if f$search("INTERNAL.OBJ") then delete INTERNAL.OBJ.*
$ cc /obj=INTERNAL.OBJ /NOLIST/OBJECT=INTERNAL.OBJ INTERNAL.c
$ if f$search("LOCATE.OBJ") then delete LOCATE.OBJ.*
$ cc /obj=LOCATE.OBJ /NOLIST/OBJECT=LOCATE.OBJ LOCATE.c
$ if f$search("POST.OBJ") then delete POST.OBJ.*
$ cc /obj=POST.OBJ /NOLIST/OBJECT=POST.OBJ POST.c
$ if f$search("RECOMP.OBJ") then delete RECOMP.OBJ.*
$ cc /obj=RECOMP.OBJ /NOLIST/OBJECT=RECOMP.OBJ RECOMP.c
$ if f$search("SETAEQ.OBJ") then delete SETAEQ.OBJ.*
$ cc /obj=SETAEQ.OBJ /NOLIST/OBJECT=SETAEQ.OBJ SETAEQ.c
$ if f$search("SETFRZ.OBJ") then delete SETFRZ.OBJ.*
$ cc /obj=SETFRZ.OBJ /NOLIST/OBJECT=SETFRZ.OBJ SETFRZ.c
$ if f$search("SETPANE.OBJ") then delete SETPANE.OBJ.*
$ cc /obj=SETPANE.OBJ /NOLIST/OBJECT=SETPANE.OBJ SETPANE.c
$ if f$search("SETSEL.OBJ") then delete SETSEL.OBJ.*
$ cc /obj=SETSEL.OBJ /NOLIST/OBJECT=SETSEL.OBJ SETSEL.c
$ if f$search("XDELASSOC.OBJ") then delete XDELASSOC.OBJ.*
$ cc /obj=XDELASSOC.OBJ /NOLIST/OBJECT=XDELASSOC.OBJ XDELASSOC.c
$ if f$search("XLOOKASSOC.OBJ") then delete XLOOKASSOC.OBJ.*
$ cc /obj=XLOOKASSOC.OBJ /NOLIST/OBJECT=XLOOKASSOC.OBJ XLOOKASSOC.c
$ if f$search("XCRASSOC.OBJ") then delete XCRASSOC.OBJ.*
$ cc /obj=XCRASSOC.OBJ /NOLIST/OBJECT=XCRASSOC.OBJ XCRASSOC.c
$ if f$search("XDESTASSOC.OBJ") then delete XDESTASSOC.OBJ.*
$ cc /obj=XDESTASSOC.OBJ /NOLIST/OBJECT=XDESTASSOC.OBJ XDESTASSOC.c
$ if f$search("XMAKEASSOC.OBJ") then delete XMAKEASSOC.OBJ.*
$ cc /obj=XMAKEASSOC.OBJ /NOLIST/OBJECT=XMAKEASSOC.OBJ XMAKEASSOC.c
$ if f$search("INSQUE.OBJ") then delete INSQUE.OBJ.*
$ cc /obj=INSQUE.OBJ /NOLIST/OBJECT=INSQUE.OBJ INSQUE.c
$ if f$search("LIBXMENU11.OLB") then delete LIBXMENU11.OLB.*
$ library/insert/create LIBXMENU11.OLB Activate.obj, 	AddPane.obj, 	AddSel.obj, 	ChgPane.obj, 	ChgSel.obj, 	Create.obj, 	DelPane.obj, 	DelSel.obj, 	Destroy.obj, 	Error.obj, 	EvHand.obj, 	FindPane.obj, 	FindSel.obj, 	InsPane.obj, 	InsSel.obj, 	Internal.-
obj, 	Locate.obj, 	Post.obj, 	Recomp.obj, 	SetAEQ.obj, 	SetFrz.obj, 	SetPane.obj, 	SetSel.obj,         XDelAssoc.obj, XLookAssoc.obj, XCrAssoc.obj, XDestAssoc.obj,         XMakeAssoc.obj
$ if ("insque.obj" .nes. "") then library/insert LIBXMENU11.OLB insque.obj
$ !