ハバネロ-1995年・旧稿です。

# Load this file to create a heirarchical fileset menu that allows you electricAlias-def ・Pas ・Pas ・
electricAlias-var Pas bc "\{"
electricAlias-var Pas ec "\}"
electricAlias-def ・Pas function "、ヌaskalias {function name} NAMEネfunction 、{NAME}(
electricAlias-def ・Pas type "type ・;・"
electricAlias-def ・Pas var "var ・;・"
electricAlias-def ・Pas record "record\r\t・\rend;・"
electricAlias-def ・Pas begin "begin\r\t・\rend・"
electricAlias-def ・Pas for "for ・ := ・ to ・ do 、{bb}\r\t・\r、{eb} 、{bc}for、{ec}・"
electricAlias-def ・Pas while "while (・) do 、{bb}\r\t・\r、{eb} 、{bc}while、{ec}・"
electricAlias-def ・Pas repeat "repeat\r\t・\runtil (・);・"
electricAlias-def ・Pas if "if (・) then 、{bb}\r\t・\r、{eb} 、{bc}if、{ec}・"
electricAlias-def ・Pas elseif "\b、{eb} else if (・) 、{bb}\r・"
electricAlias-def ・Pas else "\b、{eb} else 、{bb}\r・"
electricAlias-def ・Pas case "case (・)\r\t・ : begin\r\t\t・\r\tend\r\rend 、{bc}case、{bc}・"# to open any file in any fileset.# FILE: electricAlias.tcl
#
# LAST UPDATE: 01/25/93 2:41:51 PM
#
# This file contains the following TCL procedures:
#
# electricAlias-version -- returns the current version of electricAlias
# # electricAlias-var -- creates an electricAlias variable
# electricAlias-exists -- returns true/false
# electricAlias-list -- returns a list of electricAlias definitions
lappend sets [list menu -m -n $f -p filesetProc $menu]
menu -m -n FileSets -p filesetProc $sets
insertMenu FileSets

 electricAlias-version -- returns the current version of electricAlias
# # electricAlias-var -- creates an electricAlias variable
# electricAlias-exists -- returns true/false
# electricAlias-list -- returns a list of electricAlias definitions
# }
## electricAlias-removeall -- removes all electricAlias definitions
# electricAlias-undefine -- removes an electricAlias definition
# electricAlias-insert -- on-the-fly template insertion
# electricAlias -- for compatibility with old version

  • 1995年・旧稿です。