Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,22 @@
|
|||
#!/usr/bin/lasso9
|
||||
|
||||
local(
|
||||
orgfilename = $argv -> second,
|
||||
file = file(#orgfilename),
|
||||
regexp = regexp(-find = `(?m)$`),
|
||||
content = #regexp -> split(-input = #file -> readstring) -> asarray,
|
||||
start = integer($argv -> get(3) || 1),
|
||||
range = integer($argv -> get(4) || 1)
|
||||
)
|
||||
stdout(#content)
|
||||
#file -> copyto(#orgfilename + '.org')
|
||||
|
||||
fail_if(#content -> size < (#start + #range), -1, 'Not that many rows in the file')
|
||||
|
||||
#content -> remove(#start, #range)
|
||||
|
||||
#file = file(#orgfilename)
|
||||
#file -> opentruncate
|
||||
#file -> dowithclose => {
|
||||
#file -> writestring(#content -> join(''))
|
||||
}
|
||||
|
|
@ -0,0 +1 @@
|
|||
./removelines textfile.txt 2 2
|
||||
Loading…
Add table
Add a link
Reference in a new issue