;;;; This file is part of Ellinika project. ;;;; Copyright (C) 2011 Sergey Poznyakoff ;;;; ;;;; Ellinika is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by ;;;; the Free Software Foundation; either version 3 of the License, or ;;;; (at your option) any later version. ;;;; ;;;; Ellinika is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU General Public License ;;;; along with this program. If not, see . (define-module (ellinika elmorph)) (load-extension "LIBDIR/libguile-elmorph-v-VERSION" "scm_init_ellinika_elmorph_module") (define-public (elstr-trim word n) (cond ((> n 0) (elstr-slice word n (- (elstr-length word) n))) ((< n 0) (elstr-slice word 0 (+ (elstr-length word) n))) (else word))) (define-public (elstr-trim! word n) (cond ((> n 0) (elstr-slice! word n (- (elstr-length word) n))) ((< n 0) (elstr-slice! word 0 (+ (elstr-length word) n)))))