view runtime/indent/testdir/krl.in @ 32597:015cfc6bba2a v9.0.1630

patch 9.0.1630: "make clean" at the toplevel fails Commit: https://github.com/vim/vim/commit/8d687a7424b33b7ad7f6778b0c5d092a44f4bc3a Author: Ben Jackson <puremourning@gmail.com> Date: Wed Jun 14 15:10:02 2023 +0100 patch 9.0.1630: "make clean" at the toplevel fails Problem: "make clean" at the toplevel fails. Solution: Clean the indent and syntax directories in a sub-shell. (Ben Jackson, closes #12536, closes #12526)
author Bram Moolenaar <Bram@vim.org>
date Wed, 14 Jun 2023 16:15:03 +0200
parents f73a9bdff3a3
children
line wrap: on
line source

; vim: set ft=krl :

; START_INDENT

def One()
int i
If i==1 then
While i>=1
For i=1 to 5 step 2
Loop
i = i+1
EndLoop
EndFor
EndWhile
Else
Repeat
Switch i
Case 1
Skip 123
i = i+1
EndSkip 123
Spline with $acc=100, $vel.cp=3
slin {x 100}
scirc {x 110, y 110}, {x 120, y 90}
slin {x 200} c_dis
Time_Block Start
slin {x 300} c_dis
Time_Block Part = 22.2
slin {y 400} c_dis
Time_Block Part = 33.3
Time_Block End = 10
slin {y 200} c_dis
Const_Vel Start +100 OnStart
slin {y 300} c_dis
slin {x 100}
Const_Vel End -5.5
slin {y 200} c_dis
EndSpline
Case 2,3
PTP_Spline with $acc=100, $vel.ptp=100
sptp {a1 0} c_ptp
sptp {a1 90}
EndSpline c_spl
Default
i = i+1
EndSwitch
Continue
Until False
EndIf
end

DEF Two()
int i
END

global def Three()
int i
end

GLOBAL DEF Four()
int i
END

Global Def Five()
int i
End

deffct bool fOne()
int i
endfct

DEFFCT bool fTwo()
int i
ENDFCT

global deffct bool fThree()
int i
endfct

GLOBAL DEFFCT bool fFour()
int i
ENDFCT

Global DefFct bool fFive()
int i
EndFct

DefDat datfile()
global int i=1
; don't indent column 1 comments unless g:krlCommentIndent is set
;  global int o=2
EndDat

; END_INDENT

; START_INDENT
; INDENT_EXE let g:krlSpaceIndent = 0
; INDENT_EXE set shiftwidth=4

def bla()
int i
end

; END_INDENT

; START_INDENT
; INDENT_EXE let g:krlCommentIndent = 1
def bla()
; indent this first column comment because of g:krlCommentIndent=1
end
; END_INDENT

; START_INDENT
; INDENT_EXE let g:krlIndentBetweenDef = 0
def bla()
int i ; don't indent this line because of g:krlIndentBetweenDef=0
end
; END_INDENT

; START_INDENT
; INDENT_AT  this-line
def Some()
int f
if true then
f = 1 ; this-line
endif
end
; END_INDENT

; START_INDENT
; INDENT_NEXT  next-line
def Some()
  int i
     ; next-line
i = 1 ; should get indent of line 'int i' above
end
; END_INDENT

; START_INDENT
; INDENT_PREV  prev-line
def Some()
int f
if true then
f = 1
; prev-line
endif
end
; END_INDENT