Stats

Locked Locked
Replies 29
Subscribers 153
Views 31811
Members are here 0

This discussion has been locked.

You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Text editor or framework for SKILL...

Hello All,

I've got some general questions about tools which could be used to write programs in SKILL. First of all could you recommend some text editor which highlights the SKILL syntax. Right now my main problems concerns syntax errors based on the problem that I'm for example passing wrong argument types to my procedures... Is there maybe a tool which could help me with this problem in SKILL, such as for example Eclipse for J2EE or Visual Studio for .Net? If not – even some text editor with the right syntax highlight for SKILL will be sufficient.

Thanks,

ToM

Parents

ebecheto over 14 years ago

Hi MacJin,

Here is an example of skill mode that work. Probaly less powerfull than the one you expect to use, but quite convenient.

Hope it helps. ++

skillMode.el

;--- mode for SKILL ---
; created    07/02/07 by M.Masar
; modified   10/02/24 by ebecheto : added send-[region/line/buffer]-to-icfb with idea of http://www.cadence.com/community/forums/T/12956.aspx
;; ;; load the following 4 lines within a menu or directly into icfb; if you want to load lines from emacs to icfb.
;; procedure(socketHandler(ipcId data) let((inPort nextline)
;; inPort=infile(data)  when(inPort while(gets(nextLine inPort) printf("\n%s \n" nextLine)))          close(inPort)
;; inPort=infile(data)  when(inPort while(gets(nextLine inPort) return(print(evalstring(nextLine))))) close(inPort) ))
;; ipcBeginProcess("emacs ~/Skill/my-log.txt" "" 'socketHandler)

; put this file in the directory ~/.emacs.d/ 
; add the line : (add-to-list 'load-path "~/.emacs.d/")  (load "skillMode.el") ; in your ~/.emacs file
; Skill-mode, associated with the .il .ocn and .cdf files
; To use the skill mode for another file, use "M-x skill-mode"

(defvar skill-mode-hook nil)

(defun skill-indent-line ()
  (interactive)  
  (newline)
  (indent-relative)
)

(provide 'skill-indent-line)

;; Ed modifs.end
(setq comment-start ";; ")
(global-set-key  "\C-cu" 'uncomment-region)
;; (global-set-key  "\C-cc" 'comment-region);; ca marchouille
(global-set-key  [(control c) (control c)] 'comment-region)


(defvar skill-mode-map
  (let ((skill-mode-map (make-keymap)))
    (define-key skill-mode-map "\C-j" 'skill-indent-line)
    skill-mode-map)
  "Keymap for SKILL major mode")

;binding with file endings
(add-to-list 'auto-mode-alist '("\\.il\\'" . skill-mode))
(add-to-list 'auto-mode-alist '("\\.ocn\\'" . skill-mode))
(add-to-list 'auto-mode-alist '("\\.cdf\\'" . skill-mode))

(defconst skill-font-lock-keywords-1
  (list
       (cons (concat "\\<" (regexp-opt '( "add1" "and" "apply" "argc" "argv" "arrayp" "arrayref" "atof" "atoi" "atom" "band" "begin" "bitfield1" "bitfield"
                                          "blankstrp" "bnand" "bnor" "bnot" "booleanp" "bor" "boundp" "bxnor" "bxor" "case" "caseq" "ceiling" "concat" "cond"
                                          "cons" "constar" "copy" "copyDefstructDeep" "declare" "declareLambda" "declareNLambda" "declareSQNLambda" "define"
                                          "defmacro" "defprop" "defstruct" "defstructp" "defun" "defUserInitProc" "defvar" "do" "dtpr" "eq" "equal" "eqv" "err"
                                          "error" "errset" "errsetstring" "eval" "evalstring" "evenp" "exit" "expandMacro" "fboundp" "fixp" "floatp" "for"
                                          "forall" "foreach" "funcall" "funobj" "gc" "gensym" "geqp" "get" "get_pname" "get_string" "getd" "getFnWriteProtect"
                                          "getFunType" "getq" "getqq" "getVarWriteProtect" "greaterp" "if" "then" "else" "inportp" "inScheme" "inSkill" "integerp"
                                          "intToChar" "isCallable" "isInfinity" "isNaN" "lambda" "leftshift" "leqp" "lessp" "let" "letrec" "letseq" "listp"
                                          "listToVector" "load" "loadi" "loadstring" "makeTable" "makeVector" "map" "mapc" "mapcan" "mapcar" "maplist" "minus"
                                          "minusp" "mod" "modulo" "mprocedure" "needNCells" "negativep" "neq" "nequal" "newline" "nindex" "nlambda" "not"
                                          "nprocedure" "null" "numberp" "oddp" "onep" "openportp" "or" "otherp" "outportp" "pairp" "plist" "plus" "plusp" "portp"
                                          "postdecrement" "postincrement" "predecrement" "preincrement" "procedure" "procedurep" "prog" "prog1" "prog2" "progn"
                                          "putd" "putprop" "putpropq" "putpropqq" "quote" "quotient" "realp" "regExitAfter" "regExitBefore" "remainder"
                                          "remExitProc" "remprop" "return" "rexCompile" "rexExecute" "rexMagic" "rexMatchAssocList" "rexMatchList" "rexMatchp"
                                          "rexReplace" "rexSubstitute" "rightshift" "round" "set" "setarray" "setFnWriteProtect" "setplist" "setq" "setqbitfield1"
                                          "setqbitfield" "setVarWriteProtect" "stringp" "sub1" "sxtd" "symbolp" "symeval" "symstrp" "system" "tablep" "tailp" "times"
                                          "truncate" "type" "typep" "unalias" "unless" "vector" "vectorp" "warn" "when" "which" "while" "xdifference" "xplus"
                                          "xquotient" "xtimes" "zerop" "zxtd" ) t )
                              "\\>")  'font-lock-keyword-face)
       (cons (concat "\\<" (regexp-opt '("nil" "t") t)  "\\>")  'font-lock-constant-face)

  )
  "Basic SKILL functions - arithmetic&logic operators, type tests, flow control, loops, rounding")


(defconst skill-font-lock-keywords-2
  (append skill-font-lock-keywords-1
          (list
           (cons (concat "\\<" (regexp-opt '( "append" "append1" "bcdp" "buildString" "caar" "caaar" "caadr" "cadr" "caddr" "cdar" "cddr" "car" "cdr" "cdsGetInstPath"
                                              "changeWorkingDir" "charToInt" "clearExitProcs" "close" "compress" "defMathConstants" "deleteDir" "deleteFile" "difference"
                                              "display" "drain" "exists" "fileLength" "fileSeek" "fileTell" "fileTimeModified" "fprintf" "fscanf" "scanf" "sscanf"
                                              "get_filename" "getc" "getchar" "getDirFiles" "gets" "getWorkingDir" "infile" "instring" "isDir" "isExecutable" "isFile"
                                              "isFileEncrypted" "isFileName" "isLargeFile" "isLink" "isMacro" "isReadable" "isWritable" "last" "lconc" "length" "lineread"
                                              "linereadstring" "list" "makeTempFileName" "member" "memq" "memv" "nconc" "ncons" "nth" "nthcdr" "nthelem" "numOpenFiles"
                                              "outfile" "parseString" "pprint" "print" "printf" "printlev" "println" "read" "readstring" "readTable" "renameFile" "reverse"
                                              "rplaca" "rplacd" "setcar" "setcdr" "setof" "simplifyFilename" "sort" "sortcar" "sprintf" "strcat" "strcmp" "stringToFunction"
                                              "stringToSymbol" "stringToTime" "strlen" "strncat" "strncmp" "subst" "substring" "symbolToString" "tconc" "upperCase"
                                              "vectorToList" "write" "writeTable" "xcons" "xCoord" "yCoord") t )
                                  "\\>")  'font-lock-keyword-face)
           )
  )
  "Additional SKILL functions - mostly string, list and file operations")



(defconst skill-font-lock-keywords-3
  (append skill-font-lock-keywords-2
          (list
           (cons (concat "\\<" (regexp-opt '("abs" "acos" "addDefstructClass" "alias" "alphalessp" "alphaNumCmp" "asin" "assoc" "assq" "assv" "atan"
                                             "atan2" "compareTime" "cos" "cputime" "createDir" "csh" "ed" "edi" "edit" "edl" "envobj" "exp" "expt"
                                             "fix" "float" "floor" "getCurrentTime" "getInstallPath" "getLogin" "getPrompts" "getTempDir" "getShellEnvVar"
                                             "getSkillPath" "getSkillVersion" "getVersion" "getWarn" "go" "help" "importSkillVar" "index" "log" "log10"
                                             "lowerCase" "max" "measureTime" "min" "prependInstallPath" "random" "range" "remd" "remdq" "remove" "remq"
                                             "rindex" "schemeTopLevelEnv" "setPrompts" "setShellEnvVar" "setSkillPath" "sh" "shell" "sin" "sqrt" "srandom"
                                             "sstatus" "status" "tableToList" "tan" "theEnvironment" "timeToString" "timeToTm" "tmToTime" "vi" "vii" "vil" ) t)

                                  "\\>")  'font-lock-keyword-face) ) )
  "Other SKILL functions")



(defvar skill-font-lock-keywords skill-font-lock-keywords-3
  "Default highlighting expressions for SKILL mode.")


(defvar skill-mode-syntax-table
  (let ((skill-mode-syntax-table (make-syntax-table)))
    
    
    ; block comments
    (modify-syntax-entry ?/ ". 14" skill-mode-syntax-table)
    (modify-syntax-entry ?* ". 23" skill-mode-syntax-table)

    ; line comments
    (modify-syntax-entry ?\; "< b" skill-mode-syntax-table)
    (modify-syntax-entry ?\n "> b" skill-mode-syntax-table)

 
   skill-mode-syntax-table)
  "Syntax table for skill-mode")



  
(defun skill-mode ()
  (interactive)
  (kill-all-local-variables)
  (use-local-map skill-mode-map)
  (set-syntax-table skill-mode-syntax-table)
  ;; Set up font-lock
  (set (make-local-variable 'font-lock-defaults) '(skill-font-lock-keywords))
  ;; Register our indentation function
  (setq major-mode 'skill-mode)
  (setq mode-name "SKILL")
  (run-hooks 'skill-mode-hook))

(provide 'skill-mode)


;; ed modif for emacs2icfb
(defun send-buffer-to-icfb () "" (interactive)
;;      (write-region (point-min) (point-max) "~/.emacs2icfb.buffer.il");; pas besoin de creer un fichier, il suffit d'envoyer le fichier en cours (buffer)
        (send-string-to-terminal (buffer-file-name)))
(defun send-region-to-icfb () "" (interactive)
        (write-region (region-beginning) (region-end) "~/.emacs2icfb.region.il")
        (send-string-to-terminal (format "~/.emacs2icfb.region.il")))
(defun send-line-to-icfb () "" (interactive)
        (write-region (line-beginning-position) (line-end-position) "~/.emacs2icfb.line.il")
        (send-string-to-terminal (format "load(\"%s\") \n" "~/.emacs2icfb.line.il")))
(defun send-line-to-icfb-mv-forward () "" (interactive)
;;      (write-region (line-beginning-position) (line-end-position) "~/.emacs2icfb.line.il") ;<== il faut rajouter un retour chariot de plus pour icfb
        (write-region (line-beginning-position) (line-beginning-position 2) "~/.emacs2icfb.line.il")
        (send-string-to-terminal "~/.emacs2icfb.line.il")
        (forward-line 1))
(defun send-function-to-icfb-mv-forward () "" (interactive)
        (write-region (point) (forward-list) "~/.emacs2icfb.function.il")
        (send-string-to-terminal "~/.emacs2icfb.function.il")
)

  (define-key skill-mode-map "\C-c\C-b" 'send-buffer-to-icfb)
  (define-key skill-mode-map "\C-c\C-r" 'send-region-to-icfb)
  (define-key skill-mode-map "\C-c\C-l" 'send-line-to-icfb)
  (define-key skill-mode-map "\C-c\C-v" 'send-line-to-icfb-mv-forward)
  (define-key skill-mode-map "\C-c\C-f" 'send-function-to-icfb-mv-forward)

Reply

ebecheto over 14 years ago

Hi MacJin,

Here is an example of skill mode that work. Probaly less powerfull than the one you expect to use, but quite convenient.

Hope it helps. ++

skillMode.el

;--- mode for SKILL ---
; created    07/02/07 by M.Masar
; modified   10/02/24 by ebecheto : added send-[region/line/buffer]-to-icfb with idea of http://www.cadence.com/community/forums/T/12956.aspx
;; ;; load the following 4 lines within a menu or directly into icfb; if you want to load lines from emacs to icfb.
;; procedure(socketHandler(ipcId data) let((inPort nextline)
;; inPort=infile(data)  when(inPort while(gets(nextLine inPort) printf("\n%s \n" nextLine)))          close(inPort)
;; inPort=infile(data)  when(inPort while(gets(nextLine inPort) return(print(evalstring(nextLine))))) close(inPort) ))
;; ipcBeginProcess("emacs ~/Skill/my-log.txt" "" 'socketHandler)

; put this file in the directory ~/.emacs.d/ 
; add the line : (add-to-list 'load-path "~/.emacs.d/")  (load "skillMode.el") ; in your ~/.emacs file
; Skill-mode, associated with the .il .ocn and .cdf files
; To use the skill mode for another file, use "M-x skill-mode"

(defvar skill-mode-hook nil)

(defun skill-indent-line ()
  (interactive)  
  (newline)
  (indent-relative)
)

(provide 'skill-indent-line)

;; Ed modifs.end
(setq comment-start ";; ")
(global-set-key  "\C-cu" 'uncomment-region)
;; (global-set-key  "\C-cc" 'comment-region);; ca marchouille
(global-set-key  [(control c) (control c)] 'comment-region)


(defvar skill-mode-map
  (let ((skill-mode-map (make-keymap)))
    (define-key skill-mode-map "\C-j" 'skill-indent-line)
    skill-mode-map)
  "Keymap for SKILL major mode")

;binding with file endings
(add-to-list 'auto-mode-alist '("\\.il\\'" . skill-mode))
(add-to-list 'auto-mode-alist '("\\.ocn\\'" . skill-mode))
(add-to-list 'auto-mode-alist '("\\.cdf\\'" . skill-mode))

(defconst skill-font-lock-keywords-1
  (list
       (cons (concat "\\<" (regexp-opt '( "add1" "and" "apply" "argc" "argv" "arrayp" "arrayref" "atof" "atoi" "atom" "band" "begin" "bitfield1" "bitfield"
                                          "blankstrp" "bnand" "bnor" "bnot" "booleanp" "bor" "boundp" "bxnor" "bxor" "case" "caseq" "ceiling" "concat" "cond"
                                          "cons" "constar" "copy" "copyDefstructDeep" "declare" "declareLambda" "declareNLambda" "declareSQNLambda" "define"
                                          "defmacro" "defprop" "defstruct" "defstructp" "defun" "defUserInitProc" "defvar" "do" "dtpr" "eq" "equal" "eqv" "err"
                                          "error" "errset" "errsetstring" "eval" "evalstring" "evenp" "exit" "expandMacro" "fboundp" "fixp" "floatp" "for"
                                          "forall" "foreach" "funcall" "funobj" "gc" "gensym" "geqp" "get" "get_pname" "get_string" "getd" "getFnWriteProtect"
                                          "getFunType" "getq" "getqq" "getVarWriteProtect" "greaterp" "if" "then" "else" "inportp" "inScheme" "inSkill" "integerp"
                                          "intToChar" "isCallable" "isInfinity" "isNaN" "lambda" "leftshift" "leqp" "lessp" "let" "letrec" "letseq" "listp"
                                          "listToVector" "load" "loadi" "loadstring" "makeTable" "makeVector" "map" "mapc" "mapcan" "mapcar" "maplist" "minus"
                                          "minusp" "mod" "modulo" "mprocedure" "needNCells" "negativep" "neq" "nequal" "newline" "nindex" "nlambda" "not"
                                          "nprocedure" "null" "numberp" "oddp" "onep" "openportp" "or" "otherp" "outportp" "pairp" "plist" "plus" "plusp" "portp"
                                          "postdecrement" "postincrement" "predecrement" "preincrement" "procedure" "procedurep" "prog" "prog1" "prog2" "progn"
                                          "putd" "putprop" "putpropq" "putpropqq" "quote" "quotient" "realp" "regExitAfter" "regExitBefore" "remainder"
                                          "remExitProc" "remprop" "return" "rexCompile" "rexExecute" "rexMagic" "rexMatchAssocList" "rexMatchList" "rexMatchp"
                                          "rexReplace" "rexSubstitute" "rightshift" "round" "set" "setarray" "setFnWriteProtect" "setplist" "setq" "setqbitfield1"
                                          "setqbitfield" "setVarWriteProtect" "stringp" "sub1" "sxtd" "symbolp" "symeval" "symstrp" "system" "tablep" "tailp" "times"
                                          "truncate" "type" "typep" "unalias" "unless" "vector" "vectorp" "warn" "when" "which" "while" "xdifference" "xplus"
                                          "xquotient" "xtimes" "zerop" "zxtd" ) t )
                              "\\>")  'font-lock-keyword-face)
       (cons (concat "\\<" (regexp-opt '("nil" "t") t)  "\\>")  'font-lock-constant-face)

  )
  "Basic SKILL functions - arithmetic&logic operators, type tests, flow control, loops, rounding")


(defconst skill-font-lock-keywords-2
  (append skill-font-lock-keywords-1
          (list
           (cons (concat "\\<" (regexp-opt '( "append" "append1" "bcdp" "buildString" "caar" "caaar" "caadr" "cadr" "caddr" "cdar" "cddr" "car" "cdr" "cdsGetInstPath"
                                              "changeWorkingDir" "charToInt" "clearExitProcs" "close" "compress" "defMathConstants" "deleteDir" "deleteFile" "difference"
                                              "display" "drain" "exists" "fileLength" "fileSeek" "fileTell" "fileTimeModified" "fprintf" "fscanf" "scanf" "sscanf"
                                              "get_filename" "getc" "getchar" "getDirFiles" "gets" "getWorkingDir" "infile" "instring" "isDir" "isExecutable" "isFile"
                                              "isFileEncrypted" "isFileName" "isLargeFile" "isLink" "isMacro" "isReadable" "isWritable" "last" "lconc" "length" "lineread"
                                              "linereadstring" "list" "makeTempFileName" "member" "memq" "memv" "nconc" "ncons" "nth" "nthcdr" "nthelem" "numOpenFiles"
                                              "outfile" "parseString" "pprint" "print" "printf" "printlev" "println" "read" "readstring" "readTable" "renameFile" "reverse"
                                              "rplaca" "rplacd" "setcar" "setcdr" "setof" "simplifyFilename" "sort" "sortcar" "sprintf" "strcat" "strcmp" "stringToFunction"
                                              "stringToSymbol" "stringToTime" "strlen" "strncat" "strncmp" "subst" "substring" "symbolToString" "tconc" "upperCase"
                                              "vectorToList" "write" "writeTable" "xcons" "xCoord" "yCoord") t )
                                  "\\>")  'font-lock-keyword-face)
           )
  )
  "Additional SKILL functions - mostly string, list and file operations")



(defconst skill-font-lock-keywords-3
  (append skill-font-lock-keywords-2
          (list
           (cons (concat "\\<" (regexp-opt '("abs" "acos" "addDefstructClass" "alias" "alphalessp" "alphaNumCmp" "asin" "assoc" "assq" "assv" "atan"
                                             "atan2" "compareTime" "cos" "cputime" "createDir" "csh" "ed" "edi" "edit" "edl" "envobj" "exp" "expt"
                                             "fix" "float" "floor" "getCurrentTime" "getInstallPath" "getLogin" "getPrompts" "getTempDir" "getShellEnvVar"
                                             "getSkillPath" "getSkillVersion" "getVersion" "getWarn" "go" "help" "importSkillVar" "index" "log" "log10"
                                             "lowerCase" "max" "measureTime" "min" "prependInstallPath" "random" "range" "remd" "remdq" "remove" "remq"
                                             "rindex" "schemeTopLevelEnv" "setPrompts" "setShellEnvVar" "setSkillPath" "sh" "shell" "sin" "sqrt" "srandom"
                                             "sstatus" "status" "tableToList" "tan" "theEnvironment" "timeToString" "timeToTm" "tmToTime" "vi" "vii" "vil" ) t)

                                  "\\>")  'font-lock-keyword-face) ) )
  "Other SKILL functions")



(defvar skill-font-lock-keywords skill-font-lock-keywords-3
  "Default highlighting expressions for SKILL mode.")


(defvar skill-mode-syntax-table
  (let ((skill-mode-syntax-table (make-syntax-table)))
    
    
    ; block comments
    (modify-syntax-entry ?/ ". 14" skill-mode-syntax-table)
    (modify-syntax-entry ?* ". 23" skill-mode-syntax-table)

    ; line comments
    (modify-syntax-entry ?\; "< b" skill-mode-syntax-table)
    (modify-syntax-entry ?\n "> b" skill-mode-syntax-table)

 
   skill-mode-syntax-table)
  "Syntax table for skill-mode")



  
(defun skill-mode ()
  (interactive)
  (kill-all-local-variables)
  (use-local-map skill-mode-map)
  (set-syntax-table skill-mode-syntax-table)
  ;; Set up font-lock
  (set (make-local-variable 'font-lock-defaults) '(skill-font-lock-keywords))
  ;; Register our indentation function
  (setq major-mode 'skill-mode)
  (setq mode-name "SKILL")
  (run-hooks 'skill-mode-hook))

(provide 'skill-mode)


;; ed modif for emacs2icfb
(defun send-buffer-to-icfb () "" (interactive)
;;      (write-region (point-min) (point-max) "~/.emacs2icfb.buffer.il");; pas besoin de creer un fichier, il suffit d'envoyer le fichier en cours (buffer)
        (send-string-to-terminal (buffer-file-name)))
(defun send-region-to-icfb () "" (interactive)
        (write-region (region-beginning) (region-end) "~/.emacs2icfb.region.il")
        (send-string-to-terminal (format "~/.emacs2icfb.region.il")))
(defun send-line-to-icfb () "" (interactive)
        (write-region (line-beginning-position) (line-end-position) "~/.emacs2icfb.line.il")
        (send-string-to-terminal (format "load(\"%s\") \n" "~/.emacs2icfb.line.il")))
(defun send-line-to-icfb-mv-forward () "" (interactive)
;;      (write-region (line-beginning-position) (line-end-position) "~/.emacs2icfb.line.il") ;<== il faut rajouter un retour chariot de plus pour icfb
        (write-region (line-beginning-position) (line-beginning-position 2) "~/.emacs2icfb.line.il")
        (send-string-to-terminal "~/.emacs2icfb.line.il")
        (forward-line 1))
(defun send-function-to-icfb-mv-forward () "" (interactive)
        (write-region (point) (forward-list) "~/.emacs2icfb.function.il")
        (send-string-to-terminal "~/.emacs2icfb.function.il")
)

  (define-key skill-mode-map "\C-c\C-b" 'send-buffer-to-icfb)
  (define-key skill-mode-map "\C-c\C-r" 'send-region-to-icfb)
  (define-key skill-mode-map "\C-c\C-l" 'send-line-to-icfb)
  (define-key skill-mode-map "\C-c\C-v" 'send-line-to-icfb-mv-forward)
  (define-key skill-mode-map "\C-c\C-f" 'send-function-to-icfb-mv-forward)

Children

No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.