Artifact 6be3bb68af7e378463fb2d1116a647a71582dbc7:
- File csv.pisc — part of check-in [215a72fdda] at 2016-07-30 14:19:21 on branch trunk — More collections work (user: yumaikas94@gmail.com
0000: 2f 2a 20 50 61 72 73 69 6e 67 20 43 53 56 20 64 /* Parsing CSV d 0010: 61 74 61 20 69 6e 20 50 49 53 43 20 2a 2f 0a 22 ata in PISC */." 0020: 44 69 63 74 73 2e 70 69 73 63 22 20 69 6d 70 6f Dicts.pisc" impo 0030: 72 74 0a 0a 3a 20 70 61 72 73 65 2d 63 73 76 2d rt..: parse-csv- 0040: 63 6f 72 65 20 28 20 72 65 61 64 65 72 20 2d 2d core ( reader -- 0050: 20 76 65 63 20 5b 20 76 65 63 20 5d 20 29 20 0a vec [ vec ] ) . 0060: 09 3a 72 65 61 64 65 72 0a 09 3c 76 65 63 74 6f .:reader..<vecto 0070: 72 3e 20 3a 72 65 73 75 6c 74 73 0a 09 66 20 3a r> :results..f : 0080: 69 6e 53 74 72 69 6e 67 0a 09 5b 20 24 69 6e 53 inString..[ $inS 0090: 74 72 69 6e 67 20 6e 6f 74 20 5d 20 3a 6f 75 74 tring not ] :out 00a0: 4f 66 53 74 72 69 6e 67 0a 0a 09 2f 2a 20 53 65 OfString.../* Se 00b0: 74 20 75 70 20 74 68 65 20 74 65 6d 70 6f 72 61 t up the tempora 00c0: 72 79 20 76 61 72 69 61 62 6c 65 73 20 2a 2f 0a ry variables */. 00d0: 09 5b 20 22 22 20 3a 74 65 6d 70 53 74 72 20 5d .[ "" :tempStr ] 00e0: 20 3a 72 65 73 65 74 43 65 6c 6c 0a 09 5b 20 72 :resetCell..[ r 00f0: 65 73 65 74 43 65 6c 6c 20 3c 76 65 63 74 6f 72 esetCell <vector 0100: 3e 20 3a 74 65 6d 70 56 65 63 20 5d 20 64 75 70 > :tempVec ] dup 0110: 20 63 61 6c 6c 20 3a 72 65 73 65 74 4c 69 6e 65 call :resetLine 0120: 0a 0a 09 5b 20 24 74 65 6d 70 56 65 63 20 24 74 ...[ $tempVec $t 0130: 65 6d 70 53 74 72 20 76 65 63 2d 61 70 70 65 6e empStr vec-appen 0140: 64 20 3a 74 65 6d 70 56 65 63 20 72 65 73 65 74 d :tempVec reset 0150: 43 65 6c 6c 20 5d 20 3a 61 64 64 43 65 6c 6c 0a Cell ] :addCell. 0160: 09 5b 20 24 72 65 73 75 6c 74 73 20 24 74 65 6d .[ $results $tem 0170: 70 56 65 63 20 76 65 63 2d 61 70 70 65 6e 64 20 pVec vec-append 0180: 3a 72 65 73 75 6c 74 73 20 72 65 73 65 74 4c 69 :results resetLi 0190: 6e 65 20 5d 20 3a 61 64 64 4c 69 6e 65 0a 0a 09 ne ] :addLine... 01a0: 2f 2a 20 44 65 62 75 67 67 69 6e 67 20 0a 09 22 /* Debugging .." 01b0: 54 65 6d 70 20 43 65 6c 6c 3a 20 22 20 24 74 65 Temp Cell: " $te 01c0: 6d 70 53 74 72 20 63 6f 6e 63 61 74 20 70 72 69 mpStr concat pri 01d0: 6e 74 0a 09 22 54 65 6d 70 20 56 65 63 74 6f 72 nt.."Temp Vector 01e0: 3a 20 22 20 24 74 65 6d 70 56 65 63 20 3e 73 74 : " $tempVec >st 01f0: 72 69 6e 67 20 63 6f 6e 63 61 74 20 70 72 69 6e ring concat prin 0200: 74 0a 09 2a 2f 0a 0a 09 5b 20 24 72 65 61 64 65 t..*/...[ $reade 0210: 72 20 2d 24 45 4f 46 20 63 61 6c 6c 20 6e 6f 74 r -$EOF call not 0220: 20 6e 69 70 20 5d 20 3a 6e 6f 74 45 4f 46 0a 09 nip ] :notEOF.. 0230: 5b 20 24 72 65 61 64 65 72 20 2d 24 72 65 61 64 [ $reader -$read 0240: 2d 72 75 6e 65 20 63 61 6c 6c 20 6e 69 70 20 5d -rune call nip ] 0250: 20 3a 72 65 61 64 52 75 6e 65 0a 0a 09 5b 20 6e :readRune...[ n 0260: 6f 74 45 4f 46 20 5d 20 5b 20 0a 09 09 72 65 61 otEOF ] [ ...rea 0270: 64 52 75 6e 65 0a 09 09 2f 2a 20 42 79 20 64 65 dRune.../* By de 0280: 66 61 75 6c 74 2c 20 61 70 70 65 6e 64 20 61 20 fault, append a 0290: 63 68 61 72 20 2a 2f 0a 09 09 74 20 3a 64 65 66 char */...t :def 02a0: 61 75 6c 74 0a 09 09 5b 20 66 20 3a 64 65 66 61 ault...[ f :defa 02b0: 75 6c 74 20 5d 20 3a 62 72 65 61 6b 0a 0a 09 09 ult ] :break.... 02c0: 64 75 70 20 22 2c 22 20 73 74 72 2d 65 71 20 6f dup "," str-eq o 02d0: 75 74 4f 66 53 74 72 69 6e 67 20 61 6e 64 20 5b utOfString and [ 02e0: 20 61 64 64 43 65 6c 6c 20 62 72 65 61 6b 20 5d addCell break ] 02f0: 20 77 68 65 6e 0a 09 09 64 75 70 20 22 5c 6e 22 when...dup "\n" 0300: 20 73 74 72 2d 65 71 20 6f 75 74 4f 66 53 74 72 str-eq outOfStr 0310: 69 6e 67 20 61 6e 64 20 5b 20 61 64 64 43 65 6c ing and [ addCel 0320: 6c 20 61 64 64 4c 69 6e 65 20 62 72 65 61 6b 20 l addLine break 0330: 5d 20 77 68 65 6e 0a 09 09 64 75 70 20 22 5c 22 ] when...dup "\" 0340: 22 20 73 74 72 2d 65 71 20 2f 2a 20 54 6f 67 67 " str-eq /* Togg 0350: 6c 65 20 2a 2f 20 5b 20 6f 75 74 4f 66 53 74 72 le */ [ outOfStr 0360: 69 6e 67 20 3a 69 6e 53 74 72 69 6e 67 20 62 72 ing :inString br 0370: 65 61 6b 20 5d 20 77 68 65 6e 0a 09 09 24 64 65 eak ] when...$de 0380: 66 61 75 6c 74 20 5b 20 24 74 65 6d 70 53 74 72 fault [ $tempStr 0390: 20 73 77 61 70 20 63 6f 6e 63 61 74 20 3a 74 65 swap concat :te 03a0: 6d 70 53 74 72 20 5d 20 5b 20 64 72 6f 70 20 5d mpStr ] [ drop ] 03b0: 20 69 66 0a 09 5d 20 77 68 69 6c 65 20 0a 09 2f if..] while ../ 03c0: 2a 20 41 64 64 20 74 68 65 20 73 74 72 61 67 67 * Add the stragg 03d0: 6c 69 6e 67 20 69 74 65 6d 73 20 2a 2f 0a 09 61 ling items */..a 03e0: 64 64 43 65 6c 6c 20 61 64 64 4c 69 6e 65 20 0a ddCell addLine . 03f0: 09 24 72 65 73 75 6c 74 73 20 3b 20 0a 0a 3a 20 .$results ; ..: 0400: 63 73 76 2d 6f 66 2d 66 69 6c 65 20 28 20 66 69 csv-of-file ( fi 0410: 6c 65 70 61 74 68 20 2d 2d 20 76 65 63 20 5b 20 lepath -- vec [ 0420: 76 65 63 20 5d 20 29 20 6f 70 65 6e 2d 66 69 6c vec ] ) open-fil 0430: 65 2d 72 65 61 64 65 72 20 70 61 72 73 65 2d 63 e-reader parse-c 0440: 73 76 2d 63 6f 72 65 20 3b 0a 3a 20 63 73 76 2d sv-core ;.: csv- 0450: 6f 66 2d 73 74 72 69 6e 67 20 28 20 73 74 72 69 of-string ( stri 0460: 6e 67 20 2d 2d 20 76 65 63 20 5b 20 76 65 63 20 ng -- vec [ vec 0470: 5d 20 29 20 73 74 72 3e 72 75 6e 65 2d 72 65 61 ] ) str>rune-rea 0480: 64 65 72 20 70 61 72 73 65 2d 63 73 76 2d 63 6f der parse-csv-co 0490: 72 65 20 3b re ;