Warning, /frameworks/syntax-highlighting/autotests/reference/highlight.pb.ref is written in an unsupported language. File is not indexed.
0001 <Comment>; This is a test file for kate's PureBasic highlighting.</Comment><br/> 0002 <Normal Text></Normal Text><br/> 0003 <Comment>; BMP2x Converter by Sven Langenkamp</Comment><br/> 0004 <Normal Text></Normal Text><br/> 0005 <Functions>UseJPEGImageEncoder</Functions><Separator>()</Separator><br/> 0006 <Functions>UsePNGImageEncoder</Functions><Separator>()</Separator><br/> 0007 <Normal Text></Normal Text><br/> 0008 <Keyword>Declare</Keyword><Normal Text> Convert</Normal Text><Separator>(</Separator><Normal Text>JPEG</Normal Text><Separator>)</Separator><br/> 0009 <Normal Text></Normal Text><br/> 0010 <Keyword>Enumeration </Keyword><Number>1</Number><br/> 0011 <Normal Text> </Normal Text><Constant>#JPEG</Constant><br/> 0012 <Normal Text> </Normal Text><Constant>#PNG</Constant><br/> 0013 <Keyword>EndEnumeration</Keyword><br/> 0014 <Normal Text></Normal Text><br/> 0015 <Region Marker>; BEGIN section</Region Marker><br/> 0016 <Normal Text></Normal Text><br/> 0017 <Normal Text></Normal Text><br/> 0018 <Region Marker>; END</Region Marker><br/> 0019 <Normal Text></Normal Text><br/> 0020 <Keyword>Global</Keyword><Normal Text> Count</Normal Text><br/> 0021 <Keyword>Global</Keyword><Normal Text> file</Normal Text><Separator>.</Separator><Normal Text>s</Normal Text><br/> 0022 <Keyword>Global</Keyword><Normal Text> filename</Normal Text><Separator>.</Separator><Normal Text>s</Normal Text><br/> 0023 <Keyword>Global</Keyword><Normal Text> fileext</Normal Text><Separator>.</Separator><Normal Text>s</Normal Text><br/> 0024 <Keyword>Global</Keyword><Normal Text> OutputFormat</Normal Text><br/> 0025 <Keyword>Global</Keyword><Normal Text> JPEGQuality</Normal Text><br/> 0026 <Normal Text></Normal Text><br/> 0027 <Normal Text>Count </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Number>0</Number><br/> 0028 <Normal Text>OutputFormat </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Number>1</Number><br/> 0029 <Normal Text>JPEGQuality </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Operator>-</Operator><Number>1</Number><br/> 0030 <Normal Text></Normal Text><br/> 0031 <Comment>; MAIN PROGRAM------------------------------------------------------------------</Comment><br/> 0032 <Normal Text></Normal Text><br/> 0033 <Comment>;Request Options</Comment><br/> 0034 <Functions>PrintN</Functions><Separator>(</Separator><String>"Output Format"</String><Separator>)</Separator><br/> 0035 <Functions>PrintN</Functions><Separator>(</Separator><String>" [1] JPEG"</String><Separator>)</Separator><br/> 0036 <Functions>PrintN</Functions><Separator>(</Separator><String>" [2] PNG"</String><Separator>)</Separator><br/> 0037 <Functions>Print</Functions><Normal Text> </Normal Text><Separator>(</Separator><String>"> "</String><Separator>)</Separator><br/> 0038 <Normal Text>OutputFormat </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Functions>Int</Functions><Separator>(</Separator><Functions>Input</Functions><Separator>())</Separator><br/> 0039 <Normal Text></Normal Text><br/> 0040 <Keyword>Select </Keyword><Normal Text>OutputFormat</Normal Text><br/> 0041 <Normal Text> </Normal Text><Keyword>Case</Keyword><Normal Text> </Normal Text><Constant>#JPEG</Constant><Separator>:</Separator><br/> 0042 <Normal Text> fileext </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String>".jpg"</String><br/> 0043 <Normal Text> </Normal Text><Comment>;Request JPEG Quality</Comment><br/> 0044 <Normal Text> </Normal Text><Functions>PrintN</Functions><Separator>(</Separator><String>""</String><Separator>)</Separator><br/> 0045 <Normal Text> </Normal Text><Functions>PrintN</Functions><Separator>(</Separator><String>"JPEG Quality"</String><Separator>)</Separator><br/> 0046 <Normal Text> </Normal Text><Functions>PrintN</Functions><Separator>(</Separator><String>" [0-10]"</String><Separator>)</Separator><br/> 0047 <Normal Text> </Normal Text><Functions>Print</Functions><Normal Text> </Normal Text><Separator>(</Separator><String>"> "</String><Separator>)</Separator><br/> 0048 <Normal Text> JPEGQuality </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Functions>Int</Functions><Separator>(</Separator><Functions>Input</Functions><Separator>())</Separator><br/> 0049 <Normal Text> </Normal Text><br/> 0050 <Normal Text> </Normal Text><Keyword>Case</Keyword><Normal Text> </Normal Text><Constant>#PNG</Constant><Separator>:</Separator><br/> 0051 <Normal Text> fileext </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><String>".png"</String><br/> 0052 <Keyword>EndSelect</Keyword><br/> 0053 <Normal Text></Normal Text><br/> 0054 <Comment>;Convert all BMP files in the current directory</Comment><br/> 0055 <Functions>ExamineDirectory</Functions><Separator>(</Separator><Number>0</Number><Separator>,</Separator><Normal Text> </Normal Text><String>""</String><Separator>,</Separator><Normal Text> </Normal Text><String>"*.bmp"</String><Separator>)</Separator><br/> 0056 <Keyword>While </Keyword><Functions>NextDirectoryEntry</Functions><Separator>()</Separator><Normal Text> </Normal Text><br/> 0057 <Normal Text> file </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Functions>DirectoryEntryName</Functions><Separator>()</Separator><br/> 0058 <Normal Text> filename </Normal Text><Operator>=</Operator><Normal Text> </Normal Text><Functions>GetFilePart</Functions><Separator>(</Separator><Normal Text>file</Normal Text><Separator>)</Separator><br/> 0059 <Normal Text> </Normal Text><br/> 0060 <Normal Text> </Normal Text><Keyword>If </Keyword><Functions>LoadImage</Functions><Separator>(</Separator><Number>0</Number><Separator>,</Separator><Normal Text> file</Normal Text><Separator>)</Separator><br/> 0061 <Normal Text> </Normal Text><Keyword>Select </Keyword><Normal Text>OutputFormat</Normal Text><br/> 0062 <Normal Text> </Normal Text><Keyword>Case</Keyword><Normal Text> </Normal Text><Constant>#JPEG</Constant><Separator>:</Separator><br/> 0063 <Normal Text> Convert</Normal Text><Separator>(</Separator><Normal Text>JPEGQuality</Normal Text><Separator>)</Separator><br/> 0064 <Normal Text> </Normal Text><br/> 0065 <Normal Text> </Normal Text><Keyword>Case</Keyword><Normal Text> </Normal Text><Constant>#PNG</Constant><Separator>:</Separator><br/> 0066 <Normal Text> Convert</Normal Text><Separator>(</Separator><Operator>-</Operator><Number>1</Number><Separator>)</Separator><br/> 0067 <Normal Text> </Normal Text><Keyword>EndSelect</Keyword><br/> 0068 <Normal Text> Count </Normal Text><Operator>=</Operator><Normal Text> Count </Normal Text><Operator>+</Operator><Number>1</Number><br/> 0069 <Normal Text> </Normal Text><Keyword>EndIf</Keyword><br/> 0070 <Normal Text> </Normal Text><br/> 0071 <Keyword>Wend</Keyword><br/> 0072 <Normal Text></Normal Text><br/> 0073 <Functions>PrintN</Functions><Separator>(</Separator><Functions>Str</Functions><Separator>(</Separator><Normal Text>Count</Normal Text><Separator>)</Separator><Normal Text> </Normal Text><Operator>+</Operator><Normal Text> </Normal Text><String>" files converted"</String><Separator>)</Separator><br/> 0074 <Functions>CloseConsole</Functions><Separator>()</Separator><br/> 0075 <Normal Text></Normal Text><br/> 0076 <Comment>; PROCUDURES--------------------------------------------------------------------</Comment><br/> 0077 <Normal Text></Normal Text><br/> 0078 <Keyword>Procedure </Keyword><Normal Text>Convert</Normal Text><Separator>(</Separator><Normal Text>JPEG</Normal Text><Separator>)</Separator><br/> 0079 <Normal Text> </Normal Text><Keyword>Shared</Keyword><Normal Text> filename</Normal Text><Separator>,</Separator><Normal Text> fileext</Normal Text><br/> 0080 <Normal Text> </Normal Text><br/> 0081 <Normal Text> </Normal Text><Keyword>If </Keyword><Normal Text>JPEG </Normal Text><Operator>></Operator><Normal Text> </Normal Text><Operator>-</Operator><Number>1</Number><br/> 0082 <Normal Text> </Normal Text><Functions>SaveImage</Functions><Separator>(</Separator><Number>0</Number><Separator>,</Separator><Normal Text> filename </Normal Text><Operator>+</Operator><Normal Text> fileext</Normal Text><Separator>,</Separator><Normal Text> </Normal Text><Constant>#PB_ImagePlugin_JPEG</Constant><Separator>,</Separator><Normal Text> JPEG</Normal Text><Separator>)</Separator><br/> 0083 <Normal Text> </Normal Text><Keyword>Else</Keyword><br/> 0084 <Normal Text> </Normal Text><Functions>SaveImage</Functions><Separator>(</Separator><Number>0</Number><Separator>,</Separator><Normal Text> filename </Normal Text><Operator>+</Operator><Normal Text> fileext</Normal Text><Separator>,</Separator><Normal Text> </Normal Text><Constant>#PB_ImagePlugin_PNG</Constant><Separator>)</Separator><Normal Text> </Normal Text><br/> 0085 <Normal Text> </Normal Text><Keyword>EndIf</Keyword><br/> 0086 <Normal Text> </Normal Text><Functions>PrintN</Functions><Separator>(</Separator><Normal Text>file </Normal Text><Operator>+</Operator><Normal Text> </Normal Text><String>" converted to "</String><Normal Text> </Normal Text><Operator>+</Operator><Normal Text> filename </Normal Text><Operator>+</Operator><Normal Text> fileext</Normal Text><Separator>)</Separator><br/> 0087 <Keyword>EndProcedure</Keyword><br/>