priyadarshan

; Short guide to TCP/IP Client/Server programming in Common Lisp using usockets
;
; The main reason for this guide is because there are very few examples that
; explain how to get started with socket programming with Common Lisp that I
; could understand. After spending a day trying, I finally came up with a small
; bit of code that makes it easy to understand the basics. I've written this
; primarily for myself, but should help others get started as well.

; As usual, we will use quicklisp to load usocket.

priyadarshan

Credit: Mike Zeller's Plex on SmartOS

Thanks also to gea's napp-it Zones - Setup on OmniOS

Create LX zone

Ready Images by Joyent: https://docs.joyent.com/public-cloud/instances/infrastructure/images

Click on a link to check uuid and proper kernel setting (in the json output)

priyadarshan

# /usr/local/etc/PolicyKit/PolicyKit.conf
# Allow normal users to mount removable media automatically

    <config version="0.1">
    	<match action="org.freedesktop.hal.storage.mount-removable">
    		<return result="yes"/>
    	</match>
    	<match action="org.freedesktop.hal.storage.mount-fixed">
    		<return result="yes"/>
    	</match>

priyadarshan

;;; Original URL: http://fpn.mit.edu/Downloads/SuffixTree
;;; Copyright rif@mit.edu 2004.

(defpackage :suffix-tree
  (:export :build-suffix-tree :stree-root :*stree-print-string*
	   :random-string :subtree-size :count-leaves)
  (:use :common-lisp))

;; An O(n) implementation of McCreight's suffix-tree algorithm.
;; Usage example:

priyadarshan

A
A's
AA's
AB's
ABM's
AC's
ACTH's
AI's
AIDS's
AM's

priyadarshan

#!/usr/bin/ksh93

# This script only wipe same-sized disks for now
SIZE="10000831348736"
LAST_PART=`echo "($SIZE / 1024 / 1024) - 10" | /usr/bin/bc`

# List of disks to wipe
DRIVES="c0t5000CCA26BD0CAFAd0p0 c0t5000CCA26BD116ACd0p0 c0t5000CCA26BD59F6Dd0p0 c0t5000CCA26BD5AAC5d0p0
c0t5000CCA26BD6960Ed0p0 c0t5000CCA26BD6B9CCd0p0 c0t5000CCA26BD6C6D4d0p0 c0t5000CCA26BD6E59Cd0p0"

priyadarshan

(ql:quickload "cl-ppcre")
(ql:quickload "anaphora")

(defpackage :ini-parser
  (:use :common-lisp :anaphora)
  (:export :read-config-from-file))
(in-package :ini-parser)

(defparameter +empty-line+ (format nil "~%"))

priyadarshan

Information from https://msdn.microsoft.com/en-us/library/windows/desktop/aa365247(v=vs.85).aspx :

    Use any character in the current code page for a name, including Unicode
    characters and characters in the extended character set (128–255), except
    for the following:

    - The following reserved characters:

        < (less than)
        > (greater than)

priyadarshan

#!/bin/sh -euvx

# -e  If non interactive then exit immediately if a command fails.
# -u  Treat unset variables as an error when substituting.
# -v  Print shell input lines as they are read.
# -x  Print commands and their arguments as they are executed.

priyadarshan

#!/bin/bash
#####################################################################
# Benchmark Script 2.1 by SavageWS6 from FreeVPS                    #
#-# Copyright(C) 2015 - SavageWS6                                   #
#-# License: GNU General Public License 3.0                         #
#+# Copyright(C) 2015 - 2016 by SavageWS6                           #
# Github: https://github.com/savagews6/bench-sh-2.1                 #
#####################################################################
# Original script by akamaras/camarg                                #
#####################################################################