[Groff] grog Feedback Requested.

[Ralph Corderoy]

Hi,

Below is my current version of grog.  I've moved the patterns and rules
out into plain data statements making it simpler to comprehend (ignore
the code) and allowing debug output with -d.  I'm aware that it doesn't
recognise some things the old grog does, e.g. .Oo and .Oc.  I'm really
just looking for feedback on whether it runs OK on your system, I've
only tried it on Linux, and whether it's guessing the right options.

Since grog.sh and grog.pl had incompatible logic I can't match both
behaviours so it will be different for some people.  Consequently, I'm
thinking it may be better to start with something clean, i.e. this, and
see what we need to do to improve it.

Thanks,


Ralph.

begin 775 grog.sh
M(address@hidden)I;B]S:`H*(R!G<F]G("TM(&=U97-S(&]P=&EO;G,@9F]R(&=R;V9F
M(&-O;6UA;F0N"B,@3&EK92!D;V-T>7!E(&EN($ME<FYI9VAA;B`F(%!I:V4L
M(%5N:7@@4')O9W)A;6UI;F<@16YV:7)O;FUE;G0L('!P"B,@,address@hidden"@IP
M<F]G;address@hidden;64@)#!@"G0]+W1M<"\D<')O9VYA;64N)"0*"G-O
M96QI;3U`9T!S;V5L:6T*"F]P=',]"F1E8G5G/3`*96YD;6%C/2(address@hidden
M*2(*<W`])&5N9&UA8PH*9F]R(&%R9PID;PH@("address@hidden)&%R9R(@:6X*
M("`@("TM*0H@("`@("`@('-H:69T"B`@("`@("address@hidden)E86L*("`@("`@("`[
M.PH@("address@hidden,I"B`@("`@("`@<W`]"B`@("`@("`@;W!T<STB)&]P=',@+4,B
M"B`@("`@("`@<VAI9G0*("`@("`@("`[.PH@("address@hidden)S:6]N*0H@
M("`@("`@(&5C:&\@)T=.52!G<F]G("AG<address@hidden<VEO;B!`5D524TE/
M3D`G"B`@("`@("address@hidden"`P"B`@("`@("address@hidden("`@("TM:&5L<"D*("`@
M("`@("!C870@/#Q%"G5S86=E.B`D<')O9VYA;address@hidden&EO;G,N+BY=(%MF
M:6QE<RXN+ET*=VAE<F4@;W!T:6]N<R!A<F4Z"B`@("`M=B`@<')I;address@hidden
M<VEO;B!A;address@hidden"X*("`@("UH("!P<F]V:61E('1H:7,@:&5L<"X*("`@
M("U#("!E;F%B;&address@hidden<&%T:6)I;&ET>2!M;V1E+"!I;F-L=61I;F<@<&QA
M8VEN9R`M0R!I;B!O=71P=70N"B`@("address@hidden(&]T:&5R(&]P=&EO;G,@
M87)E('!R969I>&5D('1O('1H92!O=71P=70N"address@hidden@+2<@;65A
M;G,@<W1A;F1A<F0@:6YP=70N("!I9B!N;R!F:6QE<R!A<address@hidden@<W1A
M;F1A<F0*:6YP=70@:7,@<F5A9"X*10H@("`@("`@(&5X:70@,`H@("`@("`@
M(#L["B`@("`M9"D*("`@("`@("!D96)U9STQ"B`@("`@("`@<VAI9G0*("`@
M("`@("`[.PH@("address@hidden("`@("`@("!B<F5A:PH@("`@("`@(#L["B`@("`M
M*BD*("`@("`@("!O<'1S/2(D;W!T<R`D87)G(@H@("`@("`@('-H:69T"B`@
M("`@("address@hidden("`@("HI"B`@("`@("address@hidden)E86L*("`@("`@("`[.PH@("`@
M97-A8PID;VYE"@IP870])PHO7EPN5%-^+R`Z('1B;`HO7EPN4%,H6S`M.2`N
M/%TN*BD_)"address@hidden:6,*+UY<address@hidden<6X*+UY<+E(address@hidden
M<@HO7EPN7%M^+R`Z(')E9F5R7W-T87)T"B]>7"Y<77XO(#H@<F5F97)?96YD
M"B]>7"Y'4WXO(address@hidden)N"B]>7"Y',7XO(address@hidden)A<`HO7EPN04Q$?GXO(#H@
M;6%C<F]M;VT*+UY<+D9!34E,67Y^+R`Z(&UA8W)O;6]M"B]>7"Y&04U^?B\@
M.B!M86-R;VUO;address@hidden;VUO;address@hidden
M86-R;VUO;address@hidden;VUO;0HO7EPN3D574$%'17Y^+R`Z
M(&UA8W)O;6]M"B]>7"Y004=%?GXO(#H@;6%C<F]M;VT*+UY<+E!!4$52?GXO
M(#H@;6%C<F]M;VT*+UY<+E!47U-)address@hidden;VUO;0HO7EPN4U!^
address@hidden;VUO;0HO7EPN5%]-05)'address@hidden;VUO;0HO7EPN
M4"1^+R`Z(&UA8W)O;6T*+UY<+E!(address@hidden;VUM"B]>7"Y307XO(#H@
M;6%C<F]M;0HO7EPN3$E^+R`Z(&UA8W)O;6T*+UY<address@hidden;VUE
M"B]>7"YN<'XO(#H@;6%C<F]M90HO7EPN:7!^+R`Z(&UA8W)O;64*+UY<+FQP
address@hidden;VUE"B]>7"YS:'XO(#H@;6%C<F]M90HO7EPN4TA^+R`Z(&1O
M=%-("B]>7"Y42'XO(address@hidden&address@hidden<address@hidden;VUS"B]>7"Y,
M4'XO(#H@;6%C<F]M<PHO7EPN25!^+R`Z(&UA8W)O;7,*+UY<address@hidden
M86-R;VUS"B]>7"Y$9'XO(#H@;6%C<F]M9&]C"B]>7"Y4<'XO(#H@;6%C<F]M
M9&]C7V]L9`HO7EPN1'!^+R`Z(&UA8W)O;61O8U]O;&0*+UY<address@hidden
M86-R;VUD;V-?;VQD"B]>7"Y#>'XO(#H@;6%C<F]M9&]C7V]L9`HO7EPN0VQ^
M+R`Z(&UA8W)O;61O8U]O;&0*)PH*<G5L93TG"address@hidden@.B`M=`HQ(#H@
M<&EC(address@hidden,B`Z(&5Q;B`Z("UE"C,@.B!R969E<B!\?"!R969E<E]S=&%R
M="`F)B!R969E<E]E;address@hidden@HT(address@hidden)N(address@hidden<*-2`Z(&address@hidden
M1PHV(#H@;6%C<F]M;address@hidden;6]M"address@hidden;VUM(address@hidden"address@hidden
M86-R;VUE(address@hidden"address@hidden;W132"`F)B!D;W142"`Z("UM86X*-B`Z(&1O
M=%-(('Q\(&UA8W)O;7,@.B`M;7,*-B`Z(&UA8W)O;61O8R`F)B!M86-R;VUD
M;V-?;VQD(address@hidden;V,M;VQD"address@hidden;VUD;V,@.B`M;61O8PHG"@IC
M870@/#Q%('P*0D5'24X@>PH@("address@hidden&5B=6<@/2`D9&5B=6<*("`@(&D@/2`P
M"B1P870*("`@(&YU;7!A="`](&D*("`@(&D@/2`P"B1R=6QE"B`@("!N=6UR
M=6QE(#T@:0I]"@I%3D0@>PH@("`@<')I;G0@(B$O7EPN+R![(&YE>'address@hidden(*
M"B`@("!F;W(@*&D@/2`P.R!I(#P@;G5M<&%T.R!I*RLI('L*("`@("`@("!P
M<FEN="!R95MI72P@(GLB+"!C;W5N=&5R6VE=("(K*R(*("`@("`@("!I9B`H
M9&5B=6<I('L*("`@("`@("`@("`@<')I;G0@(G`B(&D@(BLK(@H@("`@("`@
M('T*("`@("`@("!P<FEN="`B;F5X="!](@H@("address@hidden("`@('!R:6YT(")%
M3D0@>R(*("`@(&EF("AD96)U9RD@>PH@("`@("`@(&9O<B`H:2`](#`[(&D@
M/"!N=6UP870[(&DK*RD@>PH@("`@("`@("`@("!P<FEN="`B<')I;address@hidden"(B
M(')E6VE=(")<(BP@<"(@:2P@(BL@,"(*("`@("`@("!]"B`@("`@("`@<')I
M;G0@(G!R:6YT(%PB7"(B"B`@("`@("address@hidden("AI(#T@,#L@:2`\(&YU;7!A
M=#L@:2LK*2!["B`@("`@("`@("`@(&EF("AC;W5N=&5R6VE=(&EN(&1U<"D@
M>PH@("`@("`@("`@("`@("address@hidden&EN=64*("`@("`@("`@("address@hidden@("`@
M("`@("`@("!D=7!;8V]U;G1E<EMI75T@/2`Q"B`@("`@("`@("`@('!R:6YT
M(")P<FEN="!<(B(@8V]U;G1E<EMI72`B7"(L("(@8V]U;G1E<EMI72P@(BL@
M,"(*("`@("`@("!]"B`@("`@("`@<')I;G0@(G!R:6YT(%PB7"(B"B`@("!]
M"B`@("!F;W(@*&D@/2`P.R!I(#P@;G5M<G5L93L@:2LK*2!["B`@("`@("`@
M:address@hidden'-E=%MI72`]/2!L87-T*2!["B`@("`@("`@("`@('!R:6YT(")E;'-E
M(@H@("`@("`@('T*("`@("`@("!L87-T(#T@<V5T6VE="B`@("`@("`@<')I
M;G0@(FEF("@B(')U;&5;:5T@(BD@>R!O(#T@;R!<(B`B(&]P=%MI72`B7"(B
M"B`@("`@("`@:address@hidden&1E8G5G*2!["B`@("`@("`@("`@('!R:6YT(")P<FEN
M="!<(B(@<G5L95MI72P@(FEM<&QI97,B+"!O<'1;:5T@(EPB(@H@("`@("`@
M('T*("`@("`@("!P<FEN="`B?2(*("`@('T*("`@(&EF("AD96)U9RD@>PH@
M("`@("`@('!R:6YT(")P<FEN="!<(EPB(@H@("address@hidden("`@('!R:6YT(")P
M<FEN="!<(F=R;V9F7"(L(&\L(&]P=',L(&9I;&5S(@H@("`@<')I;G0@(GTB
M"GT*10IA=VL@)PH@("address@hidden'24X@>PH@("`@("`@($93(#T@(B`Z("(*("`@
M('T*("`@($Y&(#T](#(@>PH@("`@("`@(&=S=6(H+WY^+RP@(B<B)&5N9&UA
M8R(G(BP@)#$I"B`@("`@("address@hidden@O?B\L("(G(B1S<"(G(BP@)#$I"B`@
M("`@("address@hidden@O6UQ<(ETO+"`B7%Q<7"8B+"`D,2D*("`@("`@("`D,"`]
M(")R95MI72`](%PB(B`D,2`B7"([(&-O=6YT97);:5T@/2!<(B(@)#(@(EPB
M.R!I*RLB"B`@("!]"B`@("!.1B`]/2`S('L*("`@("`@("`D,"`](")S971;
M:5T@/2!<(B(@)#$@(EPB.R!R=6QE6VE=(address@hidden"(B("0R(")<(CL@;W!T6VE=
M(address@hidden"(B("0S(")<(CL@:2LK(@H@("address@hidden@("`@,0HG(#XD="YA=VLQ"@IA
address@hidden@)'0N87=K,2`\+V1E=B]N=6QL(#XD="YA=VLR"@address@hidden@)'0N
M87=K,B!O<'1S/2(D;W!T<R(@9FEL97,](B1F:6QE<R(@(B1`(@H*<FT@)'0N
-87=K,2`D="YA=VLR"@``
`
end