- Edinburgh Speech Tools Library (used by the Festival Speech Synthesis System).
| slib_list.cc (speech_tools-2.4-release) | : | slib_list.cc (speech_tools-2.5.0-release) |
|---|
| | |
| skipping to change at line 78 | | skipping to change at line 78 |
|---|
| | |
| LISP copy_list(LISP x) | | LISP copy_list(LISP x) |
| {if NULLP(x) return(NIL); | | {if NULLP(x) return(NIL); |
| STACK_CHECK(&x); | | STACK_CHECK(&x); |
| return(cons(car(x),copy_list(cdr(x))));} | | return(cons(car(x),copy_list(cdr(x))));} |
| | |
| static LISP eq(LISP x,LISP y) | | static LISP eq(LISP x,LISP y) |
| {if EQ(x,y) return(truth); else return(NIL);} | | {if EQ(x,y) return(truth); else return(NIL);} |
| | |
| LISP eql(LISP x,LISP y) | | LISP eql(LISP x,LISP y) |
|
| {if EQ(x,y) return(truth); else | | {if EQ(x,y) return(truth); |
| if NFLONUMP(x) return(NIL); else | | if NFLONUMP(x) return(NIL); |
| if NFLONUMP(y) return(NIL); else | | if NFLONUMP(y) return(NIL); |
| if (FLONM(x) == FLONM(y)) return(truth); | | if (FLONM(x) == FLONM(y)) return(truth); |
| return(NIL);} | | return(NIL);} |
| | |
| static LISP nullp(LISP x) | | static LISP nullp(LISP x) |
|
| {if EQ(x,NIL) return(truth); else return(NIL);} | | {if EQ(x,NIL) |
| | return(truth); |
| | return(NIL);} |
| | |
| LISP siod_flatten(LISP tree) | | LISP siod_flatten(LISP tree) |
| { | | { |
| if (tree == NIL) | | if (tree == NIL) |
| return NIL; | | return NIL; |
| else if (consp(tree)) | | else if (consp(tree)) |
| return append(siod_flatten(car(tree)),siod_flatten(cdr(tree))); | | return append(siod_flatten(car(tree)),siod_flatten(cdr(tree))); |
| else | | else |
| return cons(tree,NIL); | | return cons(tree,NIL); |
| } | | } |
| | | |
| End of changes. 2 change blocks. |
|---|
| 4 lines changed or deleted | | 6 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 