Wizard

うるう年判定【LSL】

2008-08-26T10:37:52+09:00

うるう年は
1. 西暦年が4で割り切れる年は閏年
2. ただし、西暦年が100で割り切れる年は平年
3. ただし、西暦年が400で割り切れる年は閏年

Wikipediaより

// うるう年判定
integer IsLeapYear(integer year)
{
    if (((year % 4 == 0) && (year % 100 != 0)) || year % 400 == 0) {
        return TRUE;
    } else {
        return FALSE;
    }
}

曜日取得【LSL】

2008-08-26T10:36:13+09:00

年月日からその日が何曜日であったか求めます。
ここで使うのはツェラーの公式。
LSLは文字列比較は処理が重いらしいとどこかで見たので、
返却値をif文にかけるのであれば、integerのまま返却するようにすると良いと思います。

// 曜日取得
string GetWeek(integer year,integer month, integer day)
{
    list weektbl = ["Sun","Mon","Tue","Wed","Thu","Fri","Sat"];

    // 1月の場合は前年の13月,2月の場合は前年の14月
    if ((month == 1) || (month == 2)) {
        year--;
        month += 12;
    }
    integer week =
       (year + year / 4 - year / 100 + year / 400 + (month * 13 + 8) / 5 + day) % 7;

    return llList2String(weektbl, week);
}

参考：giru0116のブログ

一方向リスト（その２）

2008-08-26T10:32:24+09:00

一方向リストその２。

リストの先頭と末尾へのポインタを用意する事で、

末尾へ効率的にノードを追加します。

/*****************************************************************************/
/* 線形リスト                                                                */
/*****************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

typedef struct _node {
  int          no;
  char         str[256];
  struct _node *next;         /* 次のノード */
} Node_t;

typedef struct _list {
  Node_t      *head;          /* リストの先頭 */
  Node_t      *tail;          /* リストの末尾 */
} List_t;

#define OK 0
#define NG -1

/*****************************************************************************/
/* ノード領域確保                                                            */
/*****************************************************************************/
Node_t *AllocNode(void)
{
  Node_t *ptr;
  ptr = (Node_t *)calloc(1, sizeof(Node_t));
  return ptr;
}

/*****************************************************************************/
/* リストの初期化                                                            */
/*****************************************************************************/
void InitList(List_t *list)
{
  list->head = list->tail = AllocNode();
}

/*****************************************************************************/
/* 先頭ノード挿入                                                            */
/*****************************************************************************/
int InsertNode(List_t *list, int no, char *str)
{
  Node_t  *ptr = list->head;

  list->head = AllocNode();
  if (list->head == NULL) {
      return NG;
  }
  list->head->no = no;
  strcpy(list->head->str, str);
  list->head->next = ptr;

  return OK;
}

/*****************************************************************************/
/* 末尾ノード挿入                                                            */
/*****************************************************************************/
int AppendNode(List_t *list, int no, char *str)
{
  Node_t  *ptr = list->tail;

  list->tail = AllocNode();
  if (list->tail == NULL) {
      return NG;
  }
  ptr->no = no;
  strcpy(ptr->str, str);
  ptr->next = list->tail;

  return OK;
}
/*****************************************************************************/
/* 先頭ノード削除                                                            */
/*****************************************************************************/
void DelNode(List_t *list)
{
  Node_t  *ptr;
  if (list->head != list->tail) {
      ptr = list->head->next;
      free(list->head);
      list->head = ptr;
  }
}

/*****************************************************************************/
/* 全ノード削除                                                              */
/*****************************************************************************/
void DelAllNode(List_t *list)
{
  Node_t *ptr = list->head;
  Node_t *ptr2;

  while (ptr != list->tail) {
      ptr2 = ptr->next;
      free(ptr);
      ptr = ptr2;
  }
  list->head = list->tail;
}

/*****************************************************************************/
/* 全ノード表示                                                              */
/*****************************************************************************/
void PrintList(List_t *list)
{
  Node_t  *ptr;

  ptr = list->head;
  while (ptr != list->tail) {
      printf("no = [%d], str = [%s]\n", ptr->no, ptr->str);
      ptr = ptr->next;
  }
}

使い方

int main(void)
{
    /* 返却値のチェックは省略 */
    List_t  list;
    InitList(&list);

    AppendNode(&list, 1, "AAA");
    AppendNode(&list, 2, "BBB");
    AppendNode(&list, 3, "CCC");

    PrintList(&list);

    DelAllNode(&list);

    return OK;
}

一方向リスト（その１）

2008-08-26T10:24:03+09:00

単純な一方向リストです。

/*****************************************************************************/
/* 単純なリスト                                                              */
/*****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

typedef struct _node {
    int             no;
    char            str[256];
    struct _node    *next;      /* 次のノードへのポインタ */
} Node_t;

#define OK  0
#define NG  -1

/*****************************************************************************/
/* ノードのメンバに値設定                                                    */
/*****************************************************************************/
static void SetNode(Node_t *node, int no, char *str, Node_t *next)
{
    node->no = no;
    strcpy(node->str, str);
    node->next = next;
}

/*****************************************************************************/
/* ノードの領域確保                                                          */
/*****************************************************************************/
static Node_t *AllocNode(void)
{
    Node_t  *node;
    node = calloc(1, sizeof(Node_t));
    return node;
}

/*****************************************************************************/
/* 先頭ノード挿入                                                            */
/*****************************************************************************/
static int InsertNode(Node_t **head, int no, char *str)
{
    Node_t  *ptr = *head;
    *head = AllocNode();
    if (*head == NULL) {
        return NG;
    }
    SetNode(*head, no, str, ptr);
    return OK;
}

/*****************************************************************************/
/* 末尾ノード挿入                                                            */
/*****************************************************************************/
int AppendNode(Node_t **head, int no, char *str)
{
    int ret;
    Node_t  *ptr;

    if (*head == NULL) {
        ret = InsertNode(head, no, str);
        if (ret != OK) {
            return NG;
        }
    } else {
        ptr = *head;
        while (ptr->next != NULL) {
            ptr = ptr->next;
        }
        ptr->next = AllocNode();
        if (ptr->next == NULL) {
            return NG;
        }
        SetNode(ptr->next, no, str, NULL);
    }
    return OK;
}

/*****************************************************************************/
/* 全ノード表示                                                              */
/*****************************************************************************/
void PrintAllNode(Node_t **head)
{
    Node_t  *ptr = *head;
    while (ptr != NULL) {
        printf("no = [%d], str = [%s]\n", ptr->no, ptr->str);
        ptr = ptr->next;
    }
}

/*****************************************************************************/
/* 先頭ノード削除                                                            */
/*****************************************************************************/
static void FreeNode(Node_t **head)
{
    Node_t *ptr;

    if (*head != NULL) {
        ptr = (*head)->next;
        free(*head);
        *head = ptr;
    }
}

/*****************************************************************************/
/* 全ノード削除                                                              */
/*****************************************************************************/
void FreeAllNode(Node_t **head)
{
    while (*head != NULL) {
        FreeNode(head);
    }
}

使い方

int main(void)
{
    Node_t  *list = NULL;   /* NULLで初期化すること */
    int ret;

    ret = AppendNode(&list, 1, "AAA");
    if (ret != OK) {
        return NG;
    }
    ret = AppendNode(&list, 2, "BBB");
    if (ret != OK) {
        return NG;
    }
    PrintAllNode(&list);
    FreeAllNode(&list);

    return OK;
}

メニュー

2008-08-26T10:15:33+09:00

**メニュー -[[トップページ]] -[[C言語]] --[[自作関数>自作関数【C】]] -[[Shell]] -[[Unix/Linux]] -[[LSL]] --[[自作関数>自作関数【LSL】]] -[[VBA]] ---- **リンク -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] **他のサービス -[[無料ホームページ作成>>http://atpages.jp]] -[[無料ブログ作成>>http://atword.jp]] -[[2ch型掲示板レンタル>>http://atchs.jp]] -[[無料掲示板レンタル>>http://atbbs.jp]] -[[お絵かきレンタル>>http://atpaint.jp/]] -[[無料ソーシャルプロフ>>http://sns.atfb.jp/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集)

自作関数【C】

2008-08-26T10:13:56+09:00

**日付関連 -[[うるう年判定>うるう年判定【C】]] -[[月末日取得>月末日取得【C】]] -[[n日前の日付取得>n日前の日付取得【C】]] ---- **リスト -[[一方向リスト（その１）]] -[[一方向リスト（その２）]] ----

トップページ

2008-08-25T23:18:01+09:00

**Wizardへようこそ -Unix CとLSLについて、覚書程度で綴っていくサイトです。 -ちゃっかりWizardなんてサイト名ですが、わたしがWizardかは微妙です。 -コードの著作権は放棄します。商用などご自由にご利用いただいて構いませんが、バグがあったとき等の責任は負いかねます。

attachするとアニメを実行する【LSL】

2008-08-25T15:38:40+09:00

attachするとアニメを実行するLSLです。
グラスを持つと飲む、フォークを持つと食べる動作をさせたい場合に使えます。

string anim = "animation";        // ここを再生したいアニメ名に変更  

default  
{  
    attach(key kAvId)  
    {
        // attach
        if (kAvId != NULL_KEY) {
            // アニメ再生のパーミッションを要求  
            llRequestPermissions(kAvId, PERMISSION_TRIGGER_ANIMATION);
        // detach
        } else {  
            // アニメを止める
            llStopAnimation(anim);
        }
    }
    // パーミッション要求にユーザーの返答があった
    run_time_permissions(integer perm)
    {
        // 「アバターに動きをつける」→ YES
        if (perm != 0) {
            // アニメを再生する
            llStartAnimation(anim);
        }
    }
}

sitするとアニメを実行する【LSL】

2008-08-25T15:37:37+09:00

sitするとアニメを実行するLSLです。

// sitしたときにアニメを再生する 
// Author   : Parvati Schnyder 
// Reference:「セカンドライフプログラミング入門 - 赤坂 玲音[著] 

string anim = "animation";        // ここを再生したいアニメ名に変更

default
{
   attach(key kAvId)
   {
       // attach
       if (kAvId != NULL_KEY) {
           // アニメ再生のパーミッションを要求
           llRequestPermissions(kAvId, PERMISSION_TRIGGER_ANIMATION);
       // detach
       } else {
           // アニメを止める
           llStopAnimation(anim);
       }
   }
   // パーミッション要求にユーザーの返答があった
   run_time_permissions(integer perm)
   {
       // 「アバターに動きをつける」→ YES
       if (perm != 0) {
           // アニメを再生する
           llStartAnimation(anim);
       }
   }
}

自作関数【LSL】

2008-08-25T15:31:54+09:00

**日付関連 -[[うるう年判定>うるう年判定【LSL】]] -[[月末日取得>月末日取得【LSL】]] -[[曜日取得>曜日取得【LSL】]] ---- **アニメーション関連 -[[attachするとアニメを実行する>attachするとアニメを実行する【LSL】]] -[[sitするとアニメを実行する>sitするとアニメを実行する【LSL】]] ----