pygments.rb-jruby 0.5.4

data/vendor/pygments-main/tests/examplefiles/ca65_example

@@ -0,0 +1,284 @@
+;--------------------------------------
+; Lychrel numbers.
+; 
+; :author: Marc 'BlackJack' Rintsch
+; :date: 2008-03-07
+; :version: 0.1
+; 
+; Prints all `Lychrel numbers`_ between 1 and 100000.
+; 
+; The numbers are stored as array of "digits" in little endian
+; order.  Each digit is a byte with a value between 0 and 9.
+; 
+; Runtime on C64: 00:21:01
+; 
+; .. _Lychrel numbers: http://en.wikipedia.org/wiki/Lychrel_number
+; 
+; .. cl65 -l -tnone -C simple.cfg lychrel.s -o lychrel.prg
+;--------------------------------------
+
+;--------------------------------------
+; External addresses.
+;--------------------------------------
+	chrout	= $ffd2
+
+;--------------------------------------
+; Constants.
+;--------------------------------------
+	TO		= 100000
+	TO_DIGITS	= 10
+	ITERATIONS	= 100
+	MAX_DIGITS	= TO_DIGITS + ITERATIONS
+
+;--------------------------------------
+; Global variables.
+;--------------------------------------
+.zeropage
+; 
+; Length of the currently tested `n` in digits.
+; 
+n_length:
+	.res 1
+; 
+; Length of the number(s) `xa` and `xb` while testing.
+; 
+length:
+	.res 1
+
+.bss
+; 
+; Number to be tested as digits i.e. bytes with values between
+; 0 and 9.  The length is stored in `n_length`.
+; 
+n:
+	.res TO_DIGITS
+; 
+; Space for calculating the reversed and added values.
+; In the `main` code the current number is copied into `xa`
+; and then repeatedly `reverse_add`\ed to itself with the
+; result of that adding stored in `xb`.
+; 
+xa:
+	.res MAX_DIGITS
+xb:
+	.res MAX_DIGITS
+
+;--------------------------------------
+; BASIC header.
+;--------------------------------------
+.code
+	.word 0800h		; Load address.
+	.byte 0
+	.word @line_end
+	.word 2008		; Line number.
+	.byte $9e		; SYS token.
+	.byte "2080 "		; SYS argument.
+	.byte "LYCHREL NUMBERS/BJ"
+@line_end:
+	.byte 0, 0, 0		; Line and program end marker.
+
+;--------------------------------------
+; Main program.
+;--------------------------------------
+.proc main
+
+.zeropage
+; 
+; Three byte counter for `TO` iterations (100000 = $0186a0).
+; 
+i:
+	.res 3
+
+.code
+; 
+; Clear and set `n` and `i` to 1.
+; 
+	lda #0		; n := 0; n := 1; i := 1
+	sta i+1
+	sta i+2
+	ldx #TO_DIGITS
+clear_n:
+	sta n-1,x
+	dex
+	bne clear_n
+	inx
+	stx i
+	stx n
+	stx n_length
+	
+mainloop:
+	jsr is_lychrel
+	bcc no_lychrel
+	jsr print_n
+no_lychrel:
+	jsr increase_n
+	
+	inc i		; INC(i)
+	bne skip
+	inc i+1
+	bne skip
+	inc i+2
+skip:
+	lda i
+	cmp #<TO
+	bne mainloop
+	lda i+1
+	cmp #>TO
+	bne mainloop
+	lda i+2
+	cmp #^TO
+	bne mainloop
+	
+	rts
+.endproc
+
+;--------------------------------------
+; Print `n` and a trailing newline.
+;
+; :in: `n_length`, `n`
+;--------------------------------------
+.proc print_n
+	ldy n_length
+L1:
+	lda n-1,y
+	ora #%110000    ; = '0'
+	jsr chrout
+	dey
+	bne L1
+	
+	lda #13
+	jmp chrout
+.endproc
+
+;--------------------------------------
+; Increase `n` by one.
+; 
+; This procedure expects n[n_length] == 0 in case the number gets
+; one digit longer.
+; 
+; :in: `n`, `n_length`
+; :out: `n`, `n_length`
+;--------------------------------------
+.proc increase_n
+	ldx #0
+L1:
+	inc n,x		; Increase digit.
+	lda n,x
+	cmp #10		; If "carry", store 0 and go to next digit.
+	bne return
+	lda #0
+	sta n,x
+	inx
+	bne L1
+return:
+	cpx n_length	; If "carry" after last digit, increase length.
+	bcc skip
+	inc n_length
+skip:
+	rts
+.endproc
+
+;--------------------------------------
+; Tests if `n` is a Lychrel number.
+; 
+; :in: `n`, `n_length`
+; :out: C is set if yes, cleared otherwise.
+; :uses: `length`, `xa`, `xb`
+;--------------------------------------
+.proc is_lychrel
+.zeropage
+i:
+	.res 1
+
+.code
+	ldx n_length		; xa := n; length := n_length
+	stx length
+L1:
+	lda n-1,x
+	sta xa-1,x
+	dex
+	bne L1
+	
+	lda #ITERATIONS		; i := ITERATIONS
+	sta i
+L2:
+	jsr reverse_add
+	jsr is_palindrome
+	bne no_palindrome
+	clc
+	rts
+no_palindrome:
+	ldx length		; a := b
+L3:
+	lda xb-1,x
+	sta xa-1,x
+	dex
+	bne L3
+	
+	dec i			; Loop body end.
+	bne L2
+	
+	sec
+	rts
+.endproc
+
+;--------------------------------------
+; Add the reverse to `xa` to itself and store the result in `xb`.
+; 
+; :in: `length`, `xa`
+; :out: `length`, `xb`
+;--------------------------------------
+.proc reverse_add
+.code
+	ldx #0
+	ldy length
+	clc
+L1:
+	lda xa,x
+	adc xa-1,y
+	
+	cmp #10
+	bcc no_adjust
+	sbc #10
+no_adjust:
+	sta xb,x
+	
+	dey
+	inx
+	txa		; ``eor`` instead of ``cpx`` to keep the carry flag
+	eor length	; of the addition above.
+	bne L1
+	
+	bcc no_carry
+	lda #1
+	sta xb,x
+	inc length
+no_carry:
+	rts
+.endproc
+
+;--------------------------------------
+; Checks if `xb` is a palindrome.
+; 
+; :in: `length`, `xb`
+; :out: Z flag set if `xb` is a palindrome, cleared otherwise.
+;--------------------------------------
+.proc is_palindrome
+.code
+	ldx #0
+	lda length
+	tay
+	lsr
+	sta L1+1	; Self modifying code!
+L1:
+	cpx #0		; <<< 0 replaced by (`length` / 2).
+	beq return
+	lda xb,x
+	cmp xb-1,y
+	bne return
+	dey
+	inx
+	bne L1
+return:
+	rts
+.endproc

data/vendor/pygments-main/tests/examplefiles/cbmbas_example

@@ -0,0 +1,9 @@
+10 rem cbm basic v2 example
+20 rem comment with keywords: for, data
+30 dim a$(20)
+35 rem the typical space efficient form of leaving spaces out:
+40 fort=0to15:poke646,t:print"{revers on}     ";:next
+50 geta$:ifa$=chr$(0):goto40
+55 rem it is legal to omit the closing " on line end
+60 print"{white}":print"bye...
+70 end

data/vendor/pygments-main/tests/examplefiles/cells.ps

@@ -0,0 +1,515 @@
+%!PS-Adobe-2.0
+%%Creator: PS_Write.F
+%%Title: cells.ps
+%%Pages: 1
+%%Document-Fonts: Times-Roman
+%%CreationDate: 09/29/99 
+%%BoundingBox:   36   36  576  756
+%%EndComments
+%%BeginProlog
+%%EndProlog
+/inch {72 mul} def
+/Palatino-Roman findfont
+1.00 inch scalefont
+setfont
+ 0.0000 0.0000 0.0000 setrgbcolor
+%%Page: 1 1
+save
+ 0.7000 0.7000 0.7000 setrgbcolor
+ newpath
+ 497 294 moveto
+ 500 297 lineto
+ 503 300 lineto
+ 506 303 lineto
+ 510 307 lineto
+ 513 310 lineto
+ 516 313 lineto
+ 519 316 lineto
+ 522 319 lineto
+ 526 323 lineto
+ 529 326 lineto
+ 532 329 lineto
+ 535 332 lineto
+ 538 335 lineto
+ 541 338 lineto
+ 545 342 lineto
+ 548 345 lineto
+ 551 348 lineto
+ 554 351 lineto
+ 557 354 lineto
+ 561 358 lineto
+ 0.7000 0.7000 0.7000 setrgbcolor
+ stroke
+ newpath
+  51 358 moveto
+  65 385 lineto
+  84 408 lineto
+ 109 425 lineto
+ 138 433 lineto
+ 168 436 lineto
+ 198 435 lineto
+ 226 436 lineto
+ 252 442 lineto
+ 279 451 lineto
+ 306 463 lineto
+ 335 472 lineto
+ 365 475 lineto
+ 394 470 lineto
+ 421 455 lineto
+ 444 436 lineto
+ 465 414 lineto
+ 485 395 lineto
+ 508 380 lineto
+ 533 369 lineto
+ 561 358 lineto
+ 0.7000 0.7000 0.7000 setrgbcolor
+ stroke
+ newpath
+ 115 294 moveto
+ 112 297 lineto
+ 109 300 lineto
+ 106 303 lineto
+ 102 307 lineto
+  99 310 lineto
+  96 313 lineto
+  93 316 lineto
+  90 319 lineto
+  86 323 lineto
+  83 326 lineto
+  80 329 lineto
+  77 332 lineto
+  74 335 lineto
+  71 338 lineto
+  67 342 lineto
+  64 345 lineto
+  61 348 lineto
+  58 351 lineto
+  55 354 lineto
+  51 358 lineto
+ 0.7000 0.7000 0.7000 setrgbcolor
+ stroke
+ newpath
+ 115 294 moveto
+ 131 308 lineto
+ 147 321 lineto
+ 165 333 lineto
+ 183 344 lineto
+ 203 352 lineto
+ 223 360 lineto
+ 243 366 lineto
+ 264 370 lineto
+ 285 372 lineto
+ 306 373 lineto
+ 327 372 lineto
+ 348 370 lineto
+ 369 366 lineto
+ 389 360 lineto
+ 409 352 lineto
+ 429 344 lineto
+ 447 333 lineto
+ 465 321 lineto
+ 481 308 lineto
+ 497 294 lineto
+ 0.7000 0.7000 0.7000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 171 337 moveto
+ 164 348 lineto
+ 158 360 lineto
+ 151 371 lineto
+ 145 383 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 145 383 moveto
+ 126 372 lineto
+ 109 359 lineto
+  95 343 lineto
+  83 326 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+  83 326 moveto
+  91 318 lineto
+  99 310 lineto
+ 107 302 lineto
+ 115 294 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 115 294 moveto
+ 128 306 lineto
+ 142 317 lineto
+ 156 327 lineto
+ 171 337 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 236 364 moveto
+ 234 373 lineto
+ 231 382 lineto
+ 229 391 lineto
+ 226 400 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 226 400 moveto
+ 206 397 lineto
+ 185 394 lineto
+ 165 390 lineto
+ 145 383 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 145 383 moveto
+ 151 371 lineto
+ 158 360 lineto
+ 164 348 lineto
+ 171 337 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 171 337 moveto
+ 187 345 lineto
+ 203 352 lineto
+ 219 359 lineto
+ 236 364 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 306 373 moveto
+ 306 384 lineto
+ 306 396 lineto
+ 306 407 lineto
+ 306 418 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 306 418 moveto
+ 286 413 lineto
+ 266 408 lineto
+ 246 403 lineto
+ 226 400 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 226 400 moveto
+ 229 391 lineto
+ 231 382 lineto
+ 234 373 lineto
+ 236 364 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 236 364 moveto
+ 253 368 lineto
+ 271 371 lineto
+ 288 372 lineto
+ 306 373 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 376 364 moveto
+ 379 377 lineto
+ 383 389 lineto
+ 386 402 lineto
+ 390 415 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 390 415 moveto
+ 369 421 lineto
+ 348 423 lineto
+ 327 422 lineto
+ 306 418 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 306 418 moveto
+ 306 407 lineto
+ 306 396 lineto
+ 306 384 lineto
+ 306 373 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 306 373 moveto
+ 324 372 lineto
+ 341 371 lineto
+ 359 368 lineto
+ 376 364 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 441 337 moveto
+ 446 345 lineto
+ 450 353 lineto
+ 455 361 lineto
+ 460 369 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 460 369 moveto
+ 443 381 lineto
+ 427 394 lineto
+ 409 406 lineto
+ 390 415 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 390 415 moveto
+ 386 402 lineto
+ 383 389 lineto
+ 379 377 lineto
+ 376 364 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 376 364 moveto
+ 393 359 lineto
+ 409 352 lineto
+ 425 345 lineto
+ 441 337 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 497 294 moveto
+ 505 302 lineto
+ 513 310 lineto
+ 521 318 lineto
+ 529 326 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 529 326 moveto
+ 511 336 lineto
+ 493 347 lineto
+ 476 357 lineto
+ 460 369 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 460 369 moveto
+ 455 361 lineto
+ 450 353 lineto
+ 446 345 lineto
+ 441 337 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 441 337 moveto
+ 456 327 lineto
+ 470 317 lineto
+ 484 306 lineto
+ 497 294 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 145 383 moveto
+ 138 394 lineto
+ 131 405 lineto
+ 125 417 lineto
+ 118 428 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 118 428 moveto
+  96 417 lineto
+  77 401 lineto
+  63 380 lineto
+  51 358 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+  51 358 moveto
+  59 350 lineto
+  67 342 lineto
+  75 334 lineto
+  83 326 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+  83 326 moveto
+  95 343 lineto
+ 109 359 lineto
+ 126 372 lineto
+ 145 383 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 226 400 moveto
+ 224 409 lineto
+ 222 418 lineto
+ 219 427 lineto
+ 217 436 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 217 436 moveto
+ 193 435 lineto
+ 168 436 lineto
+ 143 434 lineto
+ 118 428 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 118 428 moveto
+ 125 417 lineto
+ 131 405 lineto
+ 138 394 lineto
+ 145 383 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 145 383 moveto
+ 165 390 lineto
+ 185 394 lineto
+ 206 397 lineto
+ 226 400 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 306 418 moveto
+ 306 429 lineto
+ 306 441 lineto
+ 306 452 lineto
+ 306 463 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 306 463 moveto
+ 283 453 lineto
+ 261 444 lineto
+ 239 438 lineto
+ 217 436 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 217 436 moveto
+ 219 427 lineto
+ 222 418 lineto
+ 224 409 lineto
+ 226 400 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 226 400 moveto
+ 246 403 lineto
+ 266 408 lineto
+ 286 413 lineto
+ 306 418 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 390 415 moveto
+ 393 428 lineto
+ 396 440 lineto
+ 400 453 lineto
+ 403 466 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 403 466 moveto
+ 380 474 lineto
+ 355 475 lineto
+ 330 471 lineto
+ 306 463 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 306 463 moveto
+ 306 452 lineto
+ 306 441 lineto
+ 306 429 lineto
+ 306 418 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 306 418 moveto
+ 327 422 lineto
+ 348 423 lineto
+ 369 421 lineto
+ 390 415 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 460 369 moveto
+ 464 377 lineto
+ 469 385 lineto
+ 474 393 lineto
+ 478 401 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 478 401 moveto
+ 461 418 lineto
+ 444 436 lineto
+ 425 452 lineto
+ 403 466 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 403 466 moveto
+ 400 453 lineto
+ 396 440 lineto
+ 393 428 lineto
+ 390 415 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 390 415 moveto
+ 409 406 lineto
+ 427 394 lineto
+ 443 381 lineto
+ 460 369 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ 0.0000 0.0000 0.4000 setrgbcolor
+ newpath
+ 529 326 moveto
+ 537 334 lineto
+ 545 342 lineto
+ 553 350 lineto
+ 561 358 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 561 358 moveto
+ 537 367 lineto
+ 516 376 lineto
+ 496 387 lineto
+ 478 401 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 478 401 moveto
+ 474 393 lineto
+ 469 385 lineto
+ 464 377 lineto
+ 460 369 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+ newpath
+ 460 369 moveto
+ 476 357 lineto
+ 493 347 lineto
+ 511 336 lineto
+ 529 326 lineto
+ 0.0000 0.0000 0.4000 setrgbcolor
+ stroke
+restore 
+showpage
+%%Trailer
+%%Pages:      1
+%%EOF