diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/utils/asymptote/keywords.pl | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (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-x | Build/source/utils/asymptote/keywords.pl | 60 |
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); - } -} - |