[0m[0mWe are writing text.[0m[31;1m
[0m[0m[0m [0m[31;1m[0m[1m<%[0m[0m=newVar[0m[1m%>[0m[31;1m
[0m[0m[0m [0m[31;1m[0m[0mWe have written text and outputted a variable.[0m[31;1m
[0m[0m[0m [0m[0m[0m [0m[1m<%[0m[0m [0m[32mend if[0m[0m[0m [0m[1mend sub[0m[0m [0m[1m%>[0mtesting standalone ok 32 testing AVR Assembler ok 33 ok 34 testing as kate plugin ok 35 [37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Decodeur de trame pulsadis EJP et préavis EJP[0m[37;1;44m[0m [0m[37;1;44m; (pic 12C508 ou 509)[0m[37;1;44m[0m [0m[37;1;44m; Alain Gibaud, 20-2-2001[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; ========================================================[0m[37;1;44m[0m [0m[0m list r=hex,p=p12c508[0m[0m[0m [0m[0m[0m [0m[0m include [0m[31m"p12c508.inc"[0m[0m[0m [0m[0mGP0 equ [0m[34;1m0[0m[0m[0m [0m[0mGP1 equ [0m[34;1m1[0m[0m[0m [0m[0mGP2 equ [0m[34;1m2[0m[0m[0m [0m[0mGP3 equ [0m[34;1m3[0m[0m[0m [0m[0mGP4 equ [0m[34;1m4[0m[0m[0m [0m[0mGP5 equ [0m[34;1m5[0m[0m[0m [0m[0mTO equ [0m[34;1m4[0m[0m [0m[0m[0m [0m[37;1;44m; masques pour acceder aux pattes[0m[37;1;44m[0m [0m[0mGP0bit equ [0m[34;1m1[0m[0m << GP0[0m[0m[0m [0m[0mGP1bit equ [0m[34;1m1[0m[0m << GP1[0m[0m[0m [0m[0mGP2bit equ [0m[34;1m1[0m[0m << GP2[0m[0m[0m [0m[0mGP3bit equ [0m[34;1m1[0m[0m << GP3[0m[0m[0m [0m[0mGP4bit equ [0m[34;1m1[0m[0m << GP4 [0m[0m[0m [0m[0mGP5bit equ [0m[34;1m1[0m[0m << GP5 [0m[0m[0m [0m[37;1;44m; ========================================================[0m[37;1;44m[0m [0m[37;1;44m; affectation des pattes[0m[37;1;44m[0m [0m[37;1;44m; [0m[37;1;44m[0m [0m[0m[0m [0m[37;1;44m; sorties: (actives niv bas)[0m[37;1;44m[0m [0m[0mNORMAL equ GP0 [0m[37;1;44m; LED verte[0m[37;1;44m[0m [0m[0mALERTE equ GP1 [0m[37;1;44m; LED orange[0m[37;1;44m[0m [0m[0mEJP equ GP2 [0m[37;1;44m; LED rouge[0m[37;1;44m[0m [0m[37;1;44m; entrees:( actives niv bas)[0m[37;1;44m[0m [0m[0mSIGNAL equ GP3 [0m[37;1;44m; avec pull-up, en provenance filtre 175 Hz[0m[37;1;44m[0m [0m[37;1;44m; GP4-5 sont utilisees par l'horloge[0m[37;1;44m[0m [0m[37;1;44m; ========================================================[0m[37;1;44m[0m [0m[37;1;44m; variables:[0m[37;1;44m[0m [0m[0mTICKS equ [0m[32m0x7[0m[0m [0m[37;1;44m; compteur de ticks (1 tick = 2/100 s)[0m[37;1;44m[0m [0m[0mSLOT equ [0m[32m0x8[0m[0m [0m[37;1;44m; numero slot dans la trame [0m[37;1;44m[0m [0m[37;1;44m; =======================================================[0m[37;1;44m[0m [0m[37;1;44m; Macros pour alleger le code ...[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Teste si min <= (var) < max[0m[37;1;44m[0m [0m[37;1;44m; branche en "in" si oui, en "out" si non.[0m[37;1;44m[0m [0m[37;1;44m; [0m[37;1;44m[0m [0m[0mLminmax macro var,min,max,outm,[0m[1min[0m[0m,outp[0m[0m[0m [0m[0m movlw min[0m[0m[0m [0m[0m subwf var,W [0m[37;1;44m; (var) - min[0m[37;1;44m[0m [0m[0m btfss STATUS,C[0m[0m[0m [0m[0m goto outm [0m[37;1;44m; C=0 => resutat < 0 => var < min[0m[37;1;44m[0m [0m[0m [0m[0m[0m [0m[0m movlw max[0m[0m[0m [0m[0m subwf var,W [0m[37;1;44m; (var) - max[0m[37;1;44m[0m [0m[0m btfss STATUS,C[0m[0m[0m [0m[0m goto [0m[1min[0m[0m[0m [0m[0m goto outp [0m[37;1;44m; C=1 => resutat >= 0 => var >= min[0m[37;1;44m[0m [0m[0m endm[0m[0m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Attend que le bit "bit" du registre "reg" soit a 1[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[0mWaitbit1 macro reg,bit[0m[0m[0m [0m[0m local Wait1[0m[0m[0m [0m[0mWait1 btfss reg,bit[0m[0m[0m [0m[0m goto Wait1[0m[0m[0m [0m[0m endm[0m[0m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Attend que le bit "bit" du registre "reg" soit a 0[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[0mWaitbit0 macro reg,bit[0m[0m[0m [0m[0m local Wait0[0m[0m[0m [0m[0mWait0 btfsc reg,bit[0m[0m[0m [0m[0m goto Wait0[0m[0m[0m [0m[0m endm[0m[0m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Branche en "label" si (reg) == num, sinon continue[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[0mBeq macro label,reg,num[0m[0m[0m [0m[0m movlw num[0m[0m[0m [0m[0m subwf reg,W[0m[0m[0m [0m[0m btfsc STATUS,Z [0m[0m[0m [0m[0m goto label[0m[0m[0m [0m[0m endm[0m[0m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Branche en "label" si (reg) != num, sinon continue[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[0mBne macro label,reg,num[0m[0m[0m [0m[0m movlw num[0m[0m[0m [0m[0m subwf reg,W[0m[0m[0m [0m[0m btfss STATUS,Z [0m[0m[0m [0m[0m goto label[0m[0m[0m [0m[0m endm [0m[0m[0m [0m[0m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Branche en "label" si (reg) < num, sinon continue[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[0mBlt macro label,reg,num[0m[0m[0m [0m[0m movlw num[0m[0m[0m [0m[0m subwf reg,W [0m[37;1;44m; reg - W[0m[37;1;44m[0m [0m[0m btfss STATUS,C [0m[0m[0m [0m[0m goto label [0m[37;1;44m; C=0 => reg - W < 0[0m[37;1;44m[0m [0m[0m endm[0m[0m[0m [0m[0m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; Branche en "label" si (reg) >= num, sinon continue[0m[37;1;44m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[0mBge macro label,reg,num[0m[0m[0m [0m[0m movlw num[0m[0m[0m [0m[0m subwf reg,W [0m[37;1;44m; reg - W[0m[37;1;44m[0m [0m[0m btfsc STATUS,C [0m[0m[0m [0m[0m goto label [0m[37;1;44m; C=1 => reg - W >= 0[0m[37;1;44m[0m [0m[0m endm[0m[0m[0m [0m[37;1;44m; ========================================================[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; CONFIG word ( en FFF )[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; bits 11:5 don't care[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; bit 4 : MCLRE enabled = 1, tied to Vdd = 0[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; bit 3 : code protection off = 1, on = 0[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; bit 2 : no watchdog = 0, watchdog = 1[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; bit 1-0 ; EXTRC = 00, INTRC = 10, XT = 01, LP = 00[0m[37;1;44m[0m [0m[0m [0m[0m[0m [0m[0m __CONFIG B[0m[35m'0[0m[0m00000001101[0m[35m' [0m[37;1;44m; (horloge a quartz, avec watchdog) [0m[37;1;44m[0m [0m[37;1;44m; ======================================================== [0m[37;1;44m[0m [0m[0m org [0m[34;1m0[0m[0m[0m [0m[0m goto debut[0m[0m[0m [0m[37;1;44m;=========================================================[0m[37;1;44m[0m [0m[37;1;44m; sous-programmes[0m[37;1;44m[0m [0m[37;1;44m; ========================================================[0m[37;1;44m[0m [0m[37;1;44m; regarde si le timer est passe a 0[0m[37;1;44m[0m [0m[37;1;44m; si oui, le compteur de ticks est incremente[0m[37;1;44m[0m [0m[37;1;44m; et on attend le repassage a 1 [0m[37;1;44m[0m [0m[37;1;44m; Cette routine DOIT etre appelee tout les 2/100 s ou plus souvent[0m[37;1;44m[0m [0m[0mtickcount[0m[0m[0m [0m[0m clrwdt[0m[0m[0m [0m[0m movf TMR0,W[0m[0m[0m [0m[0m btfss STATUS,Z[0m[0m[0m [0m[0m retlw [0m[34;1m0[0m[0m[0m [0m[0m [0m[0m[0m [0m[0m incf TICKS,F[0m[0m[0m [0m[37;1;44m; attendre que le timer ait depasse 0[0m[37;1;44m[0m [0m[0mwaitnoZ[0m[0m[0m [0m[0m clrwdt[0m[0m[0m [0m[0m movf TMR0,W[0m[0m[0m [0m[0m btfsc STATUS,Z[0m[0m[0m [0m[0m goto waitnoZ[0m[0m[0m [0m[0m retlw [0m[34;1m0[0m[0m[0m [0m[37;1;44m; [0m[37;1;44m[0m [0m[37;1;44m; les 2 fct qui suivent maintiennent, le compteur de ticks[0m[37;1;44m[0m [0m[37;1;44m; (en plus de scruter une patte)[0m[37;1;44m[0m [0m[37;1;44m; attente d'un signal (logique negative)[0m[37;1;44m[0m [0m[0mwaitsignal[0m[0m[0m [0m[0m [0m[1mcall[0m[0m tickcount[0m[0m[0m [0m[0m btfsc GPIO,SIGNAL[0m[0m[0m [0m[0m goto waitsignal[0m[0m[0m [0m[0m retlw [0m[34;1m0[0m[0m[0m [0m[37;1;44m; attente fin signal[0m[37;1;44m[0m [0m[0mwaitnosignal[0m[0m[0m [0m[0m [0m[1mcall[0m[0m tickcount[0m[0m[0m [0m[0m btfss GPIO,SIGNAL[0m[0m[0m [0m[0m goto waitnosignal[0m[0m[0m [0m[0m retlw [0m[34;1m0[0m[0m[0m [0m[37;1;44m; remet a zero le compteur de ticks et le timer et le watchdog[0m[37;1;44m[0m [0m[0mclearticks[0m[0m[0m [0m[0m clrwdt[0m[0m[0m [0m[0m clrw[0m[0m[0m [0m[0m movwf TICKS[0m[0m[0m [0m[0m movwf TMR0[0m[0m[0m [0m[0m [0m[37;1;44m; pour eviter un timeout immediat, le timer est charge [0m[37;1;44m[0m [0m[0m [0m[37;1;44m; a 1, et le 1er tick ne fait que 0.019922s au lieu de 0.2s[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; (ce n'est pas grave dans la mesure ou de toute facon,[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; le temps de traitement entre les different declenchements [0m[37;1;44m[0m [0m[0m [0m[37;1;44m; de chrono n'est pas nul)[0m[37;1;44m[0m [0m[0m incf TMR0,F [0m[0m[0m [0m[0m retlw [0m[34;1m0[0m[0m[0m [0m[0m[0m [0m[37;1;44m;[0m[37;1;44m[0m [0m[37;1;44m; ==========================================================[0m[37;1;44m[0m [0m[37;1;44m; [0m[37;1;44m[0m [0m[0mdebut [0m[0m[0m [0m[0m [0m[37;1;44m; reset par Watchdog ?[0m[37;1;44m[0m [0m[0m btfsc STATUS,TO[0m[0m[0m [0m[0m goto notimeout[0m[0m[0m [0m[0m [0m[37;1;44m; TO == 0 : OUI[0m[37;1;44m[0m [0m[0m clrwdt[0m[0m[0m [0m[0m goto [0m[32m0x1FF[0m[0m [0m[37;1;44m; recalibrage, 0x3FF sur 12C509[0m[37;1;44m[0m [0m[0m [0m[0m[0m [0m[0m [0m[37;1;44m; TO == 1 : NON[0m[37;1;44m[0m [0m[0mnotimeout [0m[0m[0m [0m[0m movwf OSCCAL [0m[37;1;44m; recalibrer l'horloge[0m[37;1;44m[0m [0m[0m clrf TMR0 [0m[37;1;44m; RAZ timer[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; GPWU=1 : disable wake up on pin change[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; GPPU=0 : enable pullups (a voir avec le hard ..)[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; T0CS=0 : timer connected to F/4[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; T0SE=x : dont't care[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; PSA=0 : prescaler assigned to timer[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; PS2-0= : timer prescaler 111= 1/256, 101 = 1/64, 011 = 1/16[0m[37;1;44m[0m [0m[0m movlw B[0m[35m'1[0m[0m0010101[0m[35m' [0m[0m[0m [0m[0m option [0m[0m[0m [0m[0m [0m[0m[0m [0m[0m [0m[37;1;44m; config des pattes[0m[37;1;44m[0m [0m[0m movlw B[0m[35m'0[0m[0m0001000[0m[35m' [0m[37;1;44m; GP0-2 en sortie, GP3 entree[0m[37;1;44m[0m [0m[0m tris GPIO[0m[0m[0m [0m[0m [0m[0m[0m [0m[0m [0m[37;1;44m; se mettre en mode normal[0m[37;1;44m[0m [0m[0m bcf GPIO,NORMAL[0m[0m[0m [0m[0m bsf GPIO,ALERTE[0m[0m[0m [0m[0m bsf GPIO,EJP[0m[0m[0m [0m[0m [0m[0m[0m [0m[0m [0m[0m[0m [0m[0mattendre_trame[0m[0m[0m [0m[0m [0m[1mcall[0m[0m waitnosignal [0m[37;1;44m; attendre ...[0m[37;1;44m[0m [0m[0m [0m[1mcall[0m[0m waitsignal [0m[37;1;44m; ... front montant [0m[37;1;44m[0m [0m[0m [0m[1mcall[0m[0m clearticks[0m[0m[0m [0m[0m [0m[1mcall[0m[0m waitnosignal[0m[0m[0m [0m[0m [0m[37;1;44m; 45 tk = 0.9s, 55 tk = 1.1s[0m[37;1;44m[0m [0m[0m Lminmax TICKS,D[0m[35m'4[0m[0m5[0m[35m',[0m[0mD[0m[35m'5[0m[0m5[0m[35m',[0m[0mattendre_trame,pulse1s,attendre_trame[0m[0m[0m [0m[0mpulse1s[0m[0m[0m [0m[0m[0m [0m[0m [0m[37;1;44m; attendre 162,5 tk = 2.75 s + 0.5 s = 3.25 s[0m[37;1;44m[0m [0m[0m [0m[1mcall[0m[0m clearticks[0m[0m[0m [0m[0magain325[0m[0m[0m [0m[0m [0m[1mcall[0m[0m tickcount[0m[0m[0m [0m[0m Lminmax TICKS,D[0m[35m'1[0m[0m62[0m[35m',[0m[0mD[0m[35m'1[0m[0m62[0m[35m',[0m[0magain325,again325,end325[0m[0m[0m [0m[0mend325[0m[0m[0m [0m[0m[0m [0m[0m [0m[37;1;44m; on est maintenant au centre du 1er bit[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; il suffit d'echantillonner toutes les 2.5s[0m[37;1;44m[0m [0m[0m movlw [0m[34;1m1[0m[0m[0m [0m[0m movwf SLOT[0m[0m[0m [0m[0m [0m[0m[0m [0m[0msample btfsc GPIO,SIGNAL [0m[37;1;44m; logique negative[0m[37;1;44m[0m [0m[0m goto slot40[0m[0m[0m [0m[0m [0m[0m[0m [0m[0m [0m[37;1;44m; signal detecte !![0m[37;1;44m[0m [0m[0m Bne not5,SLOT,D[0m[35m'5' [0m[37;1;44m; slot == 5 ?[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; oui - 5 = passage en alerte[0m[37;1;44m[0m [0m[0m bsf GPIO,NORMAL [0m[37;1;44m; bit a 1 = LED eteinte[0m[37;1;44m[0m [0m[0m bsf GPIO,EJP [0m[37;1;44m; bit a 1 = LED eteinte[0m[37;1;44m[0m [0m[0m bcf GPIO,ALERTE [0m[37;1;44m; bit a 0 = LED allumee[0m[37;1;44m[0m [0m[0m goto nextslot[0m[0m[0m [0m[0mnot5[0m[0m[0m [0m[0m Bne not15,SLOT,D[0m[35m'1[0m[0m5[0m[35m' [0m[37;1;44m; slot == 15 ?[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; oui[0m[37;1;44m[0m [0m[0m btfsc GPIO,ALERTE [0m[37;1;44m; deja en alerte ?[0m[37;1;44m[0m [0m[0m goto endejp[0m[0m[0m [0m[0m [0m[37;1;44m; oui - 5 & 15 = debut ejp [0m[37;1;44m[0m [0m[0m bsf GPIO,NORMAL [0m[37;1;44m; bit a 1 = LED eteinte[0m[37;1;44m[0m [0m[0m bsf GPIO,ALERTE [0m[37;1;44m; bit a 1 = LED eteinte[0m[37;1;44m[0m [0m[0m bcf GPIO,EJP [0m[37;1;44m; bit a 0 = LED allumee[0m[37;1;44m[0m [0m[0m goto nextslot[0m[0m[0m [0m[0mendejp[0m[0m[0m [0m[0m [0m[37;1;44m; non - 15 seul = fin ejp[0m[37;1;44m[0m [0m[0m bsf GPIO,EJP [0m[37;1;44m; bit a 1 = LED eteinte[0m[37;1;44m[0m [0m[0m bsf GPIO,ALERTE [0m[37;1;44m; bit a 1 = LED eteinte[0m[37;1;44m[0m [0m[0m bcf GPIO,NORMAL [0m[37;1;44m; bit a 0 = LED allumee[0m[37;1;44m[0m [0m[0m goto nextslot[0m[0m[0m [0m[0m [0m[0m[0m [0m[0mnot15[0m[0m[0m [0m[0mslot40[0m[0m[0m [0m[0m [0m[37;1;44m; slot 40 ?[0m[37;1;44m[0m [0m[0m Bne nextslot,SLOT,D[0m[35m'4[0m[0m0[0m[35m' [0m[37;1;44m; slot == 40 ?[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; et attendre une nouvelle trame[0m[37;1;44m[0m [0m[0m[0m [0m[0m goto attendre_trame[0m[0m[0m [0m[0mnextslot[0m[0m[0m [0m[0m incf SLOT,F[0m[0m[0m [0m[0m [0m[0m[0m [0m[0m [0m[37;1;44m; si le signal est a 1, on en profite pour se resynchroniser[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; sur son front descendant, au cas ou l'emetteur ne soit pas[0m[37;1;44m[0m [0m[0m [0m[37;1;44m; bien conforme au protocole.[0m[37;1;44m[0m [0m[0m btfss GPIO,SIGNAL[0m[0m[0m [0m[0m goto resynchro[0m[0m[0m [0m[0m [0m[37;1;44m; attendre 125 ticks = 2.5s[0m[37;1;44m[0m [0m[0m [0m[1mcall[0m[0m clearticks[0m[0m[0m [0m[0magain125[0m[0m[0m [0m[0m [0m[1mcall[0m[0m tickcount[0m[0m[0m [0m[0m Lminmax TICKS,D[0m[35m'1[0m[0m25[0m[35m',[0m[0mD[0m[35m'1[0m[0m26[0m[35m',[0m[0magain125,sample,again125[0m[0m[0m [0m[0m [0m[0m[0m [0m[0mresynchro [0m[0m[0m [0m[0m [0m[1mcall[0m[0m waitnosignal[0m[0m[0m [0m[0m [0m[1mcall[0m[0m clearticks[0m[0m[0m [0m[0magain100 [0m[37;1;44m; attente 2 s (100 ticks) [0m[37;1;44m[0m [0m[0m [0m[1mcall[0m[0m tickcount[0m[0m[0m [0m[0m Lminmax TICKS,D[0m[35m'1[0m[0m00[0m[35m',[0m[0mD[0m[35m'1[0m[0m01[0m[35m',[0m[0magain100,sample,again100[0m[0m[0m [0m[0m[0m [0m[0m end[0m[0m[0m [0m[0m[0m [0m[0m[0m [0mtesting standalone ok 36 testing AWK ok 37 ok 38 testing as kate plugin ok 39 [37;1;44m#!/usr[0m[37;1;44m[0m [0m[37;1;44m# AWK hl test[0m[37;1;44m[0m [0m[0m[0m [0m[37;1;44m# BEGIN and END are also matched as patterns[0m[37;1;44m[0m [0m[31mBEGIN[0m[0m [0m[1m{[0m[0m[0m [0m[0m p = [0m[34;1m0[0m[0m;[0m[0m[0m [0m[1m}[0m[0m[0m [0m[0m[0m [0m[31m/some pattern/[0m[0m [0m[1m{[0m[0m[0m [0m[0m p++;[0m[0m[0m [0m[1m}[0m[0m[0m [0m[0m[0m [0m[37;1;44m# / inside brackets is not considered end of expression[0m[37;1;44m[0m [0m[37;1;44m# a loose division operator (/) is not mismatched as a pattern.[0m[37;1;44m[0m [0m[33;1;42m$1[0m[0m =~ [0m[31m/[^abc/]def/[0m[0m || b == [0m[34;1m3[0m[0m [0m[31m/ 5 {[0m [0m gsub ( FILENAME );[0m [0m }[0m [0m # TODO and FIXME also work in comments in Awk.[0m [0m # Also backslash in patterns works.[0m /[0m[0m\[0m[31m/usr\/[0m[0mbin\[0m[31m/awk/[0m[0m [0m[1m{[0m[0m [0m[1mprint[0m[0m [0m[31m"This is me"[0m[0m; [0m[1m}[0m[0m[0m [0m[0m[0m [0m[31mEND[0m[0m [0m[1m{[0m[0m[0m [0m[0m [0m[1mprint[0m[0m p;[0m[0m[0m [0m[1m}[0m[0m[0m [0mtesting standalone ok 40 testing Ada ok 41 ok 42 ok 43 # skip ok 44 # skip testing Alerts ok 45 ok 46 ok 47 # skip ok 48 # skip testing Asm6502 ok 49 ok 50 ok 51 # skip ok 52 # skip testing Bash ok 53 ok 54 testing as kate plugin ok 55 [37;1;44m#! /bin/sh[0m[37;1;44m[0m [0m[37;1;44m# This is a test script for the Katepart Bash Syntax Highlighting by[0m[37;1;44m[0m [0m[37;1;44m# Wilbert Berendsen. This is not runnable !!![0m[37;1;44m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# The highlighting recognizes basic types of input, and has a few special cases that[0m[37;1;44m[0m [0m[37;1;44m# are all in FindCommands. The main objective is to create really proper nesting of[0m[37;1;44m[0m [0m[37;1;44m# (multiline) strings, variables, expressions, etc.[0m[37;1;44m[0m [0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# ============== Tests: ===============[0m[37;1;44m[0m [0m[0m[0m [0m[37;1;44m# basic types:[0m[37;1;44m[0m [0m[31m'single quoted string'[0m[0m[0m [0m[31m"double quoted string"[0m[0m[0m [0m[31m$'string with esc[0m[34m\a[0m[31mpes[0m[34m\x0d[0m[31min it'[0m[0m[0m [0m[31m$"string meant to be translated"[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# comments:[0m[37;1;44m[0m [0m[37;1;44m# this is a comment[0m[37;1;44m[0m [0m[37;1;44m#this too[0m[37;1;44m[0m [0m[35;44mecho[0m[0m this is#nt a comment[0m[0m[0m [0m[31;1mdcop[0m[0m kate EditInterface#1 [0m[37;1;44m#this is[0m[37;1;44m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# brace expansion[0m[37;1;44m[0m [0m[31;1mmv[0m[0m my_file.[0m[34m{JPG,jpg}[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# special characters are escaped:[0m[37;1;44m[0m [0m[35;44mecho[0m[0m [0m[34m\([0m[0moutput[0m[34m\)[0m[0m [0m[34m\&\|[0m[0m [0m[34m\>[0m[0m [0m[34m\<[0m[0m [0m[34m\"[0m[0m [0m[34m\'[0m[0m [0m[34m\*[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# variable substitution:[0m[37;1;44m[0m [0m[33;1;42m$filename[0m[0m.ext[0m[0m[0m [0m[33;1;42m$filename_ext[0m[0m[0m [0m[33;1;42m${filename}[0m[0m_ext[0m[0m[0m [0m[0mtext[0m[33;1;42m${array[$subscript]}[0m[0m.text[0m[0m[0m [0m[0mtext[0m[33;1;42m${array[[0m[31m"string"[0m[33;1;42m]}[0m[0m.text[0m[0m[0m [0m[33;1;42m${!prefix*}[0m[0m[0m [0m[33;1;42m${!redir}[0m[0m[0m [0m[0mshort are [0m[33;1;42m$_[0m[0m, [0m[33;1;42m$$[0m[0m, [0m[33;1;42m$?[0m[0m, [0m[33;1;42m${@}[0m[0m, etc.[0m[0m[0m [0m[33;1;42m${variable//a/d}[0m[0m[0m [0m[33;1;42m${1:-default}[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# expression subst:[0m[37;1;44m[0m [0m[33;1;42m$(([0m[0m cd << ed + 1 [0m[33;1;42m))[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# command subst:[0m[37;1;44m[0m [0m[33;1;42m$([0m[31;1mls[0m[0m -l[0m[33;1;42m)[0m[0m[0m [0m[35;44mecho[0m[0m [0m[1m`[0m[0mcat myfile[0m[1m`[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# file subst:[0m[37;1;44m[0m [0m[32m$(<[0m[33;1;42m$filename[0m[32m)[0m[0m[0m [0m[32m$(<[0m[0m/path/to/myfile[0m[32m)[0m[0m[0m [0m[0m[0m [0m[37;1;44m# process subst:[0m[37;1;44m[0m [0m[31;1msort[0m[0m [0m[32m<([0m[0mshow_labels[0m[32m)[0m[0m [0m[1m|[0m[0m [0m[31;1msed[0m[0m [0m[31m's/a/bg'[0m[0m [0m[32m>[0m[0m my_file.txt [0m[32m2>&1[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# All substitutions also work in strings:[0m[37;1;44m[0m [0m[31m"subst [0m[33;1;42m${in}[0m[31mside string"[0m[0m [0m[31m'not $inside this ofcourse'[0m[0m[0m [0m[31m"The result is [0m[33;1;42m$(([0m[0m [0m[33;1;42m$a[0m[0m + [0m[33;1;42m$b[0m[0m [0m[33;1;42m))[0m[31m. Thanks!"[0m[0m[0m [0m[31m"Your homedir contains [0m[1m`[0m[0mls [0m[33;1;42m$HOME[0m[0m [0m[1m|[0m[0mwc -l[0m[1m`[0m[31m files."[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# Escapes in strings:[0m[37;1;44m[0m [0m[33;1;42mp=[0m[31m"String [0m[34m\`[0m[31m with [0m[34m\$[0m[31m escapes [0m[34m\"[0m[31m "[0m[0m;[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# keywords are black, builtins dark purple and common commands lighter purple[0m[37;1;44m[0m [0m[1mset[0m[0m[0m [0m[35;44mexit[0m[0m[0m [0m[31;1mlogin[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# Other colorings:[0m[37;1;44m[0m [0m[35merror()[0m[0m [0m[1m{[0m[0m[0m [0m[0m [0m[31;1mcat[0m[0m /usr/bin/lesspipe.sh[0m[0m[0m [0m[0m runscript [0m[32m>[0m[1m&[0m[0m redir.bak[0m[0m[0m [0m[0m [0m[35;44mexec[0m[0m [0m[32m3>&4[0m[0m[0m [0m[1m}[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# do - done make code blocks[0m[37;1;44m[0m [0m[1mwhile[0m[35;44m [[0m[0m [0m[33;1;42m$p[0m[0m -lt [0m[33;1;42m$q[0m[35;44m ][0m[0m [0m[0m[0m [0m[1mdo[0m[0m[0m [0m[0m [0m[31;1mchown[0m[0m 0644 [0m[33;1;42m$file[0m[0m.[0m[33;1;42m$p[0m[0m[0m [0m[1mdone[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# braces as well[0m[37;1;44m[0m [0m[0mrun_prog [0m[1m|[0m[0m [0m[31;1msort[0m[0m -u [0m[1m|[0m[0m[0m [0m[1m{[0m[0m[0m [0m[0m [0m[35;44mecho[0m[0m Header[0m[0m[0m [0m[0m [0m[1mwhile[0m[0m [0m[35;44mread[0m[0m [0m[33;1;42ma[0m[0m [0m[33;1;42mb[0m[0m [0m[33;1;42md[0m[0m[0m [0m[0m [0m[1mdo[0m[0m[0m [0m[0m [0m[35;44mecho[0m[0m [0m[33;1;42m$a[0m[0m/[0m[33;1;42m$b[0m[0m/[0m[33;1;42m$c[0m[0m[0m [0m[0m [0m[1mdone[0m[0m[0m [0m[0m [0m[35;44mecho[0m[0m Footer[0m[0m[0m [0m[1m}[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# Any constructions can be nested:[0m[37;1;44m[0m [0m[35;44mecho[0m[0m [0m[31m"A long string with [0m[33;1;42m$([0m[0m[0m [0m[0m [0m[1mif[0m[35;44m [[0m[0m [0m[33;1;42m$count[0m[0m -gt 100[0m[35;44m ][0m[0m ; [0m[1mthen[0m[0m[0m [0m[0m [0m[35;44mecho[0m[0m [0m[31m"much"[0m[0m[0m [0m[0m [0m[1melse[0m[0m[0m [0m[0m [0m[35;44mecho[0m[0m [0m[31m"not much"[0m[0m[0m [0m[0m [0m[1mfi[0m[0m [0m[33;1;42m)[0m[31m substitutions."[0m[0m ;[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# Even the case construct is correctly folded:[0m[37;1;44m[0m [0m[35;44mtest[0m[0m -f blaat [0m[1m&&[0m[0m[0m [0m[1m([0m[0m do_something[0m[0m[0m [0m[0m [0m[1mcase[0m[0m [0m[33;1;42m$p[0m[1m in[0m[0m[0m [0m[0m *bak[0m[1m)[0m[0m[0m [0m[0m do_bak [0m[33;1;42m$p[0m[0m[0m [0m[0m [0m[1m;;[0m[0m[0m [0m[0m *[0m[1m)[0m[0m[0m [0m[0m dont_bak [0m[33;1;42m$p[0m[0m[0m [0m[0m [0m[1m;;[0m[0m[0m [0m[0m [0m[1mesac[0m[0m[0m [0m[1m)[0m[0m [0m[37;1;44m# despite the extra parentheses in the case construction.[0m[37;1;44m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# variable assignments:[0m[37;1;44m[0m [0m[33;1;42mDIR=[0m[0m/dev[0m[0m[0m [0m[33;1;42mp=[0m[1m`[0m[0mls[0m[1m`[0m[0m[0m [0m[33;1;42mLC_ALL=[0m[31m"nl"[0m[0m [0m[31;1mdcop[0m[0m [0m[31m'kate*'[0m[0m[0m [0m[33;1;42m_VAR=[0m[0mval[0m[0m[0m [0m[33;1;42mARR=([0m[0mthis is an array[0m[33;1;42m)[0m[0m[0m [0m[33;1;42mARR2=([this]=[0m[0mtoo [0m[33;1;42m[and]=[0m[31m"this too"[0m[33;1;42m)[0m[0m[0m [0m[33;1;42musage=[0m[31m"[0m[33;1;42m$0[0m[31m -- version [0m[33;1;42m$VERSION[0m[31m[0m [0m[31mMultiple lines of output[0m[31m[0m [0m[31mcan be possible."[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# Some commands expect variable names, these are colored correctly:[0m[37;1;44m[0m [0m[35;44mexport[0m[0m [0m[33;1;42mPATH=[0m[0m/my/bin:[0m[33;1;42m$PATH[0m[0m [0m[33;1;42mBLAAT[0m[0m[0m [0m[35;44mexport[0m[0m [0m[33;1;42mA[0m[0m [0m[33;1;42mB[0m[0m [0m[33;1;42mD[0m[0m[0m [0m[35;44mlocal[0m[0m [0m[33;1;42mp=[0m[0m3 [0m[33;1;42mx[0m[0m [0m[33;1;42my=[0m[31m'\'[0m[0m[0m [0m[33;1;42mread[0m[0m [0m[33;1;42mx[0m[0m [0m[33;1;42my[0m[0m [0m[33;1;42mz[0m[0m [0m[32m<<<[0m[0m [0m[33;1;42m$hallo[0m[0m[0m [0m[35;44munset[0m[0m [0m[33;1;42mB[0m[0m[0m [0m[35;44mdeclare[0m[0m -a [0m[33;1;42mVAR1[0m[0m [0m[33;1;42mVAR2[0m[0m [0m[1m&&[0m[0m [0m[35;44mexit[0m[0m[0m [0m[35;44mdeclare[0m[0m [0m[33;1;42mless[0m[0m [0m[33;1;42ma[0m[0m [0m[1m&&[0m[0m b [0m[0m[0m [0m[0m[0m [0m[37;1;44m# options are recoqnized:[0m[37;1;44m[0m [0m[31;1mzip[0m[0m -f=file.[0m[31;1mzip[0m[0m[0m [0m[1m.[0m[0m/configure --destdir=/usr[0m[0m[0m [0m[31;1mmake[0m[0m [0m[33;1;42mdestdir=[0m[0m/usr/[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# [[ and [ correctly need spaces to be regarded as structure,[0m[37;1;44m[0m [0m[37;1;44m# otherwise they are patterns (currently treated as normal text)[0m[37;1;44m[0m [0m[1mif[0m[35;44m [[0m[0m [0m[31m"[0m[33;1;42m$p[0m[31m"[0m[0m == [0m[31m""[0m[35;44m ][0m[0m ; [0m[1mthen[0m[0m[0m [0m[0m [0m[31;1mls[0m[0m /usr/bin/[a-z]*[0m[0m[0m [0m[1melif [[[0m[0m [0m[33;1;42m$p[0m[0m == 0[0m[1m ]][0m[0m ; [0m[1mthen[0m[0m[0m [0m[0m [0m[31;1mls[0m[0m /usr/share/[0m[33;1;42m$p[0m[0m[0m [0m[1mfi[0m[0m[0m [0m[0m[0m [0m[37;1;44m# Fixed:[0m[37;1;44m[0m [0m[31;1mls[0m[0m a[ab]* [0m[37;1;44m# dont try to interprete as assignment with subscript (fixed)[0m[37;1;44m[0m [0m[0ma[ab][0m[0m[0m [0m[33;1;42ma[ab]=[0m[0msa[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[37;1;44m# Here documents are difficult to catch:[0m[37;1;44m[0m [0m[31;1mcat[0m[0m [0m[32m>[0m[0m myfile [0m[32m<< __EOF__[0m[0m[0m [0m[0mYou're right, this is definitely no bash code[0m[0m[0m [0m[0mBut ls more [0m[33;1;42m$parameters[0m[0m should be expanded.[0m[0m[0m [0m[0m__EOF__[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[0m# quoted:[0m[0m[0m [0m[0mcat << "EOF"[0m[0m[0m [0m[0mYou're right, this is definitely no bash code[0m[0m[0m [0m[0mBut ls more [0m[33;1;42m$parameters[0m[0m should be expanded.[0m[0m[0m [0m[0mEOF[0m[0m[0m [0m[0m[0m [0m[0m[0m [0m[0m# indented:[0m[0m[0m [0m[0mif true[0m[0m[0m [0m[0mthen[0m[0m[0m [0m[0m cat <<- EOF[0m[0m[0m [0m[0m Indented text with a [0m[33;1;42m$dollar[0m[0m or [0m[34m\$[0m[0mtwo[0m[0m[0m [0m[0m EOF[0m[0m[0m [0m[0melif [ -d [0m[33;1;42m$file[0m[0m ]; then[0m[0m[0m [0m[0m cat <<- "EOF"[0m[0m[0m [0m[0m Indented text without a [0m[33;1;42m$dollar[0m[0m[0m [0m[0m EOF[0m[0m[0m [0m[0mfi[0m[0m[0m [0m[0m[0m [0m[0m# the highlighting uses EOF and _{0,2}E[ON][A-Z_]+, quoted or not, indented or not.[0m[0m[0m [0m[0m# text is correctly substituted and escaped if the delimiter is not quoted.[0m[0m[0m [0mtesting standalone ok 56 testing BibTeX ok 57 ok 58 testing as kate plugin ok 59 [0m% test file for kate's bibtex syntax highlighting[0m[0m[0m [0m[0m[0m [0m[1m@Article[0m[0m{[0m[33;1;42martikel[0m[0m,[0m[0m[0m [0m[34mauthor =[0m[0m {Me},[0m[0m[0m [0m[34mtitle =[0m[0m {Something},[0m[0m[0m [0m[34mjournal =[0m[0m {JHEP},[0m[0m[0m [0m[34myear =[0m[0m {2003},[0m[0m[0m [0m[0m}[0m[0m[0m [0m[0m[0m [0m[1m@Book[0m[33;1;42m[0m [0m[33;1;42m[0m [0m[0m{[0m[33;1;42m[0m [0m[33;1;42m[0m [0m[33;1;42mboek[0m[0m,[0m[0m[0m [0m[34mauthor =[0m[0m [0m[31m"Someone"[0m[0m,[0m[0m[0m [0m[34mtitle =[0m[0m [0m[31m"Something"[0m[0m,[0m[0m[0m [0m[34mjournal =[0m[0m [0m[31m"Nucl. Phys. B"[0m[0m,[0m[0m[0m [0m[34myear =[0m[0m [0m[31m"2003"[0m[0m,[0m[0m[0m [0m[0m}[0m[0m[0m [0m[0m[0m [0m[0mThis is ignored by BibTeX, no special highlighting[0m[0m[0m [0m[0m%This is not a comment, it is just ignored (thanks to the people in #latex) :)[0m[0m[0m [0m[0m[0m [0m[33;1;44m@string[0m[0m{test=[0m[31m"lange string die ik niet vaak opnieuw wil intikken"[0m[0m}[0m[0m[0m [0m[0m[0m [0m[1m@PhdThesis[0m[0m{[0m[33;1;42mthesis[0m[0m,[0m[0m[0m [0m[34mauthor =[0m[0m {Me},[0m[0m[0m [0m[34mtitle =[0m[0m {Dunno},[0m[0m[0m [0m[34mschool =[0m[0m {ITFA},[0m[0m[0m [0m[34myear =[0m[0m {2005, hopefully},[0m[0m[0m [0m[0m}[0m[0m[0m [0mtesting standalone ok 60 testing C ok 61 ok 62 ok 63 # skip ok 64 # skip testing C# ok 65 ok 66 ok 67 # skip ok 68 # skip testing C++ ok 69 ok 70 testing as kate plugin make: *** [test_dynamic] Hangup