Rust vs Perl binding syntax example for latexml (12.2016, intermediate)

new.rs

use package::*;

pub fn load_definitions(state: &mut State) {
  SetupBindingMacros!(state);

  DefEnvironment!("{alltt}", "<ltx:verbatim font='#font'>#body</ltx:verbatim>",
    before_digest => sub!(|stomach, state| {
      for c in &['$', '&', '#', '^', '_', '%', '~'] {
        AssignCatcode!(*c, Catcode::OTHER, None, state);
      }
      AssignCatcode!(' ', Catcode::ACTIVE, None, state);
      LetI!(T_ACTIVE!(" "), T_CS!("\\space"), None, state);
      AssignValue!("PRESERVE_NEWLINES", ObjectStore::Bool(true), None, state);
      Vec::new()
    }));
}

original.perl

use LaTeXML::Package;

DefEnvironment('{alltt}', "<ltx:verbatim font='#font'>#body</ltx:verbatim>",
  beforeDigest => sub {
    map { AssignCatcode($_ => CC_OTHER) } '$', '&', '#', '^', '_', '%', '~';
    AssignCatcode(" " => 13);
    Let(T_ACTIVE(" "), '\space');
    AssignValue(PRESERVE_NEWLINES => 1);
  });