emit respects casing option

Author: jackdotink

src/mir/client/iter.rs

@@ -42,7 +42,7 @@ impl Client {
             b.stmt(format!("return {next}, {captured}, 1"));
         });
 
-        self.export(b, "iter", &iter);
+        self.export(b, &self.name("iter"), &iter);
     }
 
     fn event_recv_iter_1data(&self, b: &mut Builder, event: &Event) {
@@ -54,7 +54,7 @@ impl Client {
             b.stmt(format!("return {captured}"));
         });
 
-        self.export(b, "iter", &iter);
+        self.export(b, &self.name("iter"), &iter);
     }
 
     fn event_recv_iter_0data(&self, b: &mut Builder, event: &Event) {
@@ -77,7 +77,7 @@ impl Client {
             b.stmt(format!("return {next}, {captured}, 0"));
         });
 
-        self.export(b, "iter", &iter);
+        self.export(b, &self.name("iter"), &iter);
     }
 
     fn event_recv_queue(&self, b: &mut Builder, event: &Event) -> InitVar {

src/mir/client/mod.rs

@@ -16,6 +16,7 @@ mod send;
 #[derive(Clone)]
 pub struct Client {
     pub location: String,
+    pub options: Rc<Options>,
 
     pub ser: Ser,
     pub des: Des,
@@ -24,6 +25,7 @@ pub struct Client {
 impl Default for Client {
     fn default() -> Self {
         let location = "result".to_string();
+        let options = Rc::new(Options::default());
 
         let ser = Ser {
             options: Rc::new(Options::default()),
@@ -36,7 +38,12 @@ impl Default for Client {
             check: false,
         };
 
-        Client { location, ser, des }
+        Client {
+            location,
+            options,
+            ser,
+            des,
+        }
     }
 }
 
@@ -63,20 +70,27 @@ impl Client {
     }
 
     fn child(&self, options: &Rc<Options>, name: &str) -> Self {
+        let options = Rc::clone(options);
+
         let mut ser = self.ser.clone();
-        ser.options = Rc::clone(options);
+        ser.options = Rc::clone(&options);
 
         let mut des = self.des.clone();
-        des.options = Rc::clone(options);
+        des.options = Rc::clone(&options);
 
         Client {
             location: self.location.clone() + "." + name,
+            options,
 
             ser,
             des,
         }
     }
 
+    fn name(&self, words: &'static str) -> String {
+        self.options.casing().fmt(words)
+    }
+
     fn export(&self, b: &mut Builder, name: &str, expr: impl Into<Expr>) {
         let expr = expr.into();
         let location = &self.location;

src/mir/client/send.rs

@@ -36,7 +36,7 @@ impl Client {
             b.stmt(format!("{remote}:FireServer(out)"));
         });
 
-        self.export(b, "send", &send);
+        self.export(b, &self.name("send"), &send);
     }
 
     pub fn event_send_0data(&self, b: &mut Builder, event: &Event) {
@@ -46,6 +46,6 @@ impl Client {
             b.stmt(format!("{remote}:FireServer()"));
         });
 
-        self.export(b, "send", &send);
+        self.export(b, &self.name("send"), &send);
     }
 }

src/mir/server/iter.rs

@@ -41,7 +41,7 @@ impl Server {
             b.stmt(format!("return {next}, {captured}, 1"));
         });
 
-        self.export(b, "iter", &iter);
+        self.export(b, &self.name("iter"), &iter);
     }
 
     fn event_recv_iter_0data(&self, b: &mut Builder, event: &Event) {
@@ -53,7 +53,7 @@ impl Server {
             b.stmt(format!("return {captured}"));
         });
 
-        self.export(b, "iter", &iter);
+        self.export(b, &self.name("iter"), &iter);
     }
 
     fn event_recv_queue_ndata(&self, b: &mut Builder, event: &Event) -> InitVar {

src/mir/server/mod.rs

@@ -16,6 +16,7 @@ mod send;
 #[derive(Clone)]
 pub struct Server {
     pub location: String,
+    pub options: Rc<Options>,
 
     pub ser: Ser,
     pub des: Des,
@@ -24,6 +25,7 @@ pub struct Server {
 impl Default for Server {
     fn default() -> Self {
         let location = "result".to_string();
+        let options = Rc::new(Options::default());
 
         let ser = Ser {
             options: Rc::new(Options::default()),
@@ -36,7 +38,12 @@ impl Default for Server {
             check: true,
         };
 
-        Server { location, ser, des }
+        Server {
+            location,
+            options,
+            ser,
+            des,
+        }
     }
 }
 
@@ -63,6 +70,8 @@ impl Server {
     }
 
     fn child(&self, options: &Rc<Options>, name: &str) -> Self {
+        let options = Rc::clone(options);
+
         let mut ser = self.ser.clone();
         ser.options = Rc::clone(&options);
 
@@ -71,11 +80,16 @@ impl Server {
 
         Server {
             location: self.location.clone() + "." + name,
+            options,
             ser,
             des,
         }
     }
 
+    fn name(&self, words: &'static str) -> String {
+        self.options.casing().fmt(words)
+    }
+
     fn export(&self, b: &mut Builder, name: &str, expr: impl Into<Expr>) {
         let expr = expr.into();
         let location = &self.location;

src/mir/server/send.rs

@@ -37,7 +37,7 @@ impl Server {
             b.stmt(format!("{remote}:FireClient({player}, out)"));
         });
 
-        self.export(b, "send", &send);
+        self.export(b, &self.name("send"), &send);
     }
 
     fn event_send_0data(&self, b: &mut Builder, event: &Event) {
@@ -47,6 +47,6 @@ impl Server {
             b.stmt(format!("{remote}:FireClient({player})"));
         });
 
-        self.export(b, "send", &send);
+        self.export(b, &self.name("send"), &send);
     }
 }