Extension: Move the GST extensions to a new file

Extension.st

@@ -0,0 +1,36 @@
+String extend [
+    beginsWith: aString [
+	<category: '*petitparser-core-converting-gst'>
+	| res |
+
+	res := self indexOf: aString matchCase: false startingAt: 1.
+	res ifNil: [^false].
+
+	^ res first = 1
+    ]
+
+    includesSubString: subString [
+	<category: '*petitparser-core-converting-gst'>
+	| res |
+
+	res := self indexOf: subString matchCase: false startingAt: 1.
+	res ifNil: [^false].
+
+	^ res first >= 1
+    ]
+]
+
+Symbol extend [
+    value: anObject [
+	<category: '*petitparser-core-converting-gst'>
+	^anObject perform: self
+    ]
+]
+
+Character extend [
+    sameAs: aChar [
+	<category: '*petitparser-core-converting-gst'>
+	^self asLowercase = aChar asLowercase.
+    ]
+]
+

PetitParser.st

@@ -5,25 +5,6 @@ String extend [
 	^PPLiteralSequenceParser on: self
     ]
 
-    beginsWith: aString [
-	<category: '*petitparser-core-converting-gst'>
-	| res |
-
-	res := self indexOf: aString matchCase: false startingAt: 1.
-	res ifNil: [^false].
-
-	^ res first = 1
-    ]
-
-    includesSubString: subString [
-	<category: '*petitparser-core-converting-gst'>
-	| res |
-
-	res := self indexOf: subString matchCase: false startingAt: 1.
-	res ifNil: [^false].
-
-	^ res first >= 1
-    ]
 ]
 
 
@@ -45,17 +26,6 @@ Symbol extend [
 	<category: '*petitparser-core-converting'>
 	^PPPredicateObjectParser perform: self
     ]
-
-    value: anObject [
-	<category: '*petitparser-core-converting-gst'>
-	^anObject perform: self
-    ]
-]
-
-Character extend [
-    sameAs: aChar [
-	^self asLowercase = aChar asLowercase.
-    ]
 ]
 
 

package.xml

@@ -3,6 +3,7 @@
   <namespace>PP</namespace>
 
   <url>git://gitorious.org/gnu-smalltalk-ports/petitparser.git</url>
+  <filein>Extension.st</filein>
   <filein>PetitParser.st</filein>
 
   <test>
@@ -20,6 +21,7 @@
     <filein>PetitParserTests.st</filein>
   </test>
 
+  <file>Extension.st</file>
   <file>PetitParser.st</file>
   <file>PetitParserTests.st</file>
 </package>