r-moeritz

;;;; pretty-literals.lisp - pretty hash table & vector literal syntax
;;;; inspired by and uses code from http://frank.kank.net/essays/hash.html

(in-package #:pretty-literals)

;; vector literal syntax using brackets
(set-macro-character #\[
		     (lambda (str char)
		       (declare (ignore char))
		       (let ((*readtable* (copy-readtable *readtable* nil))

r-moeritz

;; -*- mode: Lisp; lexical-binding: t; -*-

;; ----------------------------------------------------------------------
;;                            HELPER FUNCTIONS
;; ----------------------------------------------------------------------

(defvar electrify-return-match
  "[\]}\)\"]"
  "If this regexp matches the text after the cursor, do an \"electric\"
  return.")

r-moeritz

; findprgadr.s
;
; find and print program address
; works by calling into a rom routine, causing the sp to be saved.

*= $c0f7

linprt = $bdcd

findadr         sei                     ; stop irqs from touching the stack

r-moeritz

; Mr. Ed by Chris Miller Jul, 1986

; *** constants ***
columns   = 40          ; screen size
linesize  = 250         ; max allowed
screenbeg = 1024+40     ; top of text scr
screenend = 2024        ; end of text scr
rows      = 24          ; screenend-screenbeg/columns

; *** important memory ***

r-moeritz

   5 sys 49152
  10 print chr$(147):poke 49408+33,0:poke 49455+33,0
  15 for a=832 to 896:poke a,255:next
  20 for a=2040 to 2047:poke a,13:next
  30 poke 49408+21,255:poke 49455+21,255
  40 for a=49408 to 49422 step 2:poke a,b*25+50:poke a+47,b*25+50:b=b+1:next
  50 for a=49409 to 49423 step 2:poke a,100:poke a+47,200:next

r-moeritz

REM  *****  BASIC  *****

Function VLOOKUP(SearchValue As Variant, CellRange As Object, Column As Integer, Mode As Integer) As Variant
	Dim svc As Object
	Dim arg AS Variant
	
    svc = createUnoService("com.sun.star.sheet.FunctionAccess")
    arg = Array(SearchValue, CellRange, Column, Mode)

    VLOOKUP = svc.callFunction("VLOOKUP", arg)

r-moeritz

namespace DuckTyping
{
  using System;

  class Aviary
  { // The Aviary "module"
    public class __Duck__
    {
      public void Quack()
      {

r-moeritz

(in-package #:c)
(defparameter *compile-in-constants* t)
(in-package #:cl-user)
(compile-file "hello.lisp" :system-p t)
(c:build-program "binary" :lisp-files '("hello.obj"))

r-moeritz

(c:build-program "binary" :lisp-files '("hello.obj"))

r-moeritz

(princ "Hello world!")
(terpri)
(quit)