<commit_before>(in-package #:uncommonshell)

(defparameter +KERNEL-IMPLEMENTATION-NAME+ "UncommonShell")
(defparameter +KERNEL-IMPLEMENTATION-VERSION+ "0.1")

(defclass kernel ()
  ((config :initarg :config :reader kerner-config)
   (ctx :initarg :ctx :reader kernel-ctx)
   (shell :initarg :shell :initform nil :reader kernel-shell)
   (iopub :initarg :iopub :initform nil :reader kernel-iopub)
   (evaluator :initarg :evaluator :initform nil :reader kernel-evaluator))
  (:documentation "Kernel state representation."))

(defun make-kernel (config)
  (let ((ctx (pzmq:ctx-new)))
    (make-instance 'kernel
                   :config config
                   :ctx ctx)))

(defun get-argv ()
  ;; Borrowed from apply-argv, command-line-arguments.  Temporary solution (?)
  ;; This is not PvE's code.
  #+sbcl sb-ext:*posix-argv*
  #+clozure (ccl::command-line-arguments)
  #+gcl si:*command-args*
  #+ecl (loop for i from 0 below (si:argc) collect (si:argv i))
  #+cmu extensions:*command-line-strings*
  #+allegro (sys:command-line-arguments)
  #+lispworks sys:*line-arguments-list*<commit_msg>minor version pushed<commit_after>(in-package #:uncommonshell)

(defparameter +KERNEL-IMPLEMENTATION-NAME+ "UncommonShell")
(defparameter +KERNEL-IMPLEMENTATION-VERSION+ "0.2")

(defclass kernel ()
  ((config :initarg :config :reader kerner-config)
   (ctx :initarg :ctx :reader kernel-ctx)
   (shell :initarg :shell :initform nil :reader kernel-shell)
   (iopub :initarg :iopub :initform nil :reader kernel-iopub)
   (evaluator :initarg :evaluator :initform nil :reader kernel-evaluator))
  (:documentation "Kernel state representation."))

(defun make-kernel (config)
  (let ((ctx (pzmq:ctx-new)))
    (make-instance 'kernel
                   :config config
                   :ctx ctx)))

(defun get-argv ()
  ;; Borrowed from apply-argv, command-line-arguments.  Temporary solution (?)
  ;; This is not PvE's code.
  #+sbcl sb-ext:*posix-argv*
  #+clozure (ccl::command-line-arguments)
  #+gcl si:*command-args*
  #+ecl (loop for i from 0 below (si:argc) collect (si:argv i))
  #+cmu extensions:*command-line-strings*
  #+allegro (sys:command-line-arguments)
  #+lispworks sys:*line-arguments-list*
{'fraction_non_alphanumeric': 0.14643019554342884, 'fraction_numerical': 0.002728512960436562, 'mean_word_length': 4.152224824355972, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3691770', 'n_tokens_mistral': 756, 'n_tokens_neox': 746, 'n_words': 187}