alesya-h

(ql:quickload (list "cl-opengl" "cl-glu" "cl-glut"))


(defmethod glut:reshape ((w my-window) width height)
  (gl:viewport 0 0 width height)
  (gl:matrix-mode :projection)
  (gl:load-identity)
  (glu:perspective 40 (/ width height) 1 20)
  (gl:matrix-mode :modelview)
  (gl:load-identity))

alesya-h

(ql:quickload "clx")

(defpackage #:lab-1
  (:use :cl :asdf))

(in-package :lab-1)

(defmacro add-to-list (list new-head)
          `(setq ,list (cons ,new-head ,list)))

alesya-h

(ql:quickload "bordeaux-threads")

(defmacro logging (message &rest body)
  `(progn
     (format t ,message)
     ,@body
     (format t " done.~%")))

(defun current-thread-name ()
  (bordeaux-threads:thread-name

alesya-h

(PROGRAM
 ((COMMAND (@IDENT "require" (2 0))
   (ARGS_ADD_BLOCK
    ((STRING_LITERAL (STRING_CONTENT (@TSTRING_CONTENT "net/http" (2 9)))))
    FALSE))
  (COMMAND (@IDENT "require" (3 0))
   (ARGS_ADD_BLOCK
    ((STRING_LITERAL (STRING_CONTENT (@TSTRING_CONTENT "net/https" (3 9)))))
    FALSE))
  (COMMAND (@IDENT "require" (4 0))

alesya-h

Education

Name of Institution:	Belarusian State University of Informatics and Radioelectronics
Faculty:	Computer Systems and Networks
Specialization:	Computers, Systems and Networks
Diploma profession	systems engineer
Education Form	day’s
Education Level	Higher education
Academic degree	Diploma in Software Engineering
Year of graduation	2012

alesya-h

(defun evil-insert-jk-for-normal-mode ()
  (interactive)
  (insert "j")
  (let ((event (read-event nil)))
    (if (= event ?k)
      (progn
        (backward-delete-char 1)
        (evil-normal-state))
      (push event unread-command-events))))
(define-key evil-insert-state-map "j" 'evil-insert-jk-for-normal-mode)

alesya-h

(ql:quickload "clx")

(defpackage #:lab-1
  (:use :cl :asdf))

(in-package :lab-1)
(defun graphic-x (width height &optional (dots '((1 2) (2 3) (3 4) (4 5)))(host ""))
  (let* ((display (xlib:open-display host))
	 (screen (first (xlib:display-roots display)))
	 (black (xlib:screen-black-pixel screen))

alesya-h

NONE="\033[0m"    # unsets color to term's fg color
    
# regular colors
K="\033[0;30m"    # black
R="\033[0;31m"    # red
G="\033[0;32m"    # green
Y="\033[0;33m"    # yellow
B="\033[0;34m"    # blue
M="\033[0;35m"    # magenta
C="\033[0;36m"    # cyan

alesya-h

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <dirent.h>
#include <semaphore.h>
#include <sys/stat.h>
#include <unistd.h>

sem_t * out_sem;

alesya-h

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <dirent.h>
#include <semaphore.h>
#include <sys/stat.h>
#include <unistd.h>

sem_t * out_sem;