Changeset 2404c3a for functions.c

Timestamp:

Oct 3, 2003, 7:34:01 PM (21 years ago)

Author:

James M. Kretchmar <kretch@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

f933403

Parents:

87c6ef1

Message:

Added the "source" command

File:

• functions.c (modified) (1 diff)

functions.c

@@ -3159 +3159 @@
 }
 
-void owl_function_execstartup(void)
+/* Execute owl commands from the given filename.  If the filename
+ * is NULL, use the default owl startup commands file.
+ */
+void owl_function_source(char *filename)
 {
   FILE *file;
-  char *filename;
   char buff[LINE];
 
-  filename=owl_sprintf("%s/%s", owl_global_get_homedir(&g), OWL_STARTUP_FILE);
-  file=fopen(filename, "r");
-  owl_free(filename);
+  if (!filename) {
+    filename=owl_sprintf("%s/%s", owl_global_get_homedir(&g), OWL_STARTUP_FILE);
+    file=fopen(filename, "r");
+    owl_free(filename);
+  } else {
+    file=fopen(filename, "r");
+  }
   if (!file) {
     /* just fail silently if it doesn't exist */