diff options
author | 2021-05-09 14:20:58 -0400 | |
---|---|---|
committer | 2021-05-09 14:20:58 -0400 | |
commit | 5fd83771641d15c418f747bd343ba6738d3875f7 (patch) | |
tree | 5abf0f78f680d9837dbd93d4d4c3933bb7509599 /network_cmds/route.tproj/gen_header.pl | |
download | apple_cmds-5fd83771641d15c418f747bd343ba6738d3875f7.tar.gz apple_cmds-5fd83771641d15c418f747bd343ba6738d3875f7.tar.zst apple_cmds-5fd83771641d15c418f747bd343ba6738d3875f7.zip |
Import macOS userland
adv_cmds-176
basic_cmds-55
bootstrap_cmds-116.100.1
developer_cmds-66
diskdev_cmds-667.40.1
doc_cmds-53.60.1
file_cmds-321.40.3
mail_cmds-35
misc_cmds-34
network_cmds-606.40.1
patch_cmds-17
remote_cmds-63
shell_cmds-216.60.1
system_cmds-880.60.2
text_cmds-106
Diffstat (limited to 'network_cmds/route.tproj/gen_header.pl')
-rwxr-xr-x | network_cmds/route.tproj/gen_header.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/network_cmds/route.tproj/gen_header.pl b/network_cmds/route.tproj/gen_header.pl new file mode 100755 index 0000000..dfd9963 --- /dev/null +++ b/network_cmds/route.tproj/gen_header.pl @@ -0,0 +1,15 @@ +#!/usr/local/bin/perl -n +# +# Too run convert the keywords run the following command +# gen_header.pl keywords > keywords.h + +next if m/^#/; +next if m/^$/; +$line_no++; +chop; +$keyword = $_; +$upper = $keyword; +$upper =~ tr/a-z/A-Z/; + +printf "#define\tK_%s\t%d\n\t{\"%s\", K_%s},\n", + $upper, $line_no, $keyword, $upper; |