This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(add-load-path "../../define-datatype") | |
(load "define-datatype") | |
(define-datatype environment environment? | |
(empty-env-record) | |
(extended-env-record | |
(syms (list-of symbol?)) | |
(vals (list-of scheme-value?)) | |
(env environment?))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(use gauche.test) | |
(add-load-path ".") | |
(load "env") | |
(test-start "env") | |
(test-section "environment-to-list") | |
(test* "example" | |
'(extended-env-record (d x) (6 7) | |
(extended-env-record (y) (8) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(add-load-path "../../define-datatype") | |
(load "define-datatype") | |
(define-datatype environment environment? | |
(empty-env-record) | |
(extended-env-record | |
(syms (list-of symbol?)) | |
(vals vector?) | |
(env environment?))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(use gauche.test) | |
(add-load-path ".") | |
(load "env") | |
(test-start "env") | |
(test-section "environment-to-list") | |
(test* "example" | |
'(extended-env-record (d x) (6 7) | |
(extended-env-record (y) (8) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package com.example.layouttest; | |
import java.text.DecimalFormat; | |
import java.text.NumberFormat; | |
import java.text.ParseException; | |
import android.os.Bundle; | |
import android.app.Activity; | |
import android.view.KeyEvent; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# -*- coding: euc-jp -*- | |
$:.unshift File.dirname(__FILE__) | |
require 'rubygems' | |
require 'fog' | |
require 'pp' | |
require 'access_key' | |
# create a compute connection |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
public static class MyPasswordInputDialog extends DialogFragment { | |
private SharedPreferences mPref; | |
private EditText mPasswd1; | |
private EditText mPasswd2; | |
@Override | |
public Dialog onCreateDialog(Bundle savedInstanceState) { | |
mPref = PreferenceManager.getDefaultSharedPreferences(MyPasswordInputDialog.this.getActivity()); | |
AlertDialog.Builder builder = new AlertDialog.Builder(getActivity()); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
require 'fileutils' | |
require 'rake/clean' | |
def use_bundler() | |
if system("bundle > /dev/null 2>&1") | |
"bundle exec " | |
else | |
"" | |
end | |
end |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Makefile - build script */ | |
# build environment | |
PREFIX ?= /usr/local/cross/rpi/arm-unknown-eabi | |
ARMGNU ?= $(PREFIX)/bin/arm-unknown-eabi | |
# source files | |
SOURCES_ASM := $(wildcard *.S) | |
SOURCES_C := $(wildcard *.c) | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
class Mock | |
def extract_template(options={}) | |
Fog.credentials[:cloudstack_zone_id] = 1105 | |
template_id = options['id'] | |
template_mode = options['mode'] | |
zoneid = self.data[:zones].keys[0] | |
zone = self.data[:zones][zoneid] |