diff options
Diffstat (limited to 'html-jen.lisp')
| -rw-r--r-- | html-jen.lisp | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/html-jen.lisp b/html-jen.lisp index 3eb5e54..fdae7ed 100644 --- a/html-jen.lisp +++ b/html-jen.lisp @@ -1,26 +1,5 @@ (in-package :html-jen) -(defun dosya-metni-oku (dosya) - (let* ((uzunluk 0) - (metin - (with-output-to-string (out) - (with-open-file (in dosya :external-format :utf-8) - (loop :with arabellek := (make-array 8192 :element-type 'character) - :for n := (read-sequence arabellek in) - :while (< 0 n) - :do (incf uzunluk n) - (write-sequence arabellek out :start 0 :end n)))))) - (values metin uzunluk))) - -(defclass node () - ((tag :initarg :tag :accessor tag :initform nil) - (children :initarg :children :accessor children :initform nil) - (props :initarg :props :accessor props :initform nil) - (value :initarg :value :accessor value :initform nil))) - -(defun node! (tag children props value) - (make-instance 'node :tag tag :children children :props props :value value)) - (defparameter *indent* 0) (defparameter *indent-increment* 2) (defparameter *yeni-satır* t) |