23f24377b1
July 27, 2021: As per IEEE Std 1003.1-2008, -F "str" is now consistent with -v FS="str" when str is null. Thanks to Warner Losh. July 24, 2021: Fix readrec's definition of a record. This fixes an issue with NetBSD's RS regular expression support that can cause an infinite read loop. Thanks to Miguel Pineiro Jr. Fix regular expression RS ^-anchoring. RS ^-anchoring needs to know if it is reading the first record of a file. This change restores a missing line that was overlooked when porting NetBSD's RS regex functionality. Thanks to Miguel Pineiro Jr. Fix size computation in replace_repeat() for special case REPEAT_WITH_Q. Thanks to Todd C. Miller. Also, included the tests from upstream, though they aren't yet connected to the tree. Sponsored by: Netflix
40 lines
1006 B
OpenEdge ABL
40 lines
1006 B
OpenEdge ABL
.so /usr/bwk/talks/vg.mac
|
|
.vg
|
|
.ft R
|
|
.cstart
|
|
# this is the structure of penicillin G, an antibiotic
|
|
size 14
|
|
R1: ring4 pointing 45 put N at 2
|
|
doublebond -135 from R1.V3 ; O
|
|
backbond up from R1.V1 ; H
|
|
frontbond -45 from R1.V4 ; N
|
|
H above N
|
|
bond left from N ; C
|
|
doublebond up ; O
|
|
bond length .1 left from C ; CH2
|
|
bond length .1 left
|
|
benzene pointing left
|
|
R2: flatring5 put S at 1 put N at 4 with .V5 at R1.V1
|
|
bond 20 from R2.V2 ; CH3
|
|
bond 90 from R2.V2 ; CH3
|
|
bond 90 from R2.V3 ; H
|
|
backbond 170 from R2.V3 ; COOH
|
|
.cend
|
|
.CW
|
|
# this is the structure of penicillin G, an antibiotic
|
|
R1: ring4 pointing 45 put N at 2
|
|
doublebond -135 from R1.V3 ; O
|
|
backbond up from R1.V1 ; H
|
|
frontbond -45 from R1.V4 ; N
|
|
H above N
|
|
bond left from N ; C
|
|
doublebond up ; O
|
|
bond length .1 left from C ; CH2
|
|
bond length .1 left
|
|
benzene pointing left
|
|
R2: flatring5 put S at 1 put N at 4 with .V5 at R1.V1
|
|
bond 20 from R2.V2 ; CH3
|
|
bond 90 from R2.V2 ; CH3
|
|
bond 90 from R2.V3 ; H
|
|
backbond 170 from R2.V3 ; COOH
|