Adding the server file as well as the asd file for gRPC hello world.

Jon Godbout · Jon Godbout · commit b50e5e581ed8 · 2022-12-04T14:50:16.000-05:00
diff --git a/hello.proto b/hello.proto
@@ -0,0 +1,19 @@
+// Copyright 2021 Google LLC
+//
+// Use of this source code is governed by an MIT-style
+// license that can be found in the LICENSE file or at
+// https://opensource.org/licenses/MIT.
+
+syntax = "proto3";
+
+message HelloRequest {
+  optional string name = 1;
+}
+
+message HelloReply {
+  optional string message = 1;
+}
+
+service HelloWorld {
+  rpc SayHello(HelloRequest) returns (HelloReply) {}
+}
diff --git a/hw-grpc.asd b/hw-grpc.asd
@@ -0,0 +1,10 @@
+(defsystem :hw-grpc
+  :author "Jonathan Godbout <jgodbout@google.com>"
+  :description
+  "Tutorial Program to go along with blog posts about using gRPC."
+  :license "MIT"
+  :defsystem-depends-on (:cl-protobufs.asdf)
+  :depends-on (:cl-protobufs :grpc)
+  :serial t
+  :components ((:protobuf-source-file "hello")
+	       (:file "server")))
diff --git a/server.lisp b/server.lisp
@@ -0,0 +1,31 @@
+;; Implement a gRPC server for Hellow World.
+
+(defpackage #:grpc-server
+  (:use #:cl)
+  (:local-nicknames
+   (#:hello-rpc #:cl-protobufs.hello-rpc)
+   (#:hello #:cl-protobufs.hello)))
+
+(in-package #:grpc-server)
+
+;; A defgeneric is generated by protoc from the SayHello
+;; rpc line inside of the HellowWorld service in hello.proto.
+(defmethod hello-rpc:say-hello ((request hello:hello-request) rpc)
+  ;; The RPC contains useful data for more intricate requests.
+  (declare (ignore rpc))
+  (hello:make-hello-reply
+   :message (concatenate 'string "Hello " (hello:hello-request.name request))))
+
+(defconstant hostname "127.0.0.1" "Hostname for our server.")
+(defconstant port-number "8080" "Port for our server.")
+
+(defun main ()
+  ;; Before we use gRPC we need to init-grpc, this sets up
+  ;; low-level gRPC internals.
+  (grpc:init-grpc)
+  ;; This starts the server.
+  (grpc::run-grpc-proto-server
+   (concatenate 'string
+		hostname ":"
+		(write-to-string port-number))
+   'hello:hello-world))
