Last commit before tagging and releasing

This commit is contained in:
capitaomorte
2009-08-29 17:59:02 +00:00
parent 15c7703b5b
commit b8dcf61367
640 changed files with 4360 additions and 77 deletions

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: close
# contributor: Translated from TextMate Snippet
# name: Close File
# --
close(unit=${1:iounit}, iostat=${2:ios}${3:, status="delete"})
if ( $2 /= 0 ) stop "Error closing file unit $1"

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: inq
# contributor: Translated from TextMate Snippet
# name: Inquire (by Filename)
# --
inquire(file=${1:filename}, opened=${2:ioopen}, exists=${3:ioexist}, number=${4:iounit})

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: inq
# contributor: Translated from TextMate Snippet
# name: Inquire (by Unit)
# --
inquire(unit=${1:iounit}, opened=${2:ioopen}, name=${3:filename}, action=${4:ioaction})

View File

@@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# key: open
# contributor: Translated from TextMate Snippet
# name: Open File
# --
open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios}, &
status="${4:old/new/replace/scratch/unknown}", action="${5:read/write/readwrite}", access="${7:sequential/direct}"${7/(direct)$|.*/(?1:, recl=)/}$0)
if ( $3 /= 0 ) stop "Error opening file ${2/[\"\'](.*)[\"\']/$1/}"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: op
# contributor: Translated from TextMate Snippet
# name: Quick Open
# --
open(unit=${1:iounit}, file=${2:name}, iostat=${3:ios})
if ( $3 /= 0 ) stop "Error opening file ${2/[\"\'](.*)[\"\']/$1/}"

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: re
# contributor: Translated from TextMate Snippet
# name: Quick Read
# --
read*,

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: wr
# contributor: Translated from TextMate Snippet
# name: Quick Write
# --
write(unit=${1:iounit}, fmt=*) ${0:variables}

View File

@@ -0,0 +1,6 @@
# -*- mode: snippet -*-
# key: pr
# contributor: Translated from TextMate Snippet
# name: Quick Print
# --
print*,

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: read
# contributor: Translated from TextMate Snippet
# name: Read (Non Advancing Mode)
# --
read(unit=${1:iounit}, fmt="(${2:format string})", iostat=${3:istat}, advance='NO', size=${4:number of characters}) ${5:variables}
if ( $3 /= 0 ) stop "Read error in file unit $1"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: read
# contributor: Translated from TextMate Snippet
# name: Read
# --
read(unit=${1:iounit}, fmt="(${2:format string})", iostat=${3:istat}) ${4:variables}
if ( $3 /= 0 ) stop "Read error in file unit $1"

View File

@@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# key: write
# contributor: Translated from TextMate Snippet
# name: Write
# --
write(unit=${1:iounit}, fmt="(${2:format string})", iostat=${3:ios}${4:, advance='NO'}) ${5:variables}
if ( $3 /= 0 ) stop "Write error in file unit $1"