Attachment 40748 Details for Bug 20444 – Patch

[patch] Patch

0001-Add-text-x-prolog.patch (text/plain), 4.55 KB, created by Fernando Brito on 2010-12-02 10:46:21 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Fernando Brito

Created: 2010-12-02 10:46:21 UTC

Size: 4.55 KB

patch

obsolete

>From 692054182ac3f85df83455a17616dbafed18ebda Mon Sep 17 00:00:00 2001
>From: Fernando Brito <email@fernandobrito.com>
>Date: Thu, 2 Dec 2010 15:42:44 -0300
>Subject: [PATCH] Add text/x-prolog
>
>---
> freedesktop.org.xml.in |    7 +++++++
> tests/list             |    3 +++
> tests/test.pl          |   20 ++++++++++++++++++++
> tests/test.pro         |   20 ++++++++++++++++++++
> tests/test.prolog      |   20 ++++++++++++++++++++
> 5 files changed, 70 insertions(+), 0 deletions(-)
> create mode 100644 tests/test.pl
> create mode 100644 tests/test.pro
> create mode 100644 tests/test.prolog
>
>diff --git a/freedesktop.org.xml.in b/freedesktop.org.xml.in
>index cd72ed4..14631e9 100644
>--- a/freedesktop.org.xml.in
>+++ b/freedesktop.org.xml.in
>@@ -2286,6 +2286,13 @@ command to generate the output files.
>     <glob pattern="*.cbl"/>
>     <glob pattern="*.cob"/>
>   </mime-type>
>+  <mime-type type="text/x-prolog">
>+    <_comment>Prolog source file</_comment>
>+    <sub-class-of type="text/plain"/>
>+    <glob pattern="*.pl"/>
>+    <glob pattern="*.pro"/>
>+    <glob pattern="*.prolog"/>
>+  </mime-type>
>   <mime-type type="application/x-mif">
>     <_comment>Adobe FrameMaker MIF document</_comment>
>     <glob pattern="*.mif"/>
>diff --git a/tests/list b/tests/list
>index b7f9447..8e39ece 100644
>--- a/tests/list
>+++ b/tests/list
>@@ -234,6 +234,9 @@ test.mml application/mathml+xml ox
> linguist.ts text/vnd.trolltech.linguist
> test.xsl application/xslt+xml
> test.cbl text/x-cobol ox
>+test.pl  text/x-prolog
>+test.pro text/x-prolog
>+test.prolog text/x-prolog
> 
> # Archives
> # Copied from http://bugs.freedesktop.org/show_bug.cgi?id=14909
>diff --git a/tests/test.pl b/tests/test.pl
>new file mode 100644
>index 0000000..21c82df
>--- /dev/null
>+++ b/tests/test.pl
>@@ -0,0 +1,20 @@
>+% test.pl -- quicksort implementation
>+
>+/* [+,-] */
>+quicksort([], []).
>+quicksort([HEAD | TAIL], SORTED) :- partition(HEAD, TAIL, LEFT, RIGHT),
>+                                    quicksort(LEFT, SORTEDL),
>+                                    quicksort(RIGHT, SORTEDR),
>+                                    append(SORTEDL, [HEAD | SORTEDR], SORTED).
>+
>+/* [+,+,-,-] */
>+partition(PIVOT, [], [], []).
>+partition(PIVOT, [HEAD | TAIL], [HEAD | LEFT], RIGHT) :- HEAD @=< PIVOT,
>+                                                         partition(PIVOT, TAIL, LEFT, RIGHT).
>+partition(PIVOT, [HEAD | TAIL], LEFT, [HEAD | RIGHT]) :- HEAD @> PIVOT,
>+                                                         partition(PIVOT, TAIL, LEFT, RIGHT).
>+
>+/* [+,+,-] */
>+append([], LIST, LIST).
>+append([HEAD | LIST1], LIST2, [HEAD | LIST3]) :- append(LIST1, LIST2, LIST3).
>+
>diff --git a/tests/test.pro b/tests/test.pro
>new file mode 100644
>index 0000000..ebe365c
>--- /dev/null
>+++ b/tests/test.pro
>@@ -0,0 +1,20 @@
>+% test.pro -- quicksort implementation
>+
>+/* [+,-] */
>+quicksort([], []).
>+quicksort([HEAD | TAIL], SORTED) :- partition(HEAD, TAIL, LEFT, RIGHT),
>+                                    quicksort(LEFT, SORTEDL),
>+                                    quicksort(RIGHT, SORTEDR),
>+                                    append(SORTEDL, [HEAD | SORTEDR], SORTED).
>+
>+/* [+,+,-,-] */
>+partition(PIVOT, [], [], []).
>+partition(PIVOT, [HEAD | TAIL], [HEAD | LEFT], RIGHT) :- HEAD @=< PIVOT,
>+                                                         partition(PIVOT, TAIL, LEFT, RIGHT).
>+partition(PIVOT, [HEAD | TAIL], LEFT, [HEAD | RIGHT]) :- HEAD @> PIVOT,
>+                                                         partition(PIVOT, TAIL, LEFT, RIGHT).
>+
>+/* [+,+,-] */
>+append([], LIST, LIST).
>+append([HEAD | LIST1], LIST2, [HEAD | LIST3]) :- append(LIST1, LIST2, LIST3).
>+
>diff --git a/tests/test.prolog b/tests/test.prolog
>new file mode 100644
>index 0000000..6a141d4
>--- /dev/null
>+++ b/tests/test.prolog
>@@ -0,0 +1,20 @@
>+% test.prolog -- quicksort implementation
>+
>+/* [+,-] */
>+quicksort([], []).
>+quicksort([HEAD | TAIL], SORTED) :- partition(HEAD, TAIL, LEFT, RIGHT),
>+                                    quicksort(LEFT, SORTEDL),
>+                                    quicksort(RIGHT, SORTEDR),
>+                                    append(SORTEDL, [HEAD | SORTEDR], SORTED).
>+
>+/* [+,+,-,-] */
>+partition(PIVOT, [], [], []).
>+partition(PIVOT, [HEAD | TAIL], [HEAD | LEFT], RIGHT) :- HEAD @=< PIVOT,
>+                                                         partition(PIVOT, TAIL, LEFT, RIGHT).
>+partition(PIVOT, [HEAD | TAIL], LEFT, [HEAD | RIGHT]) :- HEAD @> PIVOT,
>+                                                         partition(PIVOT, TAIL, LEFT, RIGHT).
>+
>+/* [+,+,-] */
>+append([], LIST, LIST).
>+append([HEAD | LIST1], LIST2, [HEAD | LIST3]) :- append(LIST1, LIST2, LIST3).
>+
>-- 
>1.7.1
>

Actions: View | Splinter Review

Attachments on bug 20444: 23565 | 40748 | 40752

Use of freedesktop.org services, including Bugzilla, is subject to our Code of Conduct. How we collect and use information is described in our Privacy Policy.