change ros file header...

samples/hello.ros

@@ -1,5 +1,8 @@
-#!/usr/bin/env ros
-
+#!/bin/sh
+#|-*- mode: lisp -*-|#
+#|Docstring like 1 line comment that are accepted if it installed
+exec ros -- $0 "$@"
+|#
 (defun main (&rest argv)
   (format t "Hello World!~%")
   (format t "argv=~S~%" argv))

src/cmds/help/cmd.c

@@ -99,25 +99,20 @@ int cmd_help(int argc, const char **argv)
               char* fname=cat(subcmds,SLASH,f,NULL);
               if((in=fopen(fname,"rb"))!=NULL) {
                 int i=0,c;
-                while((c=fgetc(in))!=EOF) {
-                  if(c=='\n')
+                for(;i<2;++i)
+                  while((c=fgetc(in))!=EOF && c!='\n');
+                i=0;
+                for(;(c=fgetc(in))!=EOF;buf[i++]=c)
+                  if(c=='\r'||c=='\n'||i==799)
                     break;
-                }
-                while((c=fgetc(in))!=EOF) {
-                  if(c=='\r'||c=='\n'||i==799) {
-                    break;
-                  }
-                  buf[i++]=c;
-                }
                 buf[i]='\0';
                 fclose(in);
-              }else{
-                strcpy(buf,"");
-              }
+              }else
+                buf[0]='\0';
               s(fname);
               f[len]='\0';
-              buf[strlen(buf)-1]='\0';
-              fprintf(stderr,fmt,f,buf+1);
+              if(buf[0]='#' && buf[1]=='|')
+                fprintf(stderr,fmt,f,buf+2);
             }
           }
         }

src/lisp/delete.ros

@@ -1,5 +1,8 @@
-#!/bin/env ros
-"Delete installed implementations."
+#!/bin/sh
+#|-*- mode:lisp -*-|#
+#|Delete installed implementations
+exec ros -- $0 "$@"
+|#
 
 (defpackage :ros.delete
   (:use :cl))
@@ -38,5 +41,3 @@
         ((or (equal subcmd "help") (not r))
          (format t "Usage: ~A [OPTIONS] ~A impl/version ~%"
                  (second (assoc "argv0" *opts* :test 'equal)) cmd))))
-
-

src/lisp/dump.ros

@@ -1,5 +1,8 @@
-#!/bin/env ros
-"Dump image for faster startup or Make Executable"
+#!/bin/sh
+#|-*- mode:lisp -*-|#
+#|Dump image for faster startup or Make Executable
+exec ros -- $0 "$@"
+|#
 
 (defpackage :ros.dump
   (:use :cl))

src/lisp/install.ros

@@ -1,4 +1,9 @@
-#!/usr/bin/env ros
+#!/bin/sh
+#|-*- mode:lisp -*-|#
+#|install roswell
+exec ros -- $0 "$@"
+|#
+
 (cl:in-package :cl-user)
 
 (require :asdf)

src/lisp/list.ros

@@ -1,5 +1,8 @@
-#!/bin/env ros
-"List Information"
+#!/bin/sh
+#|-*- mode:lisp -*-|#
+#|List Information
+exec ros -- $0 "$@"
+|#
 
 (defpackage :ros.list
   (:use :cl))