summaryrefslogtreecommitdiff
path: root/Build/source/texk/gregorio/gregorio-src/contrib/gregorio-scribus.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/gregorio/gregorio-src/contrib/gregorio-scribus.lua')
-rw-r--r--Build/source/texk/gregorio/gregorio-src/contrib/gregorio-scribus.lua95
1 files changed, 0 insertions, 95 deletions
diff --git a/Build/source/texk/gregorio/gregorio-src/contrib/gregorio-scribus.lua b/Build/source/texk/gregorio/gregorio-src/contrib/gregorio-scribus.lua
deleted file mode 100644
index 540a40e40e1..00000000000
--- a/Build/source/texk/gregorio/gregorio-src/contrib/gregorio-scribus.lua
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/usr/bin/env texlua
---[[
-Gregorio/Scribus script.
-Copyright (C) 2010 Elie Roux <elie.roux@telecom-bretagne.eu>
-
-This program is free software: you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation, either version 3 of the License, or
-(at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-You must run this program with texlua, if possible under TeXLive 2010 (or later).
-This program allows gregorio to be integrated in Scribus.
---]]
-
-require"lfs"
-
-local gregoriobin = 'gregorio-4_2_0' -- FILENAME_VERSION
-local lualatexbin = "lualatex"
-
-local function basename(name)
- return name and string.match(name,"^.+[/\\](.-)$") or name
-end
-
-local f = arg[1]
-local dir = arg[2]
-local current = ""
-
--- first we need to rebuild the arguments that are lost in pieces
-for i, a in ipairs(arg) do
- if a:sub(1,1) == '"' then
- if a:sub(-1,-1) == '"' then
- current = a:sub(2, -2)
- if not f then
- f = current
- else
- dir = current
- end
- else
- current = a:sub(2, -1)
- end
- elseif a:sub(-1,-1) == '"' then
- current = current..' '..a:sub(1, -2)
- if not f then
- f = current
- else
- dir = current
- end
- current = ""
- else
- current = current..' '..a
- end
-end
-
-if dir then
- lfs.chdir(dir)
-end
-
-local pathbase = basename(f)
-
-local fd = io.open(f, "r")
-local texfile = io.open(f..".tex", "w")
-local gabcfile = io.open(f.."-score.gabc", "w")
-for l in fd:lines() do
- if string.match(l, "^\\") then
- texfile:write(l..'\n')
- elseif l=="\n" then
- else
- gabcfile:write(l..'\n')
- end
-end
-
-local format = string.format
-
-texfile:write(format("\n\\gregorioscore{%s-score.gtex}\n\\end{document}\n", pathbase))
-texfile:close()
-gabcfile:close()
-
-print(format("calling 'gregorio %s-score.gabc'\n", f))
-os.remove(format("%s-score.gtex", f))
-os.spawn(format("%s %s-score.gabc", gregoriobin, pathbase))
-if not lfs.isfile(format("%s-score.gtex", pathbase)) then
- print("error: gregorio did not work as expected\n")
- exit(1)
-end
-
-print(format("calling 'lualatex --interaction nonstopmode %s.tex'\n", pathbase))
-os.spawn(format("%s --interaction=nonstopmode %s.tex", lualatexbin, pathbase))