adamnew123456

--[[
  This program is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

adamnew123456

A Basic RPN Calculator

We're going to start with a basic RPN interpreter and add function definitions to it. That will serve as a good starting point for adding on JIT compilation later. There are only going to be a few primitives to start with:

• Integer constants
• Arithmetic operators: +, -, *, /, %
• Stack manipulation: swap, dup, drop
• Display: print

adamnew123456

package require Tk

# Checktask format:
#
# %Y-%m-%d,%H:%M:%S,message
if [string equal $tcl_platform(platform) "windows"] {
    set checktask_file $env(APPDATA)/checktask.csv
} else {
    set checktask_file $env(HOME)/.checktask.csv
}

adamnew123456

package require Tk

wm title . "Dayclock"
wm geometry . 200x225

canvas .clock
pack .clock

set expired_slice [.clock create arc 1 1 200 200 \
                       -start 225 -extent -270 -fill red]

adamnew123456

;; Copyright 2019, Chris Marchetti

;;  This program is free software: you can redistribute it and/or modify
;;  it under the terms of the GNU General Public License as published by
;;  the Free Software Foundation, either version 3 of the License, or
;;  (at your option) any later version.

;;  This program is distributed in the hope that it will be useful,
;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

adamnew123456

function interpolate(a, b, ratio) {
	return ratio * (b - a) + a;
}

function Point(x, y) { 
  return {x: x, y: y}; 
}

function bezier(points, ratio) {
	if (points.length < 2) return null;

adamnew123456

import base64
import hmac
import struct
import sys
import time
from urllib.parse import unquote

def generate_hotp_code(secret, counter, hash_algo='sha1', size=6):
    """
    Generates a HOTP code.

adamnew123456

# Checks if the argument string is blank
proc is_blank {x} {
    return [string equal $x {}]
}

namespace eval fixture {
    namespace export create execute
    namespace ensemble create

    # Creates a new fixture, which contains a group of tests and an optional

adamnew123456

(require 'browse-url)
(require 'helm)
(require 'seq)
(require 'url)

(defun xml-node (node)
  "Returns the symbol for the node type (e.g. 'li for <li>...</li>)"
  (car node))

(defun xml-attr (node attr)

adamnew123456

proc jdbc_command {options} {
    set classpath [lindex $options 0]

    set commands {/usr/bin/java -classpath}
    lappend commands "/home/chris/Source/jdbcnotebook/target/server-1.0-SNAPSHOT-jar-with-dependencies.jar:$classpath"
    lappend commands {*}[lrange $options 1 end]

    return $commands
}