3ce6522003-01-31Henrik Grubbström (Grubba) #!/bin/sh
c5d9a92011-11-05Martin Nilsson 
3ce6522003-01-31Henrik Grubbström (Grubba) # # Run etags with regexps suitable for Pike files. # exec etags -l none \
0085e42014-10-05Martin Nilsson  -r '/[ \t]*\(\<\(public\|inline\|final\|static\|protected\|local\|optional\|private\|variant\)\>[ \t]\{1,\}\)*\(\<class\>\)[ \t]\{1,\}\<\([a-zA-Z¡-ÿ_][a-zA-Z¡-ÿ_0-9]*\)\>/\4/' \
3ce6522003-01-31Henrik Grubbström (Grubba)  -r '/[ \t]*\(\<\(mixed\|float\|int\|program\|string\|function\|function(.*)\|array\|array(.*)\|mapping\|mapping(.*)\|multiset\|multiset(.*)\|object\|object(.*)\|void\|constant\|class\)\>)*\|\<\([A-ZÀ-ÖØ-ß][a-zA-Z¡-ÿ_0-9]*\)\>\)[ \t]\{1,\}\(\<\([_a-zA-Z¡-ÿ][_a-zA-Z¡-ÿ0-9]*\)\>\|``?\(!=\|->=?\|<[<=]\|==\|>[=>]\|\[\]=?\|()\|[%-!^&+*<>|~\/]\)\)[ \t]*(/\4/' \ -r '/#[ \t]*define[ \t]+\([_a-zA-Z]+\)(?/\1/' "$@"