Language-SIOD

 view release on metacpan or  search on metacpan

siod.html  view on Meta::CPAN

If x is the result of (cons a b) then (cdr x) is the same as b.
<h3>(chdir path)</h3>
Changes default directory to path. <B><FONT SIZE="+2">U</FONT></B>. 
<h3>(chmod path mode)</h3>
Changes the file mode of path. <B><FONT SIZE="+2">U</FONT></B>. For example, to add execute access
permission to the file f:

<BLOCKQUOTE><PRE><TT>(chmod f
       (encode-file-mode (append '(XUSR XGRP XOTH)
                                  (cdr (assq 'mode (stat f))))))</TT></PRE></BLOCKQUOTE>
<h3>(chown path uid gid)</h3>
Changes file ownership. <B><FONT SIZE="+2">U</FONT></B>. 
<h3>(closedir stream)</h3>
Closes a directory stream. <B><FONT SIZE="+2">U</FONT></B>. 
<h3>(cond clause1 clause2 ...)</h3>
A special form where each clause is processed until the predicate expression
of the clause evaluates true. Then each subform in the predicate
is evaluated with the value of the last one becoming the value of
the cond form:
<BLOCKQUOTE><PRE><TT>(<B>predicate-expression</b> form1 form2 ...)</TT></PRE></BLOCKQUOTE>

siod.html  view on Meta::CPAN

<h3>(larg-default list index default-value)</h3>
Reference the list according to index, but skipping over
strings that begin with a colon or a dash. If the list is not long enough
it returns the default-value instead. Most useful when used
with the *args* variable inside a main program.
<h3>(last list)</h3>
Returns the last cons in a list.
<h3>(last-c-error)</h3>
Returns the value of the C library strerror(errno)
<B><FONT SIZE="+2">U</FONT></B> interned as a symbol.
<h3>(lchown path owner group)</h3>
Changes the ownership of a symbolic link <B><FONT SIZE="+2">U</FONT></B>.
<h3>(length object)</h3>
Returns the length of an object which may be a string (acts like strlen)
or a list, or an array.
<h3>(let (binding1 binding2 ...) form1 form2 ...)</h3>
A special form where each binding is a (variable value) pair.
It works by computing the values, establishing the bindings, and
then evaluating the forms, returning the value of the last one.
For example the following evaluates to 30:

slibu.c  view on Meta::CPAN

       is confused. What we really need are arrays with fill pointers. */
    result->storage_as.string.dim = ptr - start;
    return(result);}
 else
   /* we should be doing lgets until we  get a string with a newline or NIL,
      and then append the results */
   return(result);}

#ifndef WIN32

LISP l_chown(LISP path,LISP uid,LISP gid)
{long iflag;
 iflag = no_interrupt(1);
 if (chown(get_c_string(path),get_c_long(uid),get_c_long(gid)))
   err("chown",cons(path,llast_c_errmsg(-1)));
 no_interrupt(iflag);
 return(NIL);}

#endif

#if defined(unix) && !defined(linux)
LISP l_lchown(LISP path,LISP uid,LISP gid)
{long iflag;
 iflag = no_interrupt(1);
 if (lchown(get_c_string(path),get_c_long(uid),get_c_long(gid)))
   err("lchown",cons(path,llast_c_errmsg(-1)));
 no_interrupt(iflag);
 return(NIL);}
#endif


#ifdef unix

LISP popen_l(LISP name,LISP how)
{return(fopen_cg(popen,
		 get_c_string(name),

slibu.c  view on Meta::CPAN

#ifdef unix
 init_subr_2("symlink",lsymlink);
 init_subr_2("link",llink);
 init_subr_1("unlink",lunlink);
 init_subr_1("rmdir",lrmdir);
 init_subr_2("mkdir",lmkdir);
 init_subr_2("rename",lrename);
 init_subr_1("readlink",lreadlink);
#endif
#ifndef WIN32
 init_subr_3("chown",l_chown);
#endif
#if defined(unix) && !defined(linux)
 init_subr_3("lchown",l_lchown);
#endif
 init_subr_1("http-date",http_date);
#if defined(__osf__)
 init_subr_1("http-date-parse",http_date_parse);
#endif
#ifdef unix
 init_subr_2("popen",popen_l);
 init_subr_1("pclose",pclose_l);
#endif
 init_subr_2("load-so",load_so);