├── Setup.hs ├── README ├── pandoc-types.cabal ├── Text └── Pandoc │ ├── Definition.hs │ └── Builder.hs └── COPYING /Setup.hs: -------------------------------------------------------------------------------- 1 | import Distribution.Simple 2 | main = defaultMain 3 | -------------------------------------------------------------------------------- /README: -------------------------------------------------------------------------------- 1 | pandoc-types contains definitions for the Pandoc data structure, 2 | which is used by [pandoc] (http://johnmacfarlane.net/pandoc) to represent 3 | structured documents. 4 | 5 | These definitions have been put in a separate package so that other 6 | packages can use them without drawing in all of pandoc's dependencies. 7 | -------------------------------------------------------------------------------- /pandoc-types.cabal: -------------------------------------------------------------------------------- 1 | Name: pandoc-types 2 | Version: 1.7 3 | Synopsis: Types for representing a structured document 4 | Description: This package contains definitions of the types 5 | pandoc uses to represent structured documents. 6 | These definitions have been moved into their 7 | own package to make it easier for other packages 8 | to export native pandoc documents without depending 9 | on the whole pandoc package. It also allows pandoc 10 | to depend on other packages that use the pandoc 11 | types (such as citeproc-hs). 12 | . 13 | The package also includes a module for building 14 | pandoc documents programmatically. 15 | Homepage: http://johnmacfarlane.net/pandoc 16 | License: GPL 17 | License-file: COPYING 18 | Author: John MacFarlane 19 | Maintainer: jgm@berkeley.edu 20 | Copyright: (c) 2006-2010 John MacFarlane 21 | Category: Text 22 | Build-type: Simple 23 | Cabal-version: >=1.2 24 | Library 25 | Exposed-modules: Text.Pandoc.Definition 26 | Text.Pandoc.Builder 27 | if impl(ghc >= 6.10) 28 | Build-depends: base >= 4 && < 5, syb, dlist >= 0.4 && < 0.6 29 | else 30 | Build-depends: base >= 3 && < 4, dlist >= 0.4 && < 0.6 31 | 32 | -------------------------------------------------------------------------------- /Text/Pandoc/Definition.hs: -------------------------------------------------------------------------------- 1 | {-# LANGUAGE DeriveDataTypeable #-} 2 | {- 3 | Copyright (C) 2006-2010 John MacFarlane 4 | 5 | This program is free software; you can redistribute it and/or modify 6 | it under the terms of the GNU General Public License as published by 7 | the Free Software Foundation; either version 2 of the License, or 8 | (at your option) any later version. 9 | 10 | This program is distributed in the hope that it will be useful, 11 | but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | GNU General Public License for more details. 14 | 15 | You should have received a copy of the GNU General Public License 16 | along with this program; if not, write to the Free Software 17 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 18 | -} 19 | 20 | {- | 21 | Module : Text.Pandoc.Definition 22 | Copyright : Copyright (C) 2006-2010 John MacFarlane 23 | License : GNU GPL, version 2 or above 24 | 25 | Maintainer : John MacFarlane 26 | Stability : alpha 27 | Portability : portable 28 | 29 | Definition of 'Pandoc' data structure for format-neutral representation 30 | of documents. 31 | -} 32 | module Text.Pandoc.Definition where 33 | 34 | import Data.Generics 35 | import Data.Ord (comparing) 36 | 37 | data Pandoc = Pandoc Meta [Block] deriving (Eq, Ord, Read, Show, Typeable, Data) 38 | 39 | -- | Bibliographic information for the document: title, authors, date. 40 | data Meta = Meta { docTitle :: [Inline] 41 | , docAuthors :: [[Inline]] 42 | , docDate :: [Inline] } 43 | deriving (Eq, Ord, Show, Read, Typeable, Data) 44 | 45 | -- | Alignment of a table column. 46 | data Alignment = AlignLeft 47 | | AlignRight 48 | | AlignCenter 49 | | AlignDefault deriving (Eq, Ord, Show, Read, Typeable, Data) 50 | 51 | -- | List attributes. 52 | type ListAttributes = (Int, ListNumberStyle, ListNumberDelim) 53 | 54 | -- | Style of list numbers. 55 | data ListNumberStyle = DefaultStyle 56 | | Example 57 | | Decimal 58 | | LowerRoman 59 | | UpperRoman 60 | | LowerAlpha 61 | | UpperAlpha deriving (Eq, Ord, Show, Read, Typeable, Data) 62 | 63 | -- | Delimiter of list numbers. 64 | data ListNumberDelim = DefaultDelim 65 | | Period 66 | | OneParen 67 | | TwoParens deriving (Eq, Ord, Show, Read, Typeable, Data) 68 | 69 | -- | Attributes: identifier, classes, key-value pairs 70 | type Attr = (String, [String], [(String, String)]) 71 | 72 | -- | Table cells are list of Blocks 73 | type TableCell = [Block] 74 | 75 | -- | Block element. 76 | data Block 77 | = Plain [Inline] -- ^ Plain text, not a paragraph 78 | | Para [Inline] -- ^ Paragraph 79 | | CodeBlock Attr String -- ^ Code block (literal) with attributes 80 | | RawHtml String -- ^ Raw HTML block (literal) 81 | | BlockQuote [Block] -- ^ Block quote (list of blocks) 82 | | OrderedList ListAttributes [[Block]] -- ^ Ordered list (attributes 83 | -- and a list of items, each a list of blocks) 84 | | BulletList [[Block]] -- ^ Bullet list (list of items, each 85 | -- a list of blocks) 86 | | DefinitionList [([Inline],[[Block]])] -- ^ Definition list 87 | -- Each list item is a pair consisting of a 88 | -- term (a list of inlines) and one or more 89 | -- definitions (each a list of blocks) 90 | | Header Int [Inline] -- ^ Header - level (integer) and text (inlines) 91 | | HorizontalRule -- ^ Horizontal rule 92 | | Table [Inline] [Alignment] [Double] [TableCell] [[TableCell]] -- ^ Table, 93 | -- with caption, column alignments, 94 | -- relative column widths (0 = default), 95 | -- column headers (each a list of blocks), and 96 | -- rows (each a list of lists of blocks) 97 | | Null -- ^ Nothing 98 | deriving (Eq, Ord, Read, Show, Typeable, Data) 99 | 100 | -- | Type of quotation marks to use in Quoted inline. 101 | data QuoteType = SingleQuote | DoubleQuote deriving (Show, Eq, Ord, Read, Typeable, Data) 102 | 103 | -- | Link target (URL, title). 104 | type Target = (String, String) 105 | 106 | -- | Type of math element (display or inline). 107 | data MathType = DisplayMath | InlineMath deriving (Show, Eq, Ord, Read, Typeable, Data) 108 | 109 | -- | Inline elements. 110 | data Inline 111 | = Str String -- ^ Text (string) 112 | | Emph [Inline] -- ^ Emphasized text (list of inlines) 113 | | Strong [Inline] -- ^ Strongly emphasized text (list of inlines) 114 | | Strikeout [Inline] -- ^ Strikeout text (list of inlines) 115 | | Superscript [Inline] -- ^ Superscripted text (list of inlines) 116 | | Subscript [Inline] -- ^ Subscripted text (list of inlines) 117 | | SmallCaps [Inline] -- ^ Small caps text (list of inlines) 118 | | Quoted QuoteType [Inline] -- ^ Quoted text (list of inlines) 119 | | Cite [Citation] [Inline] -- ^ Citation (list of inlines) 120 | | Code String -- ^ Inline code (literal) 121 | | Space -- ^ Inter-word space 122 | | EmDash -- ^ Em dash 123 | | EnDash -- ^ En dash 124 | | Apostrophe -- ^ Apostrophe 125 | | Ellipses -- ^ Ellipses 126 | | LineBreak -- ^ Hard line break 127 | | Math MathType String -- ^ TeX math (literal) 128 | | TeX String -- ^ LaTeX code (literal) 129 | | HtmlInline String -- ^ HTML code (literal) 130 | | Link [Inline] Target -- ^ Hyperlink: text (list of inlines), target 131 | | Image [Inline] Target -- ^ Image: alt text (list of inlines), target 132 | -- and target 133 | | Note [Block] -- ^ Footnote or endnote 134 | deriving (Show, Eq, Ord, Read, Typeable, Data) 135 | 136 | data Citation = Citation { citationId :: String 137 | , citationPrefix :: [Inline] 138 | , citationSuffix :: [Inline] 139 | , citationMode :: CitationMode 140 | , citationNoteNum :: Int 141 | , citationHash :: Int 142 | } 143 | deriving (Show, Eq, Read, Typeable, Data) 144 | 145 | instance Ord Citation where 146 | compare = comparing citationHash 147 | 148 | data CitationMode = AuthorInText | SuppressAuthor | NormalCitation 149 | deriving (Show, Eq, Ord, Read, Typeable, Data) 150 | 151 | -- | Applies a transformation on @a@s to matching elements in a @b@. 152 | processWith :: (Data a, Data b) => (a -> a) -> b -> b 153 | processWith f = everywhere (mkT f) 154 | 155 | -- | Like 'processWith', but with monadic transformations. 156 | processWithM :: (Monad m, Data a, Data b) => (a -> m a) -> b -> m b 157 | processWithM f = everywhereM (mkM f) 158 | 159 | -- | Runs a query on matching @a@ elements in a @c@. 160 | queryWith :: (Data a, Data c) => (a -> [b]) -> c -> [b] 161 | queryWith f = everything (++) ([] `mkQ` f) 162 | 163 | -------------------------------------------------------------------------------- /Text/Pandoc/Builder.hs: -------------------------------------------------------------------------------- 1 | {-# LANGUAGE FlexibleInstances, GeneralizedNewtypeDeriving #-} 2 | {- 3 | Copyright (C) 2010 John MacFarlane 4 | 5 | This program is free software; you can redistribute it and/or modify 6 | it under the terms of the GNU General Public License as published by 7 | the Free Software Foundation; either version 2 of the License, or 8 | (at your option) any later version. 9 | 10 | This program is distributed in the hope that it will be useful, 11 | but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | GNU General Public License for more details. 14 | 15 | You should have received a copy of the GNU General Public License 16 | along with this program; if not, write to the Free Software 17 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 18 | -} 19 | 20 | {- | 21 | Module : Text.Pandoc.Builder 22 | Copyright : Copyright (C) 2010 John MacFarlane 23 | License : GNU GPL, version 2 or above 24 | 25 | Maintainer : John MacFarlane 26 | Stability : alpha 27 | Portability : portable 28 | 29 | Some convenience functions for building pandoc documents 30 | programmatically. Example of use (requires the OverloadedStrings 31 | language extension): 32 | 33 | > import Text.Pandoc.Builder 34 | > 35 | > myDoc :: Pandoc 36 | > myDoc = setTitle "My title" $ doc $ 37 | > para "This is the first paragraph" +++ 38 | > para ("And " +++ emph "another" +++ ".") +++ 39 | > bulletList [ plain $ "item one" 40 | > , plain $ "item two and a " +++ 41 | > link "/url" "go to url" "link" 42 | > ] 43 | 44 | -} 45 | 46 | module Text.Pandoc.Builder ( module Text.Pandoc.Definition 47 | , Inlines 48 | , Blocks 49 | , (+++) 50 | -- * Document builders 51 | , doc 52 | , setTitle 53 | , setAuthors 54 | , setDate 55 | -- * Inline list builders 56 | , inline 57 | , text 58 | , str 59 | , emph 60 | , strong 61 | , strikeout 62 | , superscript 63 | , subscript 64 | , smallcaps 65 | , quoted 66 | , code 67 | , space 68 | , emdash 69 | , endash 70 | , apostrophe 71 | , linebreak 72 | , math 73 | , tex 74 | , htmlInline 75 | , link 76 | , image 77 | , note 78 | -- * Block list builders 79 | , block 80 | , para 81 | , plain 82 | , codeBlock 83 | , rawHtml 84 | , blockQuote 85 | , bulletList 86 | , orderedList 87 | , definitionList 88 | , header 89 | , horizontalRule 90 | , table 91 | ) 92 | where 93 | import Text.Pandoc.Definition 94 | import Data.String 95 | import Data.Monoid 96 | import Data.DList hiding (map) 97 | import Data.List (groupBy) 98 | import Data.Char (isSpace) 99 | 100 | newtype Inlines = Inlines { unInlines :: DList Inline } 101 | deriving (Monoid) 102 | 103 | instance Show Inlines where 104 | show (Inlines x) = "Inlines (fromList " ++ show (toList x) ++ ")" 105 | 106 | newtype Blocks = Blocks { unBlocks :: DList Block } 107 | deriving (Monoid) 108 | 109 | instance Show Blocks where 110 | show (Blocks x) = "Blocks (fromList " ++ show (toList x) ++ ")" 111 | 112 | instance IsString Inlines where 113 | fromString = text 114 | 115 | (+++) :: Monoid m => m -> m -> m 116 | (+++) = mappend 117 | 118 | -- Document builders 119 | 120 | doc :: Blocks -> Pandoc 121 | doc = Pandoc (Meta [] [] []) . toList . unBlocks 122 | 123 | setTitle :: Inlines -> Pandoc -> Pandoc 124 | setTitle t (Pandoc m bs) = Pandoc m{ docTitle = toList $ unInlines $ t } bs 125 | 126 | setAuthors :: [Inlines] -> Pandoc -> Pandoc 127 | setAuthors as (Pandoc m bs) = Pandoc m{ docAuthors = map (toList . unInlines) as } bs 128 | 129 | setDate :: Inlines -> Pandoc -> Pandoc 130 | setDate d (Pandoc m bs) = Pandoc m{ docDate = toList $ unInlines $ d } bs 131 | 132 | -- Inline list builders 133 | 134 | inline :: Inline -> Inlines 135 | inline = Inlines . singleton 136 | 137 | -- | Convert a string to Inlines, treating interword spaces as 'Space's. 138 | -- If you want a 'Str' with literal spaces, use 'rawStr'. 139 | text :: String -> Inlines 140 | text = Inlines . fromList . (map conv) . breakBySpaces 141 | where breakBySpaces = groupBy sameCategory 142 | sameCategory x y = (isSpace x && isSpace y) || 143 | not (isSpace x || isSpace y) 144 | conv xs | all isSpace xs = Space 145 | conv xs = Str xs 146 | 147 | str :: String -> Inlines 148 | str = inline . Str 149 | 150 | emph :: Inlines -> Inlines 151 | emph = inline . Emph . toList . unInlines 152 | 153 | strong :: Inlines -> Inlines 154 | strong = inline . Strong . toList . unInlines 155 | 156 | strikeout :: Inlines -> Inlines 157 | strikeout = inline . Strikeout . toList . unInlines 158 | 159 | superscript :: Inlines -> Inlines 160 | superscript = inline . Superscript . toList . unInlines 161 | 162 | subscript :: Inlines -> Inlines 163 | subscript = inline . Subscript . toList . unInlines 164 | 165 | smallcaps :: Inlines -> Inlines 166 | smallcaps = inline . SmallCaps . toList . unInlines 167 | 168 | quoted :: QuoteType -> Inlines -> Inlines 169 | quoted qt = inline . Quoted qt . toList . unInlines 170 | 171 | code :: String -> Inlines 172 | code = inline . Code 173 | 174 | space :: Inlines 175 | space = inline Space 176 | 177 | emdash :: Inlines 178 | emdash = inline EmDash 179 | 180 | endash :: Inlines 181 | endash = inline EnDash 182 | 183 | apostrophe :: Inlines 184 | apostrophe = inline Apostrophe 185 | 186 | ellipses :: Inlines 187 | ellipses = inline Ellipses 188 | 189 | linebreak :: Inlines 190 | linebreak = inline LineBreak 191 | 192 | math :: MathType -> String -> Inlines 193 | math mt = inline . Math mt 194 | 195 | tex :: String -> Inlines 196 | tex = inline . TeX 197 | 198 | htmlInline :: String -> Inlines 199 | htmlInline = inline . HtmlInline 200 | 201 | link :: String -> String -> Inlines -> Inlines 202 | link url title x = inline $ Link (toList $ unInlines x) (url, title) 203 | 204 | image :: String -> String -> Inlines -> Inlines 205 | image url title x = inline $ Link (toList $ unInlines x) (url, title) 206 | 207 | note :: Blocks -> Inlines 208 | note = inline . Note . toList . unBlocks 209 | 210 | -- Block list builders 211 | 212 | block :: Block -> Blocks 213 | block = Blocks . singleton 214 | 215 | para :: Inlines -> Blocks 216 | para = block . Para . toList . unInlines 217 | 218 | plain :: Inlines -> Blocks 219 | plain = block . Para . toList . unInlines 220 | 221 | codeBlock :: Attr -> String -> Blocks 222 | codeBlock attrs = block . CodeBlock attrs 223 | 224 | rawHtml :: String -> Blocks 225 | rawHtml = block . RawHtml 226 | 227 | blockQuote :: Blocks -> Blocks 228 | blockQuote = block . BlockQuote . toList . unBlocks 229 | 230 | orderedList :: Maybe ListAttributes -> [Blocks] -> Blocks 231 | orderedList mbattrs = 232 | block . OrderedList attrs . map (toList . unBlocks) 233 | where attrs = case mbattrs of 234 | Nothing -> (1, DefaultStyle, DefaultDelim) 235 | Just a -> a 236 | 237 | bulletList :: [Blocks] -> Blocks 238 | bulletList = block . BulletList . map (toList . unBlocks) 239 | 240 | definitionList :: [(Inlines, [Blocks])] -> Blocks 241 | definitionList = block . DefinitionList . 242 | map (\(t,ds) -> (toList (unInlines t), map (toList . unBlocks) ds)) 243 | 244 | header :: Int -> Inlines -> Blocks 245 | header level = block . Header level . toList . unInlines 246 | 247 | horizontalRule :: Blocks 248 | horizontalRule = block HorizontalRule 249 | 250 | table :: Inlines -> [(Alignment, Double)] -> [Blocks] -> [[Blocks]] 251 | -> Blocks 252 | table caption cellspecs headers rows = block $ 253 | Table (toList $ unInlines caption) aligns widths 254 | (map (toList . unBlocks) headers) (map (map (toList . unBlocks)) rows) 255 | where (aligns, widths) = unzip cellspecs 256 | -------------------------------------------------------------------------------- /COPYING: -------------------------------------------------------------------------------- 1 | GNU GENERAL PUBLIC LICENSE 2 | Version 2, June 1991 3 | 4 | Copyright (C) 1989, 1991 Free Software Foundation, Inc. 5 | 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA 6 | Everyone is permitted to copy and distribute verbatim copies 7 | of this license document, but changing it is not allowed. 8 | 9 | Preamble 10 | 11 | The licenses for most software are designed to take away your 12 | freedom to share and change it. By contrast, the GNU General Public 13 | License is intended to guarantee your freedom to share and change free 14 | software--to make sure the software is free for all its users. This 15 | General Public License applies to most of the Free Software 16 | Foundation's software and to any other program whose authors commit to 17 | using it. (Some other Free Software Foundation software is covered by 18 | the GNU Library General Public License instead.) You can apply it to 19 | your programs, too. 20 | 21 | When we speak of free software, we are referring to freedom, not 22 | price. Our General Public Licenses are designed to make sure that you 23 | have the freedom to distribute copies of free software (and charge for 24 | this service if you wish), that you receive source code or can get it 25 | if you want it, that you can change the software or use pieces of it 26 | in new free programs; and that you know you can do these things. 27 | 28 | To protect your rights, we need to make restrictions that forbid 29 | anyone to deny you these rights or to ask you to surrender the rights. 30 | These restrictions translate to certain responsibilities for you if you 31 | distribute copies of the software, or if you modify it. 32 | 33 | For example, if you distribute copies of such a program, whether 34 | gratis or for a fee, you must give the recipients all the rights that 35 | you have. You must make sure that they, too, receive or can get the 36 | source code. And you must show them these terms so they know their 37 | rights. 38 | 39 | We protect your rights with two steps: (1) copyright the software, and 40 | (2) offer you this license which gives you legal permission to copy, 41 | distribute and/or modify the software. 42 | 43 | Also, for each author's protection and ours, we want to make certain 44 | that everyone understands that there is no warranty for this free 45 | software. If the software is modified by someone else and passed on, we 46 | want its recipients to know that what they have is not the original, so 47 | that any problems introduced by others will not reflect on the original 48 | authors' reputations. 49 | 50 | Finally, any free program is threatened constantly by software 51 | patents. We wish to avoid the danger that redistributors of a free 52 | program will individually obtain patent licenses, in effect making the 53 | program proprietary. To prevent this, we have made it clear that any 54 | patent must be licensed for everyone's free use or not licensed at all. 55 | 56 | The precise terms and conditions for copying, distribution and 57 | modification follow. 58 | 59 | GNU GENERAL PUBLIC LICENSE 60 | TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 61 | 62 | 0. This License applies to any program or other work which contains 63 | a notice placed by the copyright holder saying it may be distributed 64 | under the terms of this General Public License. The "Program", below, 65 | refers to any such program or work, and a "work based on the Program" 66 | means either the Program or any derivative work under copyright law: 67 | that is to say, a work containing the Program or a portion of it, 68 | either verbatim or with modifications and/or translated into another 69 | language. (Hereinafter, translation is included without limitation in 70 | the term "modification".) Each licensee is addressed as "you". 71 | 72 | Activities other than copying, distribution and modification are not 73 | covered by this License; they are outside its scope. The act of 74 | running the Program is not restricted, and the output from the Program 75 | is covered only if its contents constitute a work based on the 76 | Program (independent of having been made by running the Program). 77 | Whether that is true depends on what the Program does. 78 | 79 | 1. You may copy and distribute verbatim copies of the Program's 80 | source code as you receive it, in any medium, provided that you 81 | conspicuously and appropriately publish on each copy an appropriate 82 | copyright notice and disclaimer of warranty; keep intact all the 83 | notices that refer to this License and to the absence of any warranty; 84 | and give any other recipients of the Program a copy of this License 85 | along with the Program. 86 | 87 | You may charge a fee for the physical act of transferring a copy, and 88 | you may at your option offer warranty protection in exchange for a fee. 89 | 90 | 2. You may modify your copy or copies of the Program or any portion 91 | of it, thus forming a work based on the Program, and copy and 92 | distribute such modifications or work under the terms of Section 1 93 | above, provided that you also meet all of these conditions: 94 | 95 | a) You must cause the modified files to carry prominent notices 96 | stating that you changed the files and the date of any change. 97 | 98 | b) You must cause any work that you distribute or publish, that in 99 | whole or in part contains or is derived from the Program or any 100 | part thereof, to be licensed as a whole at no charge to all third 101 | parties under the terms of this License. 102 | 103 | c) If the modified program normally reads commands interactively 104 | when run, you must cause it, when started running for such 105 | interactive use in the most ordinary way, to print or display an 106 | announcement including an appropriate copyright notice and a 107 | notice that there is no warranty (or else, saying that you provide 108 | a warranty) and that users may redistribute the program under 109 | these conditions, and telling the user how to view a copy of this 110 | License. (Exception: if the Program itself is interactive but 111 | does not normally print such an announcement, your work based on 112 | the Program is not required to print an announcement.) 113 | 114 | These requirements apply to the modified work as a whole. If 115 | identifiable sections of that work are not derived from the Program, 116 | and can be reasonably considered independent and separate works in 117 | themselves, then this License, and its terms, do not apply to those 118 | sections when you distribute them as separate works. But when you 119 | distribute the same sections as part of a whole which is a work based 120 | on the Program, the distribution of the whole must be on the terms of 121 | this License, whose permissions for other licensees extend to the 122 | entire whole, and thus to each and every part regardless of who wrote it. 123 | 124 | Thus, it is not the intent of this section to claim rights or contest 125 | your rights to work written entirely by you; rather, the intent is to 126 | exercise the right to control the distribution of derivative or 127 | collective works based on the Program. 128 | 129 | In addition, mere aggregation of another work not based on the Program 130 | with the Program (or with a work based on the Program) on a volume of 131 | a storage or distribution medium does not bring the other work under 132 | the scope of this License. 133 | 134 | 3. You may copy and distribute the Program (or a work based on it, 135 | under Section 2) in object code or executable form under the terms of 136 | Sections 1 and 2 above provided that you also do one of the following: 137 | 138 | a) Accompany it with the complete corresponding machine-readable 139 | source code, which must be distributed under the terms of Sections 140 | 1 and 2 above on a medium customarily used for software interchange; or, 141 | 142 | b) Accompany it with a written offer, valid for at least three 143 | years, to give any third party, for a charge no more than your 144 | cost of physically performing source distribution, a complete 145 | machine-readable copy of the corresponding source code, to be 146 | distributed under the terms of Sections 1 and 2 above on a medium 147 | customarily used for software interchange; or, 148 | 149 | c) Accompany it with the information you received as to the offer 150 | to distribute corresponding source code. (This alternative is 151 | allowed only for noncommercial distribution and only if you 152 | received the program in object code or executable form with such 153 | an offer, in accord with Subsection b above.) 154 | 155 | The source code for a work means the preferred form of the work for 156 | making modifications to it. For an executable work, complete source 157 | code means all the source code for all modules it contains, plus any 158 | associated interface definition files, plus the scripts used to 159 | control compilation and installation of the executable. However, as a 160 | special exception, the source code distributed need not include 161 | anything that is normally distributed (in either source or binary 162 | form) with the major components (compiler, kernel, and so on) of the 163 | operating system on which the executable runs, unless that component 164 | itself accompanies the executable. 165 | 166 | If distribution of executable or object code is made by offering 167 | access to copy from a designated place, then offering equivalent 168 | access to copy the source code from the same place counts as 169 | distribution of the source code, even though third parties are not 170 | compelled to copy the source along with the object code. 171 | 172 | 4. You may not copy, modify, sublicense, or distribute the Program 173 | except as expressly provided under this License. Any attempt 174 | otherwise to copy, modify, sublicense or distribute the Program is 175 | void, and will automatically terminate your rights under this License. 176 | However, parties who have received copies, or rights, from you under 177 | this License will not have their licenses terminated so long as such 178 | parties remain in full compliance. 179 | 180 | 5. You are not required to accept this License, since you have not 181 | signed it. However, nothing else grants you permission to modify or 182 | distribute the Program or its derivative works. These actions are 183 | prohibited by law if you do not accept this License. Therefore, by 184 | modifying or distributing the Program (or any work based on the 185 | Program), you indicate your acceptance of this License to do so, and 186 | all its terms and conditions for copying, distributing or modifying 187 | the Program or works based on it. 188 | 189 | 6. Each time you redistribute the Program (or any work based on the 190 | Program), the recipient automatically receives a license from the 191 | original licensor to copy, distribute or modify the Program subject to 192 | these terms and conditions. You may not impose any further 193 | restrictions on the recipients' exercise of the rights granted herein. 194 | You are not responsible for enforcing compliance by third parties to 195 | this License. 196 | 197 | 7. If, as a consequence of a court judgment or allegation of patent 198 | infringement or for any other reason (not limited to patent issues), 199 | conditions are imposed on you (whether by court order, agreement or 200 | otherwise) that contradict the conditions of this License, they do not 201 | excuse you from the conditions of this License. If you cannot 202 | distribute so as to satisfy simultaneously your obligations under this 203 | License and any other pertinent obligations, then as a consequence you 204 | may not distribute the Program at all. For example, if a patent 205 | license would not permit royalty-free redistribution of the Program by 206 | all those who receive copies directly or indirectly through you, then 207 | the only way you could satisfy both it and this License would be to 208 | refrain entirely from distribution of the Program. 209 | 210 | If any portion of this section is held invalid or unenforceable under 211 | any particular circumstance, the balance of the section is intended to 212 | apply and the section as a whole is intended to apply in other 213 | circumstances. 214 | 215 | It is not the purpose of this section to induce you to infringe any 216 | patents or other property right claims or to contest validity of any 217 | such claims; this section has the sole purpose of protecting the 218 | integrity of the free software distribution system, which is 219 | implemented by public license practices. Many people have made 220 | generous contributions to the wide range of software distributed 221 | through that system in reliance on consistent application of that 222 | system; it is up to the author/donor to decide if he or she is willing 223 | to distribute software through any other system and a licensee cannot 224 | impose that choice. 225 | 226 | This section is intended to make thoroughly clear what is believed to 227 | be a consequence of the rest of this License. 228 | 229 | 8. If the distribution and/or use of the Program is restricted in 230 | certain countries either by patents or by copyrighted interfaces, the 231 | original copyright holder who places the Program under this License 232 | may add an explicit geographical distribution limitation excluding 233 | those countries, so that distribution is permitted only in or among 234 | countries not thus excluded. In such case, this License incorporates 235 | the limitation as if written in the body of this License. 236 | 237 | 9. The Free Software Foundation may publish revised and/or new versions 238 | of the General Public License from time to time. Such new versions will 239 | be similar in spirit to the present version, but may differ in detail to 240 | address new problems or concerns. 241 | 242 | Each version is given a distinguishing version number. If the Program 243 | specifies a version number of this License which applies to it and "any 244 | later version", you have the option of following the terms and conditions 245 | either of that version or of any later version published by the Free 246 | Software Foundation. If the Program does not specify a version number of 247 | this License, you may choose any version ever published by the Free Software 248 | Foundation. 249 | 250 | 10. If you wish to incorporate parts of the Program into other free 251 | programs whose distribution conditions are different, write to the author 252 | to ask for permission. For software which is copyrighted by the Free 253 | Software Foundation, write to the Free Software Foundation; we sometimes 254 | make exceptions for this. Our decision will be guided by the two goals 255 | of preserving the free status of all derivatives of our free software and 256 | of promoting the sharing and reuse of software generally. 257 | 258 | NO WARRANTY 259 | 260 | 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY 261 | FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN 262 | OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES 263 | PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED 264 | OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 265 | MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS 266 | TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE 267 | PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, 268 | REPAIR OR CORRECTION. 269 | 270 | 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING 271 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR 272 | REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, 273 | INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING 274 | OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED 275 | TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY 276 | YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER 277 | PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE 278 | POSSIBILITY OF SUCH DAMAGES. 279 | 280 | END OF TERMS AND CONDITIONS 281 | 282 | How to Apply These Terms to Your New Programs 283 | 284 | If you develop a new program, and you want it to be of the greatest 285 | possible use to the public, the best way to achieve this is to make it 286 | free software which everyone can redistribute and change under these terms. 287 | 288 | To do so, attach the following notices to the program. It is safest 289 | to attach them to the start of each source file to most effectively 290 | convey the exclusion of warranty; and each file should have at least 291 | the "copyright" line and a pointer to where the full notice is found. 292 | 293 | 294 | Copyright (C) 295 | 296 | This program is free software; you can redistribute it and/or modify 297 | it under the terms of the GNU General Public License as published by 298 | the Free Software Foundation; either version 2 of the License, or 299 | (at your option) any later version. 300 | 301 | This program is distributed in the hope that it will be useful, 302 | but WITHOUT ANY WARRANTY; without even the implied warranty of 303 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 304 | GNU General Public License for more details. 305 | 306 | You should have received a copy of the GNU General Public License 307 | along with this program; if not, write to the Free Software 308 | Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA 309 | 310 | 311 | Also add information on how to contact you by electronic and paper mail. 312 | 313 | If the program is interactive, make it output a short notice like this 314 | when it starts in an interactive mode: 315 | 316 | Gnomovision version 69, Copyright (C) year name of author 317 | Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. 318 | This is free software, and you are welcome to redistribute it 319 | under certain conditions; type `show c' for details. 320 | 321 | The hypothetical commands `show w' and `show c' should show the appropriate 322 | parts of the General Public License. Of course, the commands you use may 323 | be called something other than `show w' and `show c'; they could even be 324 | mouse-clicks or menu items--whatever suits your program. 325 | 326 | You should also get your employer (if you work as a programmer) or your 327 | school, if any, to sign a "copyright disclaimer" for the program, if 328 | necessary. Here is a sample; alter the names: 329 | 330 | Yoyodyne, Inc., hereby disclaims all copyright interest in the program 331 | `Gnomovision' (which makes passes at compilers) written by James Hacker. 332 | 333 | , 1 April 1989 334 | Ty Coon, President of Vice 335 | 336 | This General Public License does not permit incorporating your program into 337 | proprietary programs. If your program is a subroutine library, you may 338 | consider it more useful to permit linking proprietary applications with the 339 | library. If this is what you want to do, use the GNU Library General 340 | Public License instead of this License. 341 | --------------------------------------------------------------------------------