1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
extern crate proc_macro;
use proc_macro::TokenStream;
use proc_macro2::Span;
use quote::quote;
use syn::{parse_macro_input, parse_quote};
use uuid::Uuid;
#[proc_macro]
pub fn gensym(input: TokenStream) -> TokenStream {
let mcall = parse_macro_input!(input as syn::Macro);
proc_macro::TokenStream::from(
alter_macro(mcall).unwrap_or_else(|e| syn::Error::to_compile_error(&e)),
)
}
fn alter_macro(mut mcall: syn::Macro) -> Result<proc_macro2::TokenStream, syn::Error> {
use core::iter::Extend;
use quote::ToTokens;
let sym = syn::Ident::new(
&format!("__gensym_{}", Uuid::new_v4().to_simple()),
Span::call_site(),
);
let mut inserted_gensym: proc_macro2::TokenStream = parse_quote!(#sym, );
inserted_gensym.extend(mcall.tts);
mcall.tts = inserted_gensym;
Ok(mcall.into_token_stream())
}