Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!spool.mu.edu!uunet!cme!durer.cme.nist.gov!przemek From: przemek@rrdstrad.nist.gov (Przemek Klosowski) Newsgroups: comp.lang.perl Subject: Submission: tgrind entry for Perl Message-ID: Date: 30 Apr 91 16:54:17 GMT Sender: news@cme.nist.gov Organization: U. Notre Dame/NIST Lines: 29 As the title indicates, the tgrindefs entry for Perl follows. I keep it in my tgrindefs file, and I can beautifully print Perl scripts using TeX formatting after massaging by "tgrind -lperl". Critiques/fixes/praises welcome przemek perl|PERL|Perl:\ :pb=^\d?sub\d\p\d\a?:bb={:be=}:cb=(^| | )#:ce=$:\ :lb=':le=\e':tl:sb=":se=\e":\ :id=$@_0123456789abcdefghijklmnopqrstuvvxyzABCDEFGHIJKLMNOPQRSTUVVXYZ:\ :kw=do while unless for foreach goto return if then else endif cd echo\ end sub accept atan2 bind binmode chdir chmod chop chown chroot close\ closedir connect cos crypt defined delete die do dump each\ eof eval exec exit exp fcntl fileno flock fork getc gmtime\ grep hex index int ioctl join keys kill last length link listen\ local localtime log lstat mkdir next oct open opendir ord pack pipe\ pop print printf push rand read readdir readlink recv redo rename\ reset return reverse rewinddir rindex rmdir s seek seekdir select send\ shift shutdown sin sleep sort splice split sprintf sqrt srand stat\ study substr symlink syscall system tell telldir time times tr umask\ undef unlink unpack unshift utime values vec wait wantarray warn write\ $FS $0 $1 $2 $3 $4 $5 $6 $7 $8 $9 @ARGV @INC %ENV %SIG\ eq ne gt lt le ge: -- przemek klosowski (przemek@ndcvx.cc.nd.edu) Physics Department University of Notre Dame IN 46556