Received: (at 23792) by debbugs.gnu.org; 16 Nov 2019 08:50:24 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Sat Nov 16 03:50:23 2019 Received: from localhost ([127.0.0.1]:37712 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1iVtmh-0000b0-KV for submit <at> debbugs.gnu.org; Sat, 16 Nov 2019 03:50:23 -0500 Received: from randomsample.de ([5.45.97.173]:51411) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <deng@HIDDEN>) id 1iVtme-0000ak-S9; Sat, 16 Nov 2019 03:50:22 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=randomsample.de; s=a; h=Content-Transfer-Encoding:Content-Type:MIME-Version:Message-ID:Date:References:In-Reply-To:Subject:Cc:To:From; bh=ys7qabn0gtbPz9pFsFo00HcNyM6cYSLCsL9LfuuaYog=; b=JW9RwP18OK+yx/1PB/O8oWmNmQl3NAb8PPBANVocdQJ6d3zlGCuZ0fBvhfAOslWAp/LpP9y1bRwAyEJWAV/YukZsfAAIUEIKk5DsNHuGiwfovEdesEFcER/GVqPPGEMW; Received: from ip5f5abab0.dynamic.kabel-deutschland.de ([95.90.186.176] helo=void) by randomsample.de with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.80) (envelope-from <deng@HIDDEN>) id 1iVtmW-0001Dz-U9; Sat, 16 Nov 2019 09:50:12 +0100 From: David Engster <deng@HIDDEN> To: Stefan Kangas <stefan@HIDDEN> Subject: Re: bug#28878: CEDET merge bug In-Reply-To: <87o8xnuhr3.fsf@HIDDEN> (Stefan Kangas's message of "Fri, 08 Nov 2019 05:14:24 +0100") References: <m24lqxlinm.fsf@HIDDEN> <877evtwlse.fsf@HIDDEN> <CAMz5G5_D6eRe4HBDZnTQMccmNgNqUiAMXq7WQLHh_SzUhG4dyg@HIDDEN> <871sm0wl6m.fsf@HIDDEN> <CAMz5G58aJaCrdxV7LfJYVnjN6-PFe+h608F9t73q_xZ8omHV+w@HIDDEN> <87fuadwo2g.fsf@HIDDEN> <87o8xnuhr3.fsf@HIDDEN> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) Date: Sat, 16 Nov 2019 09:49:58 +0100 Message-ID: <8736eotdc9.fsf@randomsample> MIME-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 23792 Cc: "Charles A. Roelli" <charles@HIDDEN>, Edward Steere <edward.steere@HIDDEN>, 28878 <at> debbugs.gnu.org, 23792 <at> debbugs.gnu.org X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) Stefan Kangas writes: > David Engster <david@HIDDEN> writes: > >> Edward Steere writes: >>> I count 165 commits since the last merge when I look at cedet.git >>> and I only see 49 commits in emacs.git from your work on the >>> merge.=A0 What about the other 116 commits? >> >> I dropped all commits that did not concern the subset of CEDET that is >> in Emacs proper. It is entirely possible of course that I made a mistake >> here or there; it'd be nice if someone could check. >> >> -David > > That was 3 years ago. What's the current status of this merge -- has > it been completed? No. After being fed up with the Emacs maintainer at the time I stopped working on this. My final work was the last-cedet-merge branch, which should contain all yet unmerged patches from the SourceForge repo. -David
bug-gnu-emacs@HIDDEN:bug#23792; Package emacs.
Full text available.Received: (at 23792) by debbugs.gnu.org; 11 Nov 2019 02:07:21 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Sun Nov 10 21:07:21 2019 Received: from localhost ([127.0.0.1]:52919 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1iTz6v-0004bv-6Q for submit <at> debbugs.gnu.org; Sun, 10 Nov 2019 21:07:21 -0500 Received: from host.gofardesign.uk ([208.79.239.190]:60669) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <stefan@HIDDEN>) id 1iTz6s-0004ba-8G; Sun, 10 Nov 2019 21:07:19 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=marxist.se; s=default; h=Content-Type:MIME-Version:Message-ID:Date:References: In-Reply-To:Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=1tOhZgr4/kUlPF+fJoBxOqBAab6g9UZk0kNQOFzuCnk=; b=IpXdaJCZq1TsI2st5PVC/+c3KV VRplBH/TO+4pIANHYonavtpwrhrvAXthQdve6JGGAFTfuSVfPqjyklL3rEzl8zTMbl73QXOmlq0xR Q2lxWpKDI9gZiCiHbNo13/J46GWK8Pg5XeYc3io7B7Nex8+uFOfLy+3BIy8hS5Ui+A3s=; Received: from h-70-69.a785.priv.bahnhof.se ([155.4.70.69]:33500 helo=localhost) by host.gofardesign.uk with esmtpsa (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.92) (envelope-from <stefan@HIDDEN>) id 1iTz6l-0000Ea-8t; Sun, 10 Nov 2019 20:07:11 -0600 From: Stefan Kangas <stefan@HIDDEN> To: Eric Ludlam <ericludlam@HIDDEN> Subject: Re: bug#28878: CEDET merge bug In-Reply-To: <9c93fa1a-69fc-fbfd-9d83-a31e33a82c80@HIDDEN> (Eric Ludlam's message of "Sun, 10 Nov 2019 19:11:42 -0500") References: <m24lqxlinm.fsf@HIDDEN> <877evtwlse.fsf@HIDDEN> <CAMz5G5_D6eRe4HBDZnTQMccmNgNqUiAMXq7WQLHh_SzUhG4dyg@HIDDEN> <871sm0wl6m.fsf@HIDDEN> <CAMz5G58aJaCrdxV7LfJYVnjN6-PFe+h608F9t73q_xZ8omHV+w@HIDDEN> <87fuadwo2g.fsf@HIDDEN> <87o8xnuhr3.fsf@HIDDEN> <9358B626-B5C3-4796-A4F8-9447422C16EB@HIDDEN> <CADwFkm=79V1tgg9mdhwg=z+V_GEtmeGXn5Sh1T7gOgoPT_C9ig@HIDDEN> <9c93fa1a-69fc-fbfd-9d83-a31e33a82c80@HIDDEN> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) Date: Mon, 11 Nov 2019 03:07:09 +0100 Message-ID: <87d0dzrws2.fsf@HIDDEN> MIME-Version: 1.0 Content-Type: text/plain X-OutGoing-Spam-Status: No, score=-1.0 X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - host.gofardesign.uk X-AntiAbuse: Original Domain - debbugs.gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - marxist.se X-Get-Message-Sender-Via: host.gofardesign.uk: authenticated_id: stefan@HIDDEN X-Authenticated-Sender: host.gofardesign.uk: stefan@HIDDEN X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 23792 Cc: "Eric M. Ludlam" <zappo@HIDDEN>, "Charles A. Roelli" <charles@HIDDEN>, 28878 <at> debbugs.gnu.org, 23792 <at> debbugs.gnu.org, Edward Steere <edward.steere@HIDDEN>, Stefan Monnier <monnier@HIDDEN>, David Engster <david@HIDDEN> X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) Eric Ludlam <ericludlam@HIDDEN> writes: > If there are puzzles around the merge done so far I can look at them, but I > don't have commit privileges for Emacs, nor particularly deep git skills. "git branch -a | grep cedet" yields the following matches: 1. remotes/origin/old-branches/cedet-branch Last updated in 2009. It could perhaps be deleted? The last commit there is a2095e2ed and seems to be on the master branch already. 2. remotes/origin/scratch/last-cedet-merge Not sure about the status here. The last commit d2a57bdfec is not merged to master AFAICT. 3. remotes/origin/scratch/merge-cedet-tests This seems to be the branch that Edward was working on. You could check them out in git using something like: git checkout --track origin/scratch/merge-cedet-tests Best regards, Stefan Kangas
bug-gnu-emacs@HIDDEN:bug#23792; Package emacs.
Full text available.Received: (at 23792) by debbugs.gnu.org; 11 Nov 2019 00:11:53 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Sun Nov 10 19:11:53 2019 Received: from localhost ([127.0.0.1]:52855 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1iTxJA-0001iI-UX for submit <at> debbugs.gnu.org; Sun, 10 Nov 2019 19:11:53 -0500 Received: from mail-qv1-f66.google.com ([209.85.219.66]:43823) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <ericludlam@HIDDEN>) id 1iTxJ8-0001hx-3t; Sun, 10 Nov 2019 19:11:50 -0500 Received: by mail-qv1-f66.google.com with SMTP id cg2so4217703qvb.10; Sun, 10 Nov 2019 16:11:50 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=subject:to:cc:references:from:message-id:date:user-agent :mime-version:in-reply-to:content-transfer-encoding:content-language; bh=W5NAQ68DSLEEhlFQvOk/DmbVaZm82droC1Ds3W1pdsI=; b=Ol8Ew2loW5DDg5xtJKE5RMrNU763mKNjBCiYRARPTYqnWHcUQVK6oDNfR9f7IUpr+B jxdiYppTuyECRGFBR5EJ6ucHTqu195IzIUgPTP8HsRYnsxdkt3JuEO1PXJvDgJv0qghc fHgMxPmAos64rtY9IA8Je7MztycE1eMI9Vv89yaVaNbtxXUJEpDPKU7pEuPJWyXHBmpA iy3d5rZTdVwUsRKnNlpJ3D1pdd4lgqMerGZ/hDcJKmUtfGBwarlFlvuWMXfO84wny9QB n+uXXauwaV1Ps0yLsNQwr9hL2lAH8iyMFLHDES/Y0Vf4OK0y0ubS2mf22J4RyMBk+rlr srag== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:subject:to:cc:references:from:message-id:date :user-agent:mime-version:in-reply-to:content-transfer-encoding :content-language; bh=W5NAQ68DSLEEhlFQvOk/DmbVaZm82droC1Ds3W1pdsI=; b=BOfGjoj7v9u4O3u11bBwgOL2nAbo9rVMyvg1od1uOks7mCEKyfzchFvIK+2pd0FFxF 03cm3Ne7YCbT7gKYMeqog+g4ZeS9C6X1Tj4cIViO6ezMezn8OnuWD5v0Q+QMBHM8oUUP Tr8zzGl2mnDyt3Pe3qHR/tEsYfN14kvOTq3DnUHmRmopX/1tc6H7jYecIIphWS+J/Ijp Sc1KNrLYQvvmNZXXPQyr3Qi2aQPMSdvlkoOnfJE7zR6O65tIsoK0PbM7S7Sgj73wZTwh 1IyavWlHDMGeOhtP6xg3HsKxWtXAeyX0dQCkqVieyLMVbUQY7t4GDwH9c5ViEgb6Iw5n WRqQ== X-Gm-Message-State: APjAAAW/zQxyTCQiaTIl6osl765JHkbp+mUeACEdMTTw/OgcuemvuAlT P6pI3+UbSIg+OubndzfP+Z4= X-Google-Smtp-Source: APXvYqyC2nUquXKiuJs/stHa/UdNYQfCv0qhvwNe4SNDvRr7SB08JSG1ss2ZViokIvctTrNYJKLlXw== X-Received: by 2002:a0c:ed2e:: with SMTP id u14mr21753434qvq.119.1573431104230; Sun, 10 Nov 2019 16:11:44 -0800 (PST) Received: from [192.168.1.202] (pool-108-20-30-136.bstnma.fios.verizon.net. [108.20.30.136]) by smtp.googlemail.com with ESMTPSA id u27sm8456932qtj.5.2019.11.10.16.11.42 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 10 Nov 2019 16:11:43 -0800 (PST) Subject: Re: bug#28878: CEDET merge bug To: Stefan Kangas <stefan@HIDDEN>, Edward Steere <edward.steere@HIDDEN> References: <m24lqxlinm.fsf@HIDDEN> <877evtwlse.fsf@HIDDEN> <CAMz5G5_D6eRe4HBDZnTQMccmNgNqUiAMXq7WQLHh_SzUhG4dyg@HIDDEN> <871sm0wl6m.fsf@HIDDEN> <CAMz5G58aJaCrdxV7LfJYVnjN6-PFe+h608F9t73q_xZ8omHV+w@HIDDEN> <87fuadwo2g.fsf@HIDDEN> <87o8xnuhr3.fsf@HIDDEN> <9358B626-B5C3-4796-A4F8-9447422C16EB@HIDDEN> <CADwFkm=79V1tgg9mdhwg=z+V_GEtmeGXn5Sh1T7gOgoPT_C9ig@HIDDEN> From: Eric Ludlam <ericludlam@HIDDEN> Message-ID: <9c93fa1a-69fc-fbfd-9d83-a31e33a82c80@HIDDEN> Date: Sun, 10 Nov 2019 19:11:42 -0500 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.9.0 MIME-Version: 1.0 In-Reply-To: <CADwFkm=79V1tgg9mdhwg=z+V_GEtmeGXn5Sh1T7gOgoPT_C9ig@HIDDEN> Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit Content-Language: en-US X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 23792 Cc: David Engster <david@HIDDEN>, "Charles A. Roelli" <charles@HIDDEN>, 28878 <at> debbugs.gnu.org, 23792 <at> debbugs.gnu.org, Stefan Monnier <monnier@HIDDEN>, "Eric M. Ludlam" <zappo@HIDDEN> X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) On 11/10/19 4:07 PM, Stefan Kangas wrote: > Edward Steere <edward.steere@HIDDEN> writes: > >> I don’t think that the merge was ever completed. >> >> Unfortunately, I think that I bit off more than I could chew when I tried to help out with this one. >> I feel that my involvement with the CEDET project was too shallow to really understand how to merge it properly. >> >> There's been some added drift between the CEDET project and core since those efforts. >> The drift is largely because of maintenance and API improvements to things like EIEIO. >> >> I'd be happy to assist in some capacity with the merge, but I certainly don’t feel comfortable spear heading it. > Thanks for reporting back. I don't really have much to add since I > don't use CEDET myself. Let's hope that someone else picks up the > ball here. > > Copying in Eric Ludlam into the conversation as the listed maintainer of CEDET. Thanks for the note. I haven't been updating CEDET on sourceforge as these merges seem to be a problem, and the SF version can't run on newer versions of Emacs. If there are puzzles around the merge done so far I can look at them, but I don't have commit privileges for Emacs, nor particularly deep git skills. I recently posted patches to bring over a large swatch of CEDET tests, plus a few small fixes from SF to make them run, which Stefan pushed for me. That could complicate the merge. Eric
bug-gnu-emacs@HIDDEN:bug#23792; Package emacs.
Full text available.Received: (at 23792) by debbugs.gnu.org; 10 Nov 2019 21:08:12 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Sun Nov 10 16:08:11 2019 Received: from localhost ([127.0.0.1]:52672 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1iTuRP-0003hu-NI for submit <at> debbugs.gnu.org; Sun, 10 Nov 2019 16:08:11 -0500 Received: from mail-pg1-f181.google.com ([209.85.215.181]:46388) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <stefankangas@HIDDEN>) id 1iTuRK-0003hJ-4p; Sun, 10 Nov 2019 16:08:06 -0500 Received: by mail-pg1-f181.google.com with SMTP id r18so7987865pgu.13; Sun, 10 Nov 2019 13:08:06 -0800 (PST) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc:content-transfer-encoding; bh=KE8FsPTQiQQcgvaTpirMAiHGByoVRSvejsHCamB9IL4=; b=pMUH3IyvonUlMS6jNhv78pEhEskOF9xajJQHXYeNa1PYOX6CuF456hrA2W/YasGa9f 3LGt2l4YM8FHvTpulFuOvu3BS3DgzkxawxnJbOEP9WxVglviRZguVvuxljwJyJdxlJo8 73IzS0bU9zex49vmNSppOAq6lrz46Pi0RTTHSDJzPmtYZSu9Qj05G/vqWXDVuNVDKcRb zgdx0logQjY+0o+kqdi+99D+BFnNVlvvWNMANSp+HlK6rXdAAGLXc8o+WpKlJwZUJ0Xj B+xf7+XFp9rBFRkQtZT8yMlPeAy0F8uJYSvBQyWphXPIEIG6mkMhv8hixgA3GUEdwhVa op9g== X-Gm-Message-State: APjAAAWlDRP2DjialJa1nULL1So4dhtKdTZbPdVaPvSIcgt/Zi2hpb+e xgCJ5sxTfyzcRK+5DrKW+AD1Sc7lAN9YWSr9fcY= X-Google-Smtp-Source: APXvYqwlB9Tsj04SiVqXOiqcwtbQhpzDAfHSLXGul/yPDgwyHBYSVwImwLPKsE9NBpfRy3XW51iVSUKeXY+f1nU27OM= X-Received: by 2002:a63:7015:: with SMTP id l21mr23073018pgc.200.1573420080326; Sun, 10 Nov 2019 13:08:00 -0800 (PST) MIME-Version: 1.0 References: <m24lqxlinm.fsf@HIDDEN> <877evtwlse.fsf@HIDDEN> <CAMz5G5_D6eRe4HBDZnTQMccmNgNqUiAMXq7WQLHh_SzUhG4dyg@HIDDEN> <871sm0wl6m.fsf@HIDDEN> <CAMz5G58aJaCrdxV7LfJYVnjN6-PFe+h608F9t73q_xZ8omHV+w@HIDDEN> <87fuadwo2g.fsf@HIDDEN> <87o8xnuhr3.fsf@HIDDEN> <9358B626-B5C3-4796-A4F8-9447422C16EB@HIDDEN> In-Reply-To: <9358B626-B5C3-4796-A4F8-9447422C16EB@HIDDEN> From: Stefan Kangas <stefan@HIDDEN> Date: Sun, 10 Nov 2019 22:07:49 +0100 Message-ID: <CADwFkm=79V1tgg9mdhwg=z+V_GEtmeGXn5Sh1T7gOgoPT_C9ig@HIDDEN> Subject: Re: bug#28878: CEDET merge bug To: Edward Steere <edward.steere@HIDDEN> Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: 23792 Cc: David Engster <david@HIDDEN>, "Charles A. Roelli" <charles@HIDDEN>, 28878 <at> debbugs.gnu.org, 23792 <at> debbugs.gnu.org, Stefan Monnier <monnier@HIDDEN>, "Eric M. Ludlam" <zappo@HIDDEN> X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -0.7 (/) Edward Steere <edward.steere@HIDDEN> writes: > I don=E2=80=99t think that the merge was ever completed. > > Unfortunately, I think that I bit off more than I could chew when I tried= to help out with this one. > I feel that my involvement with the CEDET project was too shallow to real= ly understand how to merge it properly. > > There's been some added drift between the CEDET project and core since th= ose efforts. > The drift is largely because of maintenance and API improvements to thing= s like EIEIO. > > I'd be happy to assist in some capacity with the merge, but I certainly d= on=E2=80=99t feel comfortable spear heading it. Thanks for reporting back. I don't really have much to add since I don't use CEDET myself. Let's hope that someone else picks up the ball here. Copying in Eric Ludlam into the conversation as the listed maintainer of CE= DET. Best regards, Stefan Kangas
bug-gnu-emacs@HIDDEN:bug#23792; Package emacs.
Full text available.Received: (at 23792) by debbugs.gnu.org; 10 Nov 2019 07:51:51 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Sun Nov 10 02:51:51 2019 Received: from localhost ([127.0.0.1]:50579 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1iTi0l-0005lu-9C for submit <at> debbugs.gnu.org; Sun, 10 Nov 2019 02:51:51 -0500 Received: from mail-lj1-f195.google.com ([209.85.208.195]:40718) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <edward.steere@HIDDEN>) id 1iTi0i-0005ld-HQ; Sun, 10 Nov 2019 02:51:49 -0500 Received: by mail-lj1-f195.google.com with SMTP id q2so10485357ljg.7; Sat, 09 Nov 2019 23:51:48 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:subject:from:in-reply-to:date:cc :content-transfer-encoding:message-id:references:to; bh=qPA8Kzu74UA5hWGLrtyNUaog3DT7aSLAvTdJHxgEQIg=; b=cgRZ8+HSGHg+6eqZ6VK4xDfYf4LlOCw6I97m9CI04fQr/0qMMAf+BxCnExLIwUrJhu Rm7t/GIwarjq9NRGxvAEVj2Ck4eg0NOCJR7Me/vTeVUGdOhjJWJqvZ4AEPRn15+yB+q5 6Uk5oY5oP6K0ONW4pRT0Y3qzu/1PHhhVp7b35UE4/eSwOcpFZDkK+GIN7XWBUU8A/LhT l/l/CzmHBLs1bRO8/5+SZwGJATnS7h0qmd3Iuul5k+4YbvBJh5EHFoTW2StqLV7JnQYI ndkvpFikYAHXY3uOguTXcgb0xg7SlpS7aaOjXfIGPGo4p3uNFBbX9bfe7khxUm40JBo4 h20w== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:subject:from:in-reply-to:date:cc :content-transfer-encoding:message-id:references:to; bh=qPA8Kzu74UA5hWGLrtyNUaog3DT7aSLAvTdJHxgEQIg=; b=prZfXf10cGNt8NAgVK8yMvxlPfXM1R0sciqyCO/A61Nmu7KYNJng6qOdr6EIQ+YtdS WHPCC7y9KzkvZP+rHuAbbOqoAuedFEHw/giq/kXJ0j2LNr6ecLtS0u78aWquYLd7uR3O ApyfizWs3zpY9Gb2Iym/L1hLQevt/9xvP+IuccZ6zy12fXNuZDJtbBUzBpxiSglEzCte 8Kd7DW2Hw5p6HtK9DpyPnQI1IKOUNehKhGOM08rZgWUde/8sIa6nj1vET3S1e436FrmV /Nnu1kKyx5wbHwkyB8d5s1yanBpHOJRoXiFlES5fwN3vYjXTgwWYEZAOCcL2tYb8NFo/ s/gw== X-Gm-Message-State: APjAAAUyk3i8urnFh33A+v7nMLBnn4S/x/V/8N6sDYUf66rVSGEkvj3S TKpSegVJOkeqG108BM/b4rs= X-Google-Smtp-Source: APXvYqw+94lJ68ua1TYAt+7U4JS7G7K8/SuxPWHysMtvPh/hYHoYO8Yir0TX7Z8Ecr04719kd2s6Qg== X-Received: by 2002:a2e:7c10:: with SMTP id x16mr12383557ljc.120.1573372302482; Sat, 09 Nov 2019 23:51:42 -0800 (PST) Received: from [10.5.53.106] ([165.16.176.234]) by smtp.gmail.com with ESMTPSA id k9sm5913149lfj.97.2019.11.09.23.51.39 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 09 Nov 2019 23:51:42 -0800 (PST) Content-Type: text/plain; charset=utf-8 Mime-Version: 1.0 (Mac OS X Mail 12.4 \(3445.104.11\)) Subject: Re: bug#28878: CEDET merge bug From: Edward Steere <edward.steere@HIDDEN> In-Reply-To: <87o8xnuhr3.fsf@HIDDEN> Date: Sun, 10 Nov 2019 09:48:23 +0200 Content-Transfer-Encoding: quoted-printable Message-Id: <9358B626-B5C3-4796-A4F8-9447422C16EB@HIDDEN> References: <m24lqxlinm.fsf@HIDDEN> <877evtwlse.fsf@HIDDEN> <CAMz5G5_D6eRe4HBDZnTQMccmNgNqUiAMXq7WQLHh_SzUhG4dyg@HIDDEN> <871sm0wl6m.fsf@HIDDEN> <CAMz5G58aJaCrdxV7LfJYVnjN6-PFe+h608F9t73q_xZ8omHV+w@HIDDEN> <87fuadwo2g.fsf@HIDDEN> <87o8xnuhr3.fsf@HIDDEN> To: Stefan Kangas <stefan@HIDDEN> X-Mailer: Apple Mail (2.3445.104.11) X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 23792 Cc: "Charles A. Roelli" <charles@HIDDEN>, David Engster <david@HIDDEN>, 28878 <at> debbugs.gnu.org, 23792 <at> debbugs.gnu.org X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) Hi all, Thanks for surfacing this one again Stefan. I don=E2=80=99t think that the merge was ever completed. Unfortunately, I think that I bit off more than I could chew when I = tried to help out with this one. I feel that my involvement with the CEDET project was too shallow to = really understand how to merge it properly. There's been some added drift between the CEDET project and core since = those efforts. The drift is largely because of maintenance and API improvements to = things like EIEIO. I'd be happy to assist in some capacity with the merge, but I certainly = don=E2=80=99t feel comfortable spear heading it. Kind regards, Edward Steere > On 08 Nov 2019, at 06:14, Stefan Kangas <stefan@HIDDEN> wrote: >=20 > David Engster <david@HIDDEN> writes: >=20 >> Edward Steere writes: >>> I count 165 commits since the last merge when I look at cedet.git >>> and I only see 49 commits in emacs.git from your work on the >>> merge. What about the other 116 commits? >>=20 >> I dropped all commits that did not concern the subset of CEDET that = is >> in Emacs proper. It is entirely possible of course that I made a = mistake >> here or there; it'd be nice if someone could check. >>=20 >> -David >=20 > That was 3 years ago. What's the current status of this merge -- has > it been completed? >=20 > Best regards, > Stefan Kangas
bug-gnu-emacs@HIDDEN:bug#23792; Package emacs.
Full text available.Received: (at 23792) by debbugs.gnu.org; 8 Nov 2019 04:14:38 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Thu Nov 07 23:14:38 2019 Received: from localhost ([127.0.0.1]:44385 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1iSvfR-0008Sv-S3 for submit <at> debbugs.gnu.org; Thu, 07 Nov 2019 23:14:38 -0500 Received: from host.gofardesign.uk ([208.79.239.190]:34732) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <stefan@HIDDEN>) id 1iSvfP-0008SV-7B; Thu, 07 Nov 2019 23:14:36 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=marxist.se; s=default; h=Content-Transfer-Encoding:Content-Type:MIME-Version:Message-ID: Date:References:In-Reply-To:Subject:Cc:To:From:Sender:Reply-To:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=1hh3fsVKWRAZt83sx6NAl/KifSQbzQajXOkJAx6RrmE=; b=dcVaOQMzBh2PeDWo9Z/KnzQg0a 4VmxYrxcuFCqzORBPLvgQQzVNq7qLK8+gcA43pYQ3UtI4FyX1c1IAfbdEfC8eTmXYn50AcQ/pGQ8Y KMjDr2IxY9KxnsXQ9ZfvDxhTk/LG7+27o1SJoF2porvHENmqvM+iwkw7uzWUo39LzEts=; Received: from h-70-69.a785.priv.bahnhof.se ([155.4.70.69]:34574 helo=localhost) by host.gofardesign.uk with esmtpsa (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.92) (envelope-from <stefan@HIDDEN>) id 1iSvfG-0001iq-Dy; Thu, 07 Nov 2019 22:14:26 -0600 From: Stefan Kangas <stefan@HIDDEN> To: David Engster <david@HIDDEN> Subject: Re: bug#28878: CEDET merge bug In-Reply-To: <87fuadwo2g.fsf@HIDDEN> (David Engster's message of "Fri, 20 Oct 2017 22:40:07 +0200") References: <m24lqxlinm.fsf@HIDDEN> <877evtwlse.fsf@HIDDEN> <CAMz5G5_D6eRe4HBDZnTQMccmNgNqUiAMXq7WQLHh_SzUhG4dyg@HIDDEN> <871sm0wl6m.fsf@HIDDEN> <CAMz5G58aJaCrdxV7LfJYVnjN6-PFe+h608F9t73q_xZ8omHV+w@HIDDEN> <87fuadwo2g.fsf@HIDDEN> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) Date: Fri, 08 Nov 2019 05:14:24 +0100 Message-ID: <87o8xnuhr3.fsf@HIDDEN> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-OutGoing-Spam-Status: No, score=-1.0 X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - host.gofardesign.uk X-AntiAbuse: Original Domain - debbugs.gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - marxist.se X-Get-Message-Sender-Via: host.gofardesign.uk: authenticated_id: stefan@HIDDEN X-Authenticated-Sender: host.gofardesign.uk: stefan@HIDDEN X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 23792 Cc: "Charles A. Roelli" <charles@HIDDEN>, Edward Steere <edward.steere@HIDDEN>, 28878 <at> debbugs.gnu.org, 23792 <at> debbugs.gnu.org X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) David Engster <david@HIDDEN> writes: > Edward Steere writes: >> I count 165 commits since the last merge when I look at cedet.git >> and I only see 49 commits in emacs.git from your work on the >> merge.=C2=A0 What about the other 116 commits? > > I dropped all commits that did not concern the subset of CEDET that is > in Emacs proper. It is entirely possible of course that I made a mistake > here or there; it'd be nice if someone could check. > > -David That was 3 years ago. What's the current status of this merge -- has it been completed? Best regards, Stefan Kangas
bug-gnu-emacs@HIDDEN:bug#23792; Package emacs.
Full text available.Noam Postavsky <npostavs@HIDDEN>
to control <at> debbugs.gnu.org.
Full text available.npostavs@HIDDEN
to control <at> debbugs.gnu.org.
Full text available.npostavs@HIDDEN
to control <at> debbugs.gnu.org.
Full text available.
Received: (at submit) by debbugs.gnu.org; 18 Jun 2016 10:20:29 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sat Jun 18 06:20:29 2016
Received: from localhost ([127.0.0.1]:44809 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1bEDMZ-0002so-Ka
for submit <at> debbugs.gnu.org; Sat, 18 Jun 2016 06:20:29 -0400
Received: from eggs.gnu.org ([208.118.235.92]:49699)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <bastian.beischer@HIDDEN>) id 1bEDMV-0002sX-Uf
for submit <at> debbugs.gnu.org; Sat, 18 Jun 2016 06:20:26 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
(envelope-from <bastian.beischer@HIDDEN>) id 1bEDMK-0000Ja-2N
for submit <at> debbugs.gnu.org; Sat, 18 Jun 2016 06:20:18 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level:
X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,FREEMAIL_FROM,
T_DKIM_INVALID autolearn=disabled version=3.3.2
Received: from lists.gnu.org ([2001:4830:134:3::11]:46819)
by eggs.gnu.org with esmtp (Exim 4.71)
(envelope-from <bastian.beischer@HIDDEN>) id 1bEDMJ-0000JL-TB
for submit <at> debbugs.gnu.org; Sat, 18 Jun 2016 06:20:11 -0400
Received: from eggs.gnu.org ([2001:4830:134:3::10]:40633)
by lists.gnu.org with esmtp (Exim 4.71)
(envelope-from <bastian.beischer@HIDDEN>) id 1bEDMA-0005Xy-IR
for bug-gnu-emacs@HIDDEN; Sat, 18 Jun 2016 06:20:10 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
(envelope-from <bastian.beischer@HIDDEN>) id 1bEDM3-0000E5-7y
for bug-gnu-emacs@HIDDEN; Sat, 18 Jun 2016 06:20:01 -0400
Received: from mail-wm0-x22b.google.com ([2a00:1450:400c:c09::22b]:37458)
by eggs.gnu.org with esmtp (Exim 4.71)
(envelope-from <bastian.beischer@HIDDEN>) id 1bEDM2-0000Dz-JC
for bug-gnu-emacs@HIDDEN; Sat, 18 Jun 2016 06:19:55 -0400
Received: by mail-wm0-x22b.google.com with SMTP id a66so17752053wme.0
for <bug-gnu-emacs@HIDDEN>; Sat, 18 Jun 2016 03:19:54 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;
h=from:to:subject:date:message-id:mime-version;
bh=XmvtzlFw/PvuK+aGPKOIs1eY7+mjZmalY5GLm1a+7Rk=;
b=J8VIFfp8a+xSZfz+G9M++/vONJbIyMcZ1bK4IbLGl2vk493nWcSwkch/78/vWKhuj5
jPzuNkqZ+pYSIHj62oWwTtm0n2jXRhiyOX42lCQPOtuZ0qPJji/HAI4ztvdkHys25Wk8
GQ85yaoxc9+W2XZcpjZx6/GWMVlONXmmG58bRxc1ykn3QQABv3UK+niUSTxIvKzuHPV3
d16rJcD56+4umDK3rlynfCIqPE5Yu9gHfvM033eOMq93cLPZzlHSkYDm5KcWdp5QXPLK
pXXdN+lxp7mXE4GBW1BDsuiMgyjuEcwllZSOoUZAkI/OnMBQI0dpYHBn2KE0BnLQ1zdt
AJEg==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=1e100.net; s=20130820;
h=x-gm-message-state:from:to:subject:date:message-id:mime-version;
bh=XmvtzlFw/PvuK+aGPKOIs1eY7+mjZmalY5GLm1a+7Rk=;
b=FtF2cIov6LbibDiE39PVrLZ863ex/KSu3wh84v8gcc6mRJJuW153pa1EeMws1PLrBP
wwV4JuScVE+Kq1rsB64YI3IabNQsnNmeno5Zbu+Eqo+F43dDKHBO4qoquc3t/CCaBCvx
3bOTQJYI9vzVLnpNkkiU6kuG5RHxPOipAuVE5nCBDhcnQWxCoefS3MTcnV6LLfU7zsQC
e5CphDCTDj6DnfOZKinmO+e3BBJZ8Pc/28/+cUVk4pVZ6JvD2B4FdKJP3N0a8NIPy6d6
QlfNr/TXuLFcjMGyO06xE6QvHall8889xAOHzTQ1aqg+81I/j8OBzHKew45gbwvabJx6
WGDQ==
X-Gm-Message-State: ALyK8tIqm4uQQbF/rz8dVwgfSU2n6OHXR1cmVA7IRuyMkj5QJ6o7b0YyyktIVulYXYDtuQ==
X-Received: by 10.194.11.5 with SMTP id m5mr6013612wjb.119.1466245193489;
Sat, 18 Jun 2016 03:19:53 -0700 (PDT)
Received: from bastian-desktop.gmail.com (b2b-130-180-23-226.unitymedia.biz.
[130.180.23.226])
by smtp.gmail.com with ESMTPSA id c4sm53184363wjm.24.2016.06.18.03.19.51
(version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256);
Sat, 18 Jun 2016 03:19:52 -0700 (PDT)
From: Bastian Beischer <bastian.beischer@HIDDEN>
To: bug-gnu-emacs@HIDDEN,cedet-devel@HIDDEN
Subject: 25.0.95; CEDET included in Emacs should be merged with upstream
Date: Sat, 18 Jun 2016 12:19:42 +0200
Message-ID: <87bn2yn6ip.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
X-Received-From: 2001:4830:134:3::11
X-Spam-Score: -4.0 (----)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -4.0 (----)
--=-=-=
Content-Type: text/plain
Dear all,
This is a bug report for GNU Emacs, but I've cc'ed the CEDET devel
mailing list.
It appears that the development of CEDET inside Emacs and the upstream
development have diverged. There are various important fixes on both
sides and it is non trivial for me to port fixes in CEDET inside Emacs
to the upstream code or vice versa. Neither version is usable for me.
I find this rather frustratring so I would really love to see the code
synchronized once more. I think it would also be a good idea to work out
a forward plan: How can we avoid this kind of divergence in the future?
There's been some related talk on the CEDET devel mailing list recently:
https://sourceforge.net/p/cedet/mailman/cedet-devel/thread/1465745082.2627.29.camel%40yahoo.co.uk/#msg35153903
Anyway, I tried to port the fixes in the CEDET git repository:
http://git.code.sf.net/p/cedet/git
Since this commit:
commit 28ea46d99ee2ac35c3752511052bcd02b25a088b
Merge: 7c55a5e df226b6
Author: David Engster <dengste@HIDDEN>
Date: Sun Nov 9 21:23:30 2014 +0100
Merge from Emacs.
(which appears to be the point when the repos where last synchronized)
to the Emacs sources. The patch I came up with (attached!) is
_incomplete_ - it does not work yet, but maybe it's a start?! Note that
I really don't know well enough what I'm doing, which is why I'm asking
for help here. Hope we can work this out together :-)
Cheers
Bastian
--=-=-=
Content-Type: text/x-diff
Content-Disposition: inline; filename=cedet.patch
Content-Description: Patch for CEDET in Emacs 25
diff --git a/admin/grammars/c.by b/admin/grammars/c.by
index be41bd8..1d78a3e 100644
--- a/admin/grammars/c.by
+++ b/admin/grammars/c.by
@@ -94,6 +94,7 @@
%put STATIC summary "Declaration Modifier: static <type> <name> ..."
%token CONST "const"
%put CONST summary "Declaration Modifier: const <type> <name> ..."
+%token CONSTEXPR "constexpr"
%token VOLATILE "volatile"
%put VOLATILE summary "Declaration Modifier: volatile <type> <name> ..."
%token REGISTER "register"
@@ -117,7 +118,7 @@
%token UNION "union"
%put UNION summary "Union Type Declaration: union [name] { ... };"
%token ENUM "enum"
-%put ENUM summary "Enumeration Type Declaration: enum [name] { ... };"
+%put ENUM summary "Enumeration Type Declaration: enum [name] [: type] { ... };"
%token TYPEDEF "typedef"
%put TYPEDEF summary "Arbitrary Type Declaration: typedef <typedeclaration> <name>;"
%token CLASS "class"
@@ -143,9 +144,14 @@
%put THROW summary "<type> <methoddef> (<method args>) throw (<exception>) ..."
%token REENTRANT "reentrant"
%put REENTRANT summary "<type> <methoddef> (<method args>) reentrant ..."
+%token OVERRIDE "override"
+%put OVERRIDE summary "<type> <methoddef> (<method args>) override ..."
+%token FINAL "final"
+%put FINAL summary "<type> <methoddef> (<method args>) final ..."
%token TRY "try"
%token CATCH "catch"
%put { TRY CATCH } summary "try { <body> } catch { <catch code> }"
+%token NOEXCEPT "noexcept"
;; Leave these alone for now.
%token OPERATOR "operator"
@@ -240,20 +246,24 @@ extern-c-contents
;
extern-c
- : EXTERN C semantic-list
+ : EXTERN c-or-cpp opt-extern-c-contents
;; Extern C commands which contain a list need to have the
;; entries of the list extracted, and spliced into the main
;; list of entries. This must be done via the function
;; that expands singular nonterminals, such as int x,y;
- (TAG "C" 'extern :members (EXPANDFULL $3 extern-c-contents) )
- | EXTERN CPP semantic-list
- (TAG "C" 'extern :members (EXPANDFULL $3 extern-c-contents) )
- | EXTERN C
- ;; A plain extern "C" call should add something to the token,
- ;; but just strip it from the buffer here for now.
- ( nil )
- | EXTERN CPP
- ( nil )
+ (TAG (car $2) 'extern :members $3)
+ ;
+
+c-or-cpp
+ : C
+ | CPP
+ ;
+
+opt-extern-c-contents
+ : semantic-list
+ (EXPANDFULL $1 extern-c-contents)
+ | ;; EMPTY
+ ()
;
macro
@@ -309,10 +319,14 @@ classsubparts
;; For QT, they may put a `slot' keyword between the protection
;; and the COLON. @todo - Have the QT stuff use macros.
(TAG (car $1) 'label)
+ | FRIEND symbol SEMICOLON
+ ;; Like class, but w/out the CLASS symbol. Add this to avoid
+ ;; it being detected as a variable with undeclared int type.
+ (TAG $2 'friend)
| var-or-fun
- | FRIEND func-decl
+ | FRIEND func-decl SEMICOLON
(TAG (car $2) 'friend)
- | FRIEND CLASS symbol
+ | FRIEND CLASS symbol SEMICOLON
(TAG $3 'friend)
| type
| define
@@ -411,27 +425,29 @@ opt-name
( "" )
;
+opt-enum-type
+ : COLON typeformbase
+ ( ,$2 )
+ | ;; EMPTY
+ ;
+
typesimple
: struct-or-class opt-class opt-name opt-template-specifier
- opt-class-parents semantic-list
+ opt-class-parents typesimple-opt-subparts
(TYPE-TAG (car $3) (car $1)
- (let ((semantic-c-classname (cons (car ,$3) (car ,$1))))
- (EXPANDFULL $6 classsubparts))
- $5
- :template-specifier $4
- :parent (car ,$2))
- | struct-or-class opt-class opt-name opt-template-specifier
- opt-class-parents
- (TYPE-TAG (car $3) (car $1) nil $5
- :template-specifier $4
- :prototype t
- :parent (car ,$2))
+ (let ((semantic-c-classname (cons (car ,$3) (car ,$1))))
+ (when $6 (EXPANDFULL (car $6) classsubparts)))
+ $5
+ :template-specifier $4
+ :prototype (not (car $6))
+ :parent (car ,$2))
| UNION opt-class opt-name unionparts
(TYPE-TAG (car $3) $1 $4 nil
:parent (car ,$2))
- | ENUM opt-class opt-name enumparts
- (TYPE-TAG (car $3) $1 $4 nil
- :parent (car ,$2))
+ | ENUM opt-class opt-name opt-enum-type enumparts
+ (TYPE-TAG (car $3) $1 $5 nil
+ :parent (car ,$2)
+ :enum-type (car ,$4))
;; Klaus Berndl: a typedef can be a typeformbase with all this
;; declmods stuff.
| TYPEDEF declmods typeformbase cv-declmods typedef-symbol-list
@@ -440,18 +456,29 @@ typesimple
(TYPE-TAG $5 $1 nil (list $3) )
;
-typedef-symbol-list
- : typedefname COMA typedef-symbol-list
- ( ,(cons $1 $3) )
- | typedefname
+typesimple-opt-subparts
+ : semantic-list
( $1 )
+ | ;; EMPTY
+ ()
+ ;
+
+typedef-symbol-list
+ : typedefname typedef-symbol-list-opt-comma
+ ( ,(cons $1 $2) )
+ ;
+
+typedef-symbol-list-opt-comma
+ : COMA typedef-symbol-list
+ ( ,$2 )
+ | ;; EMPTY
;
;; TODO: Klaus Berndl: symbol -> namespace-symbol?! Answer: Probably
;; symbol is correct here!
typedefname
- : opt-stars symbol opt-bits opt-array
- ( $1 $2 )
+ : opt-stars opt-ref symbol opt-bits opt-array
+ ( $1 $2 $3 )
;
struct-or-class
@@ -462,15 +489,20 @@ struct-or-class
type
: typesimple SEMICOLON
( ,$1 )
+ | NAMESPACE type-namespace
+ ( ,$2 )
+ ;
+
+type-namespace
;; named namespaces like "namespace XXX {"
- | NAMESPACE symbol namespaceparts
- (TYPE-TAG $2 $1 $3 nil )
+ : symbol namespaceparts
+ (TYPE-TAG $1 "namespace" $2 nil )
;; unnamed namespaces like "namespace {"
- | NAMESPACE namespaceparts
- (TYPE-TAG "unnamed" $1 $2 nil )
+ | namespaceparts
+ (TYPE-TAG "unnamed" "namespace" $1 nil )
;; David Engster: namespace alias like "namespace foo = bar;"
- | NAMESPACE symbol EQUAL typeformbase SEMICOLON
- (TYPE-TAG $2 $1 (list (TYPE-TAG (car $4) $1 nil nil)) nil :kind 'alias )
+ | symbol EQUAL typeformbase SEMICOLON
+ (TYPE-TAG $1 "namespace" (list (TYPE-TAG (car $3) "namespace" nil nil)) nil :kind 'alias )
;
;; Klaus Berndl: We must parse "using namespace XXX" too
@@ -628,8 +660,6 @@ STARMOD
declmods
: DECLMOD declmods
( ,(cons ,(car ,$1) $2 ) )
- | DECLMOD
- ( ,$1 )
| ;;EMPTY
()
;
@@ -663,6 +693,7 @@ metadeclmod
CVDECLMOD
: CONST
+ | CONSTEXPR
| VOLATILE
;
@@ -678,6 +709,7 @@ cv-declmods
METADECLMOD
: VIRTUAL
| MUTABLE
+ | EXPLICIT
;
;; C++: A type can be modified into a reference by "&"
@@ -699,11 +731,7 @@ typeformbase
(TYPE-TAG $2 $1 nil nil )
| builtintype
( ,$1 )
- | symbol template-specifier
- (TYPE-TAG $1 "class" nil nil :template-specifier $2)
- ;;| namespace-symbol opt-stars opt-template-specifier
- ;;| namespace-symbol opt-template-specifier
- | namespace-symbol-for-typeformbase opt-template-specifier
+ | namespace-symbol opt-template-specifier
(TYPE-TAG (car $1) "class" nil nil
:template-specifier $2)
| symbol
@@ -843,6 +871,9 @@ opt-post-fcn-modifiers
post-fcn-modifiers
: REENTRANT
| CONST
+ | OVERRIDE
+ | FINAL
+ | NOEXCEPT
;
opt-throw
@@ -930,10 +961,15 @@ varname-opt-initializer
;
varnamelist
- : opt-ref varname varname-opt-initializer COMA varnamelist
- ( ,(cons (append $2 $3) $5) )
- | opt-ref varname varname-opt-initializer
- ( (append $2 $3) )
+ : opt-ref varname varname-opt-initializer opt-varnamelist-more
+ ( ,(cons (append $2 $3) (car $4) ))
+ ;
+
+opt-varnamelist-more
+ : COMA varnamelist
+ ( $2 )
+ | ;; EMPTY
+ ()
;
;; Klaus Berndl: Is necessary to parse stuff like
@@ -944,26 +980,18 @@ varnamelist
;; symbol<template-spec>::symbol1<template-spec1>::test_iterator
;; but better parsing too much than to less
namespace-symbol
- : symbol opt-template-specifier COLON COLON namespace-symbol
- ( (concat $1 "::" (car $5)) )
- | symbol opt-template-specifier
+ : symbol opt-template-specifier opt-namespace-symbol-more
+ ( (concat $1 (car $3) ) )
+ ;; Don't accept template specifiers at the end.
+ | symbol
( $1 )
;
-;; Don't pull an optional template specifier at the end of the
-;; namespace symbol so that it can be picked up by the type.
-namespace-symbol-for-typeformbase
- : symbol opt-template-specifier COLON COLON namespace-symbol-for-typeformbase
- ( (concat $1 "::" (car $5)) )
- | symbol
- ( $1 )
+opt-namespace-symbol-more
+ : COLON COLON namespace-symbol
+ ( (concat "::" (car $3)) )
;
-;; namespace-symbol
-;; : symbol COLON COLON namespace-symbol
-;; ( (concat $1 "::" (car $4)) )
-;; | symbol
-;; ( $1 )
-;; ;
+
namespace-opt-class
: symbol COLON COLON namespace-opt-class
@@ -1191,6 +1219,7 @@ expr-start
| PLUS
| STAR
| AMPERSAND
+ | ;; EMPTY
;
expr-binop
@@ -1209,12 +1238,14 @@ expr-binop
;; Use expression for parsing only. Don't actually return anything
;; for now. Hopefully we can fix this later.
expression
- : unaryexpression QUESTION unaryexpression COLON unaryexpression
- ( (identity start) (identity end) )
- | unaryexpression expr-binop unaryexpression
- ( (identity start) (identity end) )
- | unaryexpression
- ( (identity start) (identity end) )
+ : expr-start unaryexpression opt-more-expression
+ ( (identity start) (- end 1) )
+ ;
+
+opt-more-expression
+ : QUESTION unaryexpression COLON unaryexpression
+ | expr-binop unaryexpression
+ | ;; EMPTY
;
unaryexpression
@@ -1228,9 +1259,9 @@ unaryexpression
| string-seq
| type-cast expression ;; A cast to some other type
;; Casting the results of one expression to something else.
- | semantic-list expression
+ | semantic-list unaryexpression
| semantic-list
- | expr-start expression
+ ;;| expr-start expression
;
;;; c.by ends here
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index f013d43..bfa7c6a 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -63,6 +63,7 @@
(declare-function ede-toplevel-project "ede/files")
(declare-function ede-up-directory "ede/files")
(declare-function semantic-lex-make-spp-table "semantic/lex-spp")
+(declare-function ede-directory-project-cons "ede/files")
(defconst ede-version "2.0"
"Current version of the Emacs EDE.")
@@ -1096,22 +1097,6 @@ Flush the dead projects from the project cache."
(defvar ede--disable-inode) ;Defined in ede/files.el.
-(defun ede-global-list-sanity-check ()
- "Perform a sanity check to make sure there are no duplicate projects."
- (interactive)
- (let ((scanned nil))
- (dolist (P ede-projects)
- (if (member (oref P directory) scanned)
- (error "Duplicate project (by dir) found in %s!" (oref P directory))
- (push (oref P directory) scanned)))
- (unless ede--disable-inode
- (setq scanned nil)
- (dolist (P ede-projects)
- (if (member (ede--project-inode P) scanned)
- (error "Duplicate project (by inode) found in %s!" (ede--project-inode P))
- (push (ede--project-inode P) scanned))))
- (message "EDE by directory %sis still sane." (if ede--disable-inode "" "& inode "))))
-
(defun ede-load-project-file (dir &optional detectin rootreturn)
"Project file independent way to read a project in from DIR.
Optional DETECTIN is an autoload cons from `ede-detect-directory-for-project'
diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el
index 5b3befe..c9eea57 100644
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -63,74 +63,62 @@ location is varied dependent on other complex criteria, this class
can be used to define that match without loading the specific project
into memory.")
-(cl-defmethod ede-dirmatch-installed ((dirmatch ede-project-autoload-dirmatch))
- "Return non-nil if the tool DIRMATCH might match is installed on the system."
- (let ((fc (oref dirmatch fromconfig)))
-
- (cond
- ;; If the thing to match is stored in a config file.
- ((stringp fc)
- (file-exists-p fc))
-
- ;; Add new types of dirmatches here.
+(cl-defmethod ede-calc-fromconfig ((dirmatch ede-project-autoload-dirmatch))
+ "Calculate the value of :fromconfig from DIRMATCH."
+ (let* ((fc (oref dirmatch fromconfig))
+ (found (cond ((stringp fc) fc)
+ ((functionp fc) (funcall fc))
+ (t (error "Unknown dirmatch object match style.")))))
+ (expand-file-name found)
+ ))
- ;; Error for weird stuff
- (t (error "Unknown dirmatch type.")))))
+(cl-defmethod ede-dirmatch-installed ((dirmatch ede-project-autoload-dirmatch))
+ "Return non-nil if the tool DIRMATCH might match is installed on the system."
+ (file-exists-p (ede-calc-fromconfig dirmatch)))
(cl-defmethod ede-do-dirmatch ((dirmatch ede-project-autoload-dirmatch) file)
"Does DIRMATCH match the filename FILE."
- (let ((fc (oref dirmatch fromconfig)))
-
- (cond
- ;; If the thing to match is stored in a config file.
- ((stringp fc)
- (when (file-exists-p fc)
- (let ((matchstring
- (if (slot-boundp dirmatch 'configdatastash)
- (oref dirmatch configdatastash)
- nil)))
- (when (and (not matchstring) (not (slot-boundp dirmatch 'configdatastash)))
- (save-current-buffer
- (let* ((buff (get-file-buffer fc))
- (readbuff
- (let ((find-file-hook nil)) ;; Disable ede from recursing
- (find-file-noselect fc))))
- (set-buffer readbuff)
- (save-excursion
- (goto-char (point-min))
- (when (re-search-forward (oref dirmatch configregex) nil t)
- (setq matchstring
- (match-string (or (oref dirmatch configregexidx) 0)))))
- (if (not buff) (kill-buffer readbuff))))
- (when matchstring
- ;; If this dirmatch only finds subdirs of matchstring, then
- ;; force matchstring to be a directory.
- (when (oref dirmatch subdir-only)
- (setq matchstring (file-name-as-directory matchstring)))
- ;; Convert matchstring to a regexp
- (setq matchstring (concat "^" (regexp-quote matchstring)))
- ;; Stash it for later.
- (oset dirmatch configdatastash matchstring))
- ;; Debug
- ;;(message "Stashing config data for dirmatch %S as %S" (eieio-object-name dirmatch) matchstring)
- )
- ;;(message "dirmatch %s against %s" matchstring (expand-file-name file))
- ;; Match against our discovered string
- (setq file (file-name-as-directory (expand-file-name file)))
- (and matchstring (string-match matchstring (expand-file-name file))
- (or (not (oref dirmatch subdir-only))
- (not (= (match-end 0) (length file))))
- )
- )))
-
- ;; Add new matches here
- ;; ((stringp somenewslot ...)
- ;; )
-
- ;; Error if none others known
- (t
- (error "Unknown dirmatch object match style.")))
+ (let ((fc (ede-calc-fromconfig dirmatch)))
+
+ (when (file-exists-p fc)
+ (let ((matchstring
+ (if (slot-boundp dirmatch 'configdatastash)
+ (oref dirmatch configdatastash)
+ nil)))
+ (when (and (not matchstring) (not (slot-boundp dirmatch 'configdatastash)))
+ (save-current-buffer
+ (let* ((buff (get-file-buffer fc))
+ (readbuff
+ (let ((find-file-hook nil)) ;; Disable ede from recursing
+ (find-file-noselect fc))))
+ (set-buffer readbuff)
+ (save-excursion
+ (goto-char (point-min))
+ (when (re-search-forward (oref dirmatch configregex) nil t)
+ (setq matchstring
+ (match-string (or (oref dirmatch configregexidx) 0)))))
+ (if (not buff) (kill-buffer readbuff))))
+ (when matchstring
+ ;; If this dirmatch only finds subdirs of matchstring, then
+ ;; force matchstring to be a directory.
+ (when (oref dirmatch subdir-only)
+ (setq matchstring (file-name-as-directory matchstring)))
+ ;; Convert matchstring to a regexp
+ (setq matchstring (concat "^" (regexp-quote matchstring)))
+ ;; Stash it for later.
+ (oset dirmatch configdatastash matchstring))
+ ;; Debug
+ ;;(message "Stashing config data for dirmatch %S as %S" (eieio-object-name dirmatch) matchstring)
+ )
+ ;;(message "dirmatch %s against %s" matchstring (expand-file-name file))
+ ;; Match against our discovered string
+ (setq file (file-name-as-directory (expand-file-name file)))
+ (and matchstring (string-match matchstring (expand-file-name file))
+ (or (not (oref dirmatch subdir-only))
+ (not (= (match-end 0) (length file))))
+ )
+ ))
))
(declare-function ede-directory-safe-p "ede")
@@ -225,15 +213,8 @@ type is required and the load function used.")
(defun ede-show-supported-projects ()
"Display all the project types registered with EDE."
(interactive)
- (let ((b (get-buffer-create "*EDE Autodetect Projects*")))
- (set-buffer b)
- (setq buffer-read-only nil)
- (erase-buffer)
- (dolist (prj ede-project-class-files)
- (insert (oref prj name))
- (newline))
- (display-buffer b)
- ))
+ (data-debug-new-buffer (concat "*EDE Autodetect*"))
+ (data-debug-insert-stuff-list ede-project-class-files "* "))
(defun ede-add-project-autoload (projauto &optional flag)
"Add PROJAUTO, an EDE autoload definition to `ede-project-class-files'.
@@ -288,7 +269,7 @@ added. Possible values are:
(pf (oref this proj-file))
(f (when (stringp pf) (expand-file-name pf d))))
(if f
- (and f (file-exists-p f))
+ (file-exists-p f)
(let ((dirmatch (oref this proj-root-dirmatch)))
(cond
((stringp dirmatch)
diff --git a/lisp/cedet/ede/config.el b/lisp/cedet/ede/config.el
index a9042e5..a7ca80e 100644
--- a/lisp/cedet/ede/config.el
+++ b/lisp/cedet/ede/config.el
@@ -55,6 +55,11 @@
;;; Code:
(require 'ede)
+(require 'ede/shell)
+
+(declare-function semanticdb-file-table-object "semantic/db")
+(declare-function semanticdb-needs-refresh-p "semantic/db")
+(declare-function semanticdb-refresh-table "semantic/db")
;;; CONFIG
;;
@@ -401,7 +406,14 @@ the preprocessor map, and include paths.")
"Class to mix into a configuration for compilation.")
(defclass ede-project-with-config-java ()
- ()
+ ((classpath :initarg :classpath
+ :initform nil
+ :type list
+ :group java
+ :custom (repeat (string :tag "Classpath"))
+ :documentation
+ "The default classpath used within a project.
+ All files listed in the local path are full paths to files."))
"Class to mix into a project to support java.
This brings in methods to support Semantic querying the
java class path.")
diff --git a/lisp/cedet/ede/detect.el b/lisp/cedet/ede/detect.el
index 2b92fc1..392b187 100644
--- a/lisp/cedet/ede/detect.el
+++ b/lisp/cedet/ede/detect.el
@@ -35,15 +35,10 @@
(require 'ede/auto) ;; Autoload settings.
-(when (or (<= emacs-major-version 23)
- ;; predicate as name added in Emacs 24.2
- (and (= emacs-major-version 24)
- (< emacs-minor-version 2)))
- (message "Loading CEDET fallback autoload library.")
- (require 'cedet/dominate
- (expand-file-name "../../../etc/fallback-libraries/dominate.el"
- (file-name-directory load-file-name))))
-
+;; `locate-dominating-file' is wrapped for older Emacsen, which miss
+;; the predicate feature.
+(unless (fboundp 'cedet-locate-dominating-file)
+ (defalias 'cedet-locate-dominating-file 'locate-dominating-file))
;;; BASIC PROJECT SCAN
;;
@@ -83,8 +78,8 @@ Return a cons cell:
(let* ((ede--detect-found-project nil)
(root
(catch 'stopscan
- (locate-dominating-file directory
- 'ede--detect-ldf-predicate))))
+ (cedet-locate-dominating-file directory
+ 'ede--detect-ldf-predicate))))
(when root
(cons root ede--detect-found-project))))
@@ -119,8 +114,8 @@ Return a cons cell:
(let* ((ede--detect-found-project nil)
(root
(catch 'stopscan
- (locate-dominating-file directory
- 'ede--detect-ldf-rootonly-predicate))))
+ (cedet-locate-dominating-file directory
+ 'ede--detect-ldf-rootonly-predicate))))
(when root
(cons root ede--detect-found-project))))
@@ -143,7 +138,8 @@ Return a cons cell:
;; If it didn't change, then obviously this must be the top.
t
;; If it is different, check updir for the file.
- (not (ede-auto-detect-in-dir ede--detect-nomatch-auto updir))))))
+ (or (null updir)
+ (not (ede-auto-detect-in-dir ede--detect-nomatch-auto updir)))))))
(defun ede--detect-scan-directory-for-project-root (directory auto)
"If DIRECTORY has already been detected with AUTO, find the root.
@@ -151,8 +147,8 @@ Some projects have their dominating file in all their directories, such
as Project.ede. In that case we will detect quickly, but then need
to scan upward to find the topmost occurrence of that file."
(let* ((ede--detect-nomatch-auto auto)
- (root (locate-dominating-file directory
- 'ede--detect-ldf-root-predicate)))
+ (root (cedet-locate-dominating-file directory
+ 'ede--detect-ldf-root-predicate)))
root))
;;; TOP LEVEL SCAN
diff --git a/lisp/cedet/ede/emacs.el b/lisp/cedet/ede/emacs.el
index 427f1a4..a418c75 100644
--- a/lisp/cedet/ede/emacs.el
+++ b/lisp/cedet/ede/emacs.el
@@ -136,6 +136,11 @@ All directories need at least one target.")
"EDE Emacs Project target for Emacs Lisp code.
All directories need at least one target.")
+(defclass ede-emacs-target-texi (ede-target)
+ ()
+ "EDE Emacs Project target for Emacs Lisp code.
+All directories need at least one target.")
+
(defclass ede-emacs-target-misc (ede-target)
()
"EDE Emacs Project target for Misc files.
@@ -186,6 +191,8 @@ If one doesn't exist, create a new one for this directory."
'ede-emacs-target-c)
((string-match "elc?" ext)
'ede-emacs-target-el)
+ ((string-match "texi" ext)
+ 'ede-emacs-target-texi)
(t 'ede-emacs-target-misc)))
(targets (oref proj targets))
(dir default-directory)
@@ -282,6 +289,40 @@ Knows about how the Emacs source tree is organized."
(oset this version (cdr ver))
))
+;;; Compile Support
+;;
+(defmethod project-compile-project ((proj ede-emacs-project) &optional command)
+ "Compile the Emacs project.
+Argument COMMAND is the command to use when compiling."
+ (let ((default-directory (ede-project-root-directory proj)))
+ (require 'compile)
+ (compile "make all")))
+
+(defmethod project-compile-target ((proj ede-emacs-target-texi) &optional command)
+ "Compile the doc target for Emacs.
+Argument COMMAND is the command to use for compiling the target."
+ (let* ((default-directory (ede-project-root-directory (ede-current-project)))
+ (command "make docs"))
+ (require 'compile)
+ (compile command)))
+
+(defmethod project-compile-target ((proj ede-emacs-target-el) &optional command)
+ "Compile the doc target for Emacs.
+Argument COMMAND is the command to use for compiling the target."
+ (let* ((default-directory (ede-project-root-directory (ede-current-project)))
+ (command "make lisp"))
+ (require 'compile)
+ (compile command)))
+
+(defmethod project-compile-target ((proj ede-emacs-target-c) &optional command)
+ "Compile the doc target for Emacs.
+Argument COMMAND is the command to use for compiling the target."
+ (let* ((default-directory (ede-project-root-directory (ede-current-project)))
+ (command "make src"))
+ (require 'compile)
+ (compile command)))
+
+
(provide 'ede/emacs)
;; Local variables:
diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el
index 3f23bfc..d288c65 100644
--- a/lisp/cedet/ede/files.el
+++ b/lisp/cedet/ede/files.el
@@ -67,6 +67,22 @@ the current EDE project."
(when loc
(ede-locate-flush-hash loc))))
+(defun ede-global-list-sanity-check ()
+ "Perform a sanity check to make sure there are no duplicate projects."
+ (interactive)
+ (let ((scanned nil))
+ (dolist (P ede-projects)
+ (if (member (oref P directory) scanned)
+ (error "Duplicate project (by dir) found in %s!" (oref P directory))
+ (push (oref P directory) scanned)))
+ (unless ede--disable-inode
+ (setq scanned nil)
+ (dolist (P ede-projects)
+ (if (member (ede--project-inode P) scanned)
+ (error "Duplicate project (by inode) found in %s!" (ede--project-inode P))
+ (push (ede--project-inode P) scanned))))
+ (message "EDE by directory %sis still sane." (if ede--disable-inode "" "& inode "))))
+
;;; Placeholders for ROOT directory scanning on base objects
;;
(cl-defmethod ede-project-root ((this ede-project-placeholder))
diff --git a/lisp/cedet/ede/linux.el b/lisp/cedet/ede/linux.el
index 010bfde..73efe4d 100644
--- a/lisp/cedet/ede/linux.el
+++ b/lisp/cedet/ede/linux.el
@@ -118,7 +118,8 @@ If DIR has not been used as a build directory, fall back to
;; use configuration
(case project-linux-build-directory-default
(same dir)
- (ask (read-directory-name "Select Linux' build directory: " dir)))))
+ (ask (read-directory-name "Select Linux' build directory: " dir))
+ (t project-linux-build-directory-default))))
(defun ede-linux--get-archs (dir)
diff --git a/lisp/cedet/ede/proj.el b/lisp/cedet/ede/proj.el
index d6f5210..a856509 100644
--- a/lisp/cedet/ede/proj.el
+++ b/lisp/cedet/ede/proj.el
@@ -184,7 +184,7 @@ Target variables are always renamed such as foo_CFLAGS, then included into
commands where the variable would usually appear.")
(rules :initarg :rules
:initform nil
- :type list
+ :type ede-makefile-rule-list
:custom (repeat (object :objecttype ede-makefile-rule))
:label "Additional Rules"
:group (make)
@@ -251,6 +251,7 @@ in targets.")
These variables are used in the makefile when a configuration becomes active.")
(inference-rules :initarg :inference-rules
:initform nil
+ :type ede-makefile-rule-list
:custom (repeat
(object :objecttype ede-makefile-rule))
:documentation "Inference rules to add to the makefile.")
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index 68f5c82..ec7d834 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -219,6 +219,23 @@ Optional argument DESIRED-TYPE may be a non-type tag to analyze."
"Try the base, and if that fails, return what we are assigning into."
(or (cl-call-next-method) (car-safe (oref context :assignee))))
+;;; TYPE MEMBERS
+;;
+;; When analyzing tag sequences, we dive through structured data
+;; such as structs, classes, unions, etc. The raw member list
+;; is sometimes insufficient for generating completions, so each
+;; language nees an opportunity to get the type members that are
+;; accessable via a code snippet. A key example is anonymous
+;; unions in C/C++, whose members are completable in the parent
+;; member list, but are structured in the tag as a single item.
+(define-overloadable-function semantic-analyze-tag-type-members (tag)
+ "Return a list of members of TAG, where TAG is a type.
+By default, call `semantic-tag-type-members'.")
+
+(defun semantic-analyze-tag-type-members-default (tag)
+ "Return a list of members of TAG, where TAG is a type."
+ (semantic-tag-type-members tag))
+
;;; ANALYSIS
;;
;; Start out with routines that will calculate useful parts of
@@ -345,7 +362,7 @@ This function knows of flags:
(when miniscope
(let ((rawscope
(apply 'append
- (mapcar 'semantic-tag-type-members tagtype))))
+ (mapcar 'semantic-analyze-tag-type-members tagtype))))
(oset miniscope fullscope rawscope)))
)
(setq s (cdr s)))
@@ -589,7 +606,7 @@ Returns an object based on symbol `semantic-analyze-context'."
;; the found datatype.
(setq fcn (semantic-find-tags-by-name
(semantic-tag-name (car ty))
- (semantic-tag-type-members (car ty))))
+ (semantic-analyze-tag-type-members (car ty))))
(if fcn
(let ((lp fcn))
(while lp
@@ -787,7 +804,8 @@ Use BUFF as a source of override methods."
(semantic-analyze-princ-sequence (oref context prefix) "Prefix: " )
(semantic-analyze-princ-sequence (oref context prefixclass) "Prefix Classes: ")
(semantic-analyze-princ-sequence (oref context prefixtypes) "Prefix Types: ")
- (semantic-analyze-princ-sequence (oref context errors) "Encountered Errors: ")
+ (semantic-analyze-princ-sequence (when (slot-boundp context 'errors) (oref context errors))
+ "Encountered Errors: ")
(princ "--------\n")
;(semantic-analyze-princ-sequence (oref context scopetypes) "Scope Types: ")
;(semantic-analyze-princ-sequence (oref context scope) "Scope: ")
diff --git a/lisp/cedet/semantic/analyze/complete.el b/lisp/cedet/semantic/analyze/complete.el
index 698fce8..6d24013 100644
--- a/lisp/cedet/semantic/analyze/complete.el
+++ b/lisp/cedet/semantic/analyze/complete.el
@@ -235,7 +235,7 @@ FLAGS can be any number of:
((semantic-tag-type (car loopc))
(let ((att (semantic-analyze-tag-type (car loopc) scope))
)
- (if (and att (semantic-tag-type-members att))
+ (if (and att (semantic-analyze-tag-type-members att))
(setq c (cons (car loopc) c))))
)
diff --git a/lisp/cedet/semantic/analyze/debug.el b/lisp/cedet/semantic/analyze/debug.el
index 03979f5..13bd66a 100644
--- a/lisp/cedet/semantic/analyze/debug.el
+++ b/lisp/cedet/semantic/analyze/debug.el
@@ -35,7 +35,7 @@
(declare-function ede-get-locator-object "ede/files")
;;; Code:
-
+;;;###autoload
(defun semantic-analyze-debug-assist ()
"Debug semantic analysis at the current point."
(interactive)
@@ -307,7 +307,7 @@ possible completions for \"")
(princ "\nKnown members of ")
(princ (semantic-tag-name dt))
(princ ":\n")
- (dolist (M (semantic-tag-type-members dt))
+ (dolist (M (semantic-analyze-tag-type-members dt))
(princ " ")
;;(princ (semantic-format-tag-prototype M))
(semantic-analyzer-debug-insert-tag M)
diff --git a/lisp/cedet/semantic/analyze/fcn.el b/lisp/cedet/semantic/analyze/fcn.el
index 1337f19..de487f1 100644
--- a/lisp/cedet/semantic/analyze/fcn.el
+++ b/lisp/cedet/semantic/analyze/fcn.el
@@ -183,7 +183,16 @@ Optional SCOPE represents a calculated scope in which the
types might be found. This can be nil.
If NOMETADEREF, then do not dereference metatypes. This is
used by the analyzer debugger."
- (semantic-analyze-type (semantic-tag-type tag) scope nometaderef))
+ (or
+ (semantic-analyze-type (semantic-tag-type tag) scope nometaderef)
+ ;; If we didn't find it the 'quick' way with the passed in scope,
+ ;; perhaps the type is using a shorthand only available from the
+ ;; location of TAG, which might be a member of some struct far away
+ ;; from the original source that spawed the search.
+ (let ((tagscope (semantic-calculate-scope-for-tag tag)))
+ (when tagscope
+ (semantic-analyze-type (semantic-tag-type tag)
+ tagscope nometaderef)))))
(defun semantic-analyze-type (type-declaration &optional scope nometaderef)
"Return the semantic tag for TYPE-DECLARATION.
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 821f05a..d13a7dd 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -1022,6 +1022,15 @@ now.
(setq return-list (car tag))
(setq tag (cdr tag)))
+ ;; Check if we have a typed enum, and if so, apply its type to all
+ ;; members.
+ (when (and (semantic-tag-of-type-p tag "enum")
+ (semantic-tag-get-attribute tag :enum-type))
+ (let ((enumtype (semantic-tag-get-attribute tag :enum-type))
+ (members (semantic-tag-get-attribute tag :members)))
+ (dolist (cur members)
+ (semantic-tag-put-attribute cur :type enumtype))))
+
;; Name of the tag is a list, so expand it. Tag lists occur
;; for variables like this: int var1, var2, var3;
;;
@@ -1178,13 +1187,16 @@ is its own toplevel tag. This function will return (cons A B)."
(while names
(setq vl (cons (semantic-tag-new-type
- (nth 1 (car names)) ; name
+ (nth 2 (car names)) ; name
"typedef"
(semantic-tag-type-members tag)
nil
:pointer
(let ((stars (car (car (car names)))))
(if (= stars 0) nil stars))
+ :reference
+ (let ((refs (car (nth 1 (car names)))))
+ (when (> refs 0) refs))
;; This specifies what the typedef
;; is expanded out as. Just the
;; name shows up as a parent of this
@@ -1301,14 +1313,15 @@ Optional argument STAR and REF indicate the number of * and & in the typedef."
(nth 10 tokenpart) ; initializers
)
(not (car (nth 3 tokenpart)))))
- (fcnpointer (and (> (length (car tokenpart)) 0)
+ (operator (if (string-match "[a-zA-Z]" (car tokenpart))
+ nil
+ t))
+ (fcnpointer (and (not operator)
+ (> (length (car tokenpart)) 1)
(= (aref (car tokenpart) 0) ?*)))
(fnname (if fcnpointer
(substring (car tokenpart) 1)
(car tokenpart)))
- (operator (if (string-match "[a-zA-Z]" fnname)
- nil
- t))
)
;; The function
(semantic-tag-new-function
@@ -1348,8 +1361,10 @@ Optional argument STAR and REF indicate the number of * and & in the typedef."
;; `throws' as a common name for things that toss
;; exceptions about.
:throws (nth 5 tokenpart)
- ;; Reentrant is a C++ thingy. Add it here
+ ;; Reentrant, override, final are a C++ things. Add it here.
:reentrant-flag (if (member "reentrant" (nth 6 tokenpart)) t)
+ :override-flag (if (member "override" (nth 6 tokenpart)) t)
+ :final-flag (if (member "final" (nth 6 tokenpart)) t)
;; A function post-const is funky. Try stuff
:methodconst-flag (if (member "const" (nth 6 tokenpart)) t)
;; prototypes are functions w/ no body
@@ -1406,8 +1421,18 @@ PARENT specifies a parent class.
COLOR indicates that the text should be type colorized.
Enhances the base class to search for the entire parent
tree to make the name accurate."
- (semantic-format-tag-canonical-name-default tag parent color)
- )
+ (cond
+ ((and (semantic-tag-of-class-p tag 'type)
+ (semantic-tag-get-attribute tag :parent))
+ ;; We nee to combine the :parent into the tag name and continue on.
+ (let* ((par (semantic-tag-get-attribute tag :parent))
+ (parstr (if (stringp par) par
+ (mapconcat 'identity par "::")))
+ (clone (semantic-tag-clone
+ tag (concat parstr "::" (semantic-tag-name tag)))))
+ (semantic-format-tag-canonical-name-default clone parent color)))
+ (t (semantic-format-tag-canonical-name-default tag parent color))
+ ))
(define-mode-local-override semantic-format-tag-type c-mode (tag color)
"Convert the data type of TAG to a string usable in tag formatting.
@@ -1637,6 +1662,8 @@ SCOPE is not used, and TYPE-DECLARATION is used only if TYPE is not a typedef."
(let* ((fname (semantic-tag-file-name type))
(def (semantic-tag-copy dt nil fname)))
(list def def)))
+ ((semantic-tag-p dt)
+ (list (semantic-format-tag-canonical-name dt) dt))
((stringp dt) (list dt (semantic-tag dt 'type)))
((consp dt) (list (car dt) dt))))
@@ -1858,6 +1885,23 @@ These are constants which are of type TYPE."
"Assemble the list of names NAMELIST into a namespace name."
(mapconcat 'identity namelist "::"))
+(define-mode-local-override semantic-analyze-tag-type-members c-mode (tag)
+ "Return a list of :members of TAG.
+Merges in all members of anonymous unions that are :members of TAG."
+ (let ((raw (semantic-tag-type-members tag))
+ (ans nil))
+ (dolist (T raw)
+ (cond ((and (semantic-tag-of-class-p T 'type)
+ (semantic-tag-of-type-p T "union")
+ (string= (semantic-tag-name T) ""))
+ ;; Merge in all the union members.
+ (dolist (Ts (semantic-analyze-tag-type-members T))
+ (setq ans (cons Ts ans))))
+ ;; Be default, just push the tag.
+ (t
+ (setq ans (cons T ans)))))
+ (nreverse ans)))
+
(define-mode-local-override semantic-ctxt-scoped-types c++-mode (&optional point)
"Return a list of tags of CLASS type based on POINT.
DO NOT return the list of tags encompassing point."
@@ -2028,10 +2072,12 @@ have to be wrapped in that namespace."
(setq sv (cdr sv)))
;; This is optional, and potentially fraught w/ errors.
- (condition-case nil
- (dolist (lt sv)
- (setq txt (concat txt " " (semantic-lex-token-text lt))))
- (error (setq txt (concat txt " #error in summary fcn"))))
+ (if (stringp sv)
+ (setq txt (concat txt " " sv))
+ (condition-case nil
+ (dolist (lt sv)
+ (setq txt (concat txt " " (semantic-lex-token-text lt))))
+ (error (setq txt (concat txt " #error in summary fcn")))))
txt)
(semantic-idle-summary-current-symbol-info-default))))
diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el
index 6f41ba3..c97d53c 100644
--- a/lisp/cedet/semantic/bovine/el.el
+++ b/lisp/cedet/semantic/bovine/el.el
@@ -921,6 +921,9 @@ See `semantic-format-tag-prototype' for Emacs Lisp for more details."
(defvar-mode-local emacs-lisp-mode semantic-function-argument-separation-character
" ")
+(defvar-mode-local emacs-lisp-mode semantic-type-relation-separator-character
+ nil)
+
(defvar-mode-local emacs-lisp-mode semantic-symbol->name-assoc-list
'(
(type . "Types")
diff --git a/lisp/cedet/semantic/bovine/make.el b/lisp/cedet/semantic/bovine/make.el
index b550f50..2859491 100644
--- a/lisp/cedet/semantic/bovine/make.el
+++ b/lisp/cedet/semantic/bovine/make.el
@@ -175,9 +175,10 @@ This is the same as a regular prototype."
(semantic-format-tag-prototype tag parent color))
(define-mode-local-override semantic-analyze-possible-completions
- makefile-mode (context)
+ makefile-mode (context &rest flags)
"Return a list of possible completions in a Makefile.
-Uses default implementation, and also gets a list of filenames."
+Uses default implementation, and also gets a list of filenames.
+Any extra FLAGS are ignored."
(require 'semantic/analyze/complete)
(with-current-buffer (oref context buffer)
(let* ((normal (semantic-analyze-possible-completions-default context))
diff --git a/lisp/cedet/semantic/bovine/scm.el b/lisp/cedet/semantic/bovine/scm.el
index 3e9b118..2d7d6a6 100644
--- a/lisp/cedet/semantic/bovine/scm.el
+++ b/lisp/cedet/semantic/bovine/scm.el
@@ -106,6 +106,10 @@ syntax as specified by the syntax table."
imenu-create-index-function 'semantic-create-imenu-index
)
(setq semantic-lex-analyzer #'semantic-scheme-lexer)
+ (setq semantic-lex-syntax-modifications '((?/ "w")
+ (?@ "_")
+ )
+ )
)
(provide 'semantic/bovine/scm)
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index de76232..abdd5de 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -209,7 +209,8 @@ HISTORY is a symbol representing a variable to story the history in."
(semantic-completion-display-engine displayor)
(semantic-complete-active-default nil)
(semantic-complete-current-matched-tag nil)
- (default-as-tag (semantic-complete-default-to-tag default-tag))
+ (default-as-tag (save-current-buffer
+ (semantic-complete-default-to-tag default-tag)))
(default-as-string (when (semantic-tag-p default-as-tag)
(semantic-tag-name default-as-tag)))
)
@@ -1026,14 +1027,19 @@ Output must be in semanticdb Find result format."
(eq (compare-strings
prefix 0 nil
last-prefix 0 (length prefix)) t))
- ;; The new prefix is a substring of the old
- ;; prefix, and it's longer than one character.
- ;; Perform a full search to pull in additional
- ;; matches.
- (let ((context (semantic-analyze-current-context (point))))
- ;; Set new context and make first-pass-completions
- ;; unbound so that they are newly calculated.
- (oset obj context context)
+ ;; The new prefix is a substring of the old
+ ;; prefix, and it's longer than one character.
+ ;; Perform a full search to pull in additional
+ ;; matches.
+ (when (slot-exists-p obj 'context)
+ ;; If this collector wants an analyzed context,
+ ;; then restart here.
+ (save-current-buffer
+ (set-buffer (oref obj buffer))
+ (let ((context (semantic-analyze-current-context (point))))
+ ;; Set new context and make first-pass-completions
+ ;; unbound so that they are newly calculated.
+ (oset obj context context)))
(when (slot-boundp obj 'first-pass-completions)
(slot-makeunbound obj 'first-pass-completions)))
nil)))
diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el
index d24cfe6..899546e 100644
--- a/lisp/cedet/semantic/ctxt.el
+++ b/lisp/cedet/semantic/ctxt.el
@@ -454,7 +454,8 @@ This will include a list of type/field names when applicable.
Depends on `semantic-type-relation-separator-character'."
(save-excursion
(if point (goto-char point))
- (let* ((fieldsep1 (mapconcat (lambda (a) (regexp-quote a))
+ (let* ((dosequence (not (null semantic-type-relation-separator-character)))
+ (fieldsep1 (mapconcat (lambda (a) (regexp-quote a))
semantic-type-relation-separator-character
"\\|"))
;; NOTE: The [ \n] expression below should used \\s-, but that
@@ -491,9 +492,11 @@ Depends on `semantic-type-relation-separator-character'."
;; Now that we have gotten started, let's do the rest.
(condition-case nil
- (while (save-excursion
- (forward-char -1)
- (looking-at "\\w\\|\\s_"))
+ (while (and
+ (or dosequence (not symlist))
+ (save-excursion
+ (forward-char -1)
+ (looking-at "\\w\\|\\s_")))
;; We have a symbol.. Do symbol things
(forward-sexp -1)
(setq symlist (cons (buffer-substring-no-properties (point) end)
@@ -610,6 +613,8 @@ Depends on `semantic-function-argument-separation-character'."
(let ((p (point))
(idx 1))
(semantic-up-context)
+ ;; TODO: myfun3(fun_for_arg1(i,j), arg2 !, arg3)
+ ;; at ! it thinks it's arg 3.
(while (re-search-forward
(regexp-quote semantic-function-argument-separation-character)
p t)
diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el
index 03a21b0..5ebe8c4 100644
--- a/lisp/cedet/semantic/db-global.el
+++ b/lisp/cedet/semantic/db-global.el
@@ -90,7 +90,8 @@ MODE is the major mode to support."
When GNU Global is not available for this directory, display a message
if optional DONT-ERR-IF-NOT-AVAILABLE is non-nil; else throw an error."
(interactive "P")
- (if (cedet-gnu-global-root)
+ (if (and (file-exists-p default-directory)
+ (cedet-gnu-global-root))
(setq
;; Add to the system database list.
semanticdb-project-system-databases
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index 366af60..470f347 100644
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -499,7 +499,9 @@ found tag to be loaded."
;; the next set of members.
(if (not ans)
(setq notdone nil)
- (setq stream (semantic-tag-type-members ans)))
+ ;; When pulling the next stream, only get the members we
+ ;; are supposed to complete on.
+ (setq stream (semantic-analyze-tag-type-members ans)))
(setq lastans ans
ans nil
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index a72e784..094aca7 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -60,7 +60,7 @@ mechanism.")
(defvar semanticdb-default-find-index-class 'semanticdb-find-search-index
"The default type of search index to use for a `semanticdb-table's.
This can be changed to try out new types of search indices.")
-(make-variable-buffer-local 'semanticdb-default-find=index-class)
+(make-variable-buffer-local 'semanticdb-default-find-index-class)
;;;###autoload
(defvar semanticdb-current-database nil
diff --git a/lisp/cedet/semantic/ede-grammar.el b/lisp/cedet/semantic/ede-grammar.el
index 60b6fef..68c1b67 100644
--- a/lisp/cedet/semantic/ede-grammar.el
+++ b/lisp/cedet/semantic/ede-grammar.el
@@ -44,8 +44,8 @@
(semantic-ede-grammar-compiler-wisent
semantic-ede-grammar-compiler-bovine
))
- (aux-packages :initform '("semantic" "cedet-compat"))
- (pre-load-packages :initform '("cedet-compat" "semantic/grammar" "semantic/bovine/grammar" "semantic/wisent/grammar"))
+ (aux-packages :initform '("semantic"))
+ (pre-load-packages :initform '("semantic/grammar" "semantic/bovine/grammar" "semantic/wisent/grammar"))
)
"This target consists of a group of grammar files.
A grammar target consists of grammar files that build Emacs Lisp programs for
@@ -134,6 +134,7 @@ Lays claim to all -by.el, and -wy.el files."
(cl-call-next-method) ; The usual thing.
))
+
(cl-defmethod project-compile-target ((obj semantic-ede-proj-target-grammar))
"Compile all sources in a Lisp target OBJ."
(let* ((cb (current-buffer))
@@ -177,7 +178,7 @@ Lays claim to all -by.el, and -wy.el files."
"Insert variables needed by target THIS."
(ede-proj-makefile-insert-loadpath-items
(ede-proj-elisp-packages-to-loadpath
- (list "eieio" "semantic" "inversion" "ede")))
+ (list "semantic" "inversion" "ede")))
;; eieio for object system needed in ede
;; semantic because it is
;; Inversion for versioning system.
@@ -187,7 +188,7 @@ Lays claim to all -by.el, and -wy.el files."
(insert
(mapconcat (lambda (src)
(with-current-buffer (find-file-noselect src)
- (concat (semantic-grammar-package) ".el")))
+ (concat (semantic-grammar-package t) ".el")))
(oref this source)
" ")))
)
diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el
index 0a259f0..4228b50 100644
--- a/lisp/cedet/semantic/grammar.el
+++ b/lisp/cedet/semantic/grammar.el
@@ -266,17 +266,19 @@ That is tag names plus names defined in tag attribute `:rest'."
No argument or nil as argument means use the current buffer."
(file-name-nondirectory (buffer-file-name buffer)))
-(defun semantic-grammar-package ()
+(defun semantic-grammar-package (&optional fromfile)
"Return the %package value as a string.
-If there is no %package statement in the grammar, return a default
-package name derived from the grammar file name. For example, the
-default package name for the grammar file foo.wy is foo-wy, and for
-foo.by it is foo-by."
- (or (semantic-grammar-first-tag-name 'package)
+If there is no %package statement in the grammar, or if FROMFILE
+is non-nil, return a default package name derived from the
+grammar file name. For example, the default package name for the
+grammar file foo.wy is foo-wy, and for foo.by it is foo-by."
+ (let ((pkgtoken (semantic-grammar-first-tag-name 'package)))
+ (if (and (not fromfile) pkgtoken)
+ pkgtoken
(let* ((file (semantic-grammar-buffer-file))
(ext (file-name-extension file))
(i (string-match (format "\\([.]\\)%s\\'" ext) file)))
- (concat (substring file 0 i) "-" ext))))
+ (concat (substring file 0 i) "-" ext)))))
(defsubst semantic-grammar-languagemode ()
"Return the %languagemode value as a list of symbols or nil."
@@ -940,29 +942,32 @@ Lisp code."
(make-backup-files t)
(vc-make-backup-files t))
(kill-buffer (current-buffer)))
- ;; If running interactively, eval declarations and epilogue
- ;; code, then pop to the buffer visiting the generated file.
- (eval-region (point) (point-max))
- ;; Loop over the defvars and eval them explicitly to force
- ;; them to be evaluated and ready to use.
- (goto-char (point-min))
- (while (re-search-forward "(defvar " nil t)
- (eval-defun nil))
- ;; Move cursor to a logical spot in the generated code.
- (goto-char (point-min))
- (pop-to-buffer (current-buffer))
- ;; The generated code has been evaluated and updated into
- ;; memory. Now find all buffers that match the major modes we
- ;; have created this language for, and force them to call our
- ;; setup function again, refreshing all semantic data, and
- ;; enabling them to work with the new code just created.
-;;;; FIXME?
- ;; At this point, I don't know any user's defined setup code :-(
- ;; At least, what I can do for now, is to run the generated
- ;; parser-install function.
- (semantic-map-mode-buffers
- (semantic-grammar-setupfunction)
- (semantic-grammar-languagemode)))
+
+ (let ((setupfcn (with-current-buffer semantic--grammar-input-buffer
+ (intern (semantic-grammar-setupfunction))))
+ (mode (with-current-buffer semantic--grammar-input-buffer
+ (semantic-grammar-languagemode))))
+ ;; If running interactively, eval declarations and epilogue
+ ;; code, then pop to the buffer visiting the generated file.
+ (eval-region (point) (point-max))
+ ;; Move cursor to a logical spot in the generated code.
+ (goto-char (point-min))
+ (pop-to-buffer (current-buffer))
+ ;; The generated code has been evaluated and updated into
+ ;; memory. Now find all buffers that match the major modes we
+ ;; have created this language for, and force them to call our
+ ;; setup function again, refreshing all semantic data, and
+ ;; enabling them to work with the new code just created.
+
+ ;; At this point, I don't know any user's defined setup code :-(
+ ;; At least, what I can do for now, is to run the generated
+ ;; parser-install function.
+ (semantic-map-mode-buffers
+ (lambda ()
+ (semantic-clear-toplevel-cache)
+ (funcall setupfcn))
+ mode)
+ ))
)
;; Return the name of the generated package file.
output))
@@ -1201,10 +1206,9 @@ END is the limit of the search."
(define-key km ":" 'semantic-grammar-electric-punctuation)
(define-key km "\t" 'semantic-grammar-indent)
- (define-key km "\M-\t" 'semantic-grammar-complete)
(define-key km "\C-c\C-c" 'semantic-grammar-create-package)
- (define-key km "\C-cm" 'semantic-grammar-find-macro-expander)
- (define-key km "\C-cik" 'semantic-grammar-insert-keyword)
+ (define-key km "\C-c\C-m" 'semantic-grammar-find-macro-expander)
+ (define-key km "\C-c\C-k" 'semantic-grammar-insert-keyword)
;; (define-key km "\C-cc" 'semantic-grammar-generate-and-load)
;; (define-key km "\C-cr" 'semantic-grammar-generate-one-rule)
@@ -1214,7 +1218,7 @@ END is the limit of the search."
(defvar semantic-grammar-menu
'("Grammar"
["Indent Line" semantic-grammar-indent]
- ["Complete Symbol" semantic-grammar-complete]
+ ["Complete Symbol" completion-at-point]
["Find Macro" semantic-grammar-find-macro-expander]
"--"
["Insert %keyword" semantic-grammar-insert-keyword]
@@ -1322,7 +1326,7 @@ the change bounds to encompass the whole nonterminal tag."
(semantic-grammar-wy--install-parser)
(setq semantic-lex-comment-regex ";;"
semantic-lex-analyzer 'semantic-grammar-lexer
- semantic-type-relation-separator-character '(":")
+ semantic-type-relation-separator-character '()
semantic-symbol->name-assoc-list
'(
(code . "Setup Code")
@@ -1490,39 +1494,6 @@ Use the Lisp or grammar indenter depending on point location."
(save-excursion
(semantic-grammar-indent)))
-(defun semantic-grammar-complete ()
- "Attempt to complete the symbol under point.
-Completion is position sensitive. If the cursor is in a match section of
-a rule, then nonterminals symbols are scanned. If the cursor is in a Lisp
-expression then Lisp symbols are completed."
- (interactive)
- (if (semantic-grammar-in-lisp-p)
- ;; We are in lisp code. Do lisp completion.
- (let ((completion-at-point-functions
- (append '(lisp-completion-at-point)
- completion-at-point-functions)))
- (completion-at-point))
- ;; We are not in lisp code. Do rule completion.
- (let* ((nonterms (semantic-find-tags-by-class 'nonterminal (current-buffer)))
- (sym (car (semantic-ctxt-current-symbol)))
- (ans (try-completion sym nonterms)))
- (cond ((eq ans t)
- ;; All done
- (message "Symbols is already complete"))
- ((and (stringp ans) (string= ans sym))
- ;; Max matchable. Show completions.
- (with-output-to-temp-buffer "*Completions*"
- (display-completion-list (all-completions sym nonterms)))
- )
- ((stringp ans)
- ;; Expand the completions
- (forward-sexp -1)
- (delete-region (point) (progn (forward-sexp 1) (point)))
- (insert ans))
- (t (message "No Completions."))
- ))
- ))
-
(defun semantic-grammar-insert-keyword (name)
"Insert a new %keyword declaration with NAME.
Assumes it is typed in with the correct casing."
@@ -1546,6 +1517,16 @@ Return the tag found or nil if not found."
semanticdb-current-database
(cdar (semanticdb-find-tags-by-name name nil t)))))))
+(defun semantic--grammar-find-macro-symbol-library (def)
+ "Return the library the macro defined by DEF is in."
+ (let ((lib (symbol-file (cdr def) 'defun)))
+ (if (not (string-match "\\.elc" lib))
+ lib
+ (setq lib2 (replace-match ".el" t t lib 0))
+ (if (file-exists-p lib2)
+ lib2
+ lib))))
+
(defsubst semantic--grammar-macro-lib-part (def)
"Return the library part of the grammar macro defined by DEF."
(let ((suf (format "-%s\\'" (regexp-quote (symbol-name (car def)))))
@@ -1774,7 +1755,7 @@ Only tags of type 'nonterminal will be so marked."
(if (semantic-grammar-in-lisp-p)
(with-mode-local emacs-lisp-mode
(semantic-ctxt-current-class-list))
- '(nonterminal keyword))))
+ '(nonterminal token keyword))))
(define-mode-local-override semantic-ctxt-current-mode
semantic-grammar-mode (&optional point)
@@ -1914,14 +1895,15 @@ Optional argument COLOR determines if color is added to the text."
context-return)))
(define-mode-local-override semantic-analyze-possible-completions
- semantic-grammar-mode (context)
- "Return a list of possible completions based on CONTEXT."
+ semantic-grammar-mode (context &rest flags)
+ "Return a list of possible completions based on CONTEXT.
+Optional FLAGS are ignored."
(require 'semantic/analyze/complete)
(if (semantic-grammar-in-lisp-p)
(with-mode-local emacs-lisp-mode
(semantic-analyze-possible-completions context))
(with-current-buffer (oref context buffer)
- (let* ((prefix (car (oref context :prefix)))
+ (let* ((prefix (car (reverse (oref context :prefix))))
(completetext (cond ((semantic-tag-p prefix)
(semantic-tag-name prefix))
((stringp prefix)
diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el
index 214fbb5..81fb0b4 100644
--- a/lisp/cedet/semantic/ia.el
+++ b/lisp/cedet/semantic/ia.el
@@ -123,7 +123,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
;; the smart completion engine sometimes fails.
(semantic-complete-symbol))
;; Use try completion to seek a common substring.
- (let* ((completion-ignore-case (string= (downcase pre) pre))
+ (let* ((completion-ignore-case (and pre (string= (downcase pre) pre)))
(tc (try-completion (or pre "") syms)))
(if (and (stringp tc) (not (string= tc (or pre ""))))
(let ((tok (semantic-find-first-tag-by-name
@@ -188,7 +188,11 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
(when ans
(if (not (semantic-tag-p ans))
(setq ans (aref (cdr ans) 0)))
- (delete-region (car (oref a bounds)) (cdr (oref a bounds)))
+ (with-slots ((bnds bounds)) a
+ ;; bounds could be nil if we are completing an empty prefix string
+ ;; (e.g. type constrained within a function argument list)
+ (when (and (car bnds) (cdr bnds))
+ (delete-region (car bnds) (cdr bnds))))
(semantic-ia-insert-tag ans))
))))
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index 549a30a..18e7aa0 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -837,8 +837,11 @@ turned on in every Semantic-supported buffer."
:group 'semantic-faces)
(defvar semantic-idle-symbol-highlight-face 'semantic-idle-symbol-highlight
"Face used for highlighting local symbols.")
-(make-obsolete-variable 'semantic-idle-symbol-highlight-face
- "customize the face `semantic-idle-symbol-highlight' instead" "24.4" 'set)
+(if (version< emacs-version "24.2")
+ (make-obsolete-variable 'semantic-idle-symbol-highlight-face
+ "customize the face `semantic-idle-symbol-highlight' instead" "24.4")
+ (make-obsolete-variable 'semantic-idle-symbol-highlight-face
+ "customize the face `semantic-idle-symbol-highlight' instead" "24.4" 'set))
(defun semantic-idle-symbol-maybe-highlight (tag)
"Perhaps add highlighting to the symbol represented by TAG.
diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index ddef510..e1938e5 100644
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -415,7 +415,8 @@ implicit \"object\"."
;; the names in typelist.
(while typelist
(let ((tt (semantic-tag-type (car typelist))))
- (when (and (stringp tt) (string= tt "namespace"))
+ (when (and (stringp tt) (or (string= tt "namespace")
+ (string= tt "enum")) )
;; By using the typecache, our namespaces are pre-merged.
(setq typelist2 (cons (car typelist) typelist2))
))
@@ -508,7 +509,9 @@ the access would be 'protected. Otherwise, access is 'public")
"Return a list of slots that are valid completions from the list of SLOTS.
If a tag in SLOTS has a named parent, then that implies that the
tag is not something you can complete from within TYPE."
- (let ((allslots (semantic-tag-components type))
+ ;; Pull in analyzed type members.
+ ;; For C, this strips out anon unions, and merges in anon union members.
+ (let ((allslots (semantic-analyze-tag-type-members type))
(leftover nil)
)
(dolist (S allslots)
@@ -767,6 +770,17 @@ The class returned from the scope calculation is variable
;; can reset the scope cache without affecting others.
(clone scopecache)))))
+(defun semantic-calculate-scope-for-tag (tag)
+ "Calculate the current scope that is around TAG.
+Return nil if TAG has no position, or we cannot otherwise find a scope.
+Use this when pulling a datatype off TAG so when it is looked up
+it has the right context around it."
+ (save-excursion
+ (save-current-buffer
+ (when (semantic-tag-with-position-p tag)
+ (semantic-go-to-tag tag)
+ (semantic-calculate-scope (point)))) ))
+
(defun semantic-scope-find (name &optional class scope-in)
"Find the tag with NAME, and optional CLASS in the current SCOPE-IN.
Searches various elements of the scope for NAME. Return ALL the
@@ -809,7 +823,7 @@ hits in order, with the first tag being in the closest scope."
(if (not ans)
(setq typescoperaw nil)
(when (cdr namesplit)
- (setq typescoperaw (semantic-tag-type-members
+ (setq typescoperaw (semantic-analyze-tag-type-members
(car ans)))))
(setq namesplit (cdr namesplit)))
diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el
index 516a4f3..cca3912 100644
--- a/lisp/cedet/semantic/symref.el
+++ b/lisp/cedet/semantic/symref.el
@@ -65,6 +65,7 @@
;; Your tool should then create an instance of `semantic-symref-result'.
(require 'semantic)
+(require 'semantic/find)
(defvar ede-minor-mode)
(declare-function data-debug-new-buffer "data-debug")
diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el
index cbb7705..9d7f73a 100644
--- a/lisp/cedet/semantic/texi.el
+++ b/lisp/cedet/semantic/texi.el
@@ -412,12 +412,13 @@ Optional argument POINT is where to look for the environment."
"List of commands that we might bother completing.")
(define-mode-local-override semantic-analyze-possible-completions
- texinfo-mode (context)
+ texinfo-mode (context &rest flags)
"List smart completions at point.
Since texinfo is not a programming language the default version is not
useful. Instead, look at the current symbol. If it is a command
do primitive texinfo built ins. If not, use ispell to lookup words
-that start with that symbol."
+that start with that symbol.
+Any extra FLAGS are currently ignored."
(let ((prefix (car (oref context :prefix)))
)
(cond ((member 'function (oref context :prefixclass))
diff --git a/lisp/cedet/semantic/wisent/python.el b/lisp/cedet/semantic/wisent/python.el
index 939086b..2402442 100644
--- a/lisp/cedet/semantic/wisent/python.el
+++ b/lisp/cedet/semantic/wisent/python.el
@@ -511,6 +511,10 @@ Shortens `code' tags, but passes through for others."
;; Give python modes the possibility to overwrite this:
(if (not comment-start-skip)
(set (make-local-variable 'comment-start-skip) "#+\\s-*"))
+ ;; Fix up some syntax for the lexer.
+ (setq semantic-lex-syntax-modifications '((?. ".")
+ )
+ )
(setq
;; Character used to separation a parent/child relationship
semantic-type-relation-separator-character '(".")
diff --git a/lisp/cedet/semantic/wisent/wisent.el b/lisp/cedet/semantic/wisent/wisent.el
index 9eab860..cddeb21 100644
--- a/lisp/cedet/semantic/wisent/wisent.el
+++ b/lisp/cedet/semantic/wisent/wisent.el
@@ -376,7 +376,7 @@ automaton has only one entry point."
(wisent-parse-lexer-function lexer)
(wisent-recovering nil)
(wisent-input (wisent-parse-start start starts))
- state tokid choices choice)
+ state tokid choices choice wisent-lookahead-save)
(setq wisent-nerrs 0 ;; Reset parse error counter
wisent-lookahead nil) ;; and lookahead token
(aset stack 0 0) ;; Initial state
@@ -468,7 +468,12 @@ automaton has only one entry point."
;; Reduce by rule (call semantic action)
;; -------------------------------------
(t
+ ;; save the global variable wisent-lookahead,
+ ;; as the semantic action might be an expand or expandfull
+ ;; which calls this function recursively
+ (setq wisent-lookahead-save wisent-lookahead)
(setq sp (funcall wisent-loop stack sp gotos))
+ (setq wisent-lookahead wisent-lookahead-save)
(or wisent-input (setq wisent-input (wisent-lexer))))))
(run-hooks 'wisent-post-parse-hook)
(car (aref stack 1))))
diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index be252c2..504e261 100644
--- a/lisp/cedet/srecode/srt-mode.el
+++ b/lisp/cedet/srecode/srt-mode.el
@@ -625,8 +625,9 @@ section or ? for an ask variable."
context-return)))
(define-mode-local-override semantic-analyze-possible-completions
- srecode-template-mode (context)
- "Return a list of possible completions based on NONTEXT."
+ srecode-template-mode (context &rest flags)
+ "Return a list of possible completions based on NONTEXT.
+Any extra FLAGS are ignored."
(with-current-buffer (oref context buffer)
(let* ((prefix (car (last (oref context :prefix))))
(prefixstr (cond ((stringp prefix)
--=-=-=--
Bastian Beischer <bastian.beischer@HIDDEN>:bug-gnu-emacs@HIDDEN.
Full text available.bug-gnu-emacs@HIDDEN:bug#23792; Package emacs.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.