From: Ben Pfaff <blp@gnu.org>
Date: Tue, 2 May 2006 22:58:24 +0000 (+0000)
Subject: Add missing function comments.
X-Git-Tag: v0.6.0~908
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b90130fcce3888711bc7f151836464632a1a55ce;p=pspp-builds.git

Add missing function comments.
---

diff --git a/src/data/ChangeLog b/src/data/ChangeLog
index 15675a92..42050230 100644
--- a/src/data/ChangeLog
+++ b/src/data/ChangeLog
@@ -1,3 +1,14 @@
+Tue May  2 15:57:10 2006  Ben Pfaff  <blp@gnu.org>
+
+	* storage-stream.c: Add missing function comments.
+
+Tue May  2 15:50:21 2006  Ben Pfaff  <blp@gnu.org>
+
+	Continue reforming procedure execution.  In this phase, add some
+	new, needed functionality to storage-stream.
+
+	* storage-stream.c: (storage_source_decapsulate) New function.
+
 Tue May  2 15:43:36 2006  Ben Pfaff  <blp@gnu.org>
 
 	* variable.c (width_to_bytes): Declarations must precede
diff --git a/src/data/storage-stream.c b/src/data/storage-stream.c
index d1dcd05d..a90a8aba 100644
--- a/src/data/storage-stream.c
+++ b/src/data/storage-stream.c
@@ -151,6 +151,7 @@ const struct case_source_class storage_source_class =
     storage_source_destroy,
   };
 
+/* Returns the casefile encapsulated by SOURCE. */
 struct casefile *
 storage_source_get_casefile (struct case_source *source) 
 {
@@ -175,13 +176,15 @@ storage_source_decapsulate (struct case_source *source)
   return casefile;
 }
 
+/* Creates and returns a new storage stream that encapsulates
+   CASEFILE. */
 struct case_source *
-storage_source_create (struct casefile *cf)
+storage_source_create (struct casefile *casefile)
 {
   struct storage_stream_info *info;
 
   info = xmalloc (sizeof *info);
-  info->casefile = cf;
+  info->casefile = casefile;
 
   return create_case_source (&storage_source_class, info);
 }