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