m-hiyama

// COPIED FROM:
// https://searchcode.com/codesearch/view/14625492/

/*
 * Copyright (c) 1991, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Berkeley Software Design, Inc.
 *

m-hiyama

/* -*- coding: utf-8 -*- 
 *
 * VerySimpleAbstractMachines.js
 * (c) M.Hiyama 2015
 */

/*
 * トレース
 * ========
 */

m-hiyama

# -*- coding: sjis -*-

write-host "This is" $myInvocation.myCommand.path

# $env:HOME の設定
if (-not $env:HOME) {
    $env:HOME = $home
}
(get-psProvider filesystem).home = $env:HOME

m-hiyama

// -*- coding: utf-8 -*-
// 注意： ソースコードのエンコーディングは utf-8 にすること。

var MAIL_RECIPIENT = 'hiyama@××××××';

var MAILGUN_API_KEY = 'key-××××××××××××××××';
var MAILGUN_SANDBOX = 'sandbox××××××××××××××××';
var MAILGUN_API_URL = MAILGUN_SANDBOX + '.mailgun.org';

var mailgun = require('mailgun');

m-hiyama

# ez.R -- 暫定版（中途半端）

# TODO
# 1. CURD操作に、削除、リネーム、コピーを付ける
# 2. SEとNSEの関数をちゃんと作る。
# 3. オブジェクトのセーブを付ける。
# 4. 上書きを予防するようにする。


# animationパッケージを一緒に使うことが多い

m-hiyama

# rlseg.R -- Random Line SEGments

## ランダムな線分とその交点
## ========================

## コードは次の順で配置する
##
##  1. 初期化、設定、名前管理
##  2. 雑多な関数
##  3. 計算処理

m-hiyama

# defun.R

# デフォルト値なしを表す空な名前を返す
noDefault <- function() {
    f <- function(x){}
    formals(f)[[1]]
}

# 指定された仮引数リスト、本体、環境から関数を作成する
makeFunction <- function(fpars, fbody, fenvir = .GlobalEnv) {

m-hiyama

# surf.R

# 名前の検索
findConventionalNames <- function(mod) {
    # モジュールに属するオブジェクト名、モジュール名が接頭辞に付く
    modulePattern        <- paste("^", mod, "\\.*", sep = "")
    # モジュールに属するがプライベート扱いのオブジェクト名、先頭がドット
    modulePrivatePattern <- paste("^\\.", mod, "\\.*", sep="")
    # クラスに属するメソッド名
    classPattern         <- paste("^.+\\.", mod, "$", sep="")

m-hiyama

# drawComplex.R

# gridパッケージが必要
if (!require('grid')) {
  install.packages('grid')
  stopifnot(require('grid'))
}

# noDefaultとmakeFunctionが必要
stopifnot(exists("noDefault") && is.function(noDefault))