summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/keywords.pl
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/utils/asymptote/keywords.pl
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/asymptote/keywords.pl')
-rwxr-xr-xBuild/source/utils/asymptote/keywords.pl60
1 files changed, 0 insertions, 60 deletions
diff --git a/Build/source/utils/asymptote/keywords.pl b/Build/source/utils/asymptote/keywords.pl
deleted file mode 100755
index d3b48c5220c..00000000000
--- a/Build/source/utils/asymptote/keywords.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/env perl
-#####
-# keywords.pl
-# Andy Hammerlindl 2006/07/31
-#
-# Extract keywords from camp.l and list them in a keywords file. These
-# keywords are used in autocompletion at the interactive prompt.
-#####
-
-# Extra keywords to add that aren't automatically extracted, currently none.
-@extrawords = ();
-
-
-open(keywords, ">keywords.cc") ||
- die("Couldn't open keywords.out for writing.");
-
-print keywords <<END;
-/*****
- * This file is automatically generated by keywords.pl.
- * Changes will be overwritten.
- *****/
-
-END
-
-sub add {
- print keywords "ADD(".$_[0].");\n";
-}
-
-foreach $word (@extrawords) {
- add($word);
-}
-
-open(camp, "camp.l") || die("Couldn't open camp.l");
-
-# Search for the %% separator, after which the definitions start.
-while (<camp>) {
- if (/^%%\s*$/) {
- last; # Break out of the loop.
- }
-}
-
-# Grab simple keyword definitions from camp.l
-while (<camp>) {
- if (/^%%\s*$/) {
- last; # A second %% indicates the end of definitions.
- }
- if (/^([A-Za-z_][A-Za-z0-9_]*)\s*\{/) {
- add($1);
- }
-}
-
-# Grab the special commands from the interactive prompt.
-open(process, "process.cc") || dir("Couldn't open process.cc");
-
-while (<process>) {
- if (/^\s*ADDCOMMAND\(\s*([A-Za-z_][A-Za-z0-9_]*),/) {
- add($1);
- }
-}
-