430bc99013
it build again.
Changes:
This is a major feature enhancement and bugfix release
* Added keyword and optional function arguments.
The syntax of a keyword parameter/argument is "identifier = expr".
Function Application
-------------------------------------------
f(a) f(1)
f(~a, b) f(~a = 10, 11) Required keyword argument
f(?a, b) f(~a = 10, 12) Optional keyword argument
f(12) -- defaults to empty
f(?a = 1, b) f(~a = 10, 11) Optional keyword argument with default value
f(~a = 1, b) f(11) -- ~a is same as ?a if there is a default value
f(?a = 10, 11) -- Arguments can use ?, but it means the same thing
Keyword arguments and normal arguments are processed
independently. Normal arguments have to appear in the same
order as in the parameter list, but keyword arguments can go
anywhere.
This also adds the function notation.
fun(x, y) =>
add($x, $y)
foreach(x => ..., a b c)
println($x)
where the "..." essentially means "parse as if the indented
block below was actually an expression in here"
Old-style foreach generate a warning.
* Added "program" syntax. This provides a more standard
programming language, where strings must be explicit, and
variables represent applications.
The outer syntax is normal; the program syntax is an ast to
ast translation. The translation is turned on with the command
".LANGUAGE: program", which is scoped like "export". Here is
an example:
#!/usr/bin/env osh
.LANGUAGE: program
f(x) =
return x + 1
println(f(f(1)))
The normal $-style expressions are always allowed, but in
program-syntax mode, identifiers stand for variables, function
application is the f(e1, ..., e2) form, and there are the
standard infix operators. To switch back to the default
syntax, use .LANGUAGE: make
Note, shell commands and rules never use program syntax,
except within function arguments.
This is not heavily tested.
* Added support for partial and curried function applications.
Normal funcation application still require using the correct
number of arguments (as relaxed by the introduction of optional
arguments), but apply function can be used to create curried
and partial applications.
f(x,y) =
return $(add $x, $y)
g = $(apply $f, 2) # Partial applications must use apply
println($(g 3)) # 5
ff(x) =
gg(y) =
return $(add $x, $y)
println($(apply $(ff), 3, 5)) # Prints 8, also need to use apply here
apply can also take keyword arguments.
* A high-quality C parser was added to OMake — see lib/parse/C/Parse.om
* Added a LaTeX parser and spellchecker - see lib/parse/LaTeX/README.txt
* New functions added: localtime, gmtime, mktime, normalize-tm,
utimes, digest-string, url-escaped, find-all, addprefixes
* New object added: Tm
* About 10 Bugs fixed
* [Experimental] Object methods can now export their fields
back into the parent object. For example,
Z. =
x = 1
f() =
x = 2
export
Z.f()
echo $(Z.x)
# Prints "2"
This works with arbitrary levels of nesting.
33 lines
1.3 KiB
Text
33 lines
1.3 KiB
Text
$NetBSD: patch-an,v 1.1 2010/12/17 09:40:14 wiz Exp $
|
|
|
|
From upstream SVN.
|
|
|
|
--- src/libmojave-external/cutil/lm_termsize.c.orig 2008-03-19 00:44:12.000000000 +0000
|
|
+++ src/libmojave-external/cutil/lm_termsize.c
|
|
@@ -45,7 +45,7 @@ value caml_term_size(value arg)
|
|
CAMLlocal1(buf);
|
|
|
|
/* Return a pair of numbers */
|
|
- buf = alloc_small(2, 0);
|
|
+ buf = caml_alloc_small(2, 0);
|
|
|
|
/* Get the terminal size, return None on failure */
|
|
#ifdef WIN32
|
|
@@ -53,7 +53,7 @@ value caml_term_size(value arg)
|
|
HANDLE fd = *(HANDLE *)Data_custom_val(arg);
|
|
CONSOLE_SCREEN_BUFFER_INFO ConsoleInfo;
|
|
if (! GetConsoleScreenBufferInfo(fd, &ConsoleInfo))
|
|
- failwith("lm_termsize.c: caml_term_size: GetConsoleScreenBufferInfo failed");
|
|
+ caml_failwith("lm_termsize.c: caml_term_size: GetConsoleScreenBufferInfo failed");
|
|
|
|
Field(buf, 0) = Val_int(ConsoleInfo.dwSize.Y);
|
|
Field(buf, 1) = Val_int(ConsoleInfo.dwSize.X);
|
|
@@ -65,7 +65,7 @@ value caml_term_size(value arg)
|
|
struct winsize ws;
|
|
|
|
if(ioctl(fd, TIOCGWINSZ, &ws) < 0)
|
|
- failwith("lm_termsize.c: caml_term_size: not a terminal");
|
|
+ caml_failwith("lm_termsize.c: caml_term_size: not a terminal");
|
|
|
|
/* Return the pair of numbers */
|
|
Field(buf, 0) = Val_int(ws.ws_row);
|