adamczykm

(defun find-closing-bracket ()
  (interactive)
  (search-forward "]")
  (when (not (equal (point) (- (point-max) 1)))
    (goto-char (point))))

adamczykm

module ParsePlist ( Xexpr(..)
                  , plistParser
                  , plistParserWithHeaderAndFooter
                  , defaultHeader
                  , defaultFooter
                  , parseXexpr
                  )where

import Control.Monad
import Text.Parsec         (spaces, (<|>), manyTill, many, noneOf,

adamczykm

parseXmark :: Parser L.Text
parseXmark = (L.strip . L.pack)  <$>
             (char '<' *> spaces
              *> (many $ noneOf ">") <*
             char '>' <* spaces)


parseLit :: T.Text -> Parser Xexpr
parseLit endMark = (Lit . T.strip . T.pack) <$> (spaces *>
                   (manyTill anyChar

adamczykm

clearXmlEscapes s = foldr (\(old, new) str -> T.replace old new str) s xmlEscapes
  where 

adamczykm

{-# LANGUAGE OverloadedStrings #-}
module ParsePlist ( parseFromPlist
                  ,  plistParser
                  , plistParserWithHeaderAndFooter
                  , defaultHeader
                  , defaultFooter
                  , parseXexpr
                  )where

import Control.Monad

adamczykm

import pandas as pd
import pyqtgraph as pq
import numpy as np
import matplotlib.mlab as mlab
import pylab
from matplotlib.cm import Accent


def PlotCustomSpectrogram(x, NFFT=256, Fs=2, Fc=0, detrend=mlab.detrend_none,
             window=mlab.window_hanning, noverlap=128,

adamczykm

+(NSObject*)extractSexp:(const Sexp*)s{
    if(s==NULL) return nil;
    switch (s->type) {
        case Bool:
            return [NSNumber numberWithBool:(*(int*)s->value)!=0];
        case Integer:
            return [NSNumber numberWithInteger:(*(int*)s->value)];
        case Double:
            return [NSNumber numberWithDouble:(*(double*)s->value)];
        case String:

adamczykm

(global-set-key (kbd "C-x m") nil)
(global-set-key (kbd "C-x m >") 'mc/mark-next-like-this)

adamczykm

import GHC.Show (intToDigit)

-- | Fast hex representation of Word8
showHex :: Word8 -> ShowS
showHex n0 = showIt (1 :: Int) (quotRem n0 16)
   where
    showIt x (n,d) r = seq c $ -- stricter than necessary
      case x of
        0 -> r'
        _ -> showIt (x-1) (quotRem n 16) r'

adamczykm

//Copyright (c) 2011 ashelly.myopenid.com under <http://www.opensource.org/licenses/mit-license>
 
#include <stdlib.h>
 
//Customize for your data Item type
typedef int Item;
#define ItemLess(a,b)  ((a)<(b))
#define ItemMean(a,b)  (((a)+(b))/2)
 
typedef struct Mediator_t