[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transcribe 6e00216 12/27: /packages/transcribe: Fix var
From: |
Stefan Monnier |
Subject: |
[elpa] externals/transcribe 6e00216 12/27: /packages/transcribe: Fix variables |
Date: |
Tue, 1 Dec 2020 17:33:48 -0500 (EST) |
branch: externals/transcribe
commit 6e00216e491884c03e06a313b95f04cd3ee3310a
Author: David Gonzalez Gandara <dggandara@member.fsf.org>
Commit: David Gonzalez Gandara <dggandara@member.fsf.org>
/packages/transcribe: Fix variables
---
transcribe.el | 102 ++++++++++++++++++++++++++++++++--------------------------
1 file changed, 56 insertions(+), 46 deletions(-)
diff --git a/transcribe.el b/transcribe.el
index c751bc0..2312cf5 100644
--- a/transcribe.el
+++ b/transcribe.el
@@ -3,7 +3,7 @@
;; Copyright 2014-2015 Free Software Foundation, Inc.
;; Author: David Gonzalez Gandara <dggandara@member.fsf.org>
-;; Version: 1.0.0
+;; Version: 1.0.1
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -101,50 +101,60 @@
"Extract from a given episode and person the number of asunits per
second produced, and the number of clauses per asunits, for L2 and L1."
(interactive "sepisodenumber: \nspersonid:")
- (setq interventionsl2 '())
- (setq interventionsl1 '())
- (setq xml (xml-parse-region (point-min) (point-max)))
- (setq results (car xml))
- (setq episodes (xml-get-children results 'episode))
- (setq asunitsl2 0.0000)
- (setq asunitsl1 0.0000)
- (setq shifts)
- (setq clausesl1 0.0000)
- (setq errorsl1 0.0000)
- (setq clausesl2 0.0000)
- (setq errorsl2 0.0000)
- (dolist (episode episodes)
- (setq numbernode (xml-get-children episode 'number))
- (setq number (nth 2 (car numbernode)))
- (when (equal episodenumber number)
- (setq durationnode (xml-get-children episode 'duration))
- (setq duration (nth 2 (car durationnode)))
- (setq transcription (xml-get-children episode 'transcription))
- (dolist (turn transcription)
- (setq interventionnode (xml-get-children turn (intern
personid)))
- (dolist (intervention interventionnode)
- (setq l2node (xml-get-children intervention 'l2))
- (dolist (l2turn l2node)
- (setq l2 (nth 2 l2turn))
- (setq clausesl2node (nth 1 l2turn))
- (setq clausesl2nodeinc (cdr (car
clausesl2node)))
- (when (not (equal clausesl2node nil))
- (setq clausesl2 (+ clausesl2
- (string-to-number
clausesl2nodeinc))))
- (when (not (equal l2 nil))
- (add-to-list 'interventionsl2 l2)
- (setq asunitsl2 (1+ asunitsl2))))
- (setq l1node (xml-get-children intervention 'l1))
- (dolist (l1turn l1node)
- (setq l1 (nth 2 l1turn))
- (setq clausesl1node (nth 1 l1turn))
- (setq clausesl1nodeinc (cdr (car
clausesl1node)))
- (when (not (equal clausesl1node nil))
- (setq clausesl1 (+ clausesl1
- (string-to-number
clausesl1nodeinc))))
- (when (not (equal l1 nil))
- (add-to-list 'interventionsl1 l1)
- (setq asunitsl1 (1+ asunitsl1))))))))
+ (let* ((interventionsl2 '())
+ (interventionsl1 '())
+ (xml (xml-parse-region (point-min) (point-max)))
+ (results (car xml))
+ (episodes (xml-get-children results 'episode))
+ (asunitsl2 0.0000)
+ (asunitsl1 0.0000)
+ (shifts nil)
+ (clausesl1 0.0000)
+ (errorsl1 0.0000)
+ (clausesl2 0.0000)
+ (errorsl2 0.0000)
+ (duration nil)
+ (number nil))
+
+ (dolist (episode episodes)
+ (let*((numbernode (xml-get-children episode 'number)))
+
+ (setq number (nth 2 (car numbernode)))
+ (when (equal episodenumber number)
+ (let* ((durationnode (xml-get-children episode 'duration))
+ (transcription (xml-get-children episode 'transcription)))
+
+ (setq duration (nth 2 (car durationnode)))
+ (dolist (turn transcription)
+ (let* ((interventionnode (xml-get-children turn
+ (intern personid))))
+
+ (dolist (intervention interventionnode)
+ (let* ((l2node (xml-get-children intervention 'l2))
+ (l1node (xml-get-children intervention 'l1)))
+
+ (dolist (l2turn l2node)
+ (let* ((l2 (nth 2 l2turn))
+ (clausesl2node (nth 1 l2turn))
+ (clausesl2nodeinc (cdr (car clausesl2node))))
+
+ (when (not (equal clausesl2node nil))
+ (setq clausesl2 (+ clausesl2 (string-to-number
+ clausesl2nodeinc))))
+ (when (not (equal l2 nil))
+ (add-to-list 'interventionsl2 l2)
+ (setq asunitsl2 (1+ asunitsl2)))))
+ (dolist (l1turn l1node)
+ (let*((l1 (nth 2 l1turn))
+ (clausesl1node (nth 1 l1turn))
+ (clausesl1nodeinc (cdr (car clausesl1node))))
+
+ (when (not (equal clausesl1node nil))
+ (setq clausesl1 (+ clausesl1 (string-to-number
+ clausesl1nodeinc))))
+ (when (not (equal l1 nil))
+ (add-to-list 'interventionsl1 l1)
+ (setq asunitsl1 (1+ asunitsl1)))))))))))))
(reverse interventionsl2)
(reverse interventionsl1)
;(print interventions) ;uncomment to display all the interventions on screen
@@ -154,7 +164,7 @@
(setq clausesperasunitl1 (/ clausesl1 asunitsl1))
(princ (format "episode: %s, duration: %s, person: %s\n" number duration
personid))
(princ (format "L2(Asunits/second): %s, L2(clauses/Asunit): %s,
L1(Asunits/second): %s"
- asunitspersecondl2 clausesperasunitl2 asunitspersecondl1))
+ asunitspersecondl2 clausesperasunitl2 asunitspersecondl1)))
)
(defun transcribe-define-xml-tag (xmltag)
- [elpa] branch externals/transcribe created (now f381a3d), Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe d5ed001 01/27: Package transcribe added, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 23566ca 02/27: Added some usage information, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 6617973 03/27: * transcribe.el: Fix up formatting and copyright, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe e0032f9 06/27: Added minor-mode function as suggested, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 39f91f3 11/27: packages/transcribe.el: Add native discourse analysis in elisp, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 7fcb7ab 04/27: * transcribe.el: Add `provide' statement, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe aa1a6e2 05/27: * transcribe/transcribe.el: Allow compilation without emms, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 4b595d0 08/27: * transcribe/transcribe.el: Remove manual change log, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 51dd51f 10/27: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa: transcribe.el update, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 6e00216 12/27: /packages/transcribe: Fix variables,
Stefan Monnier <=
- [elpa] externals/transcribe 5306782 07/27: * packages/transcribe.el: Manually changed Changelog, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 6cdaf56 23/27: packages/transcribe.el - minor bug corrections, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe c620bda 17/27: * packages/transcribe: New release: new functions and menus, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 30ae915 20/27: packages/transcribe.el: Fixed void function declaration, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe b99bb85 18/27: * packages/transcribe.el: Fixed key binding error. Added menus, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe d5bf0a5 21/27: packages/transcribe.el: Fixed function calls, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 481fac9 25/27: packages/transcribe.el: improved analysis functions, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 76c5bd2 26/27: * transcribe/transcribe.el: Cosmetic changes, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe 89832e4 24/27: packages/transcribe.el: interface improvements, Stefan Monnier, 2020/12/01
- [elpa] externals/transcribe cd7c67d 13/27: /packages/transcribe.el: Fix global variables, Stefan Monnier, 2020/12/01