Sending SKILL commands to a running instance of ICFB

See bellow my example of emacs skill-mode from an existing work of Mr Masar.
If you launch in icfb the following code :

procedure(socketHandler(ipcId data)
when(inPort
    while(gets(nextLine inPort) 
        return(print(evalstring(nextLine)))
    )
    close(inPort))) ipcBeginProcess("emacs ~/Skill/my-log.txt" "" 'socketHandler)

Then you can send command from a skill file, line by line, function by function, or your entire file,
directly to icfb by the shortcuts : Ctrl-c-v Ctrl-c-f or Ctrl-c-b
It needs to have load correctly the skillMode.el file into emacs obviously.
One little remaining annoying problem is that icfb does not flush the result of the command at every command.
Andrew, can you help me with that ?

If for instance ~/Skill/my-log.txt contains :

x=4;;; There is 3 way of wrinting in skill
printf "The value of x is %n \n" x    ;; simplest way but wont be clear for a function of functions
printf("The value of x is %n \n" x)   ;; standard C-like syntax
(printf "The value of x is %n \n" x)  ;; standart lisp syntax, the recommend way to use it, but people usualy prefer C-like

Icfb output :

ipc:2
4The value of x is 4

Only after the execution of the third line of 'send-function-to-icfb-mv-forward execution …  I don’t get it.

I tried to use the socket handler with some function like return, hiFlush … nothing better. Do you think that the problem comes from emacs that does not flush the io-pipe or something, or is it the socketHandler that is not ‘interactive enough’ ?

I hope with this mode that vi user will switch to emacs : ). Any help is welcomed. Thanks for sharing.
++Ed

 

_ _ _ __ _ _  _ _ _ _ _ _ _ _ _ ___ _ _ _ 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

; 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 pour 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")
        (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)

 

See bellow my example of emacs skill-mode from an existing work of Mr Masar.
If you launch in icfb the following code :

procedure(socketHandler(ipcId data)
when(inPort
    while(gets(nextLine inPort) 
        return(print(evalstring(nextLine)))
    )
    close(inPort))) ipcBeginProcess("emacs ~/Skill/my-log.txt" "" 'socketHandler)

Then you can send command from a skill file, line by line, function by function, or your entire file,
directly to icfb by the shortcuts : Ctrl-c-v Ctrl-c-f or Ctrl-c-b
It needs to have load correctly the skillMode.el file into emacs obviously.
One little remaining annoying problem is that icfb does not flush the result of the command at every command.
Andrew, can you help me with that ?

If for instance ~/Skill/my-log.txt contains :

x=4;;; There is 3 way of wrinting in skill
printf "The value of x is %n \n" x    ;; simplest way but wont be clear for a function of functions
printf("The value of x is %n \n" x)   ;; standard C-like syntax
(printf "The value of x is %n \n" x)  ;; standart lisp syntax, the recommend way to use it, but people usualy prefer C-like

Icfb output :

ipc:2
4The value of x is 4

Only after the execution of the third line of 'send-function-to-icfb-mv-forward execution …  I don’t get it.

I tried to use the socket handler with some function like return, hiFlush … nothing better. Do you think that the problem comes from emacs that does not flush the io-pipe or something, or is it the socketHandler that is not ‘interactive enough’ ?

I hope with this mode that vi user will switch to emacs : ). Any help is welcomed. Thanks for sharing.
++Ed

 

_ _ _ __ _ _  _ _ _ _ _ _ _ _ _ ___ _ _ _ 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

; 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 pour 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")
        (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)