File: highlight.pb.dark.html

package info (click to toggle)
kf6-syntax-highlighting 6.23.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 51,200 kB
  • sloc: xml: 210,435; cpp: 12,977; python: 3,281; sh: 965; perl: 813; ruby: 494; pascal: 393; javascript: 161; php: 159; haskell: 141; jsp: 132; lisp: 131; ada: 119; ansic: 107; makefile: 96; f90: 94; ml: 85; cobol: 81; yacc: 71; csh: 62; exp: 61; erlang: 54; sql: 51; java: 47; sed: 45; objc: 37; tcl: 36; awk: 31; asm: 30; fortran: 18; cs: 10
file content (94 lines) | stat: -rw-r--r-- 6,169 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>highlight.pb</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (PureBasic) - Theme (Breeze Dark)"/>
</head><body style="background-color:#232629;color:#cfcfc2"><pre>
<span style="color:#7a7c7d">; This is a test file for kate's PureBasic highlighting.</span>

<span style="color:#7a7c7d">; BMP2x Converter by Sven Langenkamp</span>

<span style="color:#8e44ad">UseJPEGImageEncoder</span>()
<span style="color:#8e44ad">UsePNGImageEncoder</span>()

<span style="font-weight:bold">Declare</span> Convert(JPEG)

<span style="font-weight:bold">Enumeration </span><span style="color:#f67400">1</span>
    <span style="color:#2980b9">#JPEG</span>
    <span style="color:#2980b9">#PNG</span>
<span style="font-weight:bold">EndEnumeration</span>

<span style="color:#2980b9;background-color:#153042">; BEGIN section</span>


<span style="color:#2980b9;background-color:#153042">; END</span>

<span style="font-weight:bold">Global</span> Count
<span style="font-weight:bold">Global</span> file.s
<span style="font-weight:bold">Global</span> filename.s
<span style="font-weight:bold">Global</span> fileext.s
<span style="font-weight:bold">Global</span> OutputFormat
<span style="font-weight:bold">Global</span> JPEGQuality

Count        <span style="color:#3f8058">=</span> <span style="color:#f67400">0</span>
OutputFormat <span style="color:#3f8058">=</span> <span style="color:#f67400">1</span>
JPEGQuality  <span style="color:#3f8058">=</span> <span style="color:#3f8058">-</span><span style="color:#f67400">1</span>

<span style="color:#7a7c7d">; MAIN PROGRAM------------------------------------------------------------------</span>

<span style="color:#7a7c7d">;Request Options</span>
<span style="color:#8e44ad">PrintN</span>(<span style="color:#f44f4f">"Output Format"</span>)
<span style="color:#8e44ad">PrintN</span>(<span style="color:#f44f4f">"  [1] JPEG"</span>)
<span style="color:#8e44ad">PrintN</span>(<span style="color:#f44f4f">"  [2] PNG"</span>)
<span style="color:#8e44ad">Print</span> (<span style="color:#f44f4f">"> "</span>)
OutputFormat <span style="color:#3f8058">=</span> <span style="color:#8e44ad">Int</span>(<span style="color:#8e44ad">Input</span>())

<span style="font-weight:bold">Select </span>OutputFormat
    <span style="font-weight:bold">Case</span> <span style="color:#2980b9">#JPEG</span>:
        fileext <span style="color:#3f8058">=</span> <span style="color:#f44f4f">".jpg"</span>
        <span style="color:#7a7c7d">;Request JPEG Quality</span>
        <span style="color:#8e44ad">PrintN</span>(<span style="color:#f44f4f">""</span>)
        <span style="color:#8e44ad">PrintN</span>(<span style="color:#f44f4f">"JPEG Quality"</span>)
        <span style="color:#8e44ad">PrintN</span>(<span style="color:#f44f4f">"  [0-10]"</span>)
        <span style="color:#8e44ad">Print</span> (<span style="color:#f44f4f">"> "</span>)
        JPEGQuality <span style="color:#3f8058">=</span> <span style="color:#8e44ad">Int</span>(<span style="color:#8e44ad">Input</span>())
    
    <span style="font-weight:bold">Case</span> <span style="color:#2980b9">#PNG</span>:
        fileext <span style="color:#3f8058">=</span> <span style="color:#f44f4f">".png"</span>
<span style="font-weight:bold">EndSelect</span>

<span style="color:#7a7c7d">;Convert all BMP files in the current directory</span>
<span style="color:#8e44ad">ExamineDirectory</span>(<span style="color:#f67400">0</span>, <span style="color:#f44f4f">""</span>, <span style="color:#f44f4f">"*.bmp"</span>)
<span style="font-weight:bold">While </span><span style="color:#8e44ad">NextDirectoryEntry</span>()   
    file     <span style="color:#3f8058">=</span> <span style="color:#8e44ad">DirectoryEntryName</span>()
    filename <span style="color:#3f8058">=</span> <span style="color:#8e44ad">GetFilePart</span>(file)
    
    <span style="font-weight:bold">If </span><span style="color:#8e44ad">LoadImage</span>(<span style="color:#f67400">0</span>, file)
        <span style="font-weight:bold">Select </span>OutputFormat
	    <span style="font-weight:bold">Case</span> <span style="color:#2980b9">#JPEG</span>:
	      Convert(JPEGQuality)
	      
	    <span style="font-weight:bold">Case</span> <span style="color:#2980b9">#PNG</span>:
	        Convert(<span style="color:#3f8058">-</span><span style="color:#f67400">1</span>)
	<span style="font-weight:bold">EndSelect</span>
	Count <span style="color:#3f8058">=</span> Count <span style="color:#3f8058">+</span><span style="color:#f67400">1</span>
    <span style="font-weight:bold">EndIf</span>
    
<span style="font-weight:bold">Wend</span>

<span style="color:#8e44ad">PrintN</span>(<span style="color:#8e44ad">Str</span>(Count) <span style="color:#3f8058">+</span> <span style="color:#f44f4f">" files converted"</span>)
<span style="color:#8e44ad">CloseConsole</span>()

<span style="color:#7a7c7d">; PROCUDURES--------------------------------------------------------------------</span>

<span style="font-weight:bold">Procedure </span>Convert(JPEG)
    <span style="font-weight:bold">Shared</span> filename, fileext
    
    <span style="font-weight:bold">If </span>JPEG <span style="color:#3f8058">></span> <span style="color:#3f8058">-</span><span style="color:#f67400">1</span>
        <span style="color:#8e44ad">SaveImage</span>(<span style="color:#f67400">0</span>, filename <span style="color:#3f8058">+</span> fileext, <span style="color:#2980b9">#PB_ImagePlugin_JPEG</span>, JPEG)
    <span style="font-weight:bold">Else</span>
        <span style="color:#8e44ad">SaveImage</span>(<span style="color:#f67400">0</span>, filename <span style="color:#3f8058">+</span> fileext, <span style="color:#2980b9">#PB_ImagePlugin_PNG</span>)    
    <span style="font-weight:bold">EndIf</span>
    <span style="color:#8e44ad">PrintN</span>(file <span style="color:#3f8058">+</span> <span style="color:#f44f4f">" converted to "</span> <span style="color:#3f8058">+</span> filename <span style="color:#3f8058">+</span> fileext)
<span style="font-weight:bold">EndProcedure</span>
</pre></body></html>