autotests/folding/highlight.pb.fold

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'>